Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim D1, D2, HASIL As Integer
D1 = TextBox1.Text
D2 = TextBox2.Text
HASIL = 1 / 2 * D1 * D2
TextBox3.Text = HASIL
End Sub
End Class
Komentar
Posting Komentar