Membuat Jam Digital dengan Visual Basic 6.0


kali ini tentang cara membuat jam digital menggunakan VB 6.0. Toolbox yang akan kita gunakan untuk membuat jam digital ini adalah satu textbox untuk menampilkan jam, timer dan command button untuk mengeksekusi perintah keluar. Kontrol timer bisa diletakkan dimana saja didalam form dengan pengaturan angka intervalnya 1000. Untuk ukuran karakter (angka) pada textbox sesuaikan dengan ukurang textboxnya pada properti font dan pilih model center pada properti aligment supaya jam rata tengah pada textbox.

Design program jam digitalnya seperti gambar :

buat jam digital dengan VB 6.0

Silahkan salin coding dibawah ini kedalam form code dengan terlebih dahulu melakukan klik dua kali pada form yang telah kita desain :

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
  Text1.Text = Time
End Sub

Private Sub Timer1_Timer()
    Text1.Text = Time
End Sub

Setelah program dijalankan maka tampil seperti berikut :

cara membuat jam sederhana dengan VB












Latest Post

Cara membuat kalkulator sederhana dari VB6


Cara membuat kalkulator sederhana dari VB6



kali ini saya aka posting tentang cara membuat kalkulator sederhama menggunakan visual basic 6.0
langsung saja ...



1. Kita buka software Visual Basic

2. kemudian pilih standard EXE



3. kemudian kita tambahkan 3 textbox 


4. letaketakkan sesuai keinginan anda
5. hapus tulisan text1, text2 dan text3 supaya tidak ada tulisan, dengan cara seperti berikut


6. kita tambahkan 3 label, letakan dan ganti nama label tersebut
7. kita tambahkan 6 commandbutton, lalu gantikan captionnya dengan cara
8. double klik pada commandbutton penjumlahan, nanti akan muncul tampilan seperti berikut

9. lalu isi dengan code
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = a + b
Text3 = c
End Sub

10. setelah itu klik view object



11. double klik pada commandbutton pengurangan
lalu isikan code berikut

Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub

12. commandbutton perkalian codenya


Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub

13. commandbutton pembagian codenya


Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub

14. untuk commandbutton reset codenya


Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

15. commandbutton keluar codenya


Private Sub Command5_Click()
end
End sub 

tinggal di coba deh klik tombol start
sekian tutorialnya

+

Blogger templates

Diberdayakan oleh Blogger.

Blogroll

About