quiz no.3

quiz no.3

Public Class Form1

Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If nomor.Text = "123456" And password.Text = "090909" Then
MENUUTAMA.Show()
Me.Hide()
Else
MsgBox("DATA yang anda masukkan SALAH !!!")
nomor.Text = ""
password.Text = ""
End If
End Sub
End Class


kemudian:
Public Class MENUUTAMA


Private Sub DATAPELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPELANGGANToolStripMenuItem.Click
DATA.Show()
End Sub
End Class

selanjutnya:
Public Class DATA

Sub BUATTABEL()
LV.Columns.Add("No.REKENING", 100, HorizontalAlignment.Left)
LV.Columns.Add("NAMA", 130, HorizontalAlignment.Center)
LV.Columns.Add("KODE PELANGGAN", 70, HorizontalAlignment.Center)
LV.Columns.Add("NO.URUT", 50, HorizontalAlignment.Center)
LV.Columns.Add("DAERAH", 100, HorizontalAlignment.Center)
LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("BEBAN BIAYA", 90, HorizontalAlignment.Center)
LV.Columns.Add("HARGA PER m3", 90, HorizontalAlignment.Center)
LV.Columns.Add("PEMAKAIAN", 60, HorizontalAlignment.Center)
LV.Columns.Add("BIAYA", 160, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL BAYAR", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True

End Sub
Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = NOREK.Text
LST.SubItems.Add(NAMA.Text)
LST.SubItems.Add(KODE.Text)
LST.SubItems.Add(NOMOR.Text)
LST.SubItems.Add(LOKASI.Text)
LST.SubItems.Add(TIPEPELANGGAN.Text)
LST.SubItems.Add(BEBAN.Text)
LST.SubItems.Add(HARGA.Text)
LST.SubItems.Add(PEMAKAIAN.Text)
LST.SubItems.Add(BIAYA.Text)
LST.SubItems.Add(PAJAK.Text)
LST.SubItems.Add(TOTAL.Text)
LV.Items.Add(LST)
End Sub

Private Sub DATA_PELANGGAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
LOKASI.Items.Add("MEDAN")
LOKASI.Items.Add("BELAWAN")
LOKASI.Items.Add("AKSARA")
LOKASI.Items.Add("MARINDAL")
LOKASI.Items.Add("BINJAI")
LOKASI.Items.Add("LUBUK PAKAM")

TIPEPELANGGAN.Items.Add("TOKO")
TIPEPELANGGAN.Items.Add("RUMAH")
TIPEPELANGGAN.Items.Add("SWALAYAN")
TIPEPELANGGAN.Items.Add("PABRIK")


End Sub

Private Sub TIPEPELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPEPELANGGAN.SelectedIndexChanged


If TIPEPELANGGAN.Text = "TOKO" Then
BEBAN.Text = 25000
HARGA.Text = 300
ElseIf TIPEPELANGGAN.Text = "RUMAH" Then
BEBAN.Text = 15000
HARGA.Text = 100
ElseIf TIPEPELANGGAN.Text = "SWALAYAN" Then
BEBAN.Text = 10000
HARGA.Text = 200
ElseIf TIPEPELANGGAN.Text = "PABRIK" Then
BEBAN.Text = 250000
HARGA.Text = 500
End If

KODE.Text = TIPEPELANGGAN.Text & LOKASI.Text & NOMOR.Text

End Sub

Private Sub PEMAKAIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMAKAIAN.TextChanged
BIAYA.Text = (PEMAKAIAN.Text * HARGA.Text) + BEBAN.Text

PAJAK.Text = 0.01 * BIAYA.Text

TOTAL.Text = Val(BIAYA.Text) + PAJAK.Text
End Sub

Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
ISITABEL()

End Sub

Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
NOREK.Text = ""
NAMA.Text = ""
KODE.Text = ""
NOMOR.Text = ""
LOKASI.Text = ""
TIPEPELANGGAN.Text = ""
BEBAN.Text = ""
HARGA.Text = ""
PEMAKAIAN.Text = ""
BIAYA.Text = ""
PAJAK.Text = ""
TOTAL.Text = ""
NOREK.Focus()

End Sub

Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End

End Sub

Private Sub BTNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSSEMUA.Click
LV.Items.Clear()
End Sub

Private Sub BTNHAPUSDIPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDIPILIH.Click
LV.Items.Remove(LV.SelectedItems(0))

End Sub
End Class

quiz vb net

quiz vb net
program latihan hal 33
Public Class Form1

Sub BUATTABEL()
LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode Barang", 90, HorizontalAlignment.Left)
LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
LV.Columns.Add("Total Bayar", 180, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub

Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = Nomor.Text
LST.SubItems.Add(Kode.Text)
LST.SubItems.Add(Nama.Text)
LST.SubItems.Add(Merk.Text)
LST.SubItems.Add(Harga.Text)
LST.SubItems.Add(Jumlah.Text)
LST.SubItems.Add(Total.Text)
LV.Items.Add(LST)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
KODE.Items.Add("TS001")
KODE.Items.Add("TS002")
KODE.Items.Add("VG001")
KODE.Items.Add("VG002")

End Sub


Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged
Dim X As String
X = Microsoft.VisualBasic.Left(KODE.Text, 2)
If X = "TS" Then
MERK.Text = "TOSHIBA"
ElseIf X = "VG" Then
MERK.Text = "V-GEN"
Else
MERK.Text = 0
End If

X = Microsoft.VisualBasic.Mid(KODE.Text,3, 3)
If X = "001" Then
NAMA.Text = "FLASHDISK 4GB"
Else
NAMA.Text = "FLASHDISK 2GB"

End If


End Sub


Private Sub JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged
If KODE.Text = "TS001" Then
HARGA.Text = 105000
ElseIf KODE.Text = "TS002" Then
HARGA.Text = 75000
ElseIf KODE.Text = "VG001" Then
HARGA.Text = 90000
Else
HARGA.Text = 60000
End If

TOTAL.Text = JUMLAH.Text * Val(HARGA.Text)

End Sub


Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
ISITABEL()
End Sub

Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
NOMOR.Text = ""
KODE.Text = ""
NAMA.Text = ""
MERK.Text = ""
HARGA.Text = ""
JUMLAH.Text = ""
TOTAL.Text = ""

End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub

Private Sub BRNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRNHAPUSSEMUA.Click
LV.Items.Clear()
End Sub

Private Sub BTNHAPUSPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSPILIH.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

End Class

Struktur Aplikasi Visual Basic

Lingkungan pemograman visual basic mengandung semua sarana yang anda butuhkan untuk membangun program – program yang hebat untuk windows dengan cepat dan efisien, visual basic merupakan bahasa pemrograman terstruktur.

Ø Struktur aplikasi visual basic terdiri dari :

1. Form, yaitu windows atau jendela dimana anda akan membuat user interface atau tampilan yang merupakan antarmuka program yang akan dibuat.

2. Kontrol, yaitu tampilan berbasis grafis yang dimasukkan pada form untuk membuat interaksi dengan pemakai (textbox, label, frame, dan lain-lain).

3. Propertis, yaitu nilai atau karakteristik yang dimiliki oleh sebuah objek visual basic. Contoh : Name, Caption, Size, dan lain-lain.

4. Metode, yaitu serangkaian perintah yang sudah tersedia suatu yang dapat diminta untuk mengerjakan tugas khusus.

9

5. Prosedure Kejadian/Event Prosedure, yaitu kode yang berhubungan dengan suatu objek yang dapat diminta untuk mengerjakan tugas khusus. Kode ini akan mengeksekusi ketika ada respon dari pemakai kode ketika ada event tertentu.

6. Prosedure Umum, yaitu kode yang tidak berhubungan dengan suatu objek. Kode ini harus diminta oleh aplikasi.

7. Modul/Module, yaitu kumpulan dari prosedure umum, deklarasi variable dan defenisi konstanta yang digunakan oleh aplikasi.

Tutorial VB.Net 2008 Express Edition

Pengenalan sedikit mengenai Microsoft Visual Basic.Net 2008.

>>Antarmuka atau lingkungan dari Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.

Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :

• Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.
• Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)
• Kesiapan mental dan kemauan yang kuat.
• Terakhir segelas susu anget boleh juga.

Langkah 1

Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.

Langkah 2

Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall, tampilannya sebagai berikut.

Langkah 3

Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.

Tampilan sebagai berikut.

Langkah 4

Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.

Langkah 5

Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.

Langkah 6

Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*

Cara nya yaitu dengan menggunakan tools progress bar dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.

Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.

ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If

Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.

Dan pada mainlayout kita ketikkan coding berikut.

Timer1.Enabled = True

Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.

Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.

Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.

Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbar tersebut.

Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.

Contoh Pemrograman

 
Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: [2].    Dim m_item, m_price, tax, total As double   m_item = double.Parse(textBox1.Text)   m_price = double.Parse(textBox2.Text)   tax = 0.05   total = m_item * m_price * (1 + tax)   label5.Text = total.ToString()   MessageBox.Show("Well Done.")  Berikut ini adalah contoh lain dari program Visual Basic yang menggunakan objek CheckBox dan ComboBox untuk menghitung jumlah kredit mata kuliah yang diambil oleh seorang mahasiswa (masing-masing mata kuliah = 3 kredit):  Dim total As Integer total = 0 ' awal dari jumlah kredit total If (CheckBox1.Checked = True) Then 'boleh memilih semua checkbox             total += 3         End If         If (CheckBox2.Checked = True) Then             total = total + 3         End If         If (CheckBox3.Checked = True) Then             total = total + 3         End If If (ComboBox1.SelectedIndex = 0) Then 'hanya bisa memilih satu             total = total + 3         ElseIf (ComboBox1.SelectedIndex = 1) Then             total = total + 3         ElseIf (ComboBox1.SelectedIndex = 2) Then             total = total + 3          End If

Sejarah Visual Basic (Dulu – Sekarang – Akan Datang)

Evolusi Visual Basic VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby. Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

Perjalanan dari Visual Basic (VB1 to VB 10) Proyek “Thunder” dirintis Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC  Professional Development System Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4 Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5  memperkenalakan kemampuan untuk membuat  User Control. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008 Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :  Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.  IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y  menjadi If X  IsNot Y Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya : - True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan fungsi IIF - LINQ Support - Ekspresi Lambda - XML Literals - Nullable types - Type Inference  Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1.

Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.