Start Button Kedip

Kode berikut ini digunakan untuk membuat Start Button di Taskbar bisa berkedip.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim b As Boolean

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), Abs(CInt(b))
b = Not b

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Dim b As Boolean

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

ShowWindow(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), System.Math.Abs(CInt(b)))
b = Not b

Clipboard

Secara awam, Clipboard adalah tempat di komputer untuk menyimpan data sementara ketika melakukan proses cut/copy-paste, baik data tersebut berupa teks, gambar, file atau yang lain. Dalam VB terdapat fungsi / prosedur khusus untuk mengoperasikan Clipboard secara sederhana. Berikut ini contoh penggunaannya :


[ VB 6.0 ]

• Meng-copy Teks
  Clipboard.Clear
  Clipboard.SetText "Teks yang akan di-copy", vbCFText
  
  
• Meng-copy Gambar (gambar diambil dari kontrol Picture1)
  Clipboard.Clear
  Clipboard.SetData Picture1.Picture, vbCFBitmap
  
  
• Meng-paste Teks (ditampung di kontrol Text1)
  Text1.Text = Clipboard.GetText(vbCFText)
  
  
• Meng-paste Gambar (ditampung di kontrol Picture1)
  Picture1.Picture = Clipboard.GetData(vbCFBitmap)
  
  
• Memeriksa apakah berisi data Teks (pesan MsgBox)
  MsgBox Clipboard.GetFormat(vbCFText)
  
  
• Memeriksa apakah berisi data Gambar (pesan MsgBox)
  MsgBox Clipboard.GetFormat(vbCFBitmap)
  
  
• Menghapus data
  
  Clipboard.Clear

[ VB .NET ]

• Meng-copy Teks
  Clipboard.SetText("Teks yang akan di-copy")
  
  
• Meng-copy Gambar (gambar diambil dari kontrol PictureBox1)
  Clipboard.SetImage(PictureBox1.Image)
  
  
• Meng-paste Teks (ditampung di kontrol TextBox1)
  TextBox1.Text = Clipboard.GetText
  
  
• Meng-paste Gambar (ditampung di kontrol PictureBox1)
  PictureBox1.Image = Clipboard.GetImage
  
  
• Memeriksa apakah berisi data Teks (pesan MsgBox)
  MsgBox(Clipboard.ContainsText)
  
  
• Memeriksa apakah berisi data Gambar (pesan MsgBox)
  MsgBox(Clipboard.ContainsImage)
  
  
• Menghapus data
  
  Clipboard.Clear

ComboBox Kombinasi

Dengan sedikit kreatfitas sebenarnya kontrol ComboBox bisa dikombinasikan dengan kontrol lain, semisal ListView (seperti gambar diatas), TreeView, bahkan DataGrid.
Sehingga tampilan ComboBox lebih variatif dari biasanya yang hanya menampilkan list saja.

Pencari Ayat Al Qur'an

Aplikasi ini merupakan aplikasi yang digunakan untuk mencari ayat Al Qur'an. Aplikasi ini membutuhkan koneksi internet (online) untuk menampilkan ayat-nya.

Penghitungan Mundur

Bila Anda membutuhkan contoh prosedur untuk melakukan proses penghitungan mundur / countdown, berikut ini cara membuatnya. Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 1 kontrol Tombol / Button, dan 1 buah kontrol Timer (Enabled=False; Interval=1000), lalu ketikkan kode-kode berikut


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit = 1
Detik = 10

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1
If Detik < 0 Then
Detik = 59
   
Menit = Menit - 1

If Menit < 0 Then

Menit = 59

Jam = Jam - 1

End If

End If

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
   
MsgBox "Waktu Habis !!!"
End If

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00:00:00"

Di bagian 'Button1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit =1
Detik = 10

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Button1.Enabled = False

Di bagian 'Timer1_Tick' ketikkan :

Detik -= 1
If Detik < 0 Then
Detik = 59

Menit -= 1

If Menit < 0 Then

Menit = 59

Jam -= 1

End If

End If

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Button1.Enabled = True

MsgBox("Waktu Habis !!!")
End If

CATATAN : Kode diatas mencakup Jam, Menit, dan Detik. Namun bila Anda menginginkan hanya Menit dan Detik saja, tinggal menghapus kode-kode yang berwarna merah.

Stopwatch

Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)

Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :

mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
      
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
          
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
          
End If
End If
  
Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)

Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :

mDetik += 1
If mDetik = 100 Then
mDetik = 0

Detik += 1
If Detik = 60 Then
Detik = 0

Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If

End If
End If

Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")