Control Array dengan Visual Basic ( PRAKTIKUM 3)
PRAKTIKUM 3
Tujuan :
Setelah menyelesaikan praktikum ini kita diharapkan dapat
merancang suatu form yang memanfaatkan kontrol Array.
Dasar Teori :
Kontrol Array merupakan sekumpulan kontrol yang dikelompokkan dengan nama yang sama di dalam
suatu form. Kontrol array digunakan bila ada beberapa kontrol yang sama dan
akan mendapat perlakuan yang sama juga. Misalnya ada 4 buah
Textbox didalam sebuah form dan akan diprogram dengan cara yang sama, maka akan
lebih mudah jika membuat sebuah Textbox sebagai kontrol array dibandingkan bila
membuat 4 buah textbox yang berbeda. Setiap obyek didalam kontrol array
masing-masing dibedakan dengan nomor
indexnya.
Berikut adalah
praktikumnya :
Rancang form
berikut kemudian lakukan pengaturan
properti pada jendela properties sebagai berikut :
Object
|
Properties
|
Value
|
Form1
|
Caption
StartPosition
|
Kalkulator
2-centerScreen
|
Text1
|
Text
Font |
<kosong>
Size : 18 |
Command1
|
Name
Caption
Index
Font |
cmdAngka
1
0
Size : 18 |
Command2
|
Name
Caption
Font |
cmdHapus
C
Size : 18 |
Command3
|
Name
Caption
Index
Font |
cmdOperator
+
0
Size : 18 |
Command4
|
Name
Caption
Font |
cmdHitung
=
Size : 18 |
Buat kontrol array dari cmdAngka ( sebanyak 11 buah) dan
dari cmdOperator (sebanyak 4 buah). Adapun langkah pembuatan kontrol array
adalah sebagai berikut :
1. Klik objek cmdAngka pada form, kemudian klik
icon Copy pada toolbar
2. Untuk membuat cmdAngka yang kedua, klik icon
paste pada toolbar,
sehingga cmd angka yang kedua akan muncul di pojok iri atas form.
Aturlah posisinya pada form dan ubah property captionnya = 2.
3. Lakukan langkah 2 diatas untuk membuat cmdAngka
ketiga dan
seterusnya.
4. Untuk membuat kontrol array cmdOperator, lakukan
langkah yang sama
saat membuat kontrol array cmdAngka.
Buka jendela kode kemudian ketik listing program berikut ini
:
Dim angka(1 To 2) As Single
Dim operator As String
Dim operator As String
Private Sub cmdAngka_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka(Index).Caption
End Sub
Private Sub cmdHapus_Click()
Text1.Text = ""
End Sub
Private Sub cmdOperator_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator(Index).Caption
Text1.Text = ""
End Sub
Private Sub cmdHitung_Click()
Dim hasil As Single
If Text1.Text = "" Then Exit Sub
angka(2) = CSng(Text1.Text)
Select Case operator
Case "+"
hasil = angka(1) + angka(2)
Case "-"
hasil = angka(1) - angka(2)
Case "*"
hasil = angka(1) * angka(2)
Case "/"
hasil = angka(1) / angka(2)
End Select
Text1.Text = hasil
End Sub
Dim hasil As Single
If Text1.Text = "" Then Exit Sub
angka(2) = CSng(Text1.Text)
Select Case operator
Case "+"
hasil = angka(1) + angka(2)
Case "-"
hasil = angka(1) - angka(2)
Case "*"
hasil = angka(1) * angka(2)
Case "/"
hasil = angka(1) / angka(2)
End Select
Text1.Text = hasil
End Sub
