Belajar Membuat Aplikasi Visual Basic (Pemula)

Langsung saja langkah memulai menggunakan VB.NET

• Jalankan aplikasi VB.net 2008 kemudian akan muncul tampilan seperti gambar dibawah ini

• Membuat project baru, File kemudian klik New Project akan muncul seperti gambar dibawah ini

• Pilih Windows Form, kemudian ketikan Nama program yang akan dibuat misal namanya: latihan 1, kemudian ok.

Latihan 1

• Pada kesempatan ini yaitu membuat aplikasi/program sederhana menghitung total harga penjualan alat tulis
• Tambahkan 4 buah label, pada gambar dan diberinama sesuai gambar, dan 4 buah textbox dan 1 buah button, untuk mengubah namanya pada properties.

• Kemudian doubel klik pada button (total harga) kemudian tulis/copy codingya seperti dibawah ini yang berwarna biru.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bk As Decimal = TextBox1.Text
        Dim ps As Decimal = TextBox2.Text
        Dim ph As Decimal = TextBox3.Text
        TextBox4.Text = bk + ps + ph

  End Sub

• Kemudian kita jalan kan aplikasi yang telah kita buat tadi klik pada Start Debugging seperti gambar yang dikotak merah

• Masukan nilai/harga2 harganya kemudian klik button total harga.

Source:  http://www.tipsh4re.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Aplikasi Sederhana dengan Visual Basic

Aplikasi ini terdiri dari dua bagian, yaitu :

• Input, terdiri dari :

1. 5 label yaitu label ID, Name, Quantity, Quality, dan Category
2. 2 buah Textbox yaitu pada Textbox ID dan nama
3. 1 buah NumericUpDown
4. 1 buah radio button
5. 1 buah combo box
6. 3 buah button, yaitu add, update dan delete. Add berfungsi untuk menambahkan data ke output, update untuk mengupdate data jika ada data yang salah satu atau beberapa data yang diubah, dan delete untuk menghapus satu baris data.

• Output, terdiri dari

1. 5 label yaitu label ID, name, Qty, Quality, dan Category
2. 5 Listbox yaitu listbox ID, name, Qty, Quality, dan Category

Adapun Codingnya adalah sebagai berikut :
Public Class Form1
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
lbID.Items.Add(tbID.Text)
lbName.Items.Add(tbName.Text)
lbQuantity.Items.Add(NumericUpDown1.Value)
If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)
lbCategory.Items.Add(ComboBox1.SelectedItem)
tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Add(“Paper”)
ComboBox1.Items.Add(“Plastic”)
ComboBox1.Items.Add(“Iron”)
ComboBox1.Items.Add(“Wood”)
ComboBox1.SelectedIndex = 0
End Sub
Private Sub lbID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbID.SelectedIndexChanged
For i = 0 To 100
If lbID.SelectedIndex = i Then
lbName.SelectedIndex = i
lbQuality.SelectedIndex = i
lbQuantity.SelectedIndex = i
lbCategory.SelectedIndex = i
tbID.Text = (lbID.SelectedItem)
tbName.Text = (lbName.SelectedItem)
lbQuality.Text = (lbQuality.SelectedItem)
lbQuantity.Text = (lbQuantity.SelectedItem)
lbCategory.Text = (lbCategory.SelectedItem)
NumericUpDown1.Value = (lbQuantity.SelectedItem)
End If
Next
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(lbCategory.SelectedItem)
If tbID.Text <> lbID.SelectedItem Then
lbID.Items.Remove(lbID.SelectedItem)
lbID.Items.Add(tbID.Text)
Else
tbID.Text = (lbID.SelectedItem)
End If
If tbName.Text <> lbName.SelectedItem Then
lbName.Items.Remove(lbName.SelectedItem)
lbName.Items.Add(tbName.Text)
Else
tbName.Text = lbName.SelectedItem
End If
If NumericUpDown1.Value <> lbQuantity.SelectedItem Then
lbQuantity.Items.Remove(lbQuantity.SelectedItem)
lbQuantity.Items.Add(NumericUpDown1.Value)
Else
lbQuantity.Text = (lbQuantity.SelectedItem)
End If
If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)
lbCategory.Items.Add(ComboBox1.SelectedItem)
tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(ComboBox1.SelectedItem)
End Sub
End Class
……………..
 Setelah dijalankan :



Source:  http://azulfachri.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Aplikasi Pengolahan Lapangan Futsal dengan Menggunakan Visual Basic

VB Tutorial

Private Sub
Form_Load()
Lapangan.AddItem "Matras"
Lapangan.AddItem "Reguler"
Lapangan.AddItem "Sintetis"
Tgl.AddItem "1"
Tgl.AddItem "2"
Tgl.AddItem "3"
Tgl.AddItem "4"
Tgl.AddItem "5"
Tgl.AddItem "6"
Tgl.AddItem "7"
Tgl.AddItem "8"
Tgl.AddItem "9"
Tgl.AddItem "10"
Tgl.AddItem "11"
Tgl.AddItem "12"
Tgl.AddItem "13"
Tgl.AddItem "14"
Tgl.AddItem "15"
Tgl.AddItem "16"
Tgl.AddItem "17"
Tgl.AddItem "18"
Tgl.AddItem "19"
Tgl.AddItem "20"
Tgl.AddItem "21"
Tgl.AddItem "22"
Tgl.AddItem "23"
Tgl.AddItem "24"
Tgl.AddItem "25"
Tgl.AddItem "26"
Tgl.AddItem "27"
Tgl.AddItem "28"
Tgl.AddItem "29"
Tgl.AddItem "30"
Tgl.AddItem "31"
Bulan.AddItem "Januari"
Bulan.AddItem "Februari"
Bulan.AddItem "Maret"
Bulan.AddItem "April"
Bulan.AddItem "Mei"
Bulan.AddItem "Juni"
Bulan.AddItem "Juli"
Bulan.AddItem "Agustus"
Bulan.AddItem "September"
Bulan.AddItem "Oktober"
Bulan.AddItem "November"
Bulan.AddItem "Desember"
Tahun.AddItem "2010"
Tahun.AddItem "2011"
Tahun.AddItem "2012"
Tahun.AddItem "2013"
End Sub
Private Sub Tgl_Click()
Bulan.SetFocus
End Sub
Private Sub Bulan_Click()
Tahun.SetFocus
End Sub
Private Sub
Tahun_Click()
No.SetFocus
End Sub
Private Sub No_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Nama.SetFocus
End If
End Sub
Private Sub Nama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Lama.SetFocus
End If
End Sub
Private Sub Lama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Sepatu.SetFocus
End If
End Sub
Private Sub Sepatu_Click()
If Sepatu.Value = Checked Then
Text_sepatu = 50000
Else
Text_sepatu = 0
End If
End Sub
Private Sub Kostum_Click()
If Kostum.Value = Checked Then
Text_kostum = 45000
Else
Text_kostum = 0
End If
End Sub
Private Sub Lapangan_Click()
If Indoor.Value = True Then
  If Lapangan = "Matras" Then
  Biaya = 200000
  ElseIf Lapangan = "Reguler" Then
  Biaya = 300000
  Else
  Biaya = 350000
  End If
Else
  If Lapangan = "Matras" Then
  Biaya = 150000
  ElseIf Lapangan = "Reguler" Then
  Biaya = 200000
  Else
  Biaya = 250000
  End If
End If
Hitung.SetFocus
End Sub
Private Sub Hitung_Click()
Total = (Val(Text_sepatu) * Val(Lama)) + (Val(Text_kostum) * Val(Lama)) + (Val(Biaya) * Val(Lama))
Bayar.SetFocus
End Sub
Private Sub Bayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  If Val(Bayar) < Val(Total) Then
  MsgBox ("Uang Bayar Kurang!")
  Bayar = ""
  Else
  Kembali = Val(Bayar) - Val(Total)
  Ulangi.SetFocus
  End If
End If
End Sub
Private Sub Ulangi_Click()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next
Tgl = "Tgl"
Bulan = "Bulan"
Tahun = "Tahun"
Lapangan = "= Pilih ="
Indoor.Value = False
Outdoor.Value = False
Sepatu.Value = False
Kostum.Value = False
Tgl.SetFocus
End Sub

Private Sub Keluar_Click()
y = MsgBox("Yakin akan keluar?", vbQuestion + vbYesNo)
If y = vbYes Then
Unload Me
End If 
End Sub

Source:  http://bocaherror.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0

Dalam Pengolahan data pada perguruan tinggi, setiap mahasiswa memiliki nomor identitas yang bersifat unik, seperti Nomor Registrasi Pokok (NRP). artinya setiap mahasiswa memiliki NRP yang berbeda dan tidak boleh ada yang sama.

NRP yang digunakan adalah bertipe string dengan panjang 10 karakter.

misalnya :

08.03.0629

NRP diatas memiliki arti karakter 08 adalah kode tahun angkatan, 03 adalah kode jurusan Sistem Informasi, dan 0629 adalah nomor urut mahasiswa. Jadi NRP tersebut adalah milik seorang mahasiswa STMIK Indonesia Banjarmasin jurusan Sistem Informasi, angkatan 2008, S1, dan nomor urutnya 0629.

Oke Langsung aja kita buat programnya..,

Pertama buat dulu desainnya seperti ini..,

Setelah itu ubah property name masing2 objek  text seperti ini :

text1 = txtnama

text2 = txtnrp

text3 = txttahun

text4 = txtjurusan

text5 = txturut

Kemudian klik 2 kali txtnrp, hingga muncul jendela kode untuk menuliskan kode program. 

lalu ketikkan kode program berikut :

Private Sub txtnrp_Change()

'Melakukan seleksi dari karakter ke 5
Select Case Mid(txtnrp.Text, 5, 1)

'jika karakter ke 5 nilai nya adalah 4, maka keterangan yang muncul pada txtjurusan adalah Teknik Informatika
Case "4"
    txtjurusan.Text = "Teknik Informatika"
Case "3"
    txtjurusan.Text = "Sistem Informasi"
Case "2"
    txtjurusan.Text = "Komputer Akuntansi"
Case "1"
    txtjurusan.Text = "Manajemen Informatika"
End Select

'untuk menampilkan keterangan tahun angkatan dari karakter pertama
txttahun.Text = 20 & Mid(txtnrp.Text, 1, 2)

'untuk menampilkan keterangan no urut dari karakter ke 7 dengan jumlah 4 karakter
txturut.Text = Mid(txtnrp.Text, 7, 4)
End Sub

jika sudah, coba jalankan programnya dan ketikkan nama dan NRP nya..,

maka akan tampil keterangan tahun angkatan, jurusan, dan no urut dari nrp yang kita inputkan.

Program keterangan NRP yg saya buat ini adalah untuk NRP STMIK Indonesia Banjarmasin,,jika teman-teman ingin membuat keterangan NRP dari perguruan tinggi lain, tinggal teman-teman kembangkan aja sesuai dengan keinginan teman-teman..,

Source:  http://fadilcrows.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Dengan menggunakan Visual Basic 6.0 dapat membuat beberapa program mulai dari program yang sederhana sampai program yang dikategorikan sulit. Salah satu program sederhana yang dapat dibuat adalah penghitungan luas segitiga. Dengan berpatokan pada rumus menghitung luas segitiga, yaitu ½ * alas * tinggi, program penghitungan luas segitiga dengan menggunakan Visual Basic 6.0 dapat dibuat.

            Berikut langkah – langkah pembuatan program sederhana “Menghitung Luas Segitiga” dengan menggunakan VB 6.0 !

1. Buka Visual Basic 6.0, kemudian pilih Standard EXE, seperti tampilan dibawah ini:

Setelah itu maka akan muncul tampilan seperti di bawah ini!

2. Buatlah beberapa object yang diperlukan untuk pembuatan program, yaitu :
Tempatkan 4 buah kontrol Label, 3 buah text, dan  3 buah  Command, dengan tata letak sebagai berikut.

3.  Setelah semua object terpasang, edit beberapa object dengan pengaturan properti sbb:

 

Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi seperti di bawah ini !

 

4. Langkah selanjutnya adalah menuliskan kode program pada masing – masing tombol HITUNG, HAPUS dan TUTUP.

a.      Pada Tombol Hitung

Klik dua kali (doble click) kontrol cmdhitung  atau TOMBOL HITUNG, kemudian ketikkan kode program sebagai berikut :
Private Sub Cmdhitung_Click()
  Const rumus = 0.5

  Dim Alas, Tinggi As Double
  Dim Luas As Double

  Alas = Val(Txtalas.Text)
  Tinggi = Val(Txttinggi.Text)
  Luas = Val(Txtluas.Text)
 
  Luas = (rumus * Alas * Tinggi)

  Txtluas.Text = Luas

End Sub
b.      Pada Tombol Hapus
Untuk kembali pada tampilan object, Klik menu View | Object, lalu klik dua kali (doble click) kontrol cmdhapus  atau TOMBOL HAPUS, selanjutnya ketikkan kode program berikut :
Private Sub cmdbatal_Click()

  txtalas.Text = “0″
  txttinggi.Text = “0″
  txtluas.Text = “0″

End Sub
c.       Pada Tombol Tutup
Seperti langkah di atas, Klik kembali menu View | Object, lalu klik dua kali (doble click) kontrol cmdtutup  atau TOMBOL TUTUP, selanjutnya ketikkan kode program berikut :
Private Sub cmdtutup_Click()
  end
End Sub

5.  Untuk menjalankan program yang telah dibuat tekan F5 pada keyboard.
Sehingga muncul tampilan program yang siap dijalankan, ketik angka pada kotak “Masukan Nilai Alas” dan “Masukan Nilai Tinggi” sesuai keinginan, selanjutnya klik tombol HITUNG, maka hasilnya akan muncul pada kotak Luas Segitiga, seperti gambar di bawah ini.

6.  Jika sudah dicoba dan hasilnya benar, selanjutnya file dapat disave dengan klik File | Save Project
7.  Dan untuk menyimpan program yang telah dibuat klik File | Make Project.
8.  Program siap dijalankan.

Source :  http://poenyaecix.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Program Sederhana Kalender "my memo" Dengan Menggunakan Visual Basic

Program kalender MY MEMO adalah program yang dibuat dengan menggunakan program Visual Basic 6.0, program ini terdiri dari sebuah form yang berisi 2(dua) label, 1(satu) timer, 3(tiga) command button, 1(satu) textbox dan kalender itu sendiri. Kalender yang digunakan adalah hasil dari penambahan component dalam project Visual Basic yang bernama Microsoft Calender Control 12.0. Selain itu, program ini juga tediri dari sebuah tabel database yang bernama BukuHarian.mdb (dengan nama table juga sama BukuHarian). 

Mari kita buat programnya.

Langkah pertama yang kita lakukan adalah membuat design tampilan pada form Visual Basic 6.0 seperti apa. Kalian bisa membuatnya sendiri atau bisa juga ikuti pola pada gambar di bawah ini.

Berikut adalah rincian toolbox yang digunakan:

 

Berikut adalah rincian tabel yang digunakan:

 

Nah, buatlah listing porogramnya seperti di bawah ini.

Option Explicit

Dim db As DAO.Database

Dim rs As DAO.Recordset

Private Sub CalBUKUHARIAN_Click()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

txtMEMO.Text = rs!Memo

Else

txtMEMO.Text = " "

End If

End Sub

Private Sub cmdHapus_Click()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

rs.Delete

MsgBox "Memo tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy") & _

"telah dihapus ! ", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

Else

MsgBox "Tidak ada memo pada tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy"), vbInformation, _

"BUKU HARIAN"

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdSIMPAN_Click()

Dim X As Integer

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

If txtMEMO.Text = " " Then

MsgBox "Anda belum mengisi kotak memo!", vbInformation, "BUKU HARIAN"

txtMEMO.SetFocus

Else

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If rs.NoMatch = True Then

rs.AddNew

rs!tgl = CalBUKUHARIAN.Value

rs!Memo = txtMEMO.Text

rs.Update

MsgBox "Memo anda telah tersimpan!", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

Else

X = MsgBox("Memo pada tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy") & _

"sudah ada, " & vbCrLf & _

"tekan YES jika anda ingin mengoreksi!", vbYesNo, _

"BUKU HARIAN")

If X = vbYes Then

rs.Edit

rs!tgl = CalBUKUHARIAN.Value

rs!Memo = txtMEMO.Text

rs.Update

MsgBox "Memo anda sudah dikoreksi", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

End If

End If

End If

End Sub

Private Sub Form_Activate()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

If txtMEMO.Visible = True Then

txtMEMO.SetFocus

CalBUKUHARIAN.Day = Day(Now)

CalBUKUHARIAN.Month = Month(Now)

CalBUKUHARIAN.Year = Year(Now)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

txtMEMO.Text = rs!Memo

End If

End If

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Format(Date, "mmmm d, yyyy")

Label2.Caption = Time

End Sub

Source: http://restyucul.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.