Alat Tempur :
- Frame = 1 buah (Data Mahasiswa)
- Label = 6 buah (Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- TextBox = 4 buah (Nama, NIM, TTL, Alamat)
- ComboBox = 2 buah (Jenis Kelamin, Jurusan)
- CommandButton = 3 buah (Cetak, Bersih, Exit)
- ListBox (Outputnya)
KETERANGAN:
Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub
Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub
Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
No comments:
Post a Comment