Kode

Shutdown otomatis

kadang-kadang kita lupa mematikan komputer disaat mengerjakan sesuatu yang lain atau dipanggil oleh teman kita, untuk itu saya memberikan tips bagaimana supaya komputer kita mati pada waktu yang telah di tentukan. Buatlah project baru dengan tambahkan objek-objek seperti 6 label, 2 command button,1 timer, 2 option button, 2 textbox, kemudian copy paste kode dibawah ini :

Dim jam
Dim menit
Dim y
Dim waktu

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
If Option1 = True Then
y = “AM”
ElseIf Option2 = True Then
y = “PM”
End If
waktu = jam + “:” + menit + “:00″ + y
MsgBox “Shutdown pada pukul:” & waktu
Label6 = waktu
End Sub

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Option1 = False
Option2 = False
Label6.Caption = “”
Command1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Form_Load()
Command1.Enabled = False
End Sub

Private Sub Option1_Click()
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Label6.Caption = Label1.Caption Then
Call Shell(“Rundll32.exe user,exitwindows”, vbHide)
End If
End Sub

Membuat Screen Saver

Screen saver ini sangat sederhana tetapi menarik untuk dipelajari dan cukup mudah dan memberikan hasil yang memuaskan, hanya dengan mengklik form sekali akan tampil bola-bola berwarna-warni.
Langkah-langkahnya adalah :
Atur property pada form yaitu borderstyle:0 – none, windowstate=2-maximized
Kemudian masuk kedalam view code, copy paste kode ini :

Private Sub Form_KeyPress(KeyAscii As Integer)
‘untuk menutup aplikasi
Unload Me
End Sub

Private Sub Timer1_Timer()
Do
FillStyle = 0
FillColor = RGB(Int(Rnd * 255), Int(Rnd * 255), _
Int(Rnd * 255))
Circle (Int(Rnd * 12000), Int(Rnd * 10000)), Int(Rnd * 255)
DoEvents
Loop
End Sub

Membuat aplikasi multimedia

Disini saya akan menjelaskan bagaimana membuat multimedia dengan menggunakan Visual Basic, yaitu masukkan windows media player, DriveListBox, DirListBox dan FileListBox pada Form, untuk windows media player ada dalam component kemudian checklist dan klik ok lalu copy paste kode berikut ini

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
MediaPlayer1.FileName = Dir1.Path & “\” & File1.FileName

End Sub

Private Sub Form_Load()
Drive1.Drive = “c:\”
End Sub

Mendeteksi keberadaan printer

Untuk mengetahui adanya printer atau tidak kita bisa mengetahui dengan menggunakan visual basic yaitu copy paste kode berikut ini :

Private Sub Command1_Click()
If VB.Printers.Count <= 0 Then
MsgBox “Printer sudah terpasang belum yach”
Else
MsgBox “Printer sudah bener-bener terpasang”, vbInformation, “Sukses”
End Sub

Cara memasukkan tanggal, bulan, tahun di ComboBox

Untuk memasukkan data pada ComboBox kita harus menekan CTRL + ENTER untuk membuat tanggal, bulan, tahun kita harus mengetiknya terlebih dahulu dan itu memakan waktu yang lebih lama, maka ada yang lebih spesifik lagi yaitu dengan cara menulis kode berikut ini :

‘kode ini untuk menampilkan tanggal
For i = 1 to 31
Combo1.AddItem (Str(i))
Next i

‘kode ini untuk menampilkan bulan
For j = 1 to 12
Combo2.AddItem (MonthName(j))
Next j

‘kode ini untuk menampilkan tahun
For k = 1900 to year (Now)
Combo3.AddItem (Str(k))
Next k

End Sub