Langkah-langkah cara
membuatnya adalah :
1. Buka program VB
2. Setelah di klik maka akan muncul sebuah kotak
lalu pilih Standart EXE
3. Lalu akan muncul lembar kerjanya
4. Sebelum
membuat bagian-bagiannya kita harus mengetahui alat-alat yang kita gunakan,
yaitu Tool Box seperti pada gambar :
5. Lalu mulailah membuat bagian-bagiannya, pertama saya akan
membuat Label menggunakan icon Label
pada
Tool Box sebelah kiri.
6. Setelah dibuat bagian pertama saya akan mengganti kata “Label1” menjadi “Input Your Name” pada Properties, mengganti nama tersebut dilakukan pada bagian “Caption” pada Properties.
7. Saya
akan mengerjakan bagian yang kedua yaitu membuat TextBox menggunakan icon
TextBox.
8. Pada TextBox tidak usah diganti namanya tapi dikosongkan saja.
9. Lalu saya akan membuat bagian yang ketiga yaitu Label menggunakan icon Label
10. Nama pada Label tersebut sama seperti sebelumnya yaitu dikosongkan saja.
11. Saya akan membuat bagian yang keempat,kelima,dan keenam yaitu membuat sebuah Option menggunakan icon OptionButton.
12. Lalu nama dari masing-masing OptionButton diganti, diganti pada bagian Properties lalu pilih Caption, diganti menjadi :
-
- Option
pertama : Merah
-
- Option kedua
: Kuning
-
- Option ketiga
: Hijau
Pertama :
Kedua :
Ketiga :
13. Selanjutnya saya akan membuat bagian yang ketujuh, dan kedelapan menggunakan icon CommandButton.
14. Pada Properties di Caption bagian ketujuh diganti menjadi “Ok” dan bagian kedelapan diganti menjadi “exit”
Pertama :
Kedua :
15. Saya akan membuat bagian yang kesembilan dan kesepuluh menggunakan icon CheckBox.
16. Pada Properties di Caption bagian kesembilan diganti menjadi “Bold” dan bagian kesembilan diganti menjadi “Italic”.
Pertama :
Kedua :
17. Setelah semua bagian yang dibutuhkan sudah selesai dibuat maka cara selanjutnya adalah memasukkan koding pada bagian-bagian tertentu untuk menjadikan program tersebut dapat berfungsi dengan baik.
18. Pertama yaitu membuat kodingan pada bagian CommandButton Ok dan CommandButton Exit :
19
19. Kedua yaitu membuat kodingan pada bagian OptionButton 4, 5, dan 6 :
20. Ketiga yaitu membuat kodingan pada bagian CheckBox 9 dan 10 :
21. Setelah semua kodingan sudah dimasukkan lalu klik Run pada Toolbar diatas, maka akan muncul sebuah program yang sudah kita buat, Tombol Run :
Programnya :
22. Lalu masukkan data sesuai yang diinginkan :
Merah
Kuning
Hijau
Merah Bold
Hijau Italic
THANK’S FOR YOU BLLOGER.
Langkah-langkah cara
membuatnya adalah :
1. Buka program VB
2. Setelah di klik maka akan muncul sebuah kotak
lalu pilih Standart EXE
3. Lalu akan muncul lembar kerjanya
4. Sebelum
membuat bagian-bagiannya kita harus mengetahui alat-alat yang kita gunakan,
yaitu Tool Box seperti pada gambar :
5. Lalu mulailah membuat bagian-bagiannya, pertama saya akan
membuat Label menggunakan icon Label
pada
Tool Box sebelah kiri.
6. Setelah dibuat bagian pertama saya akan mengganti kata “Label1” menjadi “Input Your Name” pada Properties, mengganti nama tersebut dilakukan pada bagian “Caption” pada Properties.
7. Saya
akan mengerjakan bagian yang kedua yaitu membuat TextBox menggunakan icon
TextBox.
8. Pada TextBox tidak usah diganti namanya tapi dikosongkan saja.
9. Lalu saya akan membuat bagian yang ketiga yaitu Label menggunakan icon Label
10. Nama pada Label tersebut sama seperti sebelumnya yaitu dikosongkan saja.
11. Saya akan membuat bagian yang keempat,kelima,dan keenam yaitu membuat sebuah Option menggunakan icon OptionButton.
12. Lalu nama dari masing-masing OptionButton diganti, diganti pada bagian Properties lalu pilih Caption, diganti menjadi :
-
- Option
pertama : Merah
-
- Option kedua
: Kuning
-
- Option ketiga
: Hijau
Pertama :
Kedua :
Ketiga :
13. Selanjutnya saya akan membuat bagian yang ketujuh, dan kedelapan menggunakan icon CommandButton.
14. Pada Properties di Caption bagian ketujuh diganti menjadi “Ok” dan bagian kedelapan diganti menjadi “exit”
Pertama :
Kedua :
15. Saya akan membuat bagian yang kesembilan dan kesepuluh menggunakan icon CheckBox.
16. Pada Properties di Caption bagian kesembilan diganti menjadi “Bold” dan bagian kesembilan diganti menjadi “Italic”.
Pertama :
Kedua :
17. Setelah semua bagian yang dibutuhkan sudah selesai dibuat maka cara selanjutnya adalah memasukkan koding pada bagian-bagian tertentu untuk menjadikan program tersebut dapat berfungsi dengan baik.
18. Pertama yaitu membuat kodingan pada bagian CommandButton Ok dan CommandButton Exit :
19
19. Kedua yaitu membuat kodingan pada bagian OptionButton 4, 5, dan 6 :
20. Ketiga yaitu membuat kodingan pada bagian CheckBox 9 dan 10 :
21. Setelah semua kodingan sudah dimasukkan lalu klik Run pada Toolbar diatas, maka akan muncul sebuah program yang sudah kita buat, Tombol Run :
Programnya :
22. Lalu masukkan data sesuai yang diinginkan :
Merah
Kuning
Hijau
Merah Bold
Hijau Italic
THANK’S FOR YOU BLLOGER.
Membuat
Visual Basic
Jan, 23 01 14
Membuat
Aplikasi Penjumlahan dan Perkalian Matriks dengan VB 6.0
1. Buka aplikasi Microsoft Visual Basic 6.0
2. Setelah program terbuaka, pilih "Standard
EXE" pada "New Project".
3. Buatlah desain seperti di bawah ini atau
sesuai dengan selara pembaca.
4. Setelah mendesain, ganti tulisan :
Label1 : Perkalian dan Penjumlahan Matriks
Label2 : Masukan Bilangan Pertama
Label3 : Masukan Bilangan Kedua
Label4 : Hasil
Framme1 : Opsi
Option1 : Penjumlahan
Option2 : Perkalian
Command1 : Proses
Command2 : Ulang
Command3 : Keluar
Kemudian hilangkan tulisan Text1 sampai dengan Text12
Label1 : Perkalian dan Penjumlahan Matriks
Label2 : Masukan Bilangan Pertama
Label3 : Masukan Bilangan Kedua
Label4 : Hasil
Framme1 : Opsi
Option1 : Penjumlahan
Option2 : Perkalian
Command1 : Proses
Command2 : Ulang
Command3 : Keluar
Kemudian hilangkan tulisan Text1 sampai dengan Text12
5. Klik 2x pada "Proses", maka akan muncul tampilan sebagai berikut,
Isikan :
If Option1.Value = TrueThen
Text12.Text = Val(Text1.Text)+Val(Text8.Text)
Text11.Text=Val(Text2.Text)+Val(Text7.Text)
Text10.Text=Val(Text3.Text)+Val(Text6.Text)
Text9.Text=Val(Text4.Text)+Val(Text5.Text)
Else
Text12.Text=(Val(Text1.Text)*Val(Text8.Text))+(Val(Text2.Text)*Val(Text6.Text))
Text11.Text=(Val(Text1.Text)*Val(Text7.Text))+(Val(Text2.Text)*Val(Text5.Text))
Text10.Text=(Val(Text3.Text)*Val(Text8.Text))+(Val(Text4.Text)*Val(Text6.Text))
Text9.Text=(Val(Text3.Text)*Val(Text7.Text))+(Val(Text4.Text)*Val(Text5.Text))
End If
Di antara Private Sub Command1_Click() dan End Sub.
If Option1.Value = TrueThen
Text12.Text = Val(Text1.Text)+Val(Text8.Text)
Text11.Text=Val(Text2.Text)+Val(Text7.Text)
Text10.Text=Val(Text3.Text)+Val(Text6.Text)
Text9.Text=Val(Text4.Text)+Val(Text5.Text)
Else
Text12.Text=(Val(Text1.Text)*Val(Text8.Text))+(Val(Text2.Text)*Val(Text6.Text))
Text11.Text=(Val(Text1.Text)*Val(Text7.Text))+(Val(Text2.Text)*Val(Text5.Text))
Text10.Text=(Val(Text3.Text)*Val(Text8.Text))+(Val(Text4.Text)*Val(Text6.Text))
Text9.Text=(Val(Text3.Text)*Val(Text7.Text))+(Val(Text4.Text)*Val(Text5.Text))
End If
Di antara Private Sub Command1_Click() dan End Sub.
6. Klik 2x lagi pada "Ulang", isikan :
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text10.Text=""
Text11.Text=""
Text12.Text=""
Text1.SetFocus
Di antara Private Sub Command2_Click() dan End Sub.
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
Text10.Text=""
Text11.Text=""
Text12.Text=""
Text1.SetFocus
Di antara Private Sub Command2_Click() dan End Sub.
7. Klik 2x lagi pada "Keluar" dan isikan "End" diantara Private Sub
Command3_Click() dan End Sub.
8. Untuk mencoba menjalankan aplikasi itu tekan saja F5.
Source : http://pasukanstemapal2011.blogspot.com/

































Tidak ada komentar:
Posting Komentar