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.

If PT2.Text = "" Or PT2.Text = "-" Then PushButton2.Enabled = False PushButton3.Enabled = False Else PushButton2.Enabled = True PushButton3.Enabled = True End If

End Sub

Private Sub PT2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then If PushButton1.Caption = "Simpan" Then PushButton1_Click If PushButton2.Caption = "Simpan" Then PushButton2_Click End If

End Sub

Private Sub PushButton1_Click()

Dim Urutan As String If PushButton1.Caption = "Tambah" Then PushButton1.Caption = "Simpan" PushButton7.Enabled = True

Buka

Bersih Combo1.SetFocus

Else

Pesan

TaskDialog.MainInstructionText = "INPUT DATA" TaskDialog.ContentText = "Hari : " & Combo1.Text & Chr(13) & "Uraian : " & PT1.Text & Chr(13) & "Jam : " & ME1.Text & Chr(13) & "Suara : " & PT2.Text & Chr(13) & Chr(13) & "Input Data Sudah Benar ?" TaskDialog.AddButton "Sudah Benar, Tambah Data Lagi", 102 TaskDialog.AddButton "Sudah Benar, Selesai", 103 TaskDialog.AddButton "Belum Benar", 999 TaskDialog.ShowDialog

End If

End Sub

Private Sub PushButton10_Click()

SaveSetting App.Title, "Settings", "Jam", Combo2.Text SaveSetting App.Title, "Settings", "Menit", Combo3.Text

If PushButton10.Caption = "Set" Then

PushButton10.Caption = "Reset" Label5.Caption = Combo2.Text & ":" & Combo3.Text Label6.Caption = "Auto Shot Down pada jam : " & Label5.Caption SaveSetting App.Title, "Settings", "Tombol", "Reset"

Else

Label5.Caption = "X" Label6.Caption = "Auto Shut Down Tidak Aktip" PushButton10.Caption = "Set" SaveSetting App.Title, "Settings", "Tombol", "Set"

End If

End Sub

Private Sub PushButton2_Click()

If PushButton2.Caption = "Ubah" Then PushButton2.Caption = "Simpan" PushButton7.Enabled = True

Buka

Combo1.Locked = True PT1.Locked = True ME1.SetFocus

Else

Pesan

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