Contoh Pembuatan Program di Visual Basic   10 comments

Ini salah satu contoh dari program di Visual Basic, Saya telah membuat sebuah contoh yang dapat mengetahui suatu barang dengan cara mengisi kode barangnya saja. Bila kode barangnya sudah di input (diisi) maka, akan tampil nama barang yang sesuai dengan kode barangnya dan sebuah harga dari barang tersebut. Setelah nama barang dan harganya terlihat, anda bisa menginput (memasukan) jumlah unit (barang) yang di beli. Selanjutnya anda bisa mengetahui jumlah harga setelah anda memasukan jumlah barang yang di beli. Anda juga dapat mengetahui berapa diskon yang di dapat dan jumlah dari harga sebenarnya. Anda dapat memasukan koding (kode) dari sebuah program tersebut, koding (kodenya) adalah, sebagai berikut :

Private Sub Command1_Click()
If Text1.Text = “CPU” Then
Text2.Text = “Central Processing Unit”
Text3.Text = “275000”
ElseIf Text1.Text = “RAM” Then
Text2.Text = “Random Access Memory”
Text3.Text = “225000”
ElseIf Text1.Text = “HDD” Then
Text2.Text = “Hard Disk”
Text3.Text = “425000”
ElseIf Text1.Text = “MTR” Then
Text2.Text = “Monitor”
Text3.Text = “750000”
ElseIf Text1.Text = “CDR” Then
Text2.Text = “Cd Room”
Text3.Text = “175000”
ElseIf Text1.Text = “PRT” Then
Text2.Text = “Printer”
Text3.Text = “500000”
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text7.Text = (Text3.Text) * (Text4.Text)
Text6.ForeColor = vbBlue
If Text7.Text >= 2000000 Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text5.Text = “20”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 2000000) And (Text7.Text > 1000000) Then
Option1.Value = False
Option2.Value = True
Option3.Value = False
Option4.Value = False
Text5.Text = “10”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 1000000) And (Text7.Text > 500000) Then
Option1.Value = False
Option2.Value = False
Option3.Value = True
Option4.Value = False
Text5.Text = “5”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf Text7.Text < 500000 Then
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = True
Text5.Text = “0”
Text6.Text = Val(Text7.Text)
End If
End Sub

Private Sub Command5_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Private Sub Command6_Click()
Text4.Text = “”
Text7.Text = “”
End Sub

Private Sub Command7_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub

Karena contoh tersebut mempunyai lebih dari 2 pengulangan, maka saya menggunakan contoh dari pengulangan If .. Then .. Else ..

pengulangan tersebut bisa melakukan pengulangan lebih dari 2 pengulangan.

Akan tampil seperti gambar di bawah ini……

Selamat mencoba……………

( Kritik dan Saran )…………..

Private Sub Command1_Click()
If Text1.Text = “CPU” Then
Text2.Text = “Central Processing Unit”
Text3.Text = “275000”
ElseIf Text1.Text = “RAM” Then
Text2.Text = “Random Access Memory”
Text3.Text = “225000”
ElseIf Text1.Text = “HDD” Then
Text2.Text = “Hard Disk”
Text3.Text = “425000”
ElseIf Text1.Text = “MTR” Then
Text2.Text = “Monitor”
Text3.Text = “750000”
ElseIf Text1.Text = “CDR” Then
Text2.Text = “Cd Room”
Text3.Text = “175000”
ElseIf Text1.Text = “PRT” Then
Text2.Text = “Printer”
Text3.Text = “500000”
End If
End Sub 

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text7.Text = (Text3.Text) * (Text4.Text)
Text6.ForeColor = vbBlue
If Text7.Text >= 2000000 Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text5.Text = “20”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 2000000) And (Text7.Text > 1000000) Then
Option1.Value = False
Option2.Value = True
Option3.Value = False
Option4.Value = False
Text5.Text = “10”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 1000000) And (Text7.Text > 500000) Then
Option1.Value = False
Option2.Value = False
Option3.Value = True
Option4.Value = False
Text5.Text = “5”
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf Text7.Text < 500000 Then
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = True
Text5.Text = “0”
Text6.Text = Val(Text7.Text)
End If
End Sub

Private Sub Command5_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Private Sub Command6_Click()
Text4.Text = “”
Text7.Text = “”
End Sub

Private Sub Command7_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Option1.Value = 0
Option2.Value = 0
Option3.Value = 0
End Sub

Posted November 14, 2010 by Baimers in Uncategorized

Tagged with

10 responses to “Contoh Pembuatan Program di Visual Basic

Subscribe to comments with RSS.

  1. Makasih Bro, saya lagi belajar bikin program

  2. apan tu

  3. ini pke visual basic c++ to pke program laen om??

  4. gambarnya kurang jelas

    Si Legendaris Virus
  5. misi ka mw tanya dong itu yang command1 dan command yg lain yg mana ya pnjelasanya karna labelnya khan beda di form saya gk tau mana yg command1 mana yg command2 mohon petunjuknya ya ka…

    • maaf bru bls..
      ane bru ol lg.

      mslh comnd, sbnar’a sih mudh.
      ha’a dgn liat code’a aj sdh trlihat.
      ane perjelas, untuk c1 (ok) yg pertma
      c3 (keluar)
      c4 (ok) kedua
      c5 (clear) pertama
      c6 (clear) kedua
      c7 (clear all)
      maaf berantakan gan.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: