Pertemuan 11, 11 May 2015 : Membuat Aplikasi Sederhana Untuk Menentukan Curah Hujan dan Nilai Minimal-Maximal dalam 1 MDI Form

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Dilangkah ini kita akan menggunakan sebuah MDI Form, untuk menambahkan sebuah file MDI Form, langkahnya sebagai berikut : Klik PROJECT >> Add Windows Form >> Muncul Windows Pop Up, lalu pilih MDI Parent Form

3. Design MDI Form nya seperti ini :

4. Buat sebuah Form baru dengan nama “NilaiMinMax.vb” dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini :





Komponen yang dibutuhkan untuk mendesign form :

Form Properties : (Name) : MinMax | Text : NilaiMinMax

1 Buah ListBox : (Name) : lstDisplay

3 Buah Button

Button 1 : (Name) : btnInput | Text : Masukan Angka

Button 2 : (Name) : btnExit | Text : Hapus

Button 3 : (Name) : btnDisplay | Text : Tampilkan Nilai Min Max

2 Buah Label

Label 1 : (Name) : lblHighest | Text : Angka Terkecil :

Label 2 : (Name) : lblSmallest | Angka Terbesar :


5. Tambahkan koding ini :

Const intMAX_SUBSCRIPT As Integer = 9 ‘The maximum subescript DimintNumbers(intMAX_SUBSCRIPT) As Integer ‘array declaration Dim intCount As Integer‘Loop count 
Dim intHighest As Integer ‘to hold the highest value 
Dim intSmallest As Integer ‘to hold the lowest value 

6. Pada Button 1 (btnInput), tambahkan koding ini :

Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnInput.Click ‘Create an array to hold the 10 numbers‘Tells the user what will happen 
MessageBox.Show(“Akan muncul sebuah inputan angka, masukan 10 angka yang akan di input”) 
‘get the numbers from the user 
For Me.intCount = 0 To intMAX_SUBSCRIPT 
intNumbers(intCount) = InputBox(“Masukan Angka.”) 
Next 
‘clear the list box of its current contents 
lstDisplay.Items.Clear() 
‘Display the contents of the array in the list box. 
For Me.intCount = 0 To intMAX_SUBSCRIPT 
lstDisplay.Items.Add(intNumbers(intCount)) 
Next 
End Sub

7. Pada Button 2 (btnExit), tambahkan koding ini :

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnExit.ClicklstDisplay.Items.Clear() lblHighest.Text =String.Empty
lblSmallest.Text = String.Empty
End Sub

8. Pada Button 3 (btnDisplay), tambahkan koding berikut :

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnDisplay.Click ‘get the first high valueintHighest = intNumbers(intMAX_SUBSCRIPT)
‘search for the highest value.
For Me.intCount = 1 To (intNumbers.Length – 1)
If intNumbers(intCount) > intHighest Then
intHighest = intNumbers(intCount)
End If 
Next 
lblHighest.Text = “Angka Terbesar : “ & intHighest.ToString 
‘get the first low value
intSmallest = intNumbers(intMAX_SUBSCRIPT)
‘search for the lowest value 
For Me.intCount = 0 To (intNumbers.Length – 1)
If intNumbers(intCount) < intSmallest Then
intSmallest = intNumbers(intCount) 
End If 
Next 
lblSmallest.Text = “Angka Terkecil : “ & intSmallest.ToString 
End Sub 

9. Buat Form baru dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini : 






Komponen yang dibutuhkan untuk mendesign form :

Form properties : (name) : Rainfall_Statistic | Text : Perkiraan Cuaca

4 Buah Button

Button 1 : (Name) : btnRainFall | Text : Masukan Angka Perkiraan Cuaca

Button 2 : (Name) : btnDisplay | Text : Tampilkan Data

Button 3 : (Name) : btnClear | Text : Hapus

Button 4 : (Name) : btnExit | Text : Keluar

4 Buah Label

Label 1 : (Name) : lblAvgMonthly

Label 2 : (Name) : lblTotalAnnual

Label 3 : (Name) : lblMin

Label 4 : (Name) : lblMax

1 Buah ListBox : (Name) : lstRainfall

10. Tambahkan koding sebagai berikut untuk aplikasi Curah Hujan :

Dim strMonths() As String = {“Januari”, “Februari”, “Maret”, “April”, _ “Mei”,“Juni”, “Juli”, “Agustus”, “September”, “Oktober”, “November”, _ “Desember”} 
Dim intMonths(11) As Integer
Dim intRain() As Integer 

11. Pada Button 1 (btnRainFall), tambahkan koding sebagai berikut :

Private Sub btnRainFall_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnRainFall.Click Dim intCount As Integer Dim intRain AsInteger
lstRainfall.Items.Add(“Curah Hujan Per Bulan”)
lstRainfall.Items.Add(“———————————–“)
For intCount = 0 To 11 
intRain = Val(InputBox(“Masukan Tingginya Curah Hujan Untuk Bulan “ & strMonths(intCount)))
lstRainfall.Items.Add(strMonths(intCount) & ” “ & (intRain).ToString())
intMonths(intCount) = intRain 
Next intCount 
End Sub 

12. Pada Button 2 (btnDisplay), tambahkan koding sebagai berikut :

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnDisplay.Click Dim intCount As Integer Dim intMaximumAs 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 = “Rata-Rata Curah Hujan Bulanan “ & dblAverage
lblTotalAnnual.Text = “Total Curah Hujan per Tahun “ & intTotal 
lblMin.Text = “Curah Hujan Paling Rendah “ & intMinimum 
lblMax.Text = “Curah Hujan Paling Tinggi “ & intMaximum 
End Sub 

13. Pada button 4 (btnExit), tambahkan koding sebagai berikut :

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnExit.Click Me.Close() 
End Sub 

14. Sekarang klik “Solution Project” di bagian Kanan Atas (Tepat dibawah tombol Close Program), pilih project anda yg sedang di buka (Aplikasi Konverter Ukuran), lalu klik kanan pada “My Project” >> Open >> Pada bagian STARTUP FORM pilih MDIParent1.


15. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.








:) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :)
:) :) :) :) :) :) :) SELAMAT MENCOBA :) :) :) :) :) :) :) :) :) :) :) :) :) :)
:) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :)