Bingung mau bikin aplikasi apa nih menggunakan aplikasi visual basic 2010, setelah beberapa hari berpikir ingin buat program kasir tapi sepertinya ribet apalagi belum terbiasa dengan Visual Studio 2010. Akhirnya aku putuskan buat program menghitung luas, keliling, dan diagonal sebuah persegi. Untuk penampakan gambar akhirnya seperti ini.


Hasil Akhir setelah program di jalankan


Sangat sederhana sekali yah, dan tampilannya juga masih jelek. Tapi tidak masalah yang penting kan keakuratan hasilnya sudah pasti dan jelas. Oke langsung saja berikut langkah langkah membuat program untuk menghitung luas keliling dan diagonal persegi.

1. Buka Visual Studio 2010 kemudian pilih buat new project >> Pilih Windows Aplication Form. langsung Simpan di derektori yang anda inginkan.
2. Buat 2 buah textbox, 8 buah label dan 2 buah button atur seperti gambar dibawah ini.



Buat Layout Seperti gambar


Public Class Form1

    Private Sub Text1_KeyPress(ByVal KeyAscii As Integer)


    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = True

        Dim a As Integer = Text1.Text
        Dim b As Integer = Text2.Text


        Label3.Visible = True
        Label4.Visible = True
        Label5.Visible = True
        Label6.Text = (a + b) * 2
        Label6.Visible = True
        Label7.Text = ((a * a) + (b * b)) ^ 0.5
        Label7.Visible = True
        Label8.Text = (a * b)
        Label8.Visible = True

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Text2_KeyPress(ByVal KeyAscii As Integer)
        If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
            KeyAscii = 0
            MsgBox("Hanya angka saja..!", vbCritical, "Peringatan")

            Exit Sub
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Text1.ResetText()
        Text2.ResetText()
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        Button2.Enabled = False
    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged

    End Sub
End Class


3. Proses menghitung dilakukan saat tombol hitung di klik, pada button hitung diletakan script untuk membuat label yang enable=false berubah menjadi true agar dapat tampil saat di klik.
4. label6 menghasilkan keliling
5. label7 menghasilkan panjang diagonal
6. label8 menghasilkan luas
7. Tombol reset mreset semua nilai di textbox dan mengubah label menjadi enable=false sehingga label tidak nampak.

demikian cara membuat aplikasi hitung luas persegi panjang yang sederhana. semoga bermanfaat.











7 Comments

Diberdayakan oleh Blogger.