Latihan 1 Program Variabel
* Menampilkan nama anda pada textbox
Berikut source code nya :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nama As String
nama = TextBox1.Text
TextBox2.Text = "Nama Anda Adalah : " + nama 'nadiahtami 2017230007'
End Sub
End Class
Latihan 2 Program Variabel
*Latihan menggunakan structure
Berikut Source Code nya:
Public Class latihan2
Public Structure mobil
Dim warna As String
Dim jumlah_pintu As Byte
Dim merk As String
Dim besar_silinder As String
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim data As mobil
data.warna = "Biru"
data.merk = "Honda Jazz" 'nadiahtami 2017230007'
data.jumlah_pintu = 4
data.besar_silinder = 2.2
TextBox1.Text = data.warna
TextBox2.Text = data.merk
TextBox3.Text = data.jumlah_pintu
TextBox4.Text = data.besar_silinder
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pesan As String
pesan = MsgBox("Yakin Ingin Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Public Class latihan3
Public a As String
Public b As Integer
Public c As Integer
Public hasil As Double
'nadiahtami 2017230007'
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = "100"
b = 40
c = Convert.ToInt32(a)
hasil = b * c
TextBox1.Text = a
TextBox2.Text = hasil.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pesan As String
pesan = MsgBox("Yakin Ingin Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Terimakasih Semoga Sukses Selalu :)
Komentar
Posting Komentar