• Dim variabel() as tipe_data
  • Dim nama_variabel(jumlah_array) as Tipe_Data




    Download 0.5 Mb.
    bet2/5
    Sana07.04.2017
    Hajmi0.5 Mb.
    #3323
    1   2   3   4   5
    Dim nama_variabel(jumlah_array) as Tipe_Data

    Perintah ini diletakkan sesuai kebutuhan apakah array ini hanya untuk subroutine (event) lokal atau pada seluruh event di form.

    Array pada Visual Basic dimulai dari indeks 0. Sehingga data pertama dituliskan dengan var(0). Visual Basic juga mengenal array dinamis, dimana jumlahnya bisa tak terbatas. Untuk mendefinisikan array dinamis dapat dilakukan dengan mendefinisikan array tanpa menuliskan jumlah maksimum arraynya sebagai berikut:

    Dim variabel() as tipe_data

    Untuk contoh nama di atas, dapat dituliskan dengan:



    Dim nama() as string

    Contoh Aplikasi:

    Membuat project untuk menuliskan data-data nama siswa dengan nomor dibuat otomatis, dengan jumlah data siswa maksimum adalah 20. Kemudian menampilkan semua data nama siswa yang sudah dimasukkan.



    1. Buat project baru dengan StandardEXE

    2. Tambahkan komponen-komponen: 1 label, 1 textbox, 1 listbox dan 2 command button

    3. Masukkan nilai property dari masing-masing komponen dan form seperti tabel di bawah ini, dan atur penempatan setiap komponen seperti gambar 6.1.






    1. Tambahkan kode program pada jendela kode sebagai berikut: ‘ Mendefinisikan variabel global nama sebagai array

    dan jumlah data

    Dim nama(20) As String

    Dim n As Integer
    Private Sub Command1_Click()

    ‘ Menambah nomor array dan memindahkan isi text1

    ‘ ke array nama

    n = n + 1

    nama(n) = Trim(Text1.Text)
    ‘ Mengosongkan isi text1 dan menaruh kursor ke text1

    Text1.Text = ""

    Text1.SetFocus

    End Sub
    Private Sub Command2_Click()

    ‘ Menampilkan semua isi array nama

    List1.Clear

    For i = 1 To n

    List1.AddItem nama(i)

    Next i

    End Sub


    Private Sub Form_Load()
    ‘ Saat form dipanggil jumlah array diisi dengan nol

    n = 0


    End Sub

    1. Simpan project dengan nama projectLatihan61.




    Download 0.5 Mb.
    1   2   3   4   5




    Download 0.5 Mb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    Dim nama_variabel(jumlah_array) as Tipe_Data

    Download 0.5 Mb.