Kamis, 09 Februari 2012
0 komentar

Tampilkan data Mahasiswa menggunkan Array



Langkah yang pertama dilakukan adalah :

Buat form seperti di bawah ini terlebih dahulu :

Kemudian buat perintah seperti di bawah ini :

Dim nim, tugas, uts, uas, a, b, c, d, e As Integer
Dim Nama() As String
Private Sub irsyad_input_Click()
ReDim Nama(a)
ReDim nim(b)
ReDim tugas(c)
ReDim uts(d)
ReDim uas(e)
Nama(a) = Trim(Text2.Text)
nim(b) = Trim(Text3.Text)
tugas(c) = Trim(Text4.Text)
uts(d) = Trim(Text5.Text)
uas(e) = Trim(Text6.Text)
'rata-rata
r_tugas = (tugas(c) * 40) / 100
r_uts = (uts(d) * 30) / 100
r_uas = (uas(e) * 30) / 100
r_total = r_tugas + r_uts + r_uas
'konversi
If (r_total < 55) Then
nilai = "D"
ElseIf (r_total < 60) Then
nilai = "C-"
ElseIf (r_total < 65) Then
nilai = "C"
ElseIf (r_total < 70) Then
nilai = "C+"
ElseIf (r_total < 75) Then
nilai = "B-"
ElseIf (r_total < 80) Then
nilai = "B"
ElseIf (r_total < 85) Then
nilai = "B+"
ElseIf (r_total < 90) Then
nilai = "A-"
ElseIf (r_total < 95) Then
nilai = "A"
ElseIf (r_total
nilai = "A+"
End If
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text2.SetFocus
For i = i To a
List2.AddItem "Nama : " & Nama(i)
List2.AddItem "Nim : " & nim(i)
List2.AddItem "Tugas : " & tugas(i)
List2.AddItem "UTS : " & uts(i)
List2.AddItem "UAS : " & uas(i)
List2.AddItem "Rata-rata : " & r_total
List2.AddItem "Nilai : " & nilai
Next i
End Sub




Kemudian inputkan data.


Kemudian setelah itu inputkan data kedua.


Maka hasilnya akan seperti di bawah ini.

Maaf jika ada kesalahan dalam penulisan,kita sama-sama belajar. Smoga bisa membantu d(-_-)b
* Untuk lebih lengkap,download programnya disini







 
Toggle Footer
Top