Teknologi_Informasi_Dan_Komunikasi_Kelas_10_Ali_Muhson_Miyanto_2010

Carilah artikel di internet atau
perpustakaan untuk mengerjakan
tugas berikut.
Apakah program yang dibuat
menggunakan Visual Basic dapat
dijalankan tanpa menggunakan program
Visual Basic?
Kumpulkan artikel kepada guru
Anda sebagai nilai harian.
File yang ditampilkan Gambar
6.20 dapat Anda ambil dari CD
lampiran (alamat file: Kelas X → Bab
VI → Fungsi IF & Select Case →
Fungsi IF.exe).
Lakukan klik ganda pada Command2 kemudian ketikkan kode berikut.
Private Sub Command2_Click()
Dim rata2if As Single
Dim gradeif As String
rata2if = (Val(Text6) + Val(Text7) + Val(Text8)) / 3
Select Case rata2if
Case 85 To 100
gradeif = “A”
Case 75 To 84
gradeif = “B”
Case 65 To 74
gradeif = “C”
Case Is < 65
gradeif = “D”
End Select
Text9.Text = rata2if
Text10.Text = gradeif
End Sub
Lakukan klik ganda pada Command3 kemudian ketikkan kode berikut.
Private Sub Command3_Click()
Unload Me
End Sub
5. Jalankan project yang telah Anda buat. Masukkan data pada bagianbagian
yang perlu, kemudian amati hasil yang Anda peroleh.
2. Menggunakan Fungsi Perulangan
Perhatikan tampilan program yang akan Anda buat di samping.
Langkah-langkah untuk membuat program ini sebagai berikut.
a. Tambahkan objek berikut ke form1.
1) Frame (2 buah)
2) Textbox (6 buah, untuk text1 dan text2, atur propertiesnya
menjadi multiline =true dan scrollbar=2-vertical)
3) Label (4 buah)
4) CommandButton (3 buah)
5) ComboBox (2 buah)
b. Atur form seperti gambar berikut.
Text3 dan Text4
Sumber: Microsoft Visual Basic 6.0
Gambar 6.21 Tampilan program fungsi perulangan
Command1
Text5
dan
Text6
File yang ditampilkan Gambar
6.21 dapat Anda ambil dari CD
lampiran (alamat file: Kelas X → Bab
VI → Fungsi Perulangan → Fungsi
Perulangan.exe).
Text1
Command2
Text2
Command3
Sumber: Microsoft Visual Basic 6.0
Gambar 6.22 Pengaturan object
176
Bab VI Mengenal Pemrograman Komputer