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. Private Sub Cmdclear_Click()
  8. Dim ctrl As Control
  9. For Each ctrl In Me
  10. If TypeName(ctrl) = "ListBox" Then
  11. ctrl.Clear
  12. End If
  13. Next
  14. End Sub

  15. Private Sub cmdexit_Click()
  16. End
  17. End Sub

  18. Private Sub cmdmultidimensi_Click()
  19. List1.Clear
  20. w = InputBox("Masukkan Jumlah Baris :", "Input Baris", "Masukkan Disini")
  21. i = InputBox("Masukkan Jumlah Kolom :", "Input Baris", "Masukkan Disini")
  22. For r = 1 To w
  23. For m = 1 To i
  24. nilai(r, m) = InputBox("Nilai Pada ( " + Str(r) + " , " + Str(m) + " )", "Input Nilai Matrik", 0)
  25. Next
  26. Next
  27. For r = 1 To w
  28. For m = 1 To i
  29. List1.AddItem "Nilai ( " + Str(r) + " , " + Str(m) + " ) = " + Str(nilai(r, m))
  30. Next
  31. Next
  32. End Sub

  33. Private Sub cmdsatudimensi_Click()
  34. List1.Clear
  35. m = InputBox("Masukkan Jumlah Data Teman Anda : ", "Input Jumlah Data", "Masukkan Disini")
  36. For r = 1 To m
  37. nama(r) = InputBox("Masukan nama Teman Anda yang ke- " + Str(r), "Input Jumlah Data", "Nama")
  38. Next
  39. For r = 1 To m
  40. List1.AddItem UCase(nama(r))
  41. Next r
  42. End Sub

  43. Private Sub Form_Load()
  44. Me.Width = 100
  45. Label1.Caption = "Array 1 Dimensi" & vbCrLf & _
  46. "dan Multi Dimensi"
  47. End Sub






Read More!

My Blog List