VB6: Source Code Bell Otomatis

Combo1.AddItem "Selasa" Combo1.AddItem "Rabu" Combo1.AddItem "Kamis" Combo1.AddItem "Jumat" Combo1.AddItem "Sabtu" Combo1.AddItem "Minggu" Combo1.AddItem " "

Combo2.AddItem "00"

Combo2.AddItem "01" Combo2.AddItem "02" Combo2.AddItem "03" Combo2.AddItem "04" Combo2.AddItem "05" Combo2.AddItem "06" Combo2.AddItem "07" Combo2.AddItem "08" Combo2.AddItem "09" For i = 10 To 23 Combo2.AddItem i Next i Jam = GetSetting(App.Title, "Settings", "Jam") If Jam = "" Then SaveSetting App.Title, "Settings", "Jam", "14" End If Jam = GetSetting(App.Title, "Settings", "Jam") Combo2.Text = Jam

Combo3.AddItem "00"

Combo3.AddItem "01" Combo3.AddItem "02" Combo3.AddItem "03" Combo3.AddItem "04" Combo3.AddItem "05" Combo3.AddItem "06" Combo3.AddItem "07" Combo3.AddItem "08" Combo3.AddItem "09" For i = 10 To 59 Combo3.AddItem i Next i Menit = GetSetting(App.Title, "Settings", "Menit") If Menit = "" Then SaveSetting App.Title, "Settings", "Menit", "00" End If Menit = GetSetting(App.Title, "Settings", "Menit") Combo3.Text = Menit

File1.Path = App.Path

Tombol = GetSetting(App.Title, "Settings", "Tombol")

If Tombol = "" Then SaveSetting App.Title, "Settings", "Tombol", "Set" End If Tombol = GetSetting(App.Title, "Settings", "Tombol")

If Tombol = "Reset" Then

PushButton10.Caption = "Reset" Label5.Caption = Combo2.Text & ":" & Combo3.Text Label6.Caption = "Auto Shot Down pada jam : " & Label5.Caption Else Label5.Caption = "X" Label6.Caption = "Auto Shut Down Tidak Aktip" PushButton10.Caption = "Set" End If

Text1.Text = Format(Date, "dddd")

LoadData

End Sub

Private Sub Label3_Click()

If Label3.Caption = Label5.Caption Then ShutDown

End If

End Sub

Private Sub ListView1_Click()

Dim i As Integer On Error Resume Next

If PushButton1.Caption = "Simpan" Then Exit Sub

If PushButton2.Caption = "Simpan" Then Exit Sub

If ListView1.ListItems.Count > 0 Then

i = ListView1.SelectedItem.Index

Combo1.Text = ListView1.ListItems.Item(i).Text PT1.Text = ListView1.SelectedItem.ListSubItems.Item(1).Text ME1.Text = ListView1.SelectedItem.ListSubItems.Item(2).Text PT2.Text = ListView1.SelectedItem.ListSubItems.Item(3).Text PushButton2.Enabled = True End If End Sub

Private Sub ME1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then PT2.SetFocus End If

End Sub

Private Sub PT2_Change()