Mudah-mudahan LA saya yang satu ini berbeda dengan yang lain atau gak ada yang sama, apalagi sampai di bajak :v
Baiklah kali ini LA nya membuat program sederhana dengan 2 form di visual basic, yang 1 form LOGIN dan yang satu form NILAI, yang bertemakan tentang kondisi pada visual basic.
Oke sebelum saya mulai, alangkah baik nya anda mencuci kaki, mimi cucu trus bobo. ehh :v bila perlu ambil air wudhu biar tenang baca LA nya :v
Sebelum saya masuk ke cara pembuatan program dan penjelasan nya, saya jelaskan kembali, apa itu visual basic? Visual basic merupakan bahasa pemrograman modern menurut saya, karena visual basic ini sudah menggunakan sistem GUI (Grafical User Interface). Berbeda dengan bahasa pemrograman yang lain, yang belum GUI seperti QBASIC, NOTEPAD, CMD dll.
Oke kita langsung aja ke cara pembuatan program nya, sekarang kita bikin form baru. Form baru ini umum nya bernama FORM1. Nah FORM1 ini biasa nya sudah nge-time kalau kita baru buka visual basic. Baiklah kalau kita sudah membuka visual basic yang dibarengi dengan FORM1, sekarang kita buat label 1 dengan nama LOGIN lalu label 2 di beri nama USER NAME label 3 di beri nama PASSWORD. Lalu kita membuat textbox 1 di sebelah USER NAME dan textbox 2 di sebelah PASSWORD. Lalu kita membuat 2 commandbutton di sebelah kanan, commandbutton yang 1 di beri nama MASUK dan yang ke 2 diberi nama KELUAR. Untuk lebih jelas nya kita intif gambar berikut.
Kalau sudah jadi seperti gambar di atas sekarang kita lanjut dulu ke pembuatan FORM2. Untuk membuat FORM baru atau FORM2 pada 1 project kita cukup mengklik project pada toolbar yang berada di atas, lalu klik add form.
Setelah kita mengklik Add Form, betapa terkejut nya saya kaget karena gara-gara muncul window Add Form :v
Kita klik yang Form, yang di kotakin warna pink (biar cucho) :D lalu klik Open
Setelah di klik Open, maka akan muncul Project1 beserta FORM2 yang masih Suci alias (kosong) :P
Sekarang kita eksekusi FORM2 dengan membuat label1 yang diberi nama NILAI, lalu membuat label2 dengan nama MASUKAN NILAI UTS, trus label3 dengan nama MASUKAN NILAI UAS, dan label4 tidak usah dikasih nama atau di kosongkan. Lalu selanjutnya kita membuat 2 textbox. Textbox yang pertama di letakan di sebelah MASUKAN NILAI UTS dan yang kedua di letakan di sebelah MASUKAN NILAI UAS. Selanjutnya kita membuat 4 commandbutton di sebelah textbox, commandbutton yang pertama diberi nama CEK, yang kedua HAPUS, yang ketiga LOGOUT, dan commandbutton yang keempat diberi nama KELUAR. Hingga tampil seperti gambar berikut. Perlu di ingat kerapihan tidak di utamakan, acak-acakan juga gak apa-apa kaya muka saya :v
Kalau sudah seperti gambar di atas, sekarang kita kembali ke FORM1 yaitu form LOGIN. Kalau sudah ke FORM1 sekarang double klik commandbutton MASUK. Ini niihhh yang di kotakin warna ijo, ehh warna ungu deng :v
Nah kalau sudah di double klik commandbutton MASUK, maka akan keluar ruang sidang, ehh ruang codingan VB maksud nya :v nihh gambar nya kaya gini
Oke cukup, sebelum kita ketik code nya di ruang codingan, disana ada tulisan atau code bawaan dari VB :
Private sub command1_click()
....
End sub
Maksud dari code tersebut ialah ketika commandbutton di klik maka akan muncul suatu aksi tergantung dari isian code tersebut. Jadi contoh program diatas ialah objek commandbutton.
Saya contohin deh kalau kalian belum paham, coba kalian ketik code di bawah private sub dan diatas end sub. Code nya ini nihh
Private sub command1_click()
If text1.text=”prastio” and text2.text=”admin” then
Form2.show
else
Unload me
End if
End sub
Biar jelas lihat gambar berikut ini
Nahh, jadi program diatas akan jalan jika commandbutton1 di klik. Commandbutton1 ialah MASUK. dan event yang terjadi ialah jika pada textbox1 di ketik oleh kita “prastio” dan di textbox2 di ketik oleh kita “admin”. Lihat bari ke 3 (form2.show) maka program akan menampilkan FORM2, tetapi jika yang di ketik pada textbox 1 dan 2 tidak sesuai, maka program akan langsung membaca code yang dibawah nya yaitu “else” dan “unload me” yang artinya program akan keluar jika kondisi pada if tidak terpenuhi. Lalu dibawah nya lagi ada end if. Jadi jika diatas kita menggunakan IF dan ditengah nya ada kondisi dan statement nya maka harus di akhiri dengan END IF. Jika tidak... ya tahu sendiri lahh :v
Sekarang kita buktikan, coba kita jalankan project nya dengan cara klik run > start atau bisa langsung pencet di keyboard F5. Setelah itu isi textbox1 “prastio” dan di textbox2 “admin” trus klik button MASUK.
Setelah kita klik button MASUK maka akan tampil FORM2
FORM2 disini bertemakan inputan NILAI, jika kalian tidak bisa login dan menampilkan FORM2 dari FORM1, itu artinya terdapat kesalahan pada code di commandbutton1 yang ada di FORM1 (LOGIN). Coba di cek ulang yahh ... :D semangat kakak :v
Baik sekarang kita selesaikan dulu FORM1, karna commandbutton2 atau button klik yang “KELUAR” belum kita ketik code nya. Yang ini nihhh ... -_- double klik yahh ...
Seperti biasa masukan code nya yahh ... ini code nya
Private sub command2_click()
end
End sub Y
Yang di kotakin warna ijo yah, jangan yang atas nya.
Private sub command2_click()
end
End sub Y
Yang di kotakin warna ijo yah, jangan yang atas nya.
Di baris 2 pada code tersebut ada “end”. Ini maksunya ialah jika aksi pada commandbutton2 atau button klik “KELUAR” dilakukan, maka program akan mengakiri atau akan menutupnya.
Baik sekarang kita masuk ke FORM2 yang bertemakan inputan NILAI, setelah dibuka project1 dan FORM2, kita double klik commandbutton1 atau button klik “CEK”.
Setelah kita double klik sekarang kita masukan code nya berikut ini
Private sub command1_click()
Total = (text1.text * 0.7) + (text2.text * 0.3)
If total >100 then Label4.caption=”SALAH MEMASUKAN NILAI”
Elseif (total<=100) and (total>=90) then
Label4.caption=”GRADE A”
Elseif (total<=89) and (total>=80) then
Label4.caption=”GRADE B”
Elseif (total<=79) and (total>=70) then
Label4.caption=”GRADE C”
Elseif (total<=69) and (total>=60) then
Label4.caption=”GRADE D”
Else Label4.caption=”GRADE E”
End if
End sub
Kalau sudah beres memasukan code nya, sekarang kita jalankan program nya. Saya input angka di kedua textbox 50 lalu mengklik CEK dan label4 menampilkan keterangan GRADE E
Saya input angka di kedua textbox 60 lalu mengklik CEK dan label4 menampilkan keterangan GRADE D
Saya input angka di kedua textbox 70 lalu mengklik CEK dan label4 menampilkan keterangan GRADE C
Saya input angka di kedua textbox 80 lalu mengklik CEK dan label4 menampilkan keterangan GRADE B
Saya input angka di kedua textbox 90 lalu mengklik CEK dan label4 menampilkan keterangan GRADE A
Saya input angka di kedua textbox 101 lalu mengklik CEK dan label4 menampilkan keterangan SALAH MEMASUKAN NILAI
Untuk penjelasan nya sekarang kita lihat code nya ...
Baik sekarang saya jelaskan baris demi baris
“private sub command1_click()” = artinya jika commandbutton1 di klik maka akan menampilkan suatu aksi pada suatu program tersebut tergantung isi code nya. Dapat kita simpulkan bahwa code ini merupakan awal dari perintah kita untuk memulai membuat project dari suatu program.
“Total = (text1.text * 0.7) + (text2.text * 0.3)” = ini artinya total sama dengan, textbox1 kita input angka berapapun dan sebelahnya ada (*), artinya angka yang di input pada textbox1 akan kalikan dengan angka 0.7. begitupun textbox2, tetapi pada textbox2 angka yang dikalikan bukan 0.7 angka yang di input oleh kita akan di kalikan dengan angka 0.3. eiiit tunggu dulu, di tengah-tengah ada symbol (+) itu artinya hasil dari perkalian textbox1 dengan 0.7 dan textbox2 dengan 0.3 di tambah atau di jumlah. Contoh dehh, misal textbox1 saya input 100 maka 100 akan dikalikan dengan 0.7 hasil nya yaitu 70 dan misalkan saya input angka di textbox2 100 juga, maka 100 akan dikalikan dengan 0.3 dan hasil nya 30, jadi hasil textbox1 dan textbox2 di jumlah 70+30=100. Jadi variabel “total” memiliki nilai “100”. Huuff capek euyy, udah paham belum?? Kalau belum paham bisa di tanyakan langsung ke apotek terdekat. Ehh :v
“If total >100 then
Label4.caption=”SALAH MEMASUKAN NILAI”” = ini maksudnya “jika nilai total lebih dari 100 then / maka label4 akan menampikan kata yang berupa informasi yang kita buat sendiri misal nya dari code diatas adalah “SALAH MEMASUKAN NILAI”. Itupun jika kondisi pada if terpenuhi, jika tidak maka program akan melanjutkan pencarian kondisi yang dicari dan sesuai. Biasa nya melanjutkan pencarian ke “Elseif”. Perhatikan penjelasan dibawah ini.
“Elseif (total<=100) and (total>=90) then
Label4.caption=”GRADE A”” = program akan menuju ke elseif jika kondisi if di atas tidak terpenuhi, contoh dari program ini jika nilai total lebih dari atau sama dengan 90 dan kurang dari 100 maka label4 akan menampilkan keterangan “GRADE A” jadi nilai yang lebih dari 90 dan kurang dari 100 merupakan kondisi kedua, karena kodisi yang pertama berada di If.
Untuk baris 7 sampai dengan baris 12 penjelasan nya sama seperti di atas, penjelasan nya tentang kondisi ke 2 pada pernyataan If.
Sekarang kita masuk ke penjelasan code di baris 13 dan seterusnya
“Else” = biasa nya di pakai jika kondisi pada if dan elseif tidak terpenuhi, maka program akan menuju Else, mungkin bisa dikatakan ini merupakan jalan terakhir, karna kondisi 1 dan 2 nya tidak terpenuhi. (itu menurut saya loh ya??) :v
“Label4.caption=”GRADE E”” = nah ini nih kalau kondisi 1 dan 2 tidak terpenuhi, maka akan menampilkan keterangan “GRADE E” pada label 4.
“End if” = di mana awal nya ada ”if, elseif, then” jangan lupa untuk menutup semua code diatas dengan End if.
“End sub” = maksud nya perintah untuk mengakhiri procedure dari program yang sedang di buat.
Bagaimana, udah tahu kan?? Kalau sudah kita lanjut ke commandbutton2 atau button klik HAPUS. Kita double klik button HAPUS
Setelah kita double klik button HAPUS, sekarang kita ketik code nya berikut ini
Private Sub Command2_Click()
Label4.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Kalau sudah kita ketik code nya, sekarang kita coba jalankan program nya
Coba perhatikan gambar diatas, perhatikan yah jangan di lihat doang :v misalnya kita sudah mengecek nilai, lalu kita ingin menghapus kedua textbox dan label4. Kita cukup mengklik button HAPUS, dan hasil nya lihat yang kotakin warna biru. Semua inputan dan hasil pengecekan akan terhapus begitu saja tanpa permisi.
Logika dari code yang saya pakai ialah, coba perhatikan kembali code nyaPrivate Sub Command2_Click()
Label4.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Di baris pertama sudah tahulah maksud nya apa, kalau kalian baca nya dari atas :D lalu di baris kedua ada “Label4.caption = “””, ini maksudnya jika kita mengklik button HAPUS maka aksi yang terjadi ialah menghilangkan/menghapus hasil pengecekan yang keluar di label4, kenapa bisa? Karena pada code diatas ada tanda kutip 2 yang ditengah-tengah nya tidak di isi kata-kata atau keterangan apapun, jadi di kosongkan begitu saya, dan hasil nya ketika kita klik button HAPUS nya maka label4 akan kosong. Seperti pada gambar yang di kotakin warna biru.
Lalu untuk baris 3 dan 4 pun sama seperti pada baris 2, hanya saja yang terhapus di sini bukan di tempat label, tetapi di tempat textbox1 dan textbox2. Sudah paham?? Paham belum?? Kalau sudah kita lanjut ke commandbutton3 atau button LOGOUT, kalau belum paham tanya saja sama pak RT :v
Baiklah sekarang kita masuk ke episode selanjutnya yaitu membahas commandbutton3 atau button LOGOUT, o iya button LOGOUT ini sebenarnya tidak harus di pakai, ini cuman ke isengan saya saja untuk membedakan LA saya dan yang lain :P
Kita langsung saja bahas button LOGOUT, kita double klik ya button LOGOUT nya
Maksudnya saya menambahkan button LOGOUT ini, karena di awal ada LOGIN. Rencana saya LOGOUT ini akan melakukan aksi menutup Form2 (NILAI) tetapi akan menampilkan Form1 (LOGIN). Code nya sebagai berikut.
Private Sub Command3_Click()
Form1.show
Unload me
End Sub
Logika dari code diatas ialah, kita perhatikan code baris 2 ada “form1.show” ini artinya begitu commandbutton3 atau button LOGOUT di klik, maka aksi yang terjadi ialah program akan menampilkan Form1 atau form LOGIN. Di bawah code “form1.show” ada “unload me” ini artinya ketika kita klik button LOGOUT maka program akan menutup dan mengakhiri Form2 (NILAI). Jadi kesimpulan dari code diatas ialah begitu kita klik button LOGOUT maka program Form2 akan keluar dan langsung menampilkan Form1 atau form LOGIN.
Yang terakhir adalah commandbutton4 atau button KELUAR, ini nanti nya berfungsi menutup semua program baik Form1 atau pun Form2. Sekarang kita double klik button KELUAR. Nih gambar nya yang saya kotakin warna merah, ehh. kotak hijau maksudnya :v
Kita masukan code nya, Ada yang tahu gak? Ayoo :v ya sudah lah ini nih code nya
Private Sub Command4_Click()
End
End Sub
Maksud nya dari code diatas ialah jika kita mengklik button KELUAR maka program akan melakukan aksi nya berupa menutup atau mengakhiri program tersebut.
Begitulah cara, code, struktrur desain dan penjelasan yang saya pakai. Apabila ada kata-kata atau penjelasannya yang kurang berkenan saya mohon maaf, karena bagaimana pun juga kelebihan hanyalah milik tuhan. Eaa :v
Sebelum saya akhiri cara pembuatan program sederhana dengan visual basic, apakah ada pertanyaan??. Tidak ada. Oke kalau tidak ada saya akhiri ya :v,
