Dapat didownload di : https://www.dropbox.com/s/sq5guhkbrzz1cra/1%20LAPORAN%20AKHI%20Pengenalan%20%20VB.docx?dl=0
PROJECT 1
CODING
Private Sub Command1_Click()
If (Text1.Text) = "ekafiya" And (Text2.Text) = "2728" Then
MsgBox "Login", 1, "Kamu Telah Loggin"
Else
MsgBox "Error", 1, " Silahkan Masukan UserName dan Password kembali dengan benar"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
LOGIKA
- Pada CommandButton OK ,di isi dengan codingan seperti berikut : If (Text1.Text) = "ekafiya" And (Text2.Text) = "2728" Then MsgBox "Login", 1, "Kamu Telah Loggin" Else MsgBox "Error", 1, " Silahkan Masukan UserName dan Password kembali dengan benar" End If, yang berfungsi untuk menentukan sebuah kodisi yaitu pada text1 haruslah berisikan “ekafiya” dan pada text2 harus berisi “2728”, jika kondisi tersebut benar maka messages box akan memunculkan text “Login” sedangkan jika kondisi tersebut salah maka messages box akan memunculkan text “Error”
- Pada CommandButton EXIT ,di isi dengan codingan seperti berikut : End , yang berfungsi untuk mengentikan atau mengakhiri running program.
- Pada From1, di isi dengan codingan seperti berikut : Text1.Text=”” Text2.Text=””, yang berfungsi untuk mengisi text1 dan text2 dengan spasi yang seolah olah akan terhapus.
PROJECT 2
CODING
Private Sub Check1_Click()
Label3.FontBold = Check1.Value
Label4.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label3.FontItalic = Check2.Value
Label4.FontItalic = Check2.Value
End Sub
Private Sub Check3_Click()
Label3.FontUnderline = Check3.Value
Label4.FontUnderline = Check3.Value
End Sub
Private Sub Command1_Click()
Label3.Caption = Text1.Text
Label4.Caption = Text2.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = " "
Text2.Text = " "
End Sub
Private Sub Option1_Click()
Label3.ForeColor = vbRed
Label4.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlue
End Sub
Private Sub Option3_Click()
Label3.ForeColor = vbGreen
Label4.ForeColor = vbGreen
End Sub
Private Sub Option4_Click()
Label3.ForeColor = vbYellow
Label4.ForeColor = vbYellow
End Sub
LOGIKA
- Pada CommandButton OK, di isi dengan codingan sebagai berikut : Label3.Caption = Text1.Text Label4.Caption = Text2.Text, yang berisi untuk memindahkan atau mencopy isi pada text1 dan text2 kedalam label 3 dan label4.
- Pada CommandButton END di isi dengan codingan sebagai berikut: End, yang berfungsiu untuk mengentikan atau mengakhiri running program.
- Pada From, di isi dengan codingan seperti berikut : Text1.Text=”” Text2.Text=””, yang berfungsi untuk mengisi text1 dan text2 dengan spasi yang seolah olah akan terhapus.
- Pada Check1, di isi dengan codingan sebagai berikut : Label3.FontBold = Check1.Value Label4.FontBold = Check1.Value, yang berfungsi untuk merubah style text pada label3 dan label4 begitu juga dengan Check2 dan Check3.
- Pada Option1, di isi dengan codingan sebagai berikut: Label3.ForeColor = vbRed Label4.ForeColor = vbRed, yang berfungsi untuk merubah warna text pada label3 dan label4 begitu juga dengan Option2 dan Option3.
.jpg)
