Cara Membuat Label Countdown di Visual Basic 6

Hai! Kali ini, saya akan post tentang Cara Membuat Label Countdown di Visual Basic 6, sesuai dengan request Dimaz. Oke, ini dia caranya:

Tools:

• Visual Basic 6

Step:

1. Buka Visual Basic 6
2. Tambahkan 1 Label, beri nama LabelDetik, Captionnya terserah
3. Tambahkan 1 Timer, beri nama TimerDetik
4. Dobel klik Form yang kosong, tambahkan kode di bawah ini:


Dim detik As Integer

Private Sub Form_Load()
TimerDetik.Interval = 1000
LabelDetik.Caption = "20"
End Sub

Private Sub TimerDetik_Timer()
detik = LabelDetik - 1
LabelDetik.Caption = detik
If LabelDetik.Caption = "0" Then
Call MsgBox("Game Over", vbInformation)
TimerDetik.Interval = 0
End If
End Sub





5. Note: Ganti 20 dengan berapa detik countdown yang akan dilakukan, Ganti Game Over dengan tulisan yang akan muncul apabila countdown selesai.
6. Selesai

Sekian dulu posting kali ini. Terima kasih untuk Dimaz yang telah me-request artikel ini :)

Kode diatas adalah buatan saya sendiri :)

Cara Membuat Label Berjalan di Visual Basic

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!

1. Buka Visual Basic 6.0, buat project baru Standard EXE
2. Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
3. Coding berjalan dari kiri ke kanan:

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

4. Dan ini coding berjalan dari kanan ke kiri:
   

   Dim kalimat As String
   Dim panjang As Integer
   Dim jalan As Boolean
   Private Sub Form_Load()
   jalan = True
   kalimat = "SELAMAT DATANG "
   panjang = Len(kalimat)
   Label1 = kalimat
   Label1.Refresh
   Timer1.Enabled = True
   Timer1.Interval = 100
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   jalan = False
   End Sub
   Private Sub Timer1_Timer()
   If jalan Then
   kalimat = Right(kalimat, panjang - 1) & Left(kalimat, 1)
   Label1 = kalimat
   Label1.Refresh
   Else
   Timer1.Enabled = False
   End If
   End Sub

5. Ganti tulisan SELAMAT DATANG dengan tulisan yang ingin digerakkan. Ganti angka 100 dengan angka yang diinginkan. Semakin besar angkanya, semakin lambat jalannya. Begitu juga sebaliknya.

Selamat Mencoba! Semoga Berhasil!

Source Code Program Sederhana untuk Belajar Visual Basic

Karena kemarin
ada seorang pengunjung yang ingin sekali belajar pemrograman, tapi tidak ada bisa yang mengajari, jadi saya akan memposting Source Code Program Sederhana Untuk Belajar Visual Basic.

Pertama, kalian harus mempunyai Visual Basic dulu, Bisa di download di postingan sebelumnya.(Klik Disini)

Sekarang, kalian bisa mendownload Source Code di SINI

Thank'z Mainpedia atas Komentarnya.

Cara Membuat Label Berkedip di Visual Basic 6

Mungkin, sudah banyak yang Posting tentang Cara Membuat Label Berkedip di Visual Basic 6, tapi tidak ada salahnya jika saya juga memposting cara ini.
Oke, Langusng saja ya!

1. Buat label baru beranama Label1. Caption nya terserah.
2. Lalu, Buat Timer baru Bernama Timer1.
3. Masukkan Kode berikut (klik kanan, view code)

Private Sub Form_Load()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

4. Angka 200 diganti sesuai selera. Semakin kecil angkanya, maka semakin cepat berkedip. Begitu juga sebaliknya.

Sekian dari saya, semoga bermanfaat.

Membuat Simple Web Browser menggunakan Microsoft Visual Basic 6

Mungkin sudah banyak yang mempunyai Web Browser seperti Mozila Firefox, Chrome, Opera. Tapi, kali ini saya akan menyediakan tutorial Cara Membuat Web Browser menggunakan Visual Basic 6. Langsung saja silakan ikuti tata cara berikut:

Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]

Lanhkah - Langkah:

1. Buka Visual Basic 6, buat project baru.
2. Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
3. Dobel klik Web Browser di Toolbox, beri nama WebBrowser1
4. Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:
   

   Kontrol:	Nama:	Caption:
   Text Box	txtUrl	(kosongkan)
   Command Button	cmdGo	GO!
   Command Button	cmdBack	Back
   Command Button	cmdFoward	Foward
   Command Button	cmdRefresh	Refresh
   Command Button	cmdStop	Stop

5. Masukkan coding berikut(klik kanan pada form, view code):
   

   Private Sub cmdBack_Click()
   'Untuk Kembali
   WebBrowser1.GoBack
   End Sub
   Private Sub cmdFoward_Click()
   'Untuk maju ke halaman yg telah di klik kembali
   WebBrowser1.GoForward
   End Sub
   Private Sub cmdGo_Click()
   'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
   WebBrowser1.Navigate (txtUrl.Text)
   End Sub
   Private Sub cmdRefresh_Click()
   'Untuk merefres halaman
   WebBrowser1.Refresh
   End Sub
   Private Sub cmdStop_Click()
   'Untuk menyetop loading halaman
   WebBrowser1.Stop
   End Sub
   Private Sub Form_Load()
   'Untuk menetapkan sebuah situs web sebagai homepage
   WebBrowser1.Navigate ("http://www.google.co.id/")
   End Sub
   Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
   'Untuk merubah Caption Form1
   Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
   'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
   txtUrl.Text = (WebBrowser1.LocationURL)
   End Sub

6. Klik File > Make Project1.exe

Silakan download punya saya di SINI
Akhir kata, sekian da terimakasih.

Download Visual Basic 6 Enterprise Edition Full Version

Penjelasan tentang Visual Basic yang saya ambil dari wikipedia:

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Download: KLIK DISINI