Intro Visual Basic

Sudah lama saya tak posting di blog yang satu ini, okee kali ini saya ingin membagikan sebuah ilmu yang bisa kita pelajari atau untuk kalian sebagai contoh pembuatan program di visual basic dan sekaligus sebagai arsip bagi saya sendiri.

LISTING PROGRAM

Form 1 :

Private Sub Command1_Click()
Label3.Caption = Text1.Text + Chr(13) + Text2.Text
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub
Private Sub Option1_Click()
Label3.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
End Sub

Form 2 :

Private Sub Command1_Click()
If Text1.Text = "Admin" And Text2.Text = "Admin" Then
      Form1.Show
Else
      Label3.Caption = "Anda Kurang Beruntung"
End If
End Sub

Form 3 :

Private Sub Command1_Click()
Dim a, b As Integer
a = Text1.Text
List1.Clear
For b = 1 To a
      List1.AddItem (b)
Next b
End Sub
Private Sub Command2_Click()
End
End Sub

OUTPUT PROGRAM

Untuk penjelasan kodingannya dan laporan akhir silahkan download disini.