Membuat Form Login

Tweet

Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "ariv" And PasswordTextBox.Text = "123" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “ariv” dan password “123”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.

Senin, 06 Juni 2011 by Ariv_baik · 0 komentar

Membuat Konecksi Database

Tweet

Sudah lama rasanya tidak posting lagi , you weisss  kita mulai untuk membuat database beserta koneksinya ,,,  langsung  kita menuju  TKP..

Dalam membuat program kita biasa menggunakan database. Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database Membuat modul koneksi dengan database adalah sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Kemudian membuat sintax seperti ini dalam form yang baru.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then
While tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
TextBox2.text = tampilkan("nmjur")
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

kemudian membuat tampilan formnya sebagai berikut ;

Dan dilanjutkan dengan membuat sintax selanjutnya pada form baru selanjutnya ;

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

kemudian membuat tampilan formnya lagi sebagai berikut :

by Ariv_baik · 0 komentar

Membuat List View

Tweet

Pada kesempatan kali ini saya akan membuat sebuah  Form yang datanya akan muncul di List View  pertama kita buat dahulu Form seperti dibawah ini.

 

Setelah selesai kita masukkan sekarang Code, pertama Double clik Form kemudian ubah Method menjadi “ Declaration” kemudian masukkan jumlah Array yang di inginkan.

Public Class Form2

    'Membuat Variabel Array

    Dim listtxt(3) As String

    Dim listitem As ListViewItem

Setelah selesai membuat Code diatas kita lanjutkan dengan membuat Code untuk Button Simpan  dengan Method Click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Masukkan Nilai ke Variabel Array

        listtxt(0) = Trim(TextBox1.Text)

        listtxt(1) = Trim(TextBox2.Text)

        listtxt(2) = Trim(TextBox3.Text)

        'Untuk Memasukkan ke List View dari Variabel

        listitem = New ListViewItem(listtxt)

        ListView1.Items.Add(listitem)

    End Sub

'Setting Kolom List View

    Sub setlistview()

        ListView1.View = View.Details

        'Untuk Menentukan Kolom

        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Center)

        ListView1.Columns.Add("Alamat", 200,HorizontalAlignment.Center)

    End Sub

Setelah selesai memasukkan Code diatas dilanjutkan dengan memasukkan Code untuk mengambil data  “ List View” jangan  lupa ubah Method dengan “ ItemSelectionChange”

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object,

ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        'Mengambil nilai dari Listview

        TextBox4.Text = e.Item.Text

    End Sub

Setelah itu kita masukkan Code untuk memanggil data yang sudah diinput di TextBox

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

        Call setlistview()

    End Sub

Setelah selesai semua hasil Outputnya sebagai  berikut 

Jumat, 25 Maret 2011 by Ariv_baik · 0 komentar

Membuat Form Daftar

Tweet

Pada kali ini saya akan membuat sebuah Form Pendaftaran . Untuk pertama kita buat dahulu Form Utama seperti gambar di bawah ini

 

Setelah selesai membuat Form di atas selanjutnya  kita isi dengan Code dan Method untuk setiap Button dan TextBox.

Pertama kita Double Klik pada Form  kemudian ubah Method menjadi “ Activated” Code nya seperti di bawah ini.

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isicombo()

    End Sub

Sebelumnya kita buat dulu sebuah Method dengan nama “ bersih “ bertujuan untuk membersihkan isi dari TextBox setelah selesai pengisian. Selanjutnya kita buat Method juga untuk mengisi ComboBox dengan nama “ isicombo” di bawah ini   adalah Code nya yang diisi dengan menyesuiakan isi dari ComboBox

Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        ComboBox1.Text = " Teknik Infomatika"

    End Sub

    Sub isicombo()

        ComboBox1.Items.Add("05 Teknik Informatika")

        ComboBox1.Items.Add("04 Sistem Informasi")

        ComboBox1.Items.Add("02 Teknik Komputer")

        ComboBox1.Items.Add("03 Komputer Akutansi ")

        ComboBox1.Items.Add("01 Manajemen Informatika")

    End Sub

Setelah selesai mengisi codennya di lanjutkan dengan membuat Event pada Button yang sudah di buat .  Pada Button  “ Tambah “ kita masukkan Codenya pertama kita buat dahulu Method dengan nama “ normal” bertujuan untuk Refresh kembali Button yang lainnya berikut codenya

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "Tambah" Then

            Button1.Text = "Simpan"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

Pada Code diatas terlihat Ketika Button Tambah di Klik akan Berudah Menjadi Button Simpan .

Sub Normal()

        Button1.Text = "Tambah"

        Button1.Enabled = True

        Button2.Text = "Ubah"

        Button2.Enabled = True

        Button3.Text = "Hapus"

        Button3.Enabled = True

        Button4.Text = "Keluar"

    End Sub

Diatas terlihat  pada code ada True dan False untuk “ True” setiap perintah yang benar akan di kerjakan dan untuk “False” Button menjadi tidak Aktif.

Selanjutnya berlanjut pada Button Keluar berikut Codenya

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "Batal" Then

            Call Normal()

            Call bersih()

        Else

            Me.Close()

        End If

    End Sub

Perintah Me.Close  diatas untuk keluar dari Menu Utama sebelumnya akan memanggil Method Normal bertujuan untuk Menormalkan kembali Button menjadi Aktif dan  Method Bersih bertujuan untuk membarsihkan isi dari TextBox yang telah diisi.  Saat ini Menu belum berjalan sempurna  karena beberapa Event belum di masukkan .  Hasil Output Formnya 

Sampai Jumpa di Episode Selanjutnya ………………

Jumat, 18 Maret 2011 by Ariv_baik · 0 komentar

Cara Membuat Modul

Tweet

Pada kesempatan kali ini saya akan membuat sebuah fungsi dengan sebuah Modul  yang berguna untuk membuat Variabel Public  lalu buat form seperti gambar di bawah ini .

Setelah selesai membuat  Form utama kemudian pada Button 1 masukkan Source Code seperti di bawah ini .

            Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        h = TextBox1.Text

        b = TextBox2.Text

        Call hitung()

        TextBox3.Text = hasil

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call tampilnama()

        TextBox4.Text = nama

    End Sub

Setelah selesai memasukkan Code diatas selanjut kita membuat Modul yang di dalamnya terdapat Variabel Public yang bisa digunakan untuk semua Form  berikut langkah -  langkahnya : Klik Kanan  pada Project kemudian Add pilih Module kemudian Pilih Add kembali.

Setelah selesai Memasukkan Modul kemudian masukkan Source Code pada Modul yang sudah di buat yang nantinya akan di panggil di Menu Utama. Untuk proses hitung yang digunakan adalah Proses perkalian.

Module Module1

    'variabel public

    Public nama As String, hasil, h, b As Integer

    Sub tampilnama()

        nama = "Arif Perdana"

    End Sub

    Sub hitung()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Setelah selesai semua Source Codenya di masukan  berikut hasil outputnya :

Minggu, 13 Maret 2011 by Ariv_baik · 0 komentar