LA : PENGENALAN VISUAL BASIC

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.