Pertemuan 10, 27 April 2015 Tutorial Array

ARRAY

Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam banyak situasi. Array dideklarasikan menggunakan Dim, ReDim, Static, Private. Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic. 

1. Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di tentukan jumlah elemennya. 
2. Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis. 
3. Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .

Tutorial :  Contoh Penggunaan Array

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008. 
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Provinsi
Label2	Kota/Kabupaten
Label3	Kecamatan
ComboBox1		cmbProv
ComboBox2		cmbKota
ComboBox3		cmbKecamatan
ListBox		lstTampil
Button1	Tampil	btnTampil
Button2	Clear	btnClear
Button3	Exit	btnExit

•  Langkah kelima masukkan koding berikut

view plainprint?

1. Public Class Form1  
2.     Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"}  
3.     Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"}  
4.     Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"}  
5.     Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"}  
6.     Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"}  
7.     Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"}  
8.     Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"}  
9.     Dim ArrayKecSerang() As String = {"Curug", "Kasemen"}  
10.     Dim ArrayKecBrebes() As String = {"Losari", "Salem"}  
11.     Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"}  
12.   
13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
14.    cmbProv.Items.AddRange(ArrayProv)  
15. End Sub  
16.   
17. Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged  
18.    If cmbProv.SelectedIndex = 0 Then  
19.          cmbKota.Items.Clear()  
20.          cmbKota.Items.AddRange(ArrayKotaJabar)  
21.    ElseIf cmbProv.SelectedIndex = 1 Then  
22.          cmbKota.Items.Clear()  
23.          cmbKota.Items.AddRange(ArrayKotaBanten)  
24.    ElseIf cmbProv.SelectedIndex = 2 Then  
25.          cmbKota.Items.Clear()  
26.          cmbKota.Items.AddRange(ArrayKotaJateng)  
27.    End If  
28. End Sub  
29.   
30. Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged  
31.    If cmbKota.SelectedItem = "Bandung" Then  
32.          cmbKecamatan.Items.Clear()  
33.          cmbKecamatan.Items.AddRange(ArrayKecBandung)  
34.    ElseIf cmbKota.SelectedItem = "Cimahi" Then  
35.          cmbKecamatan.Items.Clear()  
36.          cmbKecamatan.Items.AddRange(ArrayKecCimahi)  
37.    ElseIf cmbKota.SelectedItem = "Cilegon" Then  
38.          cmbKecamatan.Items.Clear()  
39.          cmbKecamatan.Items.AddRange(ArrayKecCilegon)  
40.    ElseIf cmbKota.SelectedItem = "Serang" Then  
41.          cmbKecamatan.Items.Clear()  
42.          cmbKecamatan.Items.AddRange(ArrayKecSerang)  
43.    ElseIf cmbKota.SelectedItem = "Brebes" Then  
44.          cmbKecamatan.Items.Clear()  
45.          cmbKecamatan.Items.AddRange(ArrayKecBrebes)  
46.    ElseIf cmbKota.SelectedItem = "Semarang" Then  
47.          cmbKecamatan.Items.Clear()  
48.          cmbKecamatan.Items.AddRange(ArrayKecSemarang)  
49.    End If  
50. End Sub  
51.   
52. Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click  
53.    If cmbProv.SelectedItem = "" Then  
54.          MsgBox("belum pilih Provinsi")  
55.    ElseIf cmbKota.SelectedItem = "" Then  
56.          MsgBox("belum pilih Kota")  
57.    ElseIf cmbKecamatan.SelectedItem = "" Then  
58.          MsgBox("belum pilih Kecamatan")  
59.    Else  
60.       lstTampil.Items.Clear()  
61.       lstTampil.Items.Add("Provinsi yang dipilih " + cmbProv.SelectedItem)  
62.       lstTampil.Items.Add("Kota yang dipilih " + cmbKota.SelectedItem)  
63.       lstTampil.Items.Add("Kecamatan yang dipilih " + cmbKecamatan.SelectedItem)  
64.    End If  
65. End Sub  
66.   
67. Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
68.    lstTampil.Items.Clear()  
69. End Sub  
70.   
71. Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click  
72.    Me.Close()  
73. End Sub  
74. End Class  

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Read More

Pertemuan 9 - Mencari Nilai Maksimal, Minimal, Rata-rata, dan Total dari Array Pada VB.NET

Pertama kita buka vb.netnya, lalu buat program baru.dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini.

Langkah selanjutnya buat sebuah form baru dengan nama HalamanUtama.vb dan desain seperti berikut ini lengkap dengan penamaan pada propertiesnya

Kemudian buat form baru dengan nama MaksimalMinimal.vb dan desain seperti berikut ini :

Lankah selanjutnnya buat form baru dengan nama CurahHujan.vb dan desain seperti berikut ini :

Kemudian kita akan masuk ke sesi pemrograman, masuk ke form HalamanUtama.vb dan ketikan sintaks berikut ini :

01	Public Class HalamanUtama

02

03	Private Sub btnCurahHujan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnCurahHujan.Click

04

05	'menampilakn form Curah Hujan

06	CurahHujan.Show()

07

End Sub

08

09

10	Private Sub btnMaksMin_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnMaksMin.Click

11

12	'menampilkan form Maksimum_Mminimum

13	Maksimum_Minimum.Show()

14

End Sub

15

16	Private Sub btnExit_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnExit.Click

17

18	'mengakhiri program ini

19

End

20

End Sub

21

End Class

Setelah HalamanUtama.vb selesai diprogram, langkah selanjutnya kita akan memprogram formMaksimalMinimal.vb, masuk ke form MaksimalMinimal.vb kemudian ketikan sintaks berikut ini :

01	Public Class Maksimum_Minimum

02

03	Private Sub btnInput_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnInput.Click

04

05	Dim intInput As Integer 'deklarasi variabel

06	intInput = Val(InputBox("Masukan Angka : ")) 'input box

07	lstInteger.Items.Add(intInput) 'mengisi lstInteger dengan nilai dari input box

08

End Sub

09

10	Private Sub btnClear_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnClear.Click

11	lstInteger.Items.Clear() 'membersihkan nilai yang ada di lstInteger

12	txtView.Clear() 'membersihkan nilai yang ada di txtView

13

End Sub

14

15	Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnDisplay.Click

16

17	Dim high As Integer = Integer.MinValue 'deklarasi variabel untuk nilai maksimal

18	Dim min As Integer = Integer.MaxValue 'deklarasi variabel untuk nilai minimal

19

20	'proses perulangan untuk mencari nilai maksimal dan minimal

21	For Each item As Integer In lstInteger.Items

22	high = Math.Max(high, item)

23	min = Math.Min(min, item)

24

Next

25

26	'menampilkan nilai yang telah ditemukan ke txtView.Text

27	txtView.Text = "Nilai Maximum " + high.ToString + " dan " +"nilai minimumnya " + min.ToString

28

End Sub

29

End Class

Jika kedua form sebelumnya telah selesai diprogram, langkah selanjutnya masuk ke formCurahHujan.vb kemudian ketikan sintaks berikut ini :

01	Public Class CurahHujan

02

03	'pendeklarasian array

04	Dim strMonths() As String = {"Januari", "Februari", "Maret","April", _

05	"Mei", "Juni", "Juli", "Agustus","September", _

06	"Oktober", "November", "Desember"}

07	Dim intMonths(11) As Integer

08	Dim intRain() As Integer

09

10	Private Sub CurahHujan_Load(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles MyBase.Load

11

12	'mengisi lstCurah Hujan

13	lstCurahHujan.Items.Add("Input curah hujan per bulan")

14	lstCurahHujan.Items.Add("-------------------------------------------------------")

15

End Sub

16

17	Private Sub btnInput_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnInput.Click

18

19	'deklarasi variabel

20	Dim intCount As Integer

21	Dim intHujan As Integer

22

23

24	' Proses perulangan untuk memasukan nilai curah hujan

25	For intCount = 0 To 11

26	intHujan = Val(InputBox("Masukan curah hujan untuk bulan "& strMonths(intCount)))

27	lstCurahHujan.Items.Add(strMonths(intCount) & " " & (intHujan).ToString())

28	intMonths(intCount) = intHujan

29	Next intCount

30

End Sub

31

32	Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnDisplay.Click

33

34	'deklarasi variabel

35	Dim intCount As Integer

36	Dim intMaximum As Integer = intMonths(0)

37	Dim intMinimum As Integer = intMonths(0)

38	Dim dblAverage As Double

39	Dim intTotal As Integer = 0

40

41	'mencari nilai maximum curah hujan

42	For intCount = 1 To (intMonths.Length - 1)

43	If intMonths(intCount) > intMaximum Then

44	intMaximum = intMonths(intCount)

45

End If

46	Next intCount

47

48	'mencari nilai minimum curah hujan

49	For intCount = 1 To (intMonths.Length - 1)

50	If intMonths(intCount) < intMinimum Then

51	intMinimum = intMonths(intCount)

52

End If

53	Next intCount

54

55	'mencari nilai average curah hujan

56	For intCount = 1 To (strMonths.Length - 1)

57	intTotal += intMonths(intCount)

58	Next intCount

59	dblAverage = (intTotal / strMonths.Length)

60

61	'mencari nilai total curah hujan

62	For intCount = 1 To (strMonths.Length - 1)

63	intTotal += intMonths(intCount)

64	Next intCount

65

66	'menampilkan hasil hitungan ke masing-masing Textbox

67	txtCurahHujanMax.Text = intMaximum.ToString

68	txtCurahHujanMin.Text = intMinimum.ToString

69	txtRatarata.Text = dblAverage

70	txtTotalCurahHujan.Text = intTotal

71

72

End Sub

73

74	Private Sub btnClear_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnClear.Click

75

76	'membersihkan lstCurahHujan dan semua Textbox

77	lstCurahHujan.Items.Clear()

78	txtCurahHujanMax.Clear()

79	txtCurahHujanMin.Clear()

80	txtRatarata.Clear()

81	txtTotalCurahHujan.Clear()

82

83	'menampilkan teks dibawah ke lstCurahHujan

84	lstCurahHujan.Items.Add("Input curah hujan per bulan")

85	lstCurahHujan.Items.Add("-------------------------------------------------------")

86

End Sub

87

88	Private Sub btnExit_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles btnExit.Click

89

90	'menutup form CurahHujan

91	Me.Close()

92

End Sub

93

End Class

Read More