Pertemuan 11 | 4 Mei 2015 | Menentukan Nilai Max Min, dan Rata-rata Curah Hujan

Tutorial :  Contoh Penggunaan Array untuk menentukan nilai Max, min dan menentukan rata-rata Curah Hujan

• 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 seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

 

Objek	Text	Name
Form1	Menu	Menu
Button1	Mencar Nilai Max dan Min	btnMaxmin
Button2	Curah Hujan	btnHujan
Button3	Exit	btnExit

Objek	Text	Name
Form1	Max & Min	max_min
ListBox1		lstInput
ListBox2		lstView
Button1	Step 1 : Input Value	btnInput
Button2	Step 2 : View the highest	btnView
Button3	Clear	btnClear
Button4	Exit	btnExit

Objek	Text	Name
Form1	CurahHujan	CurahHujan
ListBox1		lstRainfall
GroupBox1	HASIL PERKIRAAN CUACA
Label1		lblAvgMonthly
Label2		lblTotalAnnual
Label3		lblMax
Label4		lblMin
Button1	Masukan Angka Perkiraan Cuaca	btnInput
Button2	Tampilkan Data Statistik	btnView
Button3	Clear	btnClear
Button4	Exit	btnExit

• Langkah kelima masukkan koding berikut

1.Form Menu

Public Class Menu Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub btnHujan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHujan.Click CurahHujan.Show() End Sub Private Sub btnMaxmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaxmin.Click max_min.Show() End Sub End Class

2.Form max_min

Public Class max_min Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click Dim intInput As Integer For i = 0 To 2 intInput = Val(InputBox("Masukan angka :")) lstInput.Items.Add(intInput) Next End Sub Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click Dim high As Integer = Integer.MinValue Dim min As Integer = Integer.MaxValue For Each item As Integer In lstInput.Items high = Math.Max(high, item) min = Math.Min(min, item) Next lstView.Items.Add("Nilai Maximum " + high.ToString) lstView.Items.Add("Nilai Minimum " + min.ToString) End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click lstInput.Items.Clear() lstView.Items.Clear() End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

3.Form CurahHujan

Public Class CurahHujan Dim strMonths() As String = {"January", "February", "March", "April", _ "May", "June", "July", "August", "September", "October", "November", _ "December"} Dim intMonths(11) As Integer Dim intRain() As Integer Private Sub CurahHujan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lblAvgMonthly.Visible = False lblTotalAnnual.Visible = False lblMin.Visible = False lblMax.Visible = False End Sub Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click Dim intCount As Integer Dim intRain As Integer lstRainfall.Items.Add("Monthly Rainfall Input") lstRainfall.Items.Add("-----------------------------------") For intCount = 0 To 11 intRain = Val(InputBox("Enter the inches of rainfall for " & strMonths(intCount))) lstRainfall.Items.Add(strMonths(intCount) & " " & (intRain).ToString()) intMonths(intCount) = intRain Next intCount End Sub Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click Dim intCount As Integer Dim intMaximum As Integer = intMonths(0) Dim intMinimum As Integer = intMonths(0) Dim dblAverage As Double Dim intTotal As Integer = 0 'calculate maximum For intCount = 1 To (intMonths.Length - 1) If intMonths(intCount) > intMaximum Then intMaximum = intMonths(intCount) End If Next intCount 'calculate(minimum) For intCount = 1 To (strMonths.Length - 1) If intMonths(intCount) < intMinimum Then intMinimum = strMonths(intCount) End If Next intCount 'calculate average For intCount = 1 To (strMonths.Length - 1) intTotal += intMonths(intCount) Next intCount 'use floating-point division to compute the average dblAverage = (intTotal / strMonths.Length) 'calculate total rainfall For intCount = 1 To (strMonths.Length - 1) intTotal += intMonths(intCount) Next intCount lblAvgMonthly.Visible = True lblTotalAnnual.Visible = True lblMin.Visible = True lblMax.Visible = True lblAvgMonthly.Text = "The average monthly rainfall was " & dblAverage lblTotalAnnual.Text = "The total annual rainfall was " & intTotal lblMin.Text = "The minimum monthly rainfall was " & intMinimum lblMax.Text = "The maximum monthly rainfall was " & intMaximum End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click lstRainfall.Items.Clear() End Sub End Class

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

 

• Langkah ketujuh,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Pertemuan 10 | 27 April 2015 | 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

Public Class Form1 Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"} Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"} Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"} Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"} Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"} Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"} Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"} Dim ArrayKecSerang() As String = {"Curug", "Kasemen"} Dim ArrayKecBrebes() As String = {"Losari", "Salem"} Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"} Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbProv.Items.AddRange(ArrayProv) End Sub Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged If cmbProv.SelectedIndex = 0 Then cmbKota.Items.Clear() cmbKota.Items.AddRange(ArrayKotaJabar) ElseIf cmbProv.SelectedIndex = 1 Then cmbKota.Items.Clear() cmbKota.Items.AddRange(ArrayKotaBanten) ElseIf cmbProv.SelectedIndex = 2 Then cmbKota.Items.Clear() cmbKota.Items.AddRange(ArrayKotaJateng) End If End Sub Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged If cmbKota.SelectedItem = "Bandung" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecBandung) ElseIf cmbKota.SelectedItem = "Cimahi" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecCimahi) ElseIf cmbKota.SelectedItem = "Cilegon" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecCilegon) ElseIf cmbKota.SelectedItem = "Serang" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecSerang) ElseIf cmbKota.SelectedItem = "Brebes" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecBrebes) ElseIf cmbKota.SelectedItem = "Semarang" Then cmbKecamatan.Items.Clear() cmbKecamatan.Items.AddRange(ArrayKecSemarang) End If End Sub Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click If cmbProv.SelectedItem = "" Then MsgBox("belum pilih Provinsi") ElseIf cmbKota.SelectedItem = "" Then MsgBox("belum pilih Kota") ElseIf cmbKecamatan.SelectedItem = "" Then MsgBox("belum pilih Kecamatan") Else lstTampil.Items.Clear() lstTampil.Items.Add("Provinsi yang dipilih " + cmbProv.SelectedItem) lstTampil.Items.Add("Kota yang dipilih " + cmbKota.SelectedItem) lstTampil.Items.Add("Kecamatan yang dipilih " + cmbKecamatan.SelectedItem) End If End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click lstTampil.Items.Clear() End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

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

• Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.