Pertemuan Kelima Login Dan Program Sederhana Pada Visual Basic

Pertemuan kelima ini membahasas menggunakan dan 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 = "1IA26" And Text2.Text = "BRILLIANT" Then

MsgBox "1IA26", 3, "WELCOME GUYS"

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 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