Kamis, 09 Mei 2013

Latihan 8 Visual Basic - Array Test

Latihan 8 Visual Basic - Array Test


 Dim NamaSiswa() As String

Private Sub Form_Load()
    Dim i As Integer
    ReDim NamaSiswa(1 To 5)

    For i = 1 To 5
        Combo1.AddItem i
    Next i
    Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
    Dim no As Integer, i As Integer
 
    no = CInt(Combo1.Text)
    NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input Nama Siswa")
    If NamaSiswa(no) <> "" Then
        List1.Clear
        For i = 1 To UBound(NamaSiswa)
            List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
        Next i
    End If
End Sub

Private Sub Command2_Click()
    Dim num As Integer, i As Integer
 
    If Not IsNumeric(Text1.Text) Then Exit Sub
 
    num = CInt(Text1.Text)
 
    'ReDim NamaSiswa(1 To num)
    ReDim Preserve NamaSiswa(1 To num)
 
    Combo1.Clear
    List1.Clear
    For i = 1 To UBound(NamaSiswa)
        Combo1.AddItem i
        List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
    Next i
    Combo1.ListIndex = 0
End Sub

13 komentar:

patara mengatakan...
Komentar ini telah dihapus oleh pengarang.
Walah mengatakan...

Nama : Danny Ariswara
Kelas : X RPL 3

Berhasil pak !!!

Anonim mengatakan...

Nama :Krisna Rosidah
Kelas :XRPL3

uah beres pak :)

Anonim mengatakan...

Nama : Gina Alawiyah
Kelas : X RPL 3

Beres

Anonim mengatakan...

Latihan 1,2,5,7,8,11 Nya beres
Nama:Tantan Anugerah
Kelas:XRPL1
Succes
:)

Anonim mengatakan...

bisa pak

Nama : Wizdan
Kelas : X-RPL 1

patara mengatakan...
Komentar ini telah dihapus oleh pengarang.
Anonim mengatakan...

Nama : M.sholehudin
Kelas : X RPL1

berhasil pak

Anonim mengatakan...

alhamdulillah tiasa pak

nama: suhayandi
kls: x rpl 1

Anonim mengatakan...

pak udah beres

nama : susan susanti
kelas : xrpl2

Ridwan Maulana mengatakan...

pak udah selesai

nama : ridwan maulana
Kelas : X RPL 3

Anonim mengatakan...

Tolong Dibantu Gan# Niot

Anonim mengatakan...

Pak Udah Selesai'

Nama : Anonymous #Niot
Kelas : M2

Posting Komentar

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes