membuat program sederhana login dengan Virtual Basic

maaf yaa tadi ga masuk :))

digantiin sama siapa tadi? ngerti kan tapinya yaa?

ini materinya untuk hari ini, sama kan sama yang tadi diajarin sama kakanya? klo beda info di comment yaa :))

AH! ini LA Pertemuan kelima yaa membahas tentang cara membuat program sederhana menggunakan visual basic.

//Untuk Form1 . Buatlah tampilan seperti di bawah ini.

//Script pada Form1. Memberi keterangan pada Label, Command, Form1, dan warna background pada Form1.

Private Sub Form_Load()

Label1.Caption = "Username"

Label2.Caption = "Password"

Command1.Caption = "Ok"

Label3.Caption = " PLEASE LOGIN FIRST"

Form1.BackColor = vbBlue

End Sub

// Script pada Command. Untuk Melakukan proses Login.

Private Sub Command1_Click()

If Text1.Text = "3IA08" And Text2.Text = "SyaChan" Then

MsgBox "hey! sya!", 3, "WELCOME SYACHAN!!"

Unload Me

Form2.Show

Else: MsgBox "WRONG USERNAME OR PASSWORD", 3, "PLEASE, TRY AGAIN GUYS"

End

End If

End Sub

// Untuk Form2. buatlah seperti di bawah ini.

// Script pada Form2. 

Private Sub Form_Load()

Label1.Caption = "Nama"

Label1.FontSize = 14

Label2.Caption = "NPM"

Label2.FontSize = 14

Label3.Caption = ""

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "Ok"

Label4.Caption = "INSERT YOUR NAME AND NPM"

Form2.BackColor = vbGreen

End Sub

//Script pada Command1 Form2.

Private Sub Command1_Click()

Label3.Caption = "Hai, Guys... Nama saya adalah " + Text1.Text & vbCrLf + " NPM saya " + Text2.Text

End If

End Sub

// Script pada Option1

Private Sub Option1_Click()

Label3.ForeColor = vbBlue

End Sub

// Script pada Option2

Private Sub Option2_Click()

Label3.ForeColor = vbRed

End Sub

// Script pada Option3

Private Sub Option3_Click()

Label3.FontItalic = True

Label3.FontBold = False

Label3.FontUnderline = False

End Sub

// Script pada Option4 

Private Sub Option4_Click()

Label3.FontItalic = False

Label3.FontBold = True

Label3.FontUnderline = False

End Sub

// Script pada Option5

Private Sub Option5_Click()

Label3.FontItalic = False

Label3.FontBold = False

Label3.FontUnderline = True

End Sub

udah gampang kan? sama kan yaa penting?

LP
1. apa yang kalian ketahui tentang percabangan pada vb
2. apa yang kalian ketahui tentang perulangan pada vb
3. berikan contoh program sederhana tentang percabangan dan perulangan

sb: http://toerzun.blogspot.com/2012/04/pertemuan-kelima-login-dan-program.html

Best Regards,

Syalay-Chan