Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub buattabel()
With Lv
.Columns.Add(“No”, 80, HorizontalAlignment.Center)
.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Left)
.Columns.Add(“Nama”, 100, HorizontalAlignment.Left)
.Columns.Add(“Merk”, 180, HorizontalAlignment.Left)
.Columns.Add(“Harga”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Beli”, 180, HorizontalAlignment.Left)
.Columns.Add(“Total Harga”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
Select Case x
Case “TS” : Merk.Text = “Toshiba”
Case “VG” : Merk.Text = “V-GEN”
End Select
x = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)
Select Case x
Case “001″ : nama.Text = “flashdisk 4GB”
Case “002″ : nama.Text = “flashdisk 2 GB”
End Select
If KodeBarang.Text = “TS001″ Then” Then
Harga.Text = 105000
ElseIf KodeBarang.Text = “TS002″ Then” Then
Harga.Text = 75000
ElseIf KodeBarang.Text = “VG001″ Then” Then
Harga.Text = 90000
ElseIf KodeBarang.Text = “VG002″ Then” Then
Harga.Text = 60000
End If
End Sub
Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
KodeBarang_SelectedIndexChanged(sender, e)
End If
TotalHarga.Text = Val(Harga.Text) * Val(JumlahBeli.Text)
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = No.Text
.SubItems.Add(NamaBarang.Text)
.SubItems.Add(KodeBarang.Text)
.SubItems.Add(Merk.Text)
.SubItems.Add(Harga.Text)
.SubItems.Add(JumlahBeli.Text)
.SubItems.Add(TotalHarga.Text)
Lv.Items.Add(lst)
End With
End Sub
End Sub
End Class
Kasusnya :
Http ://Mesran.wordpress.com/2012/01/26/Soal-Quiz-Online-Hari-Kamis/Comment-Page-5/#comments
Listing Menu Login
Public Class Form1
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
If Nama.Text = “Eriy” And Password.Text = “111” Then
MenuUtama.Show()
Pegawai.Show()
Me.Hide()
Else
MsgBox(“maaf username/password salah!”)
Nama.Text = “”
Password.Text = “”
End If
End Sub
listing program mennu
Public Class MenuUtama1
Private Sub DatapegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatapegawaiToolStripMenuItem.Click
Pegawai.Show()
End Sub
Private Sub KeluarprogramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarprogramToolStripMenuItem.Click
End
End Sub
End Class
End Class
listing pegawai
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
Jabatan.Items.Add(“Mandor”)
Jabatan.Items.Add(“Kabag”)
Jabatan.Items.Add(“Staff”)
Status.Items.Add(“Menikah”)
Status.Items.Add(“Tidak Menikah”)
End Sub
Sub BuatTabel()
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“Jabatan”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Gaji”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Status”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“JumlahAnak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TnjAnak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TnjIstri”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Lembur”, 50, HorizontalAlignment.Left)
LV.Columns.Add(“UphLembur”, 90, HorizontalAlignment.Left)
LV.Columns.Add(“Pajak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“TotGaji”, 80, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = nama.Text
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(JumlahAnak.Text)
Lst.SubItems.Add(TnjAnak.Text)
Lst.SubItems.Add(TnjIstri.Text)
Lst.SubItems.Add(Lembur.Text)
Lst.SubItems.Add(UphLembur.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(TotGaji.Text)
LV.Items.Add(Lst)
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
If Jabatan.Text = “Mandor” Then
Gaji.Text = 175000
ElseIf Jabatan.Text = “Kabag” Then
Gaji.Text = 2500000
ElseIf Jabatan.Text = “Staff” Then
Gaji.Text = 1250000
Else
Gaji.Text = ” ”
End If
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Status.Text = “Menikah” Then
TnjIstri.Text = 9 * Gaji.Text / 100
Pajak.Text = 1.5 * Gaji.Text / 100
ElseIf Status.Text = “Tidak Menikah” Then
TnjIstri.Text = 0
TnjAnak.Text = 0
Pajak.Text = 1.5 * Gaji.Text / 100
Else
Status.Text = ” ”
End If
End Sub
Private Sub JumlahAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.TextChanged
If Val(JumlahAnak.Text) = 1 Then
TnjAnak.Text = 3 * Gaji.Text / 100
ElseIf Val(JumlahAnak.Text) >= 2 Then
TnjAnak.Text = 7 * Gaji.Text / 100
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
Nama.Text = “”
Jabatan.Text = “”
Status.Text = “”
Gaji.Text = “”
JumlahAnak.Text = “”
TnjAnak.Text = “”
TnjIstri.Text = “”
Lembur.Text = “”
UphLembur.Text = “”
Pajak.Text = “”
TotGaji.Text = “”
End Sub
Private Sub BtnGBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGBersih.Click
LV.Items.Clear()
End Sub
Private Sub BtnKelyuar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKelyuar.Click
End
End Sub
End Class
Hasil program pegawai :
sebenarnya pekerjaanku setiap hari itu merental mobil, tapi tidak bisa untuk lepas kunci, mobil itu bisa di sewa kalau saya sendiri yang menyetirnya, karna jika orang yang membawa mobil itu tampa pengawasan saya resiko sangat besar dari segi apapun.. contohnya kalu mobil tergores mereka tiidsk mau mengganti, alasan mereka karna mereka sudah bayar, padahal uang memperbaiki mobil itu lebih besar dari pada uang sewa yang mereka bayar, Itulah sebabnya mobil yang saya rentalkan tidak boleh lepas kunci.
Tapi ada kendala dalam pekerjaan saya, saya sendiri masih kuliah, saya kuliah hampir setiap hari, kalau ada tamu yang ingin menyewa mobil saya dengan supirnya kira-kira 3 hari saya merasa kebingungan, dimana hari ini ada jadwal kuliah disamping itu ada job yang harus saya kerjakan. kalau saya tidak kerja maka saya tidak bisa bayar uang kuliah. Makanya saya sering tidak masuk kuliah karna saya kerja keluar kota membawa tamu yang menyewa mobil saya, dan sering uga saya menolak tamu yang mau menyewa mobil saya dikarnakan saya ada jadwal kuliah. Kadang saya menyuruh teman saya juga untuk membawa mobil agar saya bisa tetap kuliah, tetapi karna mobil sering dibawa orang lain mobil pun jadi sering rusak dan tidak terawat..
Public Class Form1
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x, y, z As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
y = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
z = Microsoft.VisualBasic.Left(npm.Text, 2)
If x = “0” Then
If y = “2” Then
jenjang.Text = “D3”
jurusan.Text = “manajemen informatika”
End If
ElseIf x = “1” Then
jenjang.Text = “SI”
If y = “2” Then
jurusan.Text = “teknik informatika”
ElseIf y = “3” Then
jurusan.Text = “sistem informasi”
End If
End If
End Sub
Private Sub angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPress
If e.KeyChar = Chr(13) Then
carinilai()
End If
End Sub
Sub carinilai()
If angka.Text >= 90 Then
huruf.Text = “A”
ElseIf angka.Text >= 85 Then
huruf.Text = “B”
ElseIf angka.Text >= 70 Then
huruf.Text = “C”
ElseIf angka.Text >= 50 Then
huruf.Text = “D”
Else
huruf.Text = “E”
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub buattabel()
With Lv
.Columns.Add(“npm”, 80, HorizontalAlignment.Center)
.Columns.Add(“nama”, 100, HorizontalAlignment.Left)
.Columns.Add(“jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“tahun”, 100, HorizontalAlignment.Left)
.Columns.Add(“nilai angka”, 80, HorizontalAlignment.Left)
.Columns.Add(“nilai huruf”, 80, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = npm.Text
.SubItems.Add(nama.Text)
.SubItems.Add(jenjang.Text)
.SubItems.Add(jurusan.Text)
.SubItems.Add(tahun.Text)
.SubItems.Add(angka.Text)
.SubItems.Add(huruf.Text)
Lv.Items.Add(lst)
End With
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
npm.Text = “”
nama.Text = “”
jurusan.Text = “”
jenjang.Text = “”
tahun.Text = “”
angka.Text = “”
huruf.Text = “”
End Sub
Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
LV.Items.Clear()
End Sub
Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Visual Studio .NET adalah sebuah tools pengembangan perangkat lunak untuk membangun aplikasi ASP Web, layanan XML Web, aplikasi desktop, dan aplikasi mobile. Visual Basic .NET, Visual C++ .NET, Visual C# .NET, dan Visual J# .NET; semuanya menggunakan Integrated Development Environment (IDE) atau lingkungan pengembangan terintegrasi yang sama; yang membolehkan mereka untuk saling berbagi tools dan fasilitas dalam pembuatan solusi yang memadukan beberapa bahasa (mixed-language solutions). Selain itu, bahasa-bahasa ini mempengaruhi fungsionalitas dari .NET Framework, dan menyediakan pengaksesan ke kunci teknologi yang menyederhanakan proses pengembangan dari aplikasi ASP Web dan layanan XML Web.
Meskipun sudah dijelaskan di artikel-artikel sebelumnya bahwa Visual Basic 6 (VB6) jelas jauh berbeda dengan Visual Basic .NET (VB.NET), masih banyak pertanyaan yang timbul seperti: “Seberapa beda antara VB6 dan VB.NET?”. Jawaban singkatnya adalah bahwa VB.NET, versi terakhir dari Visual Basic, bukanlah sekedar VB6 dengan sebuah fitur baru yang ditambahkan kepadanya, tapi VB.NET merupakan Visual Basic yang benar-benar telah didisain ulang dan strukturnya telah dirombak total. Bahasanya sudah dimodernisasi ulang, dengan model objek yang lebih kaya untuk data, form, transaksi, dan hampir di segalanya. Format filenya pun ikut berubah. Jadi, perlu diingat sekali lagi, bahwa VB.NET bukanlah VB6 + 1 atau VB7.
Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®. Apakah Anda seorang profesional atau pemula sekalipun di bidang pemrograman Windows, Visual Basic menyediakan kepada Anda sekumpulan perangkat untuk mempermudah dan menyederhanakan pengembangan aplikasi yang tangguh.
Lalu apa sebenarnya definisi dari Visual Basic itu sendiri? Kata “Visual” merujuk kepada metode yang digunakan untuk membuat antar muka yang bersifat grafis Graphical User Interface (GUI). Daripada menulis berbaris-baris kode untuk menjelaskan pemunculan dan lokasi dari suatu elemen di dalam antar muka, Anda dengan mudah dapat menambahkan object yang sebelumnya sudah dibangun ke dalam tempat dan posisi yang Anda inginkan di layar Anda. Jika Anda pernah menggunakan program untuk menggambar seperti Paint, maka Anda sebenarnya sudah memiliki keahlian uuntuk membuat sebuah antar muka pengguna secara efektif.
Kata “Basic” merujuk kepada bahasa BASIC (Beginners All-Purpose Symbolic Instruction Code), sebuah bahasa yang digunakan oleh banyak programmer dibandingkan dengan bahasa lainnya dalam sejarah komputer. Visual Basic telah berubah dari bahasa asli BASIC dan sekarang memiliki ratusan pernyataan (statements), fungsi (functions), dan kata kunci (keywords), dan kebanyakan di antaranya terkait dengan antar muka grafis di Windows. Pengguna tingkat pemula sekalipun dapat membuat aplikasi dengan mempelajari hanya beberapa kata kunci, sementara kekuatan dari bahasanya membolehkan para pengguna tingkat professional mencapai apapun yang dapat dihasilkan dengan menggunakan bahasa pemrograman Windows lainnya.
Bahasa pemrograman Visual Basic tidaklah hanya identik dengan Visual Basic saja. Sistem Pemrograman Visual Basic dalam bentuk Edisi Aplikasi, telah dimasukkan ke dalam Microsoft Excel, Microsoft Access, dan banyak aplikasi Windows lainnya juga menggunakan bahasa yang sama. Visual Basic Scripting Edition (VBScript) adalah sebuah bahasa skrip yang digunakan secara lebih umum dan merupakan bagian dari bahasa Visual Basic. Dengan mempelajari Visual Basic, maka Anda akan dibawa ke area-area yang telah disebutkan tadi.
Apakah tujuan Anda untuk membuat sebuah utility sederhana untuk diri Anda sendiri atau untuk kelompok kerja Anda, sebuah sistem berskala perusahaan, atau bahkan aplikasi yang terdistribusi melalui Internet, Visual Basic memilik perangkat yang Anda butuhkan.
Fitur Data Access membolehkan Anda untuk membuat database, aplikasi front-end, dan komponen di sisi server (scalable server-side components) untuk hampir semua format database yang terkenal, termasuk Microsoft SQL Server dan database level perusahaan lainnya.
Teknologi ActiveX™ membolehkan Anda untuk menggunakan fungsionalitas yang disediakan oleh aplikasi-aplikasi lainnya, seperti pengolah kata Microsoft Word, Microsoft Excel spreadsheet, dan aplikasi Windows lainnya. Anda bahkan dapat mengotomatisasikan aplikasi-aplikasi dan objek-objek yang dibuat dengan menggunakan edisi Professional atau Enterprise Visual Basic.
Kemampuan Internet membuatnya mudah menyediakan pengaksesan ke dokumen-dokumen atau file-file dan aplikasi-aplikasi melalui Internet atau intranet dari dalam aplikasi Anda, atau untuk membuat aplikasi Internet server.
Aplikasi akhir Anda nantinya akan berbentuk sebuah file .exe yang menggunakan Visual Basic Virtual Machine dan dapat Anda distribusikan secara bebas.
Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.
Here are some suggestions for your first post.
- You can find new ideas for what to blog about by reading the Daily Post.
- Add PressThis to your browser. It creates a new blog post for you about any interesting page you read on the web.
- Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.
eriprimadani 