Array 1 dan Multidimensi

Yaaah tugas lagi.... tugas lagi, apa boleh buat. meskipun otak jadul kita harus tetap di tuntut untuk berfikir ekstra dalam menyelesaikan tugas. walau sesulit apapun kita harus tegar dan kuat. Merdeka... hahaha.

Dengan semangat yang membara akhirya menemukan juga program dari Visual Basic untuk membuat Array, untuk kali ini kayaknya udah agak lelah sih jadi sedikit ada bantuan dari Mbah Google. hehehe
oke bagi yang ingin berminat langsung aja gas pool rem poool.

1. Dim nama(10) As String
2. Dim nilai(5, 5) As Byte
3. Dim r As Byte
4. Dim m As Byte
5. Dim w As Byte
6. Dim i As Byte
7. 
   
8. Private Sub Cmdclear_Click()
9. Dim ctrl As Control
10. For Each ctrl In Me
11. If TypeName(ctrl) = "ListBox" Then
12. ctrl.Clear
13. End If
14. Next
15. End Sub
16. 
    
17. Private Sub cmdexit_Click()
18. End
19. End Sub
20. 
    
21. Private Sub cmdmultidimensi_Click()
22. List1.Clear
23. w = InputBox("Masukkan Jumlah Baris :", "Input Baris", "Masukkan Disini")
24. i = InputBox("Masukkan Jumlah Kolom :", "Input Baris", "Masukkan Disini")
25. For r = 1 To w
26. For m = 1 To i
27. nilai(r, m) = InputBox("Nilai Pada ( " + Str(r) + " , " + Str(m) + " )", "Input Nilai Matrik", 0)
28. Next
29. Next
30. For r = 1 To w
31. For m = 1 To i
32. List1.AddItem "Nilai ( " + Str(r) + " , " + Str(m) + " ) = " + Str(nilai(r, m))
33. Next
34. Next
35. End Sub
36. 
    
37. Private Sub cmdsatudimensi_Click()
38. List1.Clear
39. m = InputBox("Masukkan Jumlah Data Teman Anda : ", "Input Jumlah Data", "Masukkan Disini")
40. For r = 1 To m
41. nama(r) = InputBox("Masukan nama Teman Anda yang ke- " + Str(r), "Input Jumlah Data", "Nama")
42. Next
43. For r = 1 To m
44. List1.AddItem UCase(nama(r))
45. Next r
46. End Sub
47. 
    
48. Private Sub Form_Load()
49. Me.Width = 100
50. Label1.Caption = "Array 1 Dimensi" & vbCrLf & _
51. "dan Multi Dimensi"
52. End Sub

Download Array Installer

Read More!