ANALISIS
PROGRAM FORM MEMBER BELANJA ONLINE
No
|
Komponen
|
Properties
|
Keterangan
|
1
|
Form 1
|
Name
Text
|
Form 1
SHOPIEA BELANJA ONLINE
|
2
|
Label1
|
Name
Text
|
Label1
FORM PENDAFTARAN MEMBER BELANJA ONLINE SHOPIEA
|
3
|
Label2
|
Name
Text
|
Label2
1. Isilah dengan data yang benar
2. Membayar uang Rp 50.000,- ongkos kirim ke salah
satu rekening kami
Bank
Mandiri (400201007578535)
Bank BNI
(300709003789531)
Bank BRI
(70067223237900)
3. Isi pendaftaran dengan data yang benar, pada
halaman selanjutnya
4. Setelah melakukan transfer dan pengisian data,
lakukan sms ke 08112001364
dengan
format : daftar#nama yg mendaftar#nama rek bank kami yang di transfer#jml#
5. Info selanjutnya sms ke 08112001364 (listyorini)
atau 087821767711
6. Untuk info ongkos kirim kirim sms dengan format;
nama#ongkir#kota
|
4
|
Button1
|
Name
Text
|
Button1
Isi Formulir
|
5
|
Form2
|
Name
Text
|
Form2
SHOPIEA BELANJA ONLINE
|
6
|
Label1
|
Name
Text
|
Label1
Ussername dan Password
|
7
|
Label2
|
Name
Text
|
Label2
Ussername
|
8
|
Label3
|
Name
Text
|
Label3
Password
|
9
|
Label4
|
Name
Text
|
Label4
Data Pendaftar
|
10
|
Label5
|
Name
Text
|
Label5
Nama
|
11
|
Label6
|
Name
Text
|
Label6
Email
|
12
|
Label7
|
Name
Text
|
Label7
Tanggal Lahir
|
13
|
Label8
|
Name
Text
|
Label8
Nomor KTP
|
14
|
Label9
|
Name
Text
|
Label9
Alamat
|
15
|
Label10
|
Name
Text
|
Label10
Kota
|
16
|
Label11
|
Name
Text
|
Label11
Kode pos
|
17
|
Label12
|
Name
Text
|
Label12
No telepon / HP
|
18
|
Label13
|
Name
Text
|
Label13
Tanggal
|
19
|
Label14
|
Name
Text
|
Label14
Bulan
|
20
|
Label15
|
Name
Text
|
Label15
Tahun
|
21
|
Label16
|
Name
Text
|
Label16
Jenis Kelamin
|
22
|
Textbox1
|
Name
Text
|
Textbox1
|
23
|
Textbox2
|
Name
Text
|
Textbox2
|
24
|
Textbox3
|
Name
Text
|
Textbox3
|
25
|
Textbox4
|
Name
Text
|
Textbox4
|
26
|
Textbox5
|
Name
Text
|
Textbox5
|
27
|
Textbox6
|
Name
Text
|
Textbox6
|
28
|
Textbox7
|
Name
Text
|
Textbox7
|
29
|
Textbox8
|
Name
Text
|
Textbox8
|
30
|
Combobox1
|
Name
Text
|
Combobox1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
31
|
Combobox2
|
Name
Text
|
Combobox2
JANUARI
FEBRUARI
MARET
APRIL
MEI
JUNI
JULI
AGUSTUS
SEPTEMBER
OKTOBER
NOVEMBER
DESEMBER
|
32
|
Combobox3
|
Name
Text
|
Combobox3
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
|
33
|
Radiobutton1
|
Name
Text
|
Radiobutton1
Pria
|
34
|
Radiobutton2
|
Name
Text
|
Radiobutton2
Wanita
|
35
|
Button1
|
Name
Text
|
Button1
Selanjutnya
|
36
|
Form3
|
Name
Text
|
Form 3
SHOPIEA BELANJA ONLINE
|
37
|
Label1
|
Name
Text
|
Label1
Data pasangan (jika ada)
|
38
|
Label2
|
Name
Text
|
Label2
Nama pasangan
|
39
|
Label3
|
Name
Text
|
Label3
Jenis hubungan
|
40
|
Label4
|
Name
Text
|
Label4
Data penunjang
|
41
|
Label5
|
Name
Text
|
Label5
Pekerjaan
|
42
|
Label6
|
Name
Text
|
Label6
Agama
|
43
|
Label7
|
Name
Text
|
Label7
Pendidikan terakhir
|
44
|
Label8
|
Name
Text
|
Label8
Nama ahli waris
|
45
|
Label9
|
Name
Text
|
Label9
Hubungan dengan ahli waris
|
46
|
Combobox1
|
Name
Text
|
Combobox1
ISTRI
SUAMI
|
47
|
Textbox1
|
Name
Text
|
Textbox1
|
48
|
Textbox2
|
Name
Text
|
Textbox2
|
49
|
Textbox3
|
Name
Text
|
Textbox3
|
50
|
Textbox4
|
Name
Text
|
Textbox4
|
51
|
Textbox5
|
Name
Text
|
Textbox5
|
52
|
Textbox6
|
Name
Text
|
Textbox6
|
53
|
Button1
|
Name
Text
|
Button1
Selanjutnya
|
54
|
Form4
|
Name
Text
|
Form 4
SHOPIEA BELANJA ONLINE
|
55
|
Label1
|
Name
Text
|
Label1
Data Bank
|
56
|
Label2
|
Name
Text
|
Label2
Nama Bank
|
57
|
Label3
|
Name
Text
|
Label3
Cabang
|
58
|
Label4
|
Name
Text
|
Label4
Nama nasabah
|
59
|
Label5
|
Name
Text
|
Label5
Nomor rekening
|
60
|
Label6
|
Name
Text
|
Label6
Data sponsor (jika ada)
|
61
|
Label7
|
Name
Text
|
Label7
Nama sponsor
|
62
|
Label8
|
Name
Text
|
Label8
ID sponsor
|
63
|
Label9
|
Name
Text
|
Label9
Ussername sponsor
|
64
|
Textbox1
|
Name
Text
|
Textbox1
|
65
|
Textbox2
|
Name
Text
|
Textbox2
|
66
|
Textbox3
|
Name
Text
|
Textbox3
|
67
|
Textbox4
|
Name
Text
|
Textbox4
|
68
|
Textbox5
|
Name
Text
|
Textbox5
|
69
|
Textbox6
|
Name
Text
|
Textbox6
|
70
|
Textbox7
|
Name
Text
|
Textbox7
|
71
|
Button1
|
Name
Text
|
Button1
Kirim Pendaftaran
|
Listing
Program
Form
1
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
Form
2
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
Form
3
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
Form
4
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
Tidak ada komentar:
Posting Komentar