Dibawah ini ialah praktek percobaan kondisi pada VB :
·
Buatlah ‘Password’ yang anda inginkan dengan fungsi dari Label dan dengan TextBox di
samping serta CommandButton untuk ‘Ok’.
·
Klik 2 kali pada tombol ‘Ok’ yang dari
fungsi CommandButton,lalu isi kodingannya;
·
Inilah hasil kodingannya : Pass =
Text1.Text
-yang dimaksud di atas ialah Password
sama dengan tulisan yang ditulis di TextBox yaitu Text1
Lalu If pass = “maulogin” Then
MsgBox “Selamat Datang”, vbInformation
-Jika password di tuliskan
‘maulogin’ akan muncul sebuah tanda peringatan ‘Selamat Datang’.
Dan End if
-fungsinya Mengakhiri kondisi
Form2.Show
Form1.Hide
-fungsinya ialah Program Form2
sudah dijalankan lalu akan memunculkan program Form2 dan menyembunyikan program
Form1.
End Sub
-berfungsi sebagai Mengakhiri program
Dibawah ini ialah gambar – gambar membuat sebua Menu
Editor: dan dibawah ini juga akan di jelaskan bagaimana langkah – langkah
membuatnya :
FORM 2:
·
Klik Kanan pada layar VB lalu pilih Menu Editor dan akan muncul
seperti gambar di atas. Isilah pada Caption dan Name nya jangan sampai lupa tekan Next bila sudah. Jika ingin membuat
submenu klik panah ke kanan. Bila ingin membuat menu baru (Exit) lagi klik
panah ke kiri
·
Klik pada bagian Biodata selanjutnya isi
kodingannya dengan Form5.Show dalam
fungsinya sebagai program akan membuka
Form5 yang menampilkan isian biodata (ingat dibuat terlebih dahulu Form5 nya)
·
Klik pada bagian menu Kondisi lalu isi kodingannya dengan cara
mengetik Form4.Show tekan Enter Form1.Hide dalam arti logikanya yaitu program
akan membuka Form4 yang menampilkan program kondisi (jangan lupa dibuat
terlebih dahulu Form4 nya) dan menyembunyikan Form1
·
Klik bagian menu Looping selanjutnya isilah kodingannya dengan cara mengetik Form3.Show
Enter Form1.Hide dalam arti yang
dimaksud ialah program akan membuka Form3 yang menampilkan program looping (terlebih
dahulu ialah dibuat terlebih dahulu Form5 nya) dan menyembunyikan Form1
Dibawah ini menunjukkan isi kodingannya
-For I = 1 To Ulang
berfungsi untuk mencetak hasil dari angka 1 lalu di looping kan. For J = 1 To I
berfungsi sebagai untuk mencetak angka 1 lalu ke hasil i . selanjutnya ke J untuk mencetak hasil K, dan seterusnya sampai looping yang
diinginkan sang user.
- Lalu angka yang di
tulis di textbox akan di-perulang-kan/looping
- LaluMenu Utama. Sembunyikan atau disebut
juga Hidden Form3 lalu menampilkan Form2.
·
Membuat terlebih dahulu 2
Frame di menu Form4 tersebut untuk membuat bingkai data
& daftar nilai. Lalu selanjutnya membuat dengan Label untuk membuat Nama,
mata Kuliah, Uts & Uas, Nilai Total, Grade dan Keterangan dan TextBox disampingnya. Berikutnya membuat 3 buah fungsi CommandButton untuk membuat OK,
Clear dan Menu Utama. Untuk Frame ke 2 tidak usah membuat TextBox dan
CommandButton.
Klik 2 kali pada tombol OK lalu isilah codingannya seperti pada
gambar diatas tersebut. Gunanya Untuk fungsi mencari Nilai Total: Nilai Total = (UTS + UAS /2). Lalu
Masukkan angka atau nilai di bagian TextBox UTS dan UAS. Lalu berikutnya dihitung
melalui rumus. Jika nilai totalnya >
70 , maka “LULUS” selain itu “TIDAK LULUS”.
JIka nilai total nya >= 85, maka akan mendapatkan nilai grade A. JIka memasukan nilai total nya >= 75, maka akan mendapatkan grade B. Jika memasukan nilai total nya >=65, maka akan mendapatkan grade C dibawah itu akan mendapatkan grade D.
·
Klik Clear 2 kali lalu isilah kodingan
tersebut;
-
Text1.Text = Clear
-
Text2.Text = Clear
-
Text3.Text = Clear
-
Text4.Text = Clear
Yang istilahnya akan mengapus tulisan yang ada di
TextBox.
·
Klik Menu Utama 2 kali isi kodingan
tersebut;
Form4.Hide
Form2.Show
Yang
berfungsi menyembunyikan Form4 dan
menampilkan Form2.
Buatlah
Nama, Npm, Kelas dan Alamat
menggunakan fungsi Label. Selanjutnya
membuat 4 TextBox dan disampingnya fungsi Label yang tadi di buat serta buat 4
TextBox lagi di bawahnya. Jangan lupa buat perintah CommandButton untuk tombol OK.
Lalu
Klik pada tombol OK 2 kali lalu isi kodingan tersebut :
-
Text5.Text = Text1.Text
-
Text6.Text = Text2.Text
-
Text7.Text = Text3.Text
-
Text8.Text = Text4.Text
Yang
dimaksud ialah isian di Text5 yang kosong tersebut akan menyalin dari kata-kata
di Text1. Dan begitu juga dengan Text-Text di bawahnya..
Tidak ada komentar:
Posting Komentar