Minggu, 20 Oktober 2013
LAPORAN AKHIR
Nama :
Irvan Reynaldi
NPM : 24113523
Kelas : 1KB01
Shift : 2
Materi : Visual
Basic 6.0
Tanggal : 17 OKTOBER 2013
Ketua Asisten :
Rani
Paraf:
Laboratorium
Sistem Informasi
Universitas
Gunadarma
PTA 2013/2014
------------------------------------------------------------------------------------------------------------
Membuat Form Identitas Mahasiswa dan
Menghitung Luas Segitiga :
Contoh Form yang sudah di buat
Contoh hasil setelah dijalankan
Coding untuk button
“Identitas”
Coding untuk button
“Hitung Luas Segitiga”
Coding untuk button “Exit”
PENJELASAN
PEMROGRAMAN:
1. Bukalah Project baru pada VB 6.0
sampai ada kotak Form.
2. Buatlah Label sebanyak 9 buah, TextBox
6 buah, dan CommandButton 3 buah.
3.
Pada
bagian properties,
·
Label1
> ganti captionnya dengan ‘Nama’
·
Label2
> ganti captionnya dengan ‘NPM’
·
Label3
> ganti captionnya dengan ‘Kelas’
·
Label4
> kosongkan
·
Label5
> kosongkan
·
Label6
> kosongkan
·
Label7
> ganti captionnya dengan ‘Alas’
·
Label8
> ganti captionnya dengan ‘Tinggi’
·
Label9
> ganti captionnya dengan ’Luas’
·
Textbox
1-6 > kosongkan textnya
·
Command1
> ganti captionnya dengan ‘Identitas’
·
Command2
> ganti captionnya dengan ‘Hitung Luas Segitiga’
·
Command3
> ganti captionnya dengan ‘Exit/Keluar’
4.
Lalu
Codingkan aplikasi sederhana tersebut: (double klik pada tombol CommandButton)
·
Untuk Identitas “Command1” ketik
:
Private Sub Command1_Click()
Label7.Caption
= Text1.Text
Label8.Caption
= Text2.Text
Label9.Caption
= Text3.Text
End Sub
·
Untuk Hitung Luas Segitiga
“Command2” ketik :
Private Sub Command2_Click()
Text6.Text
= Text4.Text * Text5.Text / 2
End Sub
·
Untuk Keluar “Command1” ketik :
Private Sub Command3_Click()
End
End Sub
5.
Klik
Run > Start, maka program akan mucul, lalu :
·
isi
di kolom Nama, NPM, dan Kelas > klik “Identitas” > Maka hasil nya akan muncul
·
isi
di kolom Alas, dan Tinggi > klik “Hitung Luas Segitiga” > Hasil nya juga
akan mucul.
------------------------------------------------------------------------------------------------------------
Logika
Pemprograman
·
Untuk Identitas “Command1” ketik
:
Private Sub Command1_Click()
Label7.Caption
= Text1.Text
Label8.Caption
= Text2.Text
Label9.Caption
= Text3.Text
End Sub
Label7.caption = text1.text
digunakan untuk menampilkan text1 di Label7
Label8.Caption
= Text2.Text
digunakan untuk menampilkan text2 di Label8
Label9.Caption = Text3.Text
digunakan untuk menampilkan text3 di Label9
·
Untuk Hitung Luas Segitiga
“Command2” ketik :
Private Sub Command2_Click()
Text6.Text
= Text4.Text * Text5.Text / 2
End Sub
Text6.text =
text4.text * text5.text / 2
Digunakan
untuk menentukan hasil dari text4 di kali ( * )
text5 dibagi ( / ) 2 dan hasilnya di tampilkan di text6
·
Untuk Keluar “Command1” ketik :
Private Sub Command3_Click()
End
End Sub
End =
digunakan untuk keluar dari program.
