Assalamualaikum Wr.Wb
Setelah membuat form diatas kita isi UserName dan Password klik Login akan muncul seperti ini...
Tapi jika untuk Registrasi kita akan muncul seperti ini :
kemudian kita isi kolom registrasi yang telah tersedia:
Apabila sudah terisi semua, kita dapat meng-klik konfirm dan akan muncul form seperti ini...
Berikut Koding untuk membuat form-form di atas tersebut..
Pada form 1 kita klik di "Form" dan kodingnya seperti ini.....
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TxtUser.Text = "AsriShinta" And TxtPass.Text = "Larasati" Then
MsgBox("Ini adalah Akun SNMPTN Anda")
Form3.Show()
Me.Hide()
Else
MsgBox("Username atau Password yang anda masukkan salah!")
TxtUser.Text = ""
TxtPass.Text = ""
TxtUser.Focus()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
Dan kita klik pada Form 2 untuk Registrasi...
Kodingnya akan seperti ini :
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, s, l As Integer
For a = 1 To 31
CmbTanggal.Items.Add(a)
Next
For s = 1999 To 1950 Step -1
CmbTahun.Items.Add(s)
Next
For l = 1 To 12
CmbBulan.Items.Add(MonthName(l))
Next
End Sub
Private Sub BtnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConfirm.Click
Form3.Show()
End Sub
Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReset.Click
TxtNama.Text = ""
TxtNomer.Text = ""
TxtSekolah.Text = ""
TxtAlamat.Text = ""
CmbTanggal.Text = ""
CmbBulan.Text = ""
CmbTahun.Text = ""
CmbJurusan.Text = ""
CmbUniversitas.Text = ""
TxtNama.Focus()
End Sub
End Class
Dan seperti itu lah cara membuat fungsi IF untuk registrasi SNMPTN menggunakan Visual Studio 2008. semoga ini bermanfaat.
Terimakasih
Wassalamualaikum Wr. Wb
ASRI SHINTA LARASATI
1106096034