閏年、平年を判定

閏年


＊サンプル＊
#N88BASIC
'閏年
Dim year As Long
for year = 1950 to 2006
If year Mod 4 = 0 Then
If year Mod 100 = 0 Then
If year Mod 400 <> 0 Then
Print year;"平年"
Else
Print year;"閏年"
End If
Else
Print year;"閏年"
End If

Else
Print year;"平年"
End If
Next

ファイルの検索

ファイルの検索

使用関数： FindFirstFile

＊サンプル＊
#N88BASIC
'ファイルの検索
Dim hFind As Long
Dim FindData As WIN32_FIND_DATA
'最初のファイル検索
hFind = FindFirstFile("C:\windows\win.ini", FindData)
'検索失敗か?
If hFind = INVALID_HANDLE_VALUE Then
Print "検索失敗"
Else
Print "OK"
End If
'検索の終了
FindClose(hFind)

OS名とバージョン取得

OS名とバージョン取得

使用関数：　GetVersionEx

＊サンプル＊
#N88BASIC
'OS名とバージョン取得
Dim osVerInfo As OSVERSIONINFO
Dim SizeBuf As Long
Dim StrBuf As String
Dim BuildNum As Long
Dim SpVer As String
SizeBuf = Len(osVerInfo)
osVerInfo.dwOSVersionInfoSize = SizeBuf
GetVersionEx(osVerInfo)
'
Select Case osVerInfo.dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
'Windows9x系OSのWin32
Select Case osVerInfo.dwMinorVersion
Case 0
'Windows 95
StrBuf = "Windows 95"
Case 10
'Windows 98
StrBuf = "Windows 98"
Case 90
'Windows Me
StrBuf = "Windows Me"
End Select
BuildNum = LOWORD(osVerInfo.dwBuildNumber)
Case VER_PLATFORM_WIN32_NT
'WindowsNT系OSのWin32
Select Case osVerInfo.dwMajorVersion
Case 4
StrBuf = "WindowsNT"
Case 5
If osVerInfo.dwMinorVersion = 0 Then
StrBuf = "Windows2000"
Else
StrBuf = "WindowsXp"
End If
End Select
BuildNum = osVerInfo.dwBuildNumber
End Select
SpVer = osVerInfo.szCSDVersion
Print StrBuf
Print BuildNum
Print SpVer

------------------------------------------------------------

山本 大祐

ActiveBasicオフィシャルユーザーズガイド―完全FreeのBasic統合開発環境で始めるWindowsプログラミング