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
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.
0 komentar:
Posting Komentar