Membuat Program Sederhana Dengan Visual Basic

Semasa kuliah dulu Bahasa Pemograman ini merupakan salah satu favorit saya , saking cintanya dengan matakuliah ini saya sampai mengulang 2 kali..heheh!  Berikut ini saya posting mengenai Cara Membuat Aplikasi Sederhana dengan Visual Basic. Visual Basic (VB) adalah bahasa pemrograman tingkat tinggi yang merupakan pengembangan dari bahasa BASIC versi DOS.

BASIC (Beginners' Allpurpose Symbolic Instruction Code) merupakan bahasa pemrograman yang mudah untuk dipelajari. Perintah- perintahnya mirip dengan penggunaan bahasa sehari-hari (Inggris). Seperti ini aplikasi/program sederhana yang pernah saya buat  :

1. Membuat Biodata :

 

Berikut Listingnya :

Private Sub Command1_Click()

If Option1.Value = True Then

agama = "Islam"

ElseIf Option2.Value = True Then

agama = "Katolik"

ElseIf Option3.Value = True Then

agama = "Protestan"

ElseIf Option4.Value = True Then

agama = "Hindu"

Else

agama = "Budha"

End If

If Check1.Value = 1 And Check2.Value = 1 _

And Check3.Value = 1 Then

        Hobby = Check1.Caption & "," _

        & Check2.Caption & "," & Check3.Caption

ElseIf Check1.Value = 1 And Check2.Value = 1 Then

        Hobby = Check1.Caption & "," & Check2.Caption

ElseIf Check1.Value = 1 Then

        Hobby = Check1.Caption

ElseIf Check2.Value = 1 Then

        Hobby = Check2.Caption

ElseIf Check3.Value = 1 Then

        Hobby = Check3.Caption

Else

        Hobby = "tidak ada pilihan"

End If

Text5.Text = "Nama mahasiswa : " & (Text1.Text) & vbCrLf _

           & "Tempat Lahir di : " & (Text2.Text) & vbCrLf _

           & "Tanggal : " & Text3.Text & vbCrLf _

           & "Alamat : " & Text4.Text & vbCrLf _

           & "Agama : " & agama & vbCrLf & "Hobby : " & Hobby

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Command1.Default = True

End Sub

 

2. Registrasi Hotel : 

Listing :

Private Sub Command1_Click()

Label13.Caption = Val(Text6.Text) - Val(Text4.Text)

Label14.Caption = Val(Text5.Text) * Val(Label13.Caption)

Label15.Caption = (Val(Label14.Caption) * 10) / 100

Label16.Caption = Val(Label14.Caption) + Val(Label15.Caption)

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

Text5.Text = 75000

End Sub

Private Sub Option2_Click()

Text5.Text = 200000

End Sub

Private Sub Option3_Click()

Text5.Text = 300000

End Sub

sekian penjelasannya , saya pun masih seorang fakir ilmu yang masih perlu banyak belajar. semoga bermanfaat.  Download VB6.0 disini.
~ismurajab..

tag : program sederhana visual basic,

Posted in: Info IT