02 November 2010

Membuat Program Awal Visual Basic Untuk Pemula

10:36 AM  ,  No comments


Sobat BM, setelah anda mengenal apa itu visual basic dan elemen elemennya kini saatnya kita memulai mempraktikannya.
Disini saya mempunyai beberapa contoh program-program  sederhana pembelajaran Visual Basic.
Seilahkan pilih Project yang anda mau!



Silahkan saja anda pilih dan enjoy..!!
Selamat belajar. Salam Blogger sobat BM. J

Read More

Program alat hitung sederhana dengan Visual Basic

10:21 AM  , ,  No comments


Sobat BM, program visual basic sangat erat kaitannya dengan perumusan aritmetika, perhitungan perhitungan dan juga logikanya. Karena ini merupakan bahasa pemrograman. Kali ini saya akan membawa anda ke program awal mengenai program aritmatika yaitu program perhitungan.
Program alat hitung sederhana, disini saya hanya akan menjelaskan beberapa contoh ringan saja. Agar lebih efisien lagi, kita langsung saja ke inti dari artikel ini yaitu pembahasan. Buka program visual basic anda pada start window dan all program. Kemudian pilih new project.
Buatlah layout tampilan sebagai berikut :
 
Atau sesuka anda yang penting nyaman untuk anda.
Propertiesnya sebagai berikut:
Label1 properties
Caption = “Bilangan Pertama”
Label2 properties
Caption = “Bilangan kedua”
Textbox properties
Text=(kosong)
Command properties
Command1         caption=  +
Command2         caption=  -
Command3         caption= *
Command4         caption= /
Command5         caption= ON
Command6         caption= OFF
Command7         caption= EXIT
Command8         caption=CLEAR
Command9         caption=EXIT
Selanjutnya silahkan anda masukan listing berikut :
Private Sub Command1_Click()
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)
hasil = bil1 + bil2
Text3.Text = hasil
End Sub

Private Sub Command2_Click()
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)
hasil = bil1 - bil2
Text3.Text = hasil
End Sub

Private Sub Command3_Click()
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)
hasil = bil1 * bil2
Text3.Text = hasil
End Sub

Private Sub Command4_Click()
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)
hasil = bil1 / bil2
Text3.Text = hasil
End Sub

Private Sub Command5_Click()
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Enabled = True
Command8.Enabled = True
Command5.Enabled = False
Text1.SetFocus
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command8.Enabled = False
Command6.Enabled = False
Command5.Enabled = True
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command6.Enabled = False
Command8.Enabled = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Setelah itu silahkan sobat BM menjalankan programnya dan enjoy J. Kalau masih ada yang ditanyakan, silahkan koment di nawah. Atau yang mau mengkoreksi dan  menambahkan juga boleh. Program ini bisa di download disini

Read More

Program Penukaran Huruf dan warna pada Visual Basic

10:18 AM  ,  No comments

Sobat BM yang budiman, pada kesempatqan kali ini coba perhatikan artikel yang singkat ini. Kita akan belajar program awal yang sangat sederhana yaitu program penukaran huruf dan warna pada visual basic. Langsung saja ke pokok bahasan. Buka program visual basic anda, kemudian pilih new standard project.
Jika sudah tampil kotak form project buatlah layout seperti gambar di bawah ini :
 
Tambahkan class class label
Keterangan :
Label1 properties :
Autosize : true
Caption : BLOG MINI INDONESIA
Font size : 14   impact
Forecolor : vb white
Checkbox
Check1 properties
Caption : reguler
Forecolor: vb white
Check2 properties
Caption : Bold
Forecolor: vb white
Check3  properties
Caption : Italic
Forecolor: vb white
Check1 properties
Caption : Underline
Forecolor: vb white
Optionbutton
Option1 porperties
Caption : Merah
Forecolor : vb white
Option1 porperties
Caption : Merah
Forecolor : vb white
Option2 porperties
Caption : kuning
Forecolor : vb white
Option3 porperties
Caption : hijau
Forecolor : vb white
Option4 porperties
Caption : biru
Forecolor : vb white
Label2 properties
Caption : font size
Forecolor : Vb white
Text1 properties
Text  : (kosong)
Command1 properties
Caption : Keluar
Sesudah anda mengatur tampilan blognya, lalu silahkan anda ketikan code berikut ke lembar code vb :
Private Sub Check1_Click()
Label1.FontBold = False
Label1.FontItalic = False
Label1.FontUnderline = False
End Sub

Private Sub Check2_Click()
Label1.FontBold = True
Label1.FontItalic = False
Label1.FontUnderline = False
End Sub

Private Sub Check3_Click()
Label1.FontItalic = True
Label1.FontBold = False
Label1.FontUnderline = False
End Sub

Private Sub Check4_Click()
Label1.FontItalic = False
Label1.FontBold = False
Label1.FontUnderline = True
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub Option4_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub Text1_Change()
ukuran = Val(Text1.Text)
Label1.FontSize = ukuran
End Sub
Silahkan anda jalankan programnya dan enjoy deh. Cukup mudah kan??? Kalau mau tau lebih jelasnya silahkan download aja Program ini  disini
Semoga bermanfaat !!!

Read More