Kamis, 26 April 2012

Membuat Tampilan Form Lebih Menarik Dengan Skin di VB 6.0

Jika Anda merasa bosan melihat tampilan form di visual basic 6.0 dan ingin membuatnya lebih menarik, maka komponen skin yang Anda perlukan. Komponen skin ini berekstensi “.skn” dan memiliki berbagai jenis tampilan form. Tapi untuk menggunakan skin ini Anda harus memiliki komponen “ACTSKIN4.ocx”, karena komponen inilah yang berfungsi untuk menampilkan tampilan Skin ke dalam form. Berikut ini gambar tampilan form yang sudah menggunakan skin :







Download “ACTSKIN4.ocx”.
Download “Contoh Program Skin”.
Berikut ini Skin yang saya miliki :


Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch.






Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.


Source Code dari program diatas :


 Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub
Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub
Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub