Laporan Akhir Visual Basic [ Perkenalan Visual Basic ]

in

Form1 [Entri_Nama]

Komponen Property

Komponen	Property
Command	Name = Command1	Caption = Tampilkan
Command	Name = Command2	Caption= Bersihkan
Command	Name = Command3	Caption= Hapus
Option	Name = Option1	Caption= Red
Option	Name = Option2	Caption= Blue
Option	Name = Option3	Caption= Green

Label       Name= Label1                Caption= Masukan Nama

Coding dan Logika

 

Private Sub Command1_Click()

Text2.text = Text1.text
Jika kita mengklik Command1 dengan Caption "Tampilkan" maka Kata yang kita tulis di Text1 akan di copy ke Text2.

Contoh :

Saya menulis Kata "Fikri Mujahid" di Text1 dan kemudian mengklik Command1 ( Tampilkan ) maka di Text2pun akan di tampilkan "Fikri Mujahid"


Private Sub Command2_Click()

Text1.text=" "
Text2.text=" "
Command ini berguna untuk menghapus atau mengubah Text1 dan Text2 menjadi kosong.
Contoh

Setelah saya mengklik Command Hapus maka Text1 dan Text2 kosong


Private Sub Command3_Click()

From2.show
Unload Me
Command 3 ( keluar ) berguna untuk keluar dari Form1 dan akan menampilkan Form2


Private Sub Option1,2,3_Click()

Text2.ForeColor = VbRed,Vblue,VbGreen
Saat kita mengklik Option1 ( Red ) maka Font Text2 akan berubah menjadi Merah dimana Font Colour default adalah Hitam begitupun dengan option 2 dan 3


Form2 [Menu]

Memubuat Menu Editor "Open"
Tools > Menu Editor... [ Ctrl + E ]
Maka akan keluar Seperti ini

Isi Caption dan Name ( Besar kecil huruf harus sama ), Kemudian Next. Untuk Entri Nama, Biodata, Dan Volume Balok Sebelum Caption dan Name Di isi klik Lambang Panah ke kanan terlebih dahulu ( agar saat kita mengklik Open maka akan keluar menu “ Entri Nama, Biodata, dan Volume Balok” ) kemudian sama seperti membuat Menu “Open”. Setelah selesai Klik OK

Coding Dan Logika

 

 

Pribate Sub Biodata, Entri_Nama, Volume_Balok Click()

Form3,1,4.Show

Akan membuka  Form 3,1,4

Unload Me

Menutup Form

 Form3 [Biodata]

Komponen Property

Komponen	Property
	Name	Caption
Label	Label1	Nama
Label	Label2	Kelas
TextBox	Text1
TextBox	Text2
TextBox	Text3
TextBox	Text4
CommandButton	Command1	Ok
CommandButton	Command2	Clear
CommandButton	Command3	Back

Coding Dan Logika

Private Sub Command1_Click()

Text3.Text = Text1.Text dan Text4.Text = Text2.Text

Kata yang kita ketik di Text1 akan di copy ke Text3 begitupun dengan Text4 dan Text2

Private Sub Command2_Click()

Text1,2,3,4.Clear

Akan menghapus kata yang kita tulis di Text1,2,3,4

Private Sub Command3_Click()

Form2.Show

Akan Menampilkan Form2

Unload Me

Mengclose Form 3

Form4 [ Volume Balok ]

 

Komponen Property

Komponen	Property
	Name	Caption
Label	Label1	Panjang
Label	Label2	Lebar
Label	Label3	Tinggi
Label	Label4	Hasil
TextBox	Text1
TextBox	Text2
TextBox	Text3
TextBox	Text4
CommandButton	Command1	Ok
CommandButton	Command2	Clear
CommandButton	Command3	Back

Coding dan logika

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) * Val(Text2.Text)/Val(Text3.Text)

Text 4 akan menampilkan hasil perhitungan dari Text1*Text2/Text3

Private Sub Command2_Click()

Text1,2,3,4.Text = “ “

Text yang kita tulis di Text1,2,3,4 akan di Kosongkan / hilang di ganti dengan (Spasi)

Private Sub Command3_Click

Form2.Show

Akan membuka  Form2

Unload Me

Akan menutup Form4