Mohon tunggu...
Wawan Supriadi
Wawan Supriadi Mohon Tunggu... lainnya -

LAHIR DI SUMEDANG TANGGAL 20 NOVEMBER 1966 -. PERNAH JADI GURU DI SMP DAN SMK SEJAK TAHUN 1988 SAMPAI TAHUN 2013. PROGRAMMER DI RSU KABUPATEN SUMEDANG - SENANG MEMPELAJARI SOFTWARE 3D ANIMATION E-Mail wulansoft.computindo@gmail.com Website :http://rsudsumedang.com

Selanjutnya

Tutup

Nature Artikel Utama

VB6: Source Code Bell Otomatis

26 Desember 2010   09:09 Diperbarui: 26 Juni 2015   10:23 4529
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.

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()

HALAMAN :
  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
Mohon tunggu...

Lihat Konten Nature Selengkapnya
Lihat Nature Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun