KARYA: HERMANSYAH
* Membuat Program Cetak nilai dan
penentuan kondisi Grade nilai.
Langkah
– langkahnya memulai program:
- Klik Start
- Klik Microsoft Visual Studio
2008
Maka
akan muncul tampilan seperti ini :
Setelah
muncul tampilan seperti ini, ikuti langkah selanjutnya : buka file pilih new
klik project atau tekan function ctrl+shift+N.
Maka
tampilan yang selanjutnya muncul adalah form 1
:
- Toolbox yang digunakan adalah :
* form 1:
-
4 button
-
1 label
-
1 picture box
Susunlah dengan rapi kemudian berilah background , dan mengubah tampilan
fontnya agar terlihat indah , edit semua tampilan agar menjadi dibawah ini di
properties , sebagai berikut gambarnya:
Lalu Ubah nama buat form1 masing masing toolbox di menu properties, sebagai
berikut :
Label1 menjadi PROGRAM MENU AWAL dirubah di properties bagian text
Button 1 menjadi
BIODATA dirubah di properties bagian text , kemuddian double klik button
BIODATA lalu masukan kodingan form2.show , enter lalu masukan dibawahnya lagi
Me.hide, ini untuk kodingan masuk kedalam form 2 biodata .
Button 2 menjadi
HITUNG dirubah di properties bagian text , kemudian double klik button HITUNG lalu
masukan kodingan yang seperti kodingan BIODATA , namun yang diganti form1.show
menjadi form2.show . enter lalu masukan dibawahnya lagi Me.hide
Button 3 menjadi
LOOPING dirubah diproperties bagian text , double klik button LOOPING masukan
kodingan yang sama namun form nya jadi form 3 karena form LOOPING ada di form 3
, enter lalu masukan dibawahnya lagi Me.hide
Button 4 menjadi
PICTURE dirubah diproperties bagian text , double klik button PICTURE masukan
kodingan yang sama namun form nya jadi form 4 karena form PICTURE ada di form 4
, enter lalu masukan dibawahnya lagi Me.hide
Picturebox 1 diimport
dengan cara klik image yang gambar kotak kecil lalu pilih local resource lalu
import gambar , dalam hal ini picture box berfungsi untuk memperindah tampilan.
- Toolbox yang digunakan adalah :
* form 2 BIODATA:
-
4 label
-
3 button
-
3 textbox
Susunlah dengan rapi kemudian berilah background , dan mengubah tampilan
fontnya agar terlihat indah , edit semua tampilan agar menjadi dibawah ini di
properties , sebagai berikut gambarnya:
Lalu Ubah nama buat label 1, label
2, label 3, label4,
masing masing toolbox di menu text properties, menjadi BIODATA, NAMA
, NPM, KELAS . kemudian dalam textbox dirubah namanya di design bagian
properties untuk textbox nama , npm, dan
kelas menjadi txtnama, txtnpm,txtkelas.
kemudian ubah button 1 , 2,3 menjadi OK, MENU AWAL, DAN
CLEAR di properties bagian text , kemudian double klik button OK kemudian
masukan kodingan berikut
Dim nama As
String
Dim npm As Integer
Dim kelas As
String
nama = txtnama.Text
npm = txtnpm.Text
kelas = txtkelas.Text
MessageBox.Show("Nama Anda Adalah " & nama & " NPM Anda Adalah " & npm & " Kelas Anda Adalah" & kelas, "informasi", MessageBoxButtons.OK,
MessageBoxIcon.Information)
- kemudian untuk button MENU AWAL didouble klik masukan kodingan berikut :
Form1.Show()
Me.Hide()
maksudnya
ketika kita klik button menu awal pada form biodata maka kita akan kembali ke
form1 menu awal.
- untuk
button CLEAR didoubleklik masukan kodingan berikut :
txtnama.Text
= " "
txtnpm.Text
= " "
txtkelas.Text
= " "
ini di maksudkan untuk menghapus data yang diisi .
berikut tampilannya
- Toolbox yang digunakan adalah :
* form 3 HITUNG:
-
6 label
-
3 button
-
4 textbox
Lalu Ubah nama buat label 1, label
2, label 3, label4,label5,label6 masing masing toolbox
di menu
text properties, menjadi
HITUNG,PANJANG,LEBAR,HASIL,LUAS,KELILING. kemudian dalam textbox dirubah
namanya di design bagian properties untuk textbox panjang,lebar,luas,keliling menjadi
txtpanjang, txtlebar,txtluas,txtkeliling.
kemudian ubah button 1 , 2,3
menjadi MENU AWAL, CLEAR,OK di properties
bagian text ,
kemudian double klik button OK kemudian masukan kodingan berikut
Dim panjang As
Integer
Dim lebar As
Integer
Dim luas, keliling As
Integer
panjang
= Val(txtpanjang.Text)
lebar =
Val(txtlebar.Text)
luas =
panjang * lebar
keliling
= 2 * (panjang + lebar)
MessageBox.Show("luas persegi adalah " & luas & " keliling persegi adalah " &
keliling, "informasi",
MessageBoxButtons.OK, MessageBoxIcon.Information)
txtluas.Text
= luas
txtkeliling.Text = keliling
- kemudian untuk button MENU AWAL didouble klik masukan kodingan berikut :
Form1.Show()
Me.Hide()
maksudnya
ketika kita klik button menu awal pada form biodata maka kita akan kembali ke
form1 menu awal.
- untuk
button CLEAR didoubleklik masukan kodingan berikut :
txtnama.Text
= " "
txtnpm.Text
= " "
txtkelas.Text
= " "
ini di maksudkan untuk menghapus data yang diisi .
Tampilannya
sebagai berikut:
- Toolbox yang digunakan adalah :
* form 4 LOOPING:
-
1 label
-
2 button
-
1 listbox
Lalu rubah label 1
menjadi LOOPING di properties bagian text , kemudian untuk button 1 dan button
2 diganti namanya di text properties juga menjadi JALANKAN dan MENU AWAL,
kemudian masukan
kodingan di button1 JALANKAN :
ListBox1.Items.Clear()
Dim random As New Random
Dim
bilanganacak As Integer
= 0
Do While bilanganacak < 20
bilanganacak = random.Next(25)
ListBox1.Items.Add(bilanganacak)
Maksud dari kodingan diatas
adalah bahwa akan di acak baru , kemudian bilanganacak sebagai integer atau
bilangan bulat sama dengan nol, kemudian bilanganacak akan diacak kurang dari
20 dan nilai tidak lebih dari 25 .
kemudian di button 2 MENU AWAL
masukan kodingan berikut :
Form1.Show()
Me.Hide()
maksudnya
ketika kita klik button menu awal pada form biodata maka kita akan kembali ke
form1 menu awal.
tampilan ketika sudah di buat :
- Toolbox yang digunakan adalah :
* form 5 picture:
-
1 label
-
2 picture box
-
3 button
Lalu rubah label 1
menjadi PICTURE di properties bagian text , kemudian button 1, button 2, button
3, menjadi TAMPILAN , MENU AWAL, SEMBUNYIKAN
-Lalu masukan gambar
ke picture box1, dan picturebox2 dengan cara kli picture box sekali kemudian
lihat di properties pilih image lalu klik kotak kecil disampingnya , kemudian
pilih local resource. lalu input gambar.
-untuk button 1
JALANKAN masukan kodingan berikut
picturebox1.show()
picturebox2.show()
kodingan diatas
berfungsi untuk menampilkan gambar yang di picturebox agar muncul kembali.
-untuk button3 MENU
AWAL masukan kodingan berikut yang berfungsi untuk kembali ke form 1 yaitu menu
awal:
form1.show
me.hide
-untuk button2
SEMBUNYIKAN masukan kodingan berikut yang berfungsi untuk menyembunyikan
gambar yang dipicturebox1 dan
picturebox2. berikut kodingannya:
picturebox1.hide
picturebox2.hide
Berikut tampilan yang
sudah di buat :
* Setelah semua
form 1 ,2,3,4,5 sudah selesai dibuat dan di koding selanjutnya klik debug atau
tekan f5 pada keyboard , kemudian akan muncul tampilan form1 PROGRAM MENU AWAL
:
kalau kita klik biodata maka akan muncul form 2 biodata ,
lalu isi data nya kemudian klik ok maka akan muncul juga message boxnya , berikut tampilannya :
-Setelah itu kita klik
clear maka data diata akan dihapus otomatis , lalu kita klik menu awal maka
akan akan kembali ke form 1 , stelah
sudah diform1 lagi kita klik button hitung maka kita akan masuk ke form 3
hitung, berikut tampilan gambar yang sudah disi datanya dan berikut juga
tampilan messageboxnya ketika diklik ok :
-Setelah
itu kita klik clear maka data diata akan dihapus otomatis , lalu kita klik menu
awal maka akan akan kembali ke form 1 ,
stelah sudah diform1 lagi kita klik button looping maka kita akan masuk ke form
4 looping, berikut tampilan gambar yang sudah diklik button jalankan :
-Setelah itu klik menu
awal maka akan akan kembali ke form 1 ,
stelah sudah diform1 lagi kita klik button picture maka kita akan masuk ke form
5 picture, berikut tampilan gambar yang sudah diklik button sembunyikan :
-Setelah disembunyikan
atau dihide kemudian kita klik button tampilkan , otomatis gambar
yang
disembunyikan akan muncul kembali ,
berikut tampilan gambar yang sudah ditampilkan
kembali:
TUGAS LABSI
MATERI VB.NET (VISUAL BASIC . NET)
Tidak ada komentar:
Posting Komentar