Buat Program skala Pake Visual Basic (free Source Code)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, z As Integer

        a = TextBox1.Text

        If (a <= 500) Then
            TextBox2.Text = a
        ElseIf (a >= 501) And (a <= 1500) Then
            TextBox2.Text = "500"
            b = a - 500
            TextBox3.Text = b
        ElseIf (a >= 1501) And (a <= 3000) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            c = a - 1500
            TextBox4.Text = c
        ElseIf (a >= 3001) And (a <= 5000) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            TextBox4.Text = "1500"
            d = a - 3000
            TextBox5.Text = d
        ElseIf (a >= 5001) Then
            TextBox2.Text = "500"
            TextBox3.Text = "1000"
            TextBox4.Text = "1500"
            TextBox5.Text = "2000"
            z = a - 5000
            TextBox6.Text = z

        Else
            MsgBox("Volume Air salah")

        End If
       
         

    End Sub
End Class

Ilmu Komputer 95 - 07.38

Baca Selengkapnya...

TUTORIAL MEMBUAT LOGIN FORM (VB.NET DIHUBUNGKAN DENGAN MICROSOFT ACCESS DATABASE)

Membuat Login Form pada Visual Basic 2010 dengan data Login pada file Database Microsoft Access

Login Form adalah form yang biasanya hanya berisi dua buah kolom text (ID dan Password), difungsikan sebagai pengaman. jika dalam pemrograman difungsikan sebagai media penyaring atau penghalang user yang boleh memasuki form setelah login form (berarti mengetahui ID dan Passwordnya) dan juga user yang tidak boleh memasuki form setelah login form (berarti tidak mengetahui ID dan Passwordnya).

Disini ane mau ngasih tau (ane juga masih amatir sih) codding buat bikin Login Form dengan data Login (ID dan Password) yang tersimpan pada file Database Microsoft Access (.accdb)

Berikut adalah Langkah-langkah nya .

Pertama kita buat dulu file accdb (microsoft access), buka aplikasi Ms.Access (disini menggunakan Ms.Access 2010).
setelah muncul klik menu Create - Table. maka akan muncul Table dengan nama table default.
Kemudian masuk ke Design View (untuk membuat Kolom dan memberikan tipe datanya) dengan klik menu Home - View - Design View (Lihat Gambar dibawah ini)

ketika muncul pemberitahuan untuk Save As Table, beri nama Login (Lihat gambar dibawah ini)

Buatlah dua buah kolom (ID, Password) dengan tipe data Text seperti gambar dibawah ini

selanjutnya masuk ke Datasheet view dengan klik menu Home - View - DataSheet View (Lihat gambar dibawah ini)

jika ada pemberitahuan untuk menyimpan Table, klik Yes.

Kemudian isi kolom ID dengan admin, dan Password dengan contoh . seperti gambar dibawah ini.

Simpan dengan nama file DataLogin.accdb (sebagai Contoh File ini disimpan pada Direktori D:\Login) dan pembuatan file databasenya telah selesai.

Pembuatan Aplikasi Login From pada Microsoft Visual Basic 2010

Buka Program Microsoft Visual Basic (disini menggunakan Visual Basic 2010) ,lalu buat projek baru dengan cara Klik File - New - New Project.

Lalu pilih Windows Form Application, beri nama Solution file name (disini menggunakan nama : Login_Form), kemudian Klik OK.

Maka munculah form kosong seperti gambar dibawah ini

Lalu Buatlah desain tampilan Form seperti gambar dibawah ini

Dibutuhkan 2 buah textbox, 2 buah label, dan 2 buah button.
Dengan ketentuan Properties items sebagai berikut :

• Textbox pertama (yang digunakan untuk mengisi ID) diberi nama txtID
• Textbox kedua (yang digunakan untuk mengisi Password) diberi nama txtPW ,Lalu untuk membuat hasil input selalu terlihat simbol * maka pada bagian PasswordChar isi dengan value *
  
• Button Pertama (yang telah diberi properties Text "LOGIN") diberi nama btnLOGIN
• Button Kedua (yang telah diberi properties Text "KELUAR") diberi nama btnKELUAR

SEKARANG SAATNYA MEMBERIKAN CODDING PADA FORM INI.

Klik ganda pada Button atau items apapun (Untuk memunculkan Form1.vb).

Lalu isi dengan codding di bawah ini :

' Memasukan sistem data .NET yang dibutuhkan dalam program

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1

' Menghubungkan File DataLogin.accdb menggunakan provider Microsoft Access OLEDataBase

 Public jembatan = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Login\DataLogin.accdb;Persist Security Info=False;"

   ' Membuat function bernama akses, yang difungsikan sebagai pembuka koneksi Data Base dan Query

 Public Function akses() As OleDbConnection
        Dim conect As New OleDbConnection(jembatan)
        conect.Open()
        Return conect
    End Function
    Private Sub btnLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLOGIN.Click

        Dim login As String

'Query nya 

        login = "select * from Login where ID = '" & txtID.Text & "' and Password = '" & txtPW.Text & "';"
        Dim perintah As New OleDbCommand(login, akses)
        Dim baca As OleDbDataReader = perintah.ExecuteReader

' Logika IF : Jika data pada kolom ID dan Password sesuai atau Sinkron maka form2 ditampilkan

' Jika tidak sesuai, maka akan muncul message box

        If baca.Read Then
            Form2.Show()
            Me.Hide()
        Else
            MessageBox.Show("NAMA DAN PASSWORD SALAH", "PERINGATAN!")
            txtID.Clear()
            txtPW.Clear()

        End If
    End Sub

    Private Sub btnKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKELUAR.Click
        Close()

    End Sub
End Class

 KEMUDIAN BUATLAH FORM BARU YANG DIGUNAKAN UNTUK MENAMPILKAN TULISAN "SELAMAT DATANG" ,JIKA LOGIN TELAH BERHASIL DILAKUKAN.

Buka Solution Explorer 

klik Kanan pada Login_Form pilih Add lalu klik Windows Form.

Maka muncul tampilan seperti gambar dibawah ini :

 Kemudian Klik/Pilih Windows Form dan beri nama Form2.vb ,lalu klik Add.

Lalu Desain Form2 seperti Gambar dibawah ini.

 Setelah itu Jalankan Program dengan menekan tombol F5. atau klik Run.

UJI COBA

Melakukan tes atau pembuktian, isi ID dan Password yang salah 

Kemudian Klik Login, Maka akan muncul Message Box dengan hasil seperti gambar dibawah ini

Melakukan tes atau pembuktian, isi ID dan Password yang benar

 

 Klik Login .

maka Form2 (yang berisi Tulisan Label SELAMAT DATANG) akan muncul.

Maka Pembuatan Login Form dengan data Login pada Database pun telah selesai.

Untuk Selanjutnya, Silahkan anda Kembangkan Sendiri ...  :D

Ilmu Komputer 95 - 10.35

Baca Selengkapnya...

Aplikasi Barang Sederhana Menggunakan VB 2014 dan MS ACCESS

Aplikasi Barang Sederhana Menggunakan VB2010 dan MS ACCESS

Pada bagian ini kita akan belajar membuat sebuah aplikasi yang menampilkan data barang. Pada aplikasi ini kita belajar menambah, mengubah dan menghapus data barang serta mencari data barang tersebut. Kita akan membuat aplikasi barang sederhana menggunakan VB2010 dan database Ms. Access. Ada 3 (tiga) langkah untuk membuat aplikasi ini, yaitu: membuat database, membuat tampilan aplikasi dan membuat kode aplikasi.

a. Membuat Database

Database yang kita gunakan untuk membuat aplikasi barang ini yaitu Ms. Access 2010 (jika tidak ada, bisa juga menggunakan Ms. Access 2007 atau Ms. Access). Adapun langkah-langkah membuat database-nya yaitu:

1. Buka program Ms. Access 2010 dengan cara klik tombol Start > All Program > Microsoft Office > Microsoft Access 2010

2. Klik icon open kemudian ketikkan nama database pada kolom File Name dengan nama supermarket, dan Save as Type menjadi Microsoft Access Databases (2002-2003) kemudian klik tombol OK, setelah itu klik tombol Create. (untuk sementara terserah anda mau disimpan dimana database tersebut)

3. Selanjutnya akan muncul Table1 kemudian tekan tombol ctrl+s dan tulis nama tabelnya menjadi barang, klik tombol OK.

4. Klik kanan pada tulisan barang kemudian pilih Design View.

5. Isikan field tabel barang seperti gambar berikut:

6. Tekan tombol ctrl+s untuk menyimpan tabel tersebut.

b. Membuat Tampilan Aplikasi Barang

Tahap berikutnya kita akan merancang tampilan aplikasi barang. Langkah-langkah yang harus dilakukan yaitu:

1. Klik tombol Start >All Program > Microsoft Visual Studio 2010 > Microsoft Visual Studio 2010.

2. Klik link New Project.

3. Ubah Name pada New Project menjadi supermarket kemudian klik tombol OK.

4. Pada Form1 kita masukkan 3 Label, 3 TextBox, 1 DataGridView, 4 Button, 1 GroupBox, dan 2 RadioButton. Lihat gambar berikut:

5. Untuk pengaturan obejk control aplikasi yang akan kita buat, dapat dilihat seperti tabel berikut:

Nama control 

Properties 

Keterangan

Form1 

Name 

frmBarang

MaximizeBox 

False

StartPosition 

CenterScreen

Text 

Barang

Label1 

Text 

Nama :

Label2 

Text 

Harga :

Label3 

Text 

Kata :

TextBox1 

Name 

txtNmBarang

TextBox2 

Name 

txtHrg

TextAlign 

Right

TextBox3 

Name 

txtCariKata

Button1 

Name 

btnTambah

Text 

Tambah

Button2 

Name 

btnUbah

Text 

Ubah

Button3 

Name 

btnHapus

Text 

Hapus

Button4 

Name 

btnKeluar

Text 

Keluar

GroupBox1 

Text 

Pencarian

RadioButton1 

Name 

rbBarang

Text 

Barang

RadioButton2 

Name 

rbHarga

Text 

Harga

6. Simpan aplikasi sesuai tempat yang anda inginkan.

7. Pindahkan database yang telah dibuat tadi ke dalam direktori penyimpanan aplikasi …\supermarket\supermarket\bin\Debug dan …\supermarket\supermarket

c. Membuat Kode Aplikasi Barang

Untuk membuat kode aplikasi barang, ikuti langkah-langkah berikut:

1. Aktifkan form frmBarang lalu klik icon View Code, kemudian ketikkan kode berikut:

Imports System.Data

Imports System.Data.OleDb

Public Class frmBarang

End Class

2 Setelah itu, ketikkan code berikut:

Public Class frmBarang

Dim database As OleDbConnection

Dim tabel As OleDbDataAdapter

Dim data As DataSet

Dim record As New BindingSource

Sub koneksi()

Try

database = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=supermarket.mdb")

database.Open()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub data_record()

Try

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 200

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub bersih()

txtNmBarang.Text = ""

txtHarga.Text = ""

txtCariKata.Text = ""

rbBarang.Checked = False

rbHarga.Checked = False

txtNmBarang.Enabled = True

txtNmBarang.Focus()

btnTambah.Enabled = True

btnUbah.Enabled = False

btnHapus.Enabled = False

Call koneksi()

Call data_record()

End Sub

End Class 

3. Kembali ke tampilan frmBarang, kemudian klik dua kali pada area form, lalu ketikkan code berikut:

Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call bersih()

End Sub 

4. Kembali ke tampilan frmBarang, klik dua kali tombol Tambah, lalu ketikkan code berikut:

Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "insert into barang values('" & txtNmBarang.Text & "','" & CSng(txtHarga.Text) & "')"

dml.ExecuteNonQuery()

MsgBox("Data telah disimpan")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

5. Kembali ke tampilan frmBarang, klik dua kali tombol Ubah, lalu ketikkan code berikut:

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "update barang set harga = '" & txtHarga.Text & "' where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah diubah")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

6. Kembali ke tampilan frmBarang, klik dua kali tombol Hapus, lalu ketikkan code berikut:

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "delete from barang where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah dihapus")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

7. Kembali ke tampilan frmBarang, klik dua kali tombol Keluar, lalu ketikkan code berikut:

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

Me.Dispose()

End Sub 

8. Kembali ke tampilan frmBarang, klik dua kali textbox txtCariKata, lalu ketikkan code berikut:

Private Sub txtCariKata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCariKata.TextChanged

Try

If rbBarang.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where nama_barang like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

ElseIf rbHarga.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where harga like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

End If

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

9. Kembali ke tampilan frmBarang, klik dua kali DataGridView1, lalu ketikkan code berikut:

Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick

Try

txtNmBarang.Text = DataGridView1.SelectedCells(0).Value

txtHarga.Text = DataGridView1.SelectedCells(1).Value

txtNmBarang.Enabled = False

btnTambah.Enabled = False

btnUbah.Enabled = True

btnHapus.Enabled = True

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

10. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbBarang, lalu ketikkan code berikut:

Private Sub rbBarang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbBarang.Click

txtCariKata.Focus()

End Sub 

11. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbHarga, lalu ketikkan code berikut:

Private Sub rbHarga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbHarga.Click

txtCariKata.Focus()

End Sub 

12. Tekan F5 atau tombol Start Debugging untuk menjalankan program.

download di sini sourch code dan 

database nya 

MONGGO <<<

Ilmu Komputer 95 - 10.49

Baca Selengkapnya...