sriwahyuni

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim Waktu, Debit, Hasil As Integer         Waktu = TextBox1.Text         Debit = TextBox2.Text         Hasil = TextBox1.Text * TextBox2.Text         TextBox3.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim VOLUME, DEBIT, HASIL As Integer         VOLUME = TextBox1.Text         DEBIT = TextBox2.Text         HASIL = TextBox1.Text / TextBox2.Text         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim VOLUME, WAKTU, HASIL As Integer         VOLUME = TextBox1.Text         WAKTU = TextBox2.Text         HASIL = TextBox1.Text / TextBox2.Text         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim Alas, Tinggi, Hasil As Integer         Alas = TextBox1.Text         Tinggi = TextBox2.Text         Hasil = Val(TextBox1.Text) * Val(TextBox2.Text)         TextBox3.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim S1, S2, S3, S4, HASIL As Integer         S1 = TextBox1.Text         S2 = TextBox2.Text         S3 = TextBox3.Text         S4 = TextBox4.Text         HASIL = S1 * S2 * S3 * S4         TextBox5.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a, b, tinggi, hasil As Integer         a = TextBox1.Text         b = TextBox2.Text         tinggi = TextBox3.Text         hasil = a + b / 2 * tinggi         TextBox4.Text = hasil     End Sub End Class