TUTORIAL
FORM MEMBER BELANJA ONLINE
1.
Dalam pembuatan program ini, pembuat
memakai software Visual Basic 2010. Maka langkah awal adalah jalankan program
visula basic anda kemudian pilih new project dan pilih windows forms
aplication.
2.
Pada jendela form1, tambahkan 2 label
dan 1 button dari Common Controls didalam menu toolbox yang tersedia. Pada
Label 1 tuliskan judul aplikasi dan label kedua berisi persyaratan untuk
menjadi member online. Button1 berisikan tombol untuk lanjut ke form
pendaftaran.
Berikut listingnya :
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text
= "SHOPIEA BELANJA ONLINE"
End Sub
Private Sub Label1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label1.Click
End Sub
End Class
3.
Form pendaftaran yang akan muncul setelah
anda memilih Button 1 berisikan 16 label, 3 ComboBox, 2 Radio Button, 9
textbox, dan 1 Button.
Label berisikan daftar yang harus
diisi oleh calon member, textbox berisikan tempat dimana calon member dapat
mengisi data diri. Radio Button digunakan untuk mengisi jenis kelamin. Dan
ComboBox berisi tanggal, bulan, serta tahun, calon member.
Apabila daftar yang tersedia tidak
diisi dengan penuh ataupun lengkap masa akan muncul Message Box “Field yang
bertanda bintang harus diisi” (karena beberapa form yang harus diisi bertanda
bintang). Button digunakan untuk lanjut ke form yang berikutnya.
Berikut listingnya:
Public Class Form2
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox2.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox3.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox4.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox5.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox6.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox8.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox9.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
ComboBox1.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
ComboBox2.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
ComboBox3.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
Form3.Show()
Me.Hide()
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text
= "SHOPIEA BELANJA ONLINE"
End Sub
Private Sub TextBox10_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress
Dim
masukan As Boolean
= Char.IsDigit(e.KeyChar)
If (Not masukan) Then
e.Handled = True
End Sub
Private Sub TextBox9_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress
Dim
masukan As Boolean
= Char.IsDigit(e.KeyChar)
If (Not masukan) Then
e.Handled = True
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton1.CheckedChanged
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton2.CheckedChanged
End Sub
End Class
4.
Form ketiga masih berisikan form
pendaftaran yang harus dilengkapi oleh calon member.
Terdapat 9 label, 6 textbox, satu
ComboBox, dan satu button. Label berisikan daftar yang harus diisi oleh calon
member, Button digunakan untuk lanjut ke form yang berikutnya, ComboBox Berisi
status pasangan member. Form ini juga akan memunculkan MassegeBox apabila
terdapat list data yang tidak diisi oleh calom member.
Berikut listingnya :
Public Class Form3
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox2.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox4.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
Form4.Show()
Me.Hide()
End Sub
Private Sub Form3_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text
= "SHOPIEA BELANJA ONLINE"
End Sub
End Class
5.
Form ketiga masih berisikan form
terakhir pendaftaran yang harus dilengkapi oleh calon member.
Berisikan 9 label 7 textBox dan 1
Button. Form ini juga akan memunculkan MassegeBox apabila terdapat list data
yang tidak diisi oleh calom member. Button yang terdapat pada form ini akan
memunculkan MassegeBox yang bertuliskan “SELAMAT!!!! Anda telah terdaftar”
Berikut adalah listingnya :
Public Class Form4
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox2.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox3.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
If
TextBox4.Text = "" Then
MsgBox("Field
yang bertanda bintang harus diisi")
Return
End If
MsgBox("SELAMAT!!!!
anda telah terdaftar")
Close()
End Sub
Private Sub Form4_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text
= "SHOPIEA BELANJA ONLINE"
End Sub
Private Sub TextBox1_TextChanged(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
TextBox1.TextChanged
End Sub
End Class
Demikian sedikit penjelasan
Tutorial Form Member belanja online, semoga bermanfaat bagi anda semua. :)
Tidak ada komentar:
Posting Komentar