Cara Menekan Tombol dengan kode Mudah

Berikut cara menekan Tombol / Button menggunakan kode, jadi tanpa melakukan klik menggunakan pointer mouse.



Tulis kode berikut di event '(Declarations)' dari Form

[ VB 6.0 ]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Lon



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[ VB .NET ]

Private Declare Function SendMessage Lib"user32.dll" Alias "SendMessageA"(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Object) As Integer



Const WM_LBUTTONDOWN = &H201

Const WM_LBUTTONUP = &H202

Sekarang untuk mempraktekkannya gunakan kode seperti berikut :

 [ VB 6.0 ]

SendMessage Command1.hwnd, &HF3, 1, 0

Sleep 150

SendMessage Command1.hwnd, &HF3, 0, 0



Command1.Value = True

[ VB .NET ]

SendMessage(Button1.Handle, WM_LBUTTONDOWN, 0, 0)

Application.DoEvents()

Threading.Thread.Sleep(150)

SendMessage(Button1.Handle, WM_LBUTTONUP, 0, 0)



Button1.PerformClick()

Cara Membuat Splash Screen Dengan Mudah

Splash Screen yaitu merupakan suatu istilah bagi Form hiasan yang ditampilkan sebelum Form utama ditampilkan. Proses pembuatannya pun terbilang sangat mudah, berikut caranya :

• Buat Project baru dengan dua buah Form didalamnya (Form1 dan Form2). Dalam hal ini Form1 dianggap sebagai Form splash screen-nya, dan Form2 sebagai Form utamanya.
• Atur properti dari Form1, yaitu :
  
  [ VB 6.0 ] / [ VB .NET ]
  
  BorderStyle / FormBorderStyle = None
  
  StartUpPosition / StartPosition = CenterScreen
  
  ShowInTaskbar = False
• Untuk mempercantik tampilan, tambahkan gambar dan informasi aplikasi ke dalam Form1 seperti gambar diatas.



• [ VB 6.0 ]
  Lalu didalam Form1 masukkan sebuah kontrol Timer(properti Enabled=True; Interval=2000), dan ketikkan kode ini di bagian 'Timer1_Timer'
  
  
  Form2.Show 'memunculkan form utama
  
  Unload Me 'menutup form splash
  
  
  
  
  [ VB .NET ]
  
  Buka jendela Properties dari Project (klik menu Project > NamaProject Properties).
  
  Atur nilai "Startup Form" menjadi Form2, dan "Splash Screen" menjadi Form1.
  
  
  
  
  Sekarang untuk mengatur ulang waktu lamanya, di jendela "Solution Explorer" klik tombol "Show All Files" lalu cari dan buka file Application.Designer.vb.
  
  
  
  
  Lalu gantikan kode (area paling bawah) yang tadinya seperti ini :
  
  Protected Overrides Sub OnCreateSplashScreen()
  
      Me.SplashScreen = Global.WindowsApplication1.Form1
  
  End Sub
  
  Menjadi seperti ini :
  
  Protected Overrides Sub OnCreateSplashScreen()
  
      Me.MinimumSplashScreenDisplayTime = 3000 '3 detik
  
      Me.SplashScreen = Global.WindowsApplication1.Form1
  
  End Sub

Cara Membuat FileSystemWatcher Mudah

FileSystemWatcher adalah sebuah kontrol yang digunakan untuk me-monitor/memantau aktifitas yang terjadi di suatu Folder, seperti membuat, merubah, menghapus File maupun Folder. Penggunaannya sangat mudah, berikut contoh caranya :

• Buat Project baru dengan sebuah Form didalamnya. Masukkan 1 kontrol FileSystemWatcher ke dalam Form tersebut.


• Pilih Folder mana yang akan di monitor dengan mengubah properti "Path"-nya.


• Jika proses monitor ingin dilakukan juga pada Folder di dalam Folder terpilih, ubah properti "IncludeSubdirestories" menjadi "True".


• Sekarang untuk menampung hasilnya, tambahkan 1 kontrol ListBox ke dalam Form.



• Ketikkan kode :
  
  Di bagian 'FileSystemWatcher1_Changed'
  
  
  
  ListBox1.Items.Add("Dirubah > " & e.FullPath)
  
  Di bagian 'FileSystemWatcher1_Created'
  
  
  
  ListBox1.Items.Add("Dibuat > " & e.FullPath)
  
  Di bagian 'FileSystemWatcher1_Deleted'
  
  
  
  ListBox1.Items.Add("Dihapus > " & e.FullPath)
  
  Di bagian 'FileSystemWatcher1_Renamed'
  
  
  
  ListBox1.Items.Add("Diganti namanya > " & e.FullPath)

Sekarang coba anda testing dalam folder, seperti anda menambah folder, mengubah nama folder atau menghapusnya.

Cara Membuat Penghitung waktu (stopwatch)

Cara Membuat Penghitung waktu (stopwatch) - Berikut ini adalah kode dan cara untuk membuat penghitung waktu sederhana menggunakan Visual Basic. Mari kita mulai sobat blogger.





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")

Cara Membuat Penghitungan Mundur Dengan VB

Bila anda ingin membuat penghitungan mundur, berikut ini cara membuatnya dan kodenya. 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.

Cara Mengetahui Versi Windows yang di pakai

Berikut adalah kode sederhana VB.Net dan VB 6.0 untuk mengetahui versi windows yang sobat gunakan.

Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :



[ VB 6.0 ]

Dim Win As Object

For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

[ VB .NET ]

For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next