saya akan membuat tutorial cara membuat aplikasi menampilkan Nilai MinMax dan Perkiraan Cuaca menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut:
1.Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application,ganti nama projectnya menjadi Array MultiDimensi. Kemudian klik ok.
Ganti nama formnya dengan Array Max_Min Buat tampilan formnya seperti ini.
•Terdiri dari 4 button , 1 listbox, dan 1 textbox.
•Textboxnya read only.
•Ubah name listbox menjadi lstInt. Kemudian masukan kodingnya untuk masing-masing button . Untuk button Input The Integer kodingnya adalah sebebagai berikut :
lalu buat tampilannya formnya seperti ini.
-Terdiri dari 4 Button, 4 Label, 1 GroupBox, 1 ListBox.
-Ubah nama text groupbox menjadi Perkiraan Cuaca.
-Ubah name listbox1 menjadi lstHujan. Kemudian masukan kodingnya untuk masing-masing button. Untuk button Masukan angka Perkiraan Cuaca kodingnya adalah sebagai berikut :
Lalu buat tampilan formnya seperti ini.
Kemudian masukan kodingnya untuk masing-masing button. Untuk button Min Max kodingnya adalah sebagai berikut :
1.Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application,ganti nama projectnya menjadi Array MultiDimensi. Kemudian klik ok.
Ganti nama formnya dengan Array Max_Min Buat tampilan formnya seperti ini.
•Terdiri dari 4 button , 1 listbox, dan 1 textbox.
•Textboxnya read only.
•Ubah name listbox menjadi lstInt. Kemudian masukan kodingnya untuk masing-masing button . Untuk button Input The Integer kodingnya adalah sebebagai berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intInput As Integer
intInput = Val(InputBox("Masukan Angka :"))
lstInt.Items.Add(intInput)
indexArray = intInput
End Sub
Untuk Button Display Min and Max kodingnya adalah sebagai berikut :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim high As Decimal = Decimal.MinValue
Dim min As Decimal = Decimal.MaxValue
For Each item As Decimal In lstInt.Items
high = Math.Max(high, item)
min = Math.Min(min, item)
Next
txtview.Text = " Nilai Max " + high.ToString + " dan " + " Nilai Min " + min.ToString
End Sub
Untuk button Clear kodingnya adalah sebagai berikut :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lstInt.Items.Clear()
txtview.Clear()
End Sub
Untuk button Exit kodingnya adalah sebagai berikut :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
2.Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Curah_hujan. lalu buat tampilannya formnya seperti ini.
-Terdiri dari 4 Button, 4 Label, 1 GroupBox, 1 ListBox.
-Ubah nama text groupbox menjadi Perkiraan Cuaca.
-Ubah name listbox1 menjadi lstHujan. Kemudian masukan kodingnya untuk masing-masing button. Untuk button Masukan angka Perkiraan Cuaca kodingnya adalah sebagai berikut :
Private Sub btnHujan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHujan.Click
Dim intCount As Integer
Dim intRain As Integer
lstHujan.Items.Add("Curah Hujan Per Bulan")
lstHujan.Items.Add("-----------------------------------")
For intCount = 0 To 11
intRain = Val(InputBox("Masukan Tingginya Curah Hujan Untuk Bulan " & strMonths(intCount)))
lstHujan.Items.Add(strMonths(intCount) & " " & (intRain).ToString())
intMonths(intCount) = intRain
Next intCount
End Sub
Untuk button Tampilkan Data kodingnya adalah sebagai berikut :
Private Sub btnTampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampilkan.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 = intMonths(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
lblRata.Visible = True
lblTotal.Visible = True
lblMin.Visible = True
lblMax.Visible = True
lblRata.Text = "Rata-Rata Curah Hujan Bulanan " & dblAverage
lblTotal.Text = "Total Curah Hujan per Tahun " & intTotal
lblMin.Text = "Curah Hujan Paling Rendah " & intMinimum
lblMax.Text = "Curah Hujan Paling Tinggi " & intMaximum
End Sub
Untuk button Clear kodingnya adalah sebagai berikut :
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
lstHujan.Items.Clear()
End Sub
Untuk button Exit kodingnya adalah sebagai berikut :
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
If MessageBox.Show("Apakah Anda Ingin Keluar Dari Keluar ?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Me.Close()
End If
End Sub
3.Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya MainMenu. Lalu buat tampilan formnya seperti ini.
Kemudian masukan kodingnya untuk masing-masing button. Untuk button Min Max kodingnya adalah sebagai berikut :
Private Sub btnMinMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinMax.Click
MaxMin.Show()
End Sub
Untuk button Min Max kodingnya adalah sebagai berikut :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCurah.Click
Curah_hujan.Show()
End Sub
Untuk button Exit kodingnya adalah sebagai berikut :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
4.Setelah itu Run Programnya.
Tidak ada komentar:
Posting Komentar