【応用６のプログラム】

　前提になっているプログラムは応用５にある。先にそちらを参照のこと。

　応用６は機能を追加している。　

１．素材の作成

　　１９９９年９月６日〜９日まで、沖縄ゼミ旅行の際に撮影した静止画像を使用する。

　　所在：\\SKALA\教材提示ELEVATO\石山　謙\情報処理論\okinawa

　　　　　静止画像（ビットマップ）

２．インターフェイスの作成

（１）コマンドボタンを１つ追加する。

（２）タイマーを１つ追加する。

３．プロパティの設定

（１）コマンドボタン

（２）タイマー

　何もいじらない。

４．コードの記述

（１）ゼネラル

　ｊ　を追加。

（２）フォーム

　画面の表示方法を指定。０とか１４０００とか９０００の単位はＴｗｉｐ。

（３）コマンド３

（４）タイマー

（５）プログラム全文

Dim i, j As Integer
Dim path As String

Private Sub Command1_Click()

　　　path = "\\SKALA\教材提示ELEVATO\石山　謙\情報処理論\okinawa\"

　　　i = i + 1

　　　If i = 31 Then End

　　　Select Case i
　　　Case 1
　　　　　　Image1.Picture = LoadPicture(path & "1.bmp")
　　　Case 2
　　　　　　Image1.Picture = LoadPicture(path & "2.bmp")
　　　Case 3
　　　　　　Image1.Picture = LoadPicture(path & "3.bmp")
　　　Case 4
　　　　　　Image1.Picture = LoadPicture(path & "4.bmp")
　　　Case 5
　　　　　　Image1.Picture = LoadPicture(path & "5.bmp")
　　　Case 6
　　　　　　Image1.Picture = LoadPicture(path & "6.bmp")
　　　Case 7
　　　　　　Image1.Picture = LoadPicture(path & "7.bmp")
　　　Case 8
　　　　　　Image1.Picture = LoadPicture(path & "8.bmp")
　　　Case 9
　　　　　　Image1.Picture = LoadPicture(path & "9.bmp")
　　　Case 10
　　　　　　Image1.Picture = LoadPicture(path & "10.bmp")
　　　Case 11
　　　　　　Image1.Picture = LoadPicture(path & "11.bmp")
　　　Case 12
　　　　　　Image1.Picture = LoadPicture(path & "12.bmp")
　　　Case 13
　　　　　　Image1.Picture = LoadPicture(path & "13.bmp")
　　　Case 14
　　　　　　Image1.Picture = LoadPicture(path & "14.bmp")
　　　Case 15
　　　　　　Image1.Picture = LoadPicture(path & "15.bmp")
　　　Case 16
　　　　　　Image1.Picture = LoadPicture(path & "16.bmp")
　　　Case 17
　　　　　　Image1.Picture = LoadPicture(path & "17.bmp")
　　　Case 18
　　　　　　Image1.Picture = LoadPicture(path & "18.bmp")
　　　Case 19
　　　　　　Image1.Picture = LoadPicture(path & "19.bmp")
　　　Case 20
　　　　　　Image1.Picture = LoadPicture(path & "20.bmp")
　　　Case 21
　　　　　　Image1.Picture = LoadPicture(path & "21.bmp")
　　　Case 22
　　　　　　Image1.Picture = LoadPicture(path & "22.bmp")
　　　Case 23
　　　　　　Image1.Picture = LoadPicture(path & "23.bmp")
　　　Case 24
　　　　　　Image1.Picture = LoadPicture(path & "24.bmp")
　　　Case 25
　　　　　　Image1.Picture = LoadPicture(path & "25.bmp")
　　　Case 26
　　　　　　Image1.Picture = LoadPicture(path & "26.bmp")
　　　Case 27
　　　　　　Image1.Picture = LoadPicture(path & "27.bmp")
　　　Case 28
　　　　　　Image1.Picture = LoadPicture(path & "28.bmp")
　　　Case 29
　　　　　　Image1.Picture = LoadPicture(path & "29.bmp")
　　　Case 30
　　　　　　Image1.Picture = LoadPicture(path & "30.bmp")
　　　End Select

End Sub

Private Sub Command2_Click()
　　　End
End Sub

Private Sub Command3_Click()
　　　Timer1.Interval = 500
　　　Timer1.Enabled = True
End Sub

Private Sub Form_Load()
　　　Form1.Top = 0
　　　Form1.Left = 0
　　　Form1.Width = 14000
　　　Form1.Height = 9000
End Sub

Private Sub Timer1_Timer()
Dim k As String
　　　j = j + 1
　　　If j = 32 Then End
　　　k = j
　　　Image1.Picture = LoadPicture(path & LTrim(j) & ".bmp"
End Sub

５．実行

（１）羽田空港

（２）首里の守礼の門

（３）沖縄芸術大学

（４）琉球大学

（５）那覇市のホテル

６．保存

（１）フォーム

（２）プロジェクト