Contoh Program Aplikasi Visual Basic untuk Latihan – Pada kesempatan ini GameBoxx akan membahas mengenai Contoh Program Aplikasi Visual Basic. Yang mana dalam pembahasan kali ini menjelaskan beberapa contoh program aplikasi visual basic yang dapat digunakan sebagai latihan. Untuk lebih jelasnya silahkan simak artikel GameBoxx berikut ini.
Contoh Program Aplikasi Visual Basic untuk Latihan
Bila melihat dalam dunia programing, tentunya Anda sudah mengelan tentang berbagai macam bahasa pemrograman. Salah satunya bahasa pemrograman yang sering dipakai yaitu Visual Basic. Visula basic merupakan bahasa pemrograman ‘event-driven’ yang berasan dari BASIC.
Maksudnya yaitu salah satu program yang akan menunggu sampai adanya respon dari pengguna berupa kejadian tertentu, sontohnya ada tombol yang di klik. Pada saat even terdeteksi, event yang berkaitan akan melakukan aksi sesuai dengan pengaturan perintah yang diberikan. Salah satu dari kelebihan dan kekurangan Visual Basic yaitu bahasa pemrograman ini musah digunakan, akan tetapi tidak dapat dipakai pada jenis sistem operasi komputer selain Windows.
Contoh Program Aplikasi Visual Basic
![Contoh Program Aplikasi Visual Basic untuk Latihan](https://gameboxx.me/wp-content/uploads/2020/09/Contoh-Program-Aplikasi-Visual-Basic-untuk-Latihan.png)
Untuk menguasai bahasa pemrograman ini, Anda perlu melakukan banyak latihan. Dengan cara mempraktekan beberapa contoh beberap program yang telah ada. Dalam artikel ini, kami akan memberikan berbagai contoh program Delphi yang dapat menjadi bahan Anda untuk latihan dalam melakukan programing.
Contoh Program Kasir Restoran
Anda dapat melihat tampilan form-form yang ada pada program,
Berikut ini adalah listing program yang berdasarkan pada komponen yang dipakai:
- Contoh Combobox1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case “Nasi Uduk”
Label2.Text = ‘Rp. 3500’
hrgmakanan = 3500
Case “Bakso”
Label2.Text = “Rp. 6000”
hrgmakanan = 6000
Case “Mie Ayam”
Label2.Text = “Rp. 7000”
hrgmakanan = 7000
End Select
End Sub
- variabel di Form1
Public Class Form1.
Public hrgmakanan, hrgminuman As Integer.
- Contoh Combobox2
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case “Es Jeruk”
Label4.Text = “Rp. 3000”
hrgminuman = 3000
Case “Jus Alpukat”
Label4.Text = “Rp. 7000”
hrgminuman = 7000
Case “Teh Manis”
Label4.Text = “Rp. 4000”
hrgminuman = 4000
End Select
End Sub
- Sub-routine Public
Public Sub New()
‘This call is required by the designer. InitializeComponent()
ComboBox2.Visible = False
Label3.Visible = False
‘ Add any initialization after the InitializeComponent() call.
End Sub
- Checkbox1
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Enabled = False Then
ComboBox2.Visible = False
End If
If CheckBox1.Enabled = True Then
ComboBox2.Visible = True
Label3.Visible = True
End If
End Sub
- Button1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim porsimkn, porsimnm, jumlah As Integer
porsimkn = TextBox1.Text
porsimnm = TextBox2.Text
jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
Label7.Text = “Rp. ” & jumlah.ToString
End Sub
Contoh Program VB Sederhana
Tampilan pada form, sebagai berikut:
Listing program pada komponen “commandbutton”:
If Text1.Text = “” Then
MsgBox (“Isi dulu Nama anda”)
Else
MsgBox (“Nama Saya” + Text1.Text + “Dan saya sedang belajar Visual Basic 6.0”)
End If
Contoh Program Edit Database
Contoh Tampilan bentuk pada form yaitu:
Berikut ini listing program berdasarkan komponen-komponen di dalamnya:
- Command Button “Simpan”
Private Sub Command1_Click()
‘Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
‘perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
‘update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
‘perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
‘perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
- Command Button “Edit”
Private Sub Command2_Click()
‘Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
‘perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
- Command Button “Hapus”
Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
- DBGrid1
Private Sub DBGrid1_Click()
‘kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub
Contoh Menggerakan Label di Visual Basic
Tampilan form:
Listing program:
Label1.Left = Label1.Left – 15
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth
Contoh Form Pengguna
Tampilan Form:
Pengaturan properties pada tiap komponen:
OBJECK |
PROPERTIES |
PENGATURAN |
Label1 |
(Name)
Caption |
Lbluser User ID |
Label2 |
(Name)
Caption |
Lbluser Nama Lengkap |
Label3 |
(Name)
Caption |
Lbluser Password |
Label4 |
(Name)
Caption |
Lbluser Ketik Ulang Password |
Label5 |
(Name)
Caption |
Lbluser Type User |
Text1 |
(Name) |
TxtUser |
Text2 |
(Name) |
TxtNama |
Text3 |
(Name) |
TxtPassword |
Text4 |
(Name) |
TxtUlang |
Text5 |
(Name) |
TxtType |
Option1 |
(Name) |
optAdm |
Option2 |
(Name) |
optOperator |
Listview1 |
(Name) |
Lv1 |
Command1 |
(Name)
Caption |
Cmdtambah Tam&bah |
Command2 |
(Name)
Caption |
Cmdtambah Sim&pan |
Command3 |
(Name)
Caption |
Cmdtambah Ha&pus |
Command4 |
(Name)
Caption |
Cmdtambah Bat&al
|
Untuk contoh komponen database “Pengguna”, Anda dapat membuat komponen database itu di Microsoft Access:
FIELD NAME |
DATA TYPE |
SIZE |
Username |
Text |
25 |
Nama |
Text |
25 |
Password |
Text |
10 |
Type |
Text |
10 |
Perlu di ingat juga untuk menambahkan references ‘Microsoft Activex Data objeck 2.0 Library’, supaya database itu terhubung pada program Visual Basic Anda.
Di bawah ini merupakan listing program yang berdasarkan pada komponen form:
- Tombol “Tambah”
Text1.Enabled = True
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
CmdTambah.Enabled = False
CmdSimpan.Enabled = True
CmdSimpan.Caption = “Simpan”
CmdKeluar.Caption = “Batal”
- Tombol “Simpan”
If Text4.Text <> Text3.Text Then
MsgBox “Password tidak sama, ketik ulang password “, vbInformation
Exit Sub
End If
If Text1.Text = “” Or Text2.Text = “” Or Text3.Text = “” Or Text4.Text = “” Or Text5.Text = “” Then
MsgBox “DATA tidak boleh kosong!”, _
vbInformation + vbOKOnly, “Perhatian”
Text1.SetFocus
Else
‘On Error Resume Next
If TbSimpan.Caption = “Simpan” Then
SqlInsert = “”
SqlInsert = “INSERT INTO UsrKontrol” _
& ” (UsrName,” _
& ” Nama,” _
& ” Pass,” _
& ” Tipe)” _
& ” VALUES(‘” & Text1.Text & “‘,’” _
& Text2 & “‘,’” _
& Text3 & “‘,’” _
& Text5.Text & “‘)”
MsgBox “data telah disimpan”, vbInformation, “keterangan”
DbKoneksi.Execute SqlInsert, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
ElseIf TbSimpan.Caption = “Ubah” Then
‘ eksekusiSQL “update UsrKontrol set UsrName=’” & safeSQL(Text1) & “‘,Nama=’” & safeSQL(Text2) & “‘, Pass=’” & safeSQL(Text3) & “‘ tipe=’” & safeSQL(Text5) & “‘”
eksekusiSQL “update UsrKontrol set nama=’” & safeSQL(Text2) & “‘,pass=’” & safeSQL(Text3) & “‘, tipe=’” & safeSQL(Text5) & “‘ where usrname=’” & safeSQL(Text1) & “‘”
MsgBox “Update data sukses.”, vbInformation
Call FormNormal
Call Form_Load
End If
End If
- Tombol “Hapus”:
Konfirmasi = MsgBox(“Anda yakin akan menghapus data ini?”, vbYesNo + vbQuestion, “informasi”)
If Konfirmasi = vbYes Then
SqlDelete = “DELETE FROM UsrKontrol WHERE ” _
& ” Usrname=’” & Text1.Text & “‘”
DbKoneksi.Execute SqlDelete, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
Else
Call FormNormal
End If
- Tombol “Batal”
If TbKeluar.Caption = “Keluar” Then
‘ frmMain.Enabled = True
Unload Me
Else
FormNormal
End If
- Program pada Form_Load
Sub FormMati()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Text = False
End Sub
Contoh Menampilkan Grafik di Visual Basic
Tampilan form:
Object Properties:
Listing Program berdasarkan komponen yang digunakan:
- Form Load
Private Sub Form_Load()
‘List Combo: chart types
With Combo1
.AddItem “3D Bar”
.AddItem “2D Bar”
.AddItem “3D Line”
.AddItem “2D LIne”
.AddItem “3D Area”
.AddItem “2D Area”
.AddItem “3D Step”
.AddItem “2D Step”
.AddItem “3D Combination”
.AddItem “2D Combination”
.ListIndex = 1 ‘default:2D Bar
End With
Check1.Caption = “&Show Legends”
‘2D array –> chart values
Dim X(1 To 7, 1 To 6) As Variant
X(1, 2) = “Jakarta”
X(1, 3) = “Bandung”
X(1, 4) = “Cirebon”
X(1, 5) = “Bogor”
X(1, 6) = “Sukabumi”
X(2, 1) = “JAN”
X(2, 2) = 3
X(2, 3) = 4
X(2, 4) = 5
X(2, 5) = 6
X(2, 6) = 7
X(3, 1) = “FEB”
X(3, 2) = 4
X(3, 3) = 5
X(3, 4) = 3
X(3, 5) = 8
X(3, 6) = 12
X(4, 1) = “MAR”
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 10
X(4, 6) = 9
X(5, 1) = “APR”
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 12
X(5, 5) = 10
X(5, 6) = 14
X(6, 1) = “MAY”
X(6, 2) = 2
X(6, 3) = 9
X(6, 4) = 7
X(6, 5) = 12
X(6, 6) = 8
X(7, 1) = “JUN”
X(7, 2) = 12
X(7, 3) = 19
X(7, 4) = 5
X(7, 5) = 19
X(7, 6) = 10
‘2D array –> chart data
MSChart1.ChartData = X
End Sub
- Check Box
Private Sub Check1_Click()
If Check1.Value = 1 Then
‘Show Legends
MSChart1.ShowLegend = True
Check1.Caption = “&Hide Legends”
Else
‘Hide Legends
MSChart1.ShowLegend = False
Check1.Caption = “&Show Legends”
End If
End Sub
- Combo Box
Private Sub Combo1_Click()
‘chart type –>run time.
MSChart1.chartType = Combo1.ListIndex
End Sub
Demikian pembahasan mengenai Contoh Program Aplikasi Visual Basic untuk Latihan, semoga dapat bermanfaat dan mudah dipahami.