Pernyataan Array

Untuk memperoleh informasi dari sekumpulan data dapat dilakukan dengan metode statistik deskriptif. Informasi dari kumpulan data yang diinginkan antara lain:
-jumlah
-rata-rata
-nilai tengah
-minimum
-maksimum
-modus

Antar muka
antar muka

Implementasi

Private Sub cboUrut_Click()
Dim N As Byte
N = lstNilai.ListCount
If cboUrut.ListIndex = 0 Then
For I = 0 To N – 1
For J = I + 1 To N – 1
If (lstNilai.List(I) > lstNilai.List(J)) Then
Temp = lstNilai.List(J)
lstNilai.List(J) = lstNilai.List(I)
lstNilai.List(I) = Temp
End If
Next J
Next I
Else
For I = 0 To N – 1
For J = I + 1 To N – 1
If (lstNilai.List(I) Maks) Then
Maks = lstNilai.List(I)
End If
If (lstNilai.List(I) Sem(J)) Then
Temp = Sem(J)
Sem(J) = Sem(I)
Sem(I) = Temp
End If
Next J
Next I

K = -1
For I = 0 To Cacah – 1
If Sem(I) 0 Then
K = K + 1
Nsem(K) = Sem(I)
For J = I + 1 To Cacah – 1
If Sem(I) = Sem(J) Then
Frek(I) = Frek(I) + 1
Sem(J) = 0
End If
Next J
End If
Next I

Maks = Frek(1)
For I = 1 To K
If Frek(I) >= Maks Then
Maks = Frek(I)
Pos = I
End If
Next I

Modus(0) = Sem(Pos)
S = 0
W = Pos
‘Cari Modus Yang Lain
For I = 1 To K
If Pos I Then
If Frek(I) = Modus(0) Then
S = S + 1
Modus(S) = Sem(S)
End If
End If
Next I

txtModus.Text = “”
For I = 0 To S
txtModus.Text = txtModus.Text + ” ” + Str(Modus(I))
Next I
End Sub

Private Sub cmdTambah_Click()
If txtBaru.Text “” Then
lstNilai.AddItem (txtBaru.Text)
Else
MsgBox (“Data Nilai Kosong”)
End If
cmdTambah.Enabled = False
cmdBaru.Enabled = True
txtBaru.Text = “”
txtBaru.Enabled = False
End Sub

Private Sub cmdTutup_Click()
End
End Sub

Private Sub Combo1_Click()

End Sub

Private Sub Form_Load()
‘Inisialisasi nilai
lstNilai.Clear
txtBaru.Text = “”
txtBaru.Enabled = False
txtJumlah.Text = “”
txtRata.Text = “”
txtMin.Text = “”
txtMaks.Text = “”
txtModus.Text = “”

‘Masukkan Nilai Siswa Mula-Mula
lstNilai.List(0) = 8
lstNilai.List(1) = 9
lstNilai.List(2) = 6
lstNilai.List(3) = 9

‘Non Akfitkan Tombol
cmdTambah.Enabled = False
cmdHapus.Enabled = False
cmdEdit.Enabled = False
cmdBatal.Enabled = False

‘Non Aktifkan Isian Statistik
txtJumlah.Enabled = False
txtRata.Enabled = False
txtMean.Enabled = False
txtMin.Enabled = False
txtMaks.Enabled = False
txtModus.Enabled = False
End Sub

Private Sub lstNilai_Click()
txtBaru.Text = lstNilai.List(lstNilai.ListIndex)
cmdEdit.Enabled = True
End Sub

Seperti apa proses pengerjaan dari program di atas oleh Visual Basic? Visual Basic merupakan bahasa pemrograman berorientasi objek (object oriented language). Visual basic menyediakan beragam jenis objek yang dapat digunakan dalam perancangan suatu aplikasi. Ciri pemrograman berorientasi objek dimana setiap objek dapat diwariskan (inheritance), diubah bentuknya (polymorphism), dan kodenya tidak kelihatan (encapsulated). Objek dapat menerima kejadian (event) baik dari pengguna maupun dari sistem yang lain. Kejadian yang diterima objek diterjemahkan kedalam suatu metode (fungsi atau prosedur).
Form merupakan salah satu objek yang digunakan sebagai tempat merancang antar muka sistem. Pada saat kita menjalankan suatu aplikasi (dengan menekan tombol F5 atau menu Run | Run) maka otomatis Objek form yang pertama kali dijalankan baik event maupun methodnya. Terdapat beragam event dan method dari objek form, namun yang penting diperhatikan bahwa ada beberapa event dan method yang harus dipahami dengan benar seperti event Form_Load, Form_Activate, dan sebagainya.
Pada saat ditekan sistem dijalankan (execute) maka event Form_Load yang akan dikerjakan pertama kali sehingga pada event ini cocok dimasukkan kode sebagai inisialisasi nilai dari objek-objek yang terdapat di form.

Private Sub Form_Load()
‘Inisialisasi nilai
lstNilai.Clear
txtBaru.Text = “”
txtBaru.Enabled = False
txtJumlah.Text = “”
txtRata.Text = “”
txtMin.Text = “”
txtMaks.Text = “”
txtModus.Text = “”

‘Masukkan Nilai Siswa Mula-Mula
lstNilai.List(0) = 8
lstNilai.List(1) = 9
lstNilai.List(2) = 6
lstNilai.List(3) = 9

‘Non Akfitkan Tombol
cmdTambah.Enabled = False
cmdHapus.Enabled = False
cmdEdit.Enabled = False
cmdBatal.Enabled = False

‘Non Aktifkan Isian Statistik
txtJumlah.Enabled = False
txtRata.Enabled = False
txtMean.Enabled = False
txtMin.Enabled = False
txtMaks.Enabled = False
txtModus.Enabled = False
End Sub

Penting diingat bahwa bila tidak ditemukan pernyataan bersyarat (branching statement) atau pernyataan berulang (looping statement) maka pengerjaan pernyataan akan dilakukan secara berurutan (sequential statement). Seperti pada event Form_Load pengerjaannya akan dilakukan secara berurutan mulai dari pernyataan-1, pernyataan-2, pernyataan-3, hingga pernyataan terakhir.
1. LstNilai.Clear ‘merupakan perintah untuk membersihkan nilai pada objek LstNilai. Clear merupakan metode yang sudah didefenisikan pada LstNilai.
2. txtBaru.text=”” ‘ merupakan perintah untuk memberi nilai string kosong pada properti text dari objek txtBaru. Dari namanya berarti nilai yang bisa diberi ke properti ini adalah himpunan karakter (string). Setiap string di VB harus diapit oleh tanda kutip ganda (double quote)
3. txtBaru.enabled=false ‘merupakan perintah untuk menonaktifkan interaksi antara pemakai dengan objek. Properti enable dari objek Text hanya menerima nilai Boolean, yaitu True atau False.
4. dst

Running
-permulaan aplikasi
running-1

-menambah data nilai
tambah data

-deskriptif statistik
deskriptif statistik

-mengurutkan data
menaik

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: