Membuat Tampilan Form Lebih Menarik Dengan Skin di VB 6.0

April 27, 2012 at 1:18 pm (OCX, Visual Basic 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 :

• B-Studio
• Galaxy
• Green
• Media
• Metallic
• Paper
• Standard
• Top secret
• Web-II
• WinAqua
• Zhelezo

Read More

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

April 27, 2012at 7:22 pm (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

Read More

MEMBUAT PEMUTAR PLAYER MENGUNAKAN VB

Media Player with VB 6.0

1.Langkah Pembuatan
2.Aktifkan Vb 6.0 Buat Projrct Baru
3.Pilih menu Project -> add Form 
4.Pilih lagi menu Project -> Componen -> beri Conteng Pada
- Microsoft Common Dialog Control 6.0 (SP3)
- Microsoft Multimedia Control 6.0
- Microsofr Common Control 6.0 (SP6)
- Window Media Player

5.Pilih lagi menu Project -> add File -> masukkan file Modul dan User Cintrol  
6.Buat form dengan rancangan berikut

Read More