6 Contoh Program Visual Basic untuk Latihan

6 Contoh Program Visual Basic untuk Latihan

Dalam bola dunia programming, tak terhindarkan Anda pasti akan mengenal macam-macam bahasa asing menunjukkan. Salah satu bahasa asing menunjukkan yang umum digunakan adalah Visual Basic. Visual Basic adalah bahasa asing menunjukkan “event-driven” yang berasal berasal dari BASIC.

Maksud berasal dari occasion pushed adalah kursus pasti akan menunggu {sampai} adanya respon berasal dari individu berupa kejadian tertentu, misalnya ada beralih yang diklik. Ketika occasion terdeteksi, occasion yang Menghubung pasti akan mengadakan aktivitas cocok bersama permintaan yang ditawarkan. Salah satu kelebihan juga kelangkaan Visual Basic adalah bahasa asing menunjukkan satu ini dengan mudah digunakan, bagaimanapun tidak sampai digunakan di jenis tubuh prosedur bedah pc selain Windows.

Untuk menguasai bahasa asing menunjukkan Visual Basic, Anda dibutuhkan mengadakan metode. Caranya bersama mempraktekkan banyak {contoh} program-program yang sebenarnya ada. Pada tulisan kali ini, tim kami pasti akan memberikan banyak {contoh} kursus Delphi yang bisa dengan mudah jadilah komponen metode Anda sangat programming. Berikut ini adalah banyak {contoh} yang bisa dengan mudah tim kami menyediakan untuk Anda:

Contoh 1: Program Kasir Restoran

Tampilan form-form di sangat kursus:

6 Contoh Program Visual Basic untuk Latihan

1626175143 737 6 Contoh Program Visual Basic untuk Latihan

1626175143 358 6 Contoh Program Visual Basic untuk Latihan

Inilah itemizing kursus berdasarkan elemen yang digunakan:

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

Public Class Form1
Public hrgmakanan, hrgminuman As Integer

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

Public Sub New()

‘ This name is required by the designer. InitializeComponent()
ComboBox2.Visible = False
Label3.Visible = False
‘ Add any initialization after the InitializeComponent() name.
End Sub

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim porsimkn, porsimnm, volume As Integer
porsimkn = TextBox1.Text
porsimnm = TextBox2.Text

Lihat lebih banyak:  4 Cara Merubah IP Android agar Bisa Bebas Akses

volume = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
Label7.Text = “Rp. ” & volume.ToTali
End Sub

Contoh 2: Program VB Sederhana

Tampilan kind

setelah textbox diisi nama

 

Listing kursus pada elemen “commandbutton”:

If Text1.Text = “” Then
MsgBox (“Isi dulu Nama anda”)
Else
MsgBox (“Nama Saya” + Text1.Text + “Dan saya ringan mencari tahu Visual Basic 6.0”)
End If

Contoh 3: Program Edit Database

Tampilan pada kind:

1626175144 656 6 Contoh Program Visual Basic untuk Latihan

Berikut ini itemizing kursus berdasarkan komponen-komponen di dalamnya:

  • Command Button “Simpan”:

Private Sub Command1_Click()
‘Addnew = untuk membuat atau bahkan menambah catatan baru-baru ini
Data1.Recordset.AddNew
‘permintaan untuk melestarikan catatan yang di inputkan pada textbox langsung ke sangat discipline database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!Akun = Text2.Text
Data1.Recordset!jurusan = Text3.Text
‘replace = permintaan untuk mengupdate catatan yang telah tergabung
Data1.Recordset.Update
‘permintaan untuk merefresh grid ketika catatan sebenarnya tergabung
DBGrid1.Refresh
‘permintaan untuk mengkosongkan textbox setelah catatan disimpan
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

  • Command Button “Edit”

Private Sub Command2_Click()
‘Edit = untuk mengedit catatan yang sebenarnya ada
Data1.Recordset.Edit
‘permintaan untuk melestarikan catatan yang di sebenarnya di ubah
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!Akun = 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

Private Sub DBGrid1_Click()
‘kode permintaan untuk menampilkan catatan yang sebenarnya disimpan di sangat grid langsung ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!Akun
Text3.Text = Data1.Recordset!jurusan
End Sub

Contoh 4: Menggerakan Label di Visual Basic

Tampilan kind:

Listing kursus:

Label1.Left = Label1.Left – 15
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth

Contoh 5: Form Pengguna

Tampilan Form:

Pengaturan properties pada tiap elemen:

 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
Lihat lebih banyak:  7 Kelebihan dan kekurangan Magento

Contoh elemen database “Pengguna”. Anda bisa dengan mudah membuatnya di Microsoft Access:

 FIELD 
 NAME
 DATA TYPE  SIZE
 Username  Text  25
 Nama  Text  25
 Password  Text  10
 Type  Text  10

Oh iya, jangan lupa untuk menambahkan references “Microsoft Activex Data objeck 2.0 Library” agar database tersebut terhubung pada kursus Visual Basic Anda.

Berikut ini adalah itemizing kursus berdasarkan komponen-komponen pada kind:

Text1.Enabled = True
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
CmdTambah.Enabled = False
CmdSimpan.Enabled = True
CmdSimpan.Caption = “Simpan”
CmdKeluar.Caption = “Batal”

If Text4.Text <> Text3.Text Then
MsgBox “Password tidak setiap bit sebagai, jenis 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 tidak terisi!”, _
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 “catatan telah disimpan”, vbInformation, “keterangan”
DbKoneksi.Execute SqlInsert, , adCmdText
Rs_UsrKontrol.Requery
Call FormRegular
Call Form_Load

ElseIf TbSimpan.Caption = “Ubah” Then
‘  eksekusiSQL “replace UsrKontrol set UsrName=”” & safeSQL(Text1) & “‘,Nama=”” & safeSQL(Text2) & “‘, Pass=”” & safeSQL(Text3) & “‘  tipe=”” & safeSQL(Text5) & “‘”
eksekusiSQL “replace UsrKontrol set Akun=”” & safeSQL(Text2) & “‘,cross=”” & safeSQL(Text3) & “‘, tipe=”” & safeSQL(Text5) & “‘ the place usrname=”” & safeSQL(Text1) & “‘”
MsgBox “Update catatan hasil.”, vbInformation
Call FormRegular
Call Form_Load
End If

End If

Konfirmasi = MsgBox(“Anda pasti pasti akan menghapus catatan ini?”, vbYesNo + vbQuestion, “informasi yang relevan”)
If Konfirmasi = vbYes Then
SqlDelete = “DELETE FROM UsrKontrol WHERE ” _
& ” Usrname=”” & Text1.Text & “‘”

DbKoneksi.Execute SqlDelete, , adCmdText

Rs_UsrKontrol.Requery

Call FormRegular
Call Form_Load
Else
Call FormRegular

End If

If TbKeluar.Caption = “Keluar” Then
‘   frmMain.Enabled = True
Unload Me
Else
FormRegular
End If

Lihat lebih banyak:  Fungsi mysqli error() PHP - DosenIT.com

Sub FormBinasa()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Text = False

End Sub

Contoh 6: Menampilkan Grafik di Visual Basic

Tampilan kind:

(*6*)

Object Properties:

1626175144 661 6 Contoh Program Visual Basic untuk Latihan

Listing Program berdasarkan elemen yang digunakan:

Private Sub Form_Load()
‘List Combo: chart varieties
With Combo1
.AddMerchandise “3D Bar”
.AddMerchandise “2D Bar”
.AddMerchandise “3D Line”
.AddMerchandise “2D LIne”
.AddMerchandise “3D Area”
.AddMerchandise “2D Area”
.AddMerchandise “3D Step”
.AddMerchandise “2D Step”
.AddMerchandise “3D Combination”
.AddMerchandise “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 catatan
MSChart1.ChartData = X
End Sub

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

Private Sub Combo1_Click()
‘chart kind –>run time.
MSChart1.chartType = Combo1.ListIndex
End Sub

Sekian contoh-contoh kursus Visual Basic yang tim kami mengungkapkan pada tulisan kali ini. Semoga contoh-contoh di terkemuka dapat membuat Anda paham melibatkan bahasa asing menunjukkan Visual Basic. Jika Anda hendak mengidentifikasi banyak {contoh} bahasa asing pemrogaman tambahan yang sebanding bersama Visual Basic juga bersifat multi sistem, simak {contoh} kursus Delphi yang ada di situs internet ini.

Anda ringan menonton: 6 Contoh Program Visual Basic untuk Latihan

Sumber: https://taylorswift10years.com

Kategori: Teknologi

Leave a Reply

Your email address will not be published.