Visual Lanjutan TEORI Latihan 4 (Operator Aritmatika)

Operator Aritmatika

Hai gais balik lagi sama gua rafif kali ini gua bakal ngasih codingan dasar buanget soal VB 2010. Ya contoh kali ini adalah perhitungan luas segitiga yang dimana rumus pada umumnya adalah Alas x Tinggi / 2 dan itu bakal kita implementasikan dalam VB kali ini. Dan gua ga cuman make 1 button untuk mencari hasilnya tapi kali ini biar keluar aplikasinya soft biar kek aplikasi profesional gitu hehehe gua pakein butto ke 2 yaitu untuk keluar. jadi dari pada banyak omong klean ga ngoding-ngoding mending langsung aja dah klean pelajari kodingan di bawah :

Public Class Form1

    'Rafif Karunia Rahman

    '2017230174

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

        Dim alas, tinggi As Integer

        Dim luas As Double

        alas = TextBox1.Text

        tinggi = TextBox2.Text

        luas = (alas * tinggi) / 2

        TextBox3.Text = luas

    End Sub

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

        Dim pesan As String

        pesan = MsgBox("Yakin Mau Keluar?", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        'Validasi Textbox Panjang Hanya Bisa Diisi Oleh Angka 

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

        'Textbox Panjang Dienter, Maka akan aktif  di textbox lebar

        If (e.KeyChar = Chr(13)) Then

            TextBox2.Focus()

        End If

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        'Validasi Textbox Lebar Hanya  Bisa Diisi Oleh Angka

        Dim KeyAscii As Short = Asc(e.KeyChar)

        If (e.KeyChar Like "[0-9]" OrElse KeyAscii = Keys.Back) Then

            KeyAscii = 0

        End If

        e.Handled = CBool(KeyAscii)

    End Sub

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

    End Sub

End Class