Jumat, 15 Mei 2015

Pertemuan 12, 11 Mei 2015 : Tutorial Tutorial Min and Max dan Curah Hujan Menggunakan array pada Vb.net

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 : 


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