Crystal Report

Buat database sudah sekarang kita buat untuk laporan dengan menggunakan Cristal  Report yang sudah banyak orang gunakan,,   yo weis   kita ke TKP  ...  

LANGKAH DALAM MEMBUAT CRISTAL REPORT Di VB.NET
Untuk membuat report langkah yang harusa kita lakukan adalah
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

• Kemudian next 

• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish


• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”

• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.


Semoga Berhasil !!!
Selengkapnya...

Koneksi Database

Posting lagi untuk create Koneksi Database.

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 :

 Selesai Sudah ,,
Semoga Berhasil !!!

 

Selengkapnya...

Database VB.Net

KONEKSI DATABASE VB.NET
Pada postingan kali ini mari kita belajar bersama tentang cara koneksi ke Database menggunakan VB.Net yang mana kita coba koneksikan ke SQL Server 2000.
Mari kita ikuti langkah-langkah dibawah ini :

• Langkah pertama mari kita buat sebuah Form yang nantinya akan kita gunakan untuk koneksi ke Database, berikut Form yang kita buat :

• Lalu masukkan source kode seperti dibawah ini :

Imports System.Data
Imports System.Data.Sql

Module ModulKoneksi
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=Jurusan;data source=AGIL-PC"
database.Open()
MessageBox.Show("Asyik.. Koneksi ke Database berhasil")
Catch ex As Exception
MessageBox.Show("Waduh.. Koneksi Gagal Bro")
End
End Try
End Sub

End Module

• Setelah itu mari kita buat Form kedua yang mana form ini berfungsi untuk menginput data yang sudah kita entri, berikut tampilan Form :

 
• Lalu mari kita buat Source code seperti dibawah ini :

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=fungsi aktif/tidaknya 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 Kode_jur='" & 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 dengan 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 (Kode_jur,Nama_jur)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 Nama_jur='" & TextBox2.Text & "'where Kode_jur='" & 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 Kode_jur='" & 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 Kode_jur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

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

End Class

• Lalu mari kita coba Running program dan sekaligus memasukkan data, seperti ini :

• Klik tombol Tambah dan lihatlah hasilnya !!!
• Saat kita membuat suatu koneksi maka yang terpenting adalah Security atawa Keamanan yang mana salah satunya adalah dengan menggunakan Username dan tentunya Password yang akan sangat berguna karena hanya “Sang Administrator” yang bisa login kedalam koneksi yang kita buat, maka mari kita buat Form Login dengan cara Klik kanan my project - Add – New Item – Login Form, seperti dibawah ini :

• Lalu langkah selanjutnya ialah memasukkan source kode seperti dibawah ini :

Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "agil" And PasswordTextBox.Text = "plusplease" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub

End Class

Jika salah msukkan User name or Pasword, muncul seperti dibawah ini :

• Langkah selanjutnya ialah membuat Form Menu yang mana kita menggunakan Form MDIParent sebagai tampilan yang akan muncul setelah kita Login, dengan cara klik Kanan my Project – Add - New Item - pilih “MDI Parent Form” seperti dibawah ini :

• Lalu masukkan source code untuk menampilkan Form yang kita inginkan untuk tampil, seperti dibawah ini :
Imports System.Windows.Forms

Public Class MDIParent1

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click

Form2.Show()

End Sub

• Setelah Menu telah berhasil kita buat langkah selanjutnya ialah membuat Crystal Report seperti dibawah ini dengan Klik Kanan project kita – Add – New Item – Reporting – Crystal Report.

Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

Kemudian next

Klik next lagi

Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish

Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”

Maka hasil akan tampil seperti ini :

Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

• Selesai dan Selamat Mencoba, Mari kita saling berbagi hal dan belajar Cerdas.
• Terima Kasih dan semoga bermanfaat.
• Comment ya !!!
Selengkapnya...

Membuat ListView pada Visual Studio 2008

Membuat ListView pada Visual Studio 2008

Alhamdulillah bisa posting lagi setelah lama “vakum” dan belajar dari kesalahan serta kekurangan yang terjadi kemarin saya akan mencoba memberikan cara untuk menampilkan data entry pada ListView, mari kita ikuti langkah-langkah dibawah ini :

Pertama-tama buatlah Form terlebih dahulu dan saya beri nama Form tersebut Input Data Mahasiswa yang mana data yang telah kita input akan muncul di List View dan sebagai langkah awal mari kita buat terlebih dahulu Form seperti dibawah ini :

Setelah Form terbentuk seperti diatas lalu mari kita buat Code pertama yaitu dengan Double click Form di atas lalu kemudian ubah Method menjadi Declaration dan kemudian masukkan jumlah Array yang di inginkan seperti Code dibawah ini :

Public Class Form1

'Membuat Variabel Array

Dim listtxt(5) As String
Dim listitem As ListViewItem

Setelah selesai membuat Code diatas mari kita lanjutkan dengan membuat Code kedua untuk Button “Simpan” dengan Method Click seperti dibawah ini :

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)

listtxt(3) = Trim(TextBox4.Text)

listtxt(4) = Trim(TextBox5.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.Left)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 200, HorizontalAlignment.Left)

ListView1.Columns.Add("No. Telp.", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("Email", 100, HorizontalAlignment.Left)

End Sub

Setelah selesai memasukkan Code diatas mari kita lanjutkan ke langkah berikutnya yaitu dengan memasukkan Code untuk mengambil data List View akan tetapi jangan lupa untuk terlebih dulu mengubah Method dengan ItemSelectionChange seperti dibawah ini :

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System. Windows.Forms.ListViewItemSelectionChangedEventArgs)Handles ListView1.ItemSelection Changed

'Mengambil nilai dari Listview

TextBox4.Text = e.Item.Text

End Sub

Setelah kita masukkan Code seperti diatas mari kita lanjutkan ke langkah terakhir yaitu dengan memasukkan Code untuk memanggil data yang sudah di input di TextBox seperti dibawah ini :

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

Call setlistview()

End Sub

Setelah kita masukkan Code yang tercantum diatas, marilah kita Running program untuk melihat hasilnya yang mana tampilannya akan seperti dibawah ini :

Lalu selanjutnya mari kita masukkan data mahasiswa dan setelah itu tekan tombol Simpan yang mana tampilannya akan seperti dibawah ini :

Bahkan kita bisa menginput lebih dari satu data mahasiswa seperti dibawah ini :

Selamat Mencoba dan semoga sukses dan juga jangan lupa kasih commentnya ya, Mathur Thank U.

Selengkapnya...

Project VB Akademik

Assalamu’alaikum.. wr.. wb,

Alhamdulillah kali ini dalam Project VB sudah setahap lebih mantap meskipun masih dalam format yang sederhana dan semoga bermanfaat.

1.Sebagai Langkah awal mari kita buat sebuah Form Design dengan nama “Form Biodata” seperti dibawah ini :

2.Setelah Form Design selesai mari kita buatkan Source Code seperti dibawah ini :

Public Class Form1

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

        Call bersih()

        Call isi_combo()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        ComboBox1.Text = " 06 Tekhnik Informatika "

    End Sub

    Sub isi_combo()

        ComboBox1.Items.Add(" 06 Tekhnik Informatika ")

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

        ComboBox1.Items.Add(" 05 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 67 Tekhnik Komputer ")

        ComboBox1.Items.Add(" 26 Management Informatika ")

    End Sub

3. Lalu setelah itu mari kita Running program dengan click F5 dan inilah hasilnya :

4. Langkah berikutnya ialah mengubah Button1 dan Button4 dengan mengetikkan Source Code seperti dibawah ini :

    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 normal()

            Call bersih()

        End If

    End Sub

    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

    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

End Class

5. Lalu mari kita lihat hasilnya >>

To Be Continued alias Bersambung >>>

Selengkapnya...

Belajar Module dalam VB

Assalamu’alaikum.. wr.. wb,

Syukur Alhamdulillah ada satu project belajar dari VB.Net yang bisa diselesaikan, semoga bermanfaat.

Pada Project VB kali ini saya akan membuat suatu fungsi dengan sebuah Modul dan sebagai langkah awal buatlah form seperti gambar di bawah ini : 

Setelah selesai membuat  Form diatas, lalu kemudian pada Button 1 masukkan Source Code seperti di bawah ini :

Public Class agil_one

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_angka()

        TextBox3.Text = hasil

    End Sub

dan pada Button2 masukkan Source Code seperti dibawah ini:

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

        Call tampilkan_nama()

        TextBox4.Text = nama

    End Sub

Setelah selesai memasukkan Source Code diatas, langkah selanjutnya  ialah 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 seperti dibawah ini :

Module Module1

    'variabel public

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

    Sub tampilkan_nama()

        nama = "Nanang Maulana"

    End Sub

    Sub hitung_angka()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Setelah selesai semua Source Codenya di masukan  berikut inilah hasil outputnya :

Jika ada yang ingin comment... sok atuh !
Mathur Thank U ^^

Selengkapnya...

Pekerjaan Rumah VB

Assalamua'alaikum.. wr.. wb,
Alhamdulillah setelah dikutak katik akhirnya muncul juga >>
* yang pertama :

Source codenya begini nih :

* yang kedua :

Nah klo yang ini begini nih Source codenya :

klo da yang mo comment sok atuh >>> Selengkapnya...