ようこそ、長谷川さん
さて、電源をOFFにしても記憶しておける場所は補助記憶、
すなわち、ディスクです。
そこで、入力したアラーム時間をプログラムが終了するときに
ディスクに書き込み、プログラムを起動したときに読み込んで
アラームに設定するようにする方法があります。
まず、プログラム終了のボタンを配置します。cmdEndとします。
Private Sub cmdEnd_Click()
Open "alarm.dat" For Output As #1
print #1, txtJikan.text
print #1, txtFun.text
close #1
End Sub
で、時間と分をファイルalarm.datに書き込みます。
次に、プログラム起動時に読み込むプログラムです。
Private Sub Form_Load()
On Error Goto nonefile
Me.Show 'フォームの表示
open "alarm.data" for input as #1
input #1, txtJikan.text
input #1, txtFun.text
close #1
lblDate.caption=・・・・・
TimeHyouji
exit sub
nonefile:
End Sub
こんな感じでどうでしょうか。
すみません。実行もせずに載せてしまいました。
次のように、ファイルからのデータを変数に読み込みます。
Private Sub Form_Load()
Dim jikan As String, fun As String
On Error Goto nonefile
Me.Show 'フォームの表示
open "alarm.dat" for input as #1 '←ファイル名も間違っていました。
input #1, jikan '←
input #1, fun '←
close #1
lblDate.caption=・・・・・
txtJikan.text = jikan '←
txtFun.text = fun '←
TimeHyouji
exit sub
nonefile:
End Sub
Private Sub Command1_Click()
Text2.Text = "" (注)インデント(空白)は全角です。
Open Text1.Text For Input As #1
Do Until EOF(1)
Input #1, d$
Text2.Text = Text2.Text & d$ & vbCrLf
Loop
Close #1
End Sub
Private Sub AddMenuItem()
Dim hMenu As Long
Dim hSubMenu As Long
Dim MenuCount As Long
Dim Ret As Long
hMenu = GetMenu(Me.hwnd)
If hMenu = 0 Then
MsgBox "メニューハンドルの取得に失敗"
Exit Sub
End If
hSubMenu = GetSubMenu(hMenu, 0)
If hSubMenu = 0 Then
MsgBox "サブメニューハンドルの取得に失敗"
Exit Sub
End If
MenuCount = GetMenuItemCount(hSubMenu)
Ret = InsertMenu(hSubMenu, MenuCount, MF_BYPOSITION, 0, "追加メニュー")
If Ret = 0 Then
MsgBox "メニューの追加に失敗しました。"
End If
End Sub
これは、例ですけど、
Private Sub Command1_Click()
a = Timer '開始時間取得
Print a '時間表示
For m = 1 To 1000
For n = 1 To 10000
da = n * 2
Next n
Next m
b = Timer '終了時間取得
Print b, b - a '時間と経過時間表示
End Sub
これを、メモ帳に書いて保存した後、
実行しないといけないんですよね？
実行する方法を教えてください、
コンパイラを、ダウンロードしなくてわいけないですか？
「BASICでやろうかな？」と、おもっています。
