Contoh Program latihan Visual Studio 2008

Contoh Program Visual Studio 2008

Public Class latihan3Dwi

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'Menmggunakan fungsi Keypress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
TextBox2.Focus()
'textBox2.focus() --- utk memindahkan kursor ke berikutnya
End If

End Sub


Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
TextBox3.Focus()
'textBox2.focus() --- utk memindahkan kursor ke berikutnya
End If
End Sub


Sub gabung()
' gabung nama methodenya ' membuat sebuah methode yang berisi program didalammnya
ListBox1.Items.Add(Trim(TextBox1.Text) & " " & Trim(TextBox2.Text) & " " & Trim(TextBox3.Text))
'Perintah ini untuk menggabungkan,Fungsi trim berfumgsi utk menghilangkan spasi
End Sub


Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
Call gabung()
End If
'call gabung utk memanggil kalau kita enter di box 3
End Sub


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