For ～ To ～ Next

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

#N88BASIC

'

Dim City(47) As String

Dim i As Integer

City(1) = "北海道" :City(2) = "青森県" :City(3) = "秋田県" :City(4) = "山形県"

City(5) = "岩手県" :City(6) = "福島県" :City(7) = "宮城県" :City(8) = "新潟県"

City(9) = "群馬県" :City(10) = "茨城県" :City(11) = "栃木県" :City(12) = "埼玉県"

City(13) = "千葉県" :City(14) = "東京都" :City(15) = "神奈川県":City(16) = "長野県"

City(17) = "山梨県" :City(18) = "静岡県" :City(19) = "岐阜県" :City(20) = "愛知県"

City(21) = "三重県" :City(22) = "富山県" :City(23) = "石川県" :City(24) = "福井県"

City(25) = "滋賀県" :City(26) = "京都府" :City(27) = "大阪府" :City(28) = "奈良県"

City(29) = "和歌山県":City(30) = "兵庫県" :City(31) = "広島県" :City(32) = "鳥取県"

City(33) = "岡山県" :City(34) = "島根県" :City(35) = "山口県" :City(36) = "香川県"

City(37) = "徳島県" :City(38) = "高知県" :City(39) = "愛媛県" :City(40) = "福岡県"

City(41) = "佐賀県" :City(42) = "長崎県" :City(43) = "大分県" :City(44) = "熊本県"

City(45) = "宮崎県" :City(46) = "鹿児島県":City(47) = "沖縄県"



For i=1 to 45 Step 5

Print City(i),City(i+1),City(i+2),City(i+3),City(i+4)

Next

Print City(46),City(47)

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

メモリ情報を取得

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

#N88BASIC

'------------------

' メモリ情報を取得

'------------------

Dim MemStatus As MEMORYSTATUS

Dim rate_Physical As Long, rate_Virtual As Long

MemStatus.dwLength=Len(MemStatus)

GlobalMemoryStatus(MemStatus)

'物理メモリに関する情報を表示する

rate_Physical=MemStatus.dwMemoryLoad

Print "物理メモリー"

Print "使用率："+Str$(rate_Physical)+"%"

Print "合　計："+Str$(Int(MemStatus.dwTotalPhys/1024))+"KB"

Print "使用中："+Str$(Int((MemStatus.dwTotalPhys-MemStatus.dwAvailPhys)/1024))+"KB"

'仮想メモリに関する情報を表示する

rate_Virtual= _

Int(CDbl(MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/CDbl(MemStatus.dwTotalPageFile)*100)



Print

Print "仮想メモリー"

Print "使用率："+Str$(rate_Virtual)+"%"

Print "合　計："+Str$(Int(MemStatus.dwTotalPageFile/1024))+"KB"

Print "使用中："+Str$(Int((MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/1024))+"KB"

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

「ファイルを開く」ダイアログボックス

#N88BASIC




'API関数　GetOpenFileName




'




Dim ofn As OPENFILENAME




Dim buffer[MAX_PATH-1] As Byte




Dim h As DWord




Dim t As String




'------------------




' ファイル名を取得




'------------------




ofn.lStructSize=Len(ofn)




ofn.lpstrFilter=Ex"音楽 ファイル(*.wav;*.mid;*.mp3)\0*.wav;*.mid;*.mp3\0すべてのファイル(*.*)\0*\0\0"




ofn.nFilterIndex=1




ofn.nMaxFile=MAX_PATH




ofn.lpstrFile=buffer




h = GetOpenFileName(ofn)




t = ofn.lpstrFile




Print t




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

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

￥2,625

Amazon.co.jp

Win32 APIオフィシャルリファレンス改訂3版 Windowsサービス/ネットワーク編

￥5,460

Amazon.co.jp