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...

Latihan VB

Alhamdulillah akhirnya berhasil juga coba Running VB dirumah, begini nih hasilnya See Up :

 

Source Code :

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            ComboBox1.Items.Add(TextBox1.Text)

        End If

    End Sub

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 5 To Val(TextBox2.Text)

            If i Mod 2 = 0 Then

                ListBox1.Items.Add(i * -1)

            Else

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

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

        Dim j, u, y As Integer

        u = 10

        y = 12

        For j = 10 To Val(TextBox2.Text)

            If j Mod u = 0 Then

                ListBox1.Items.Add(j)

                u = j

            Else

                If j Mod y = 0 Then

                    ListBox1.Items.Add(j * -1)

                    y = j

                End If

            End If

        Next

    End Sub

End Class

Selengkapnya...

How to using Event, Object & Properties

EVENT

Event adalah sebuah pengaturan aksi yang ada pada sebuah objek misalnya saat mengklik sebuah mouse atau menekan tombol keyboard anda dapat menuliskan kode untuk merespon event yang ada.

Cara menuliskan event :

1.    Dari window desain form,klik objek yang akan di atur eventnya.

2.    Klik menu view dan pilih pilihan code ,sehingga window code editor muncul di layar.

3.    Pilih nama event yang di inginkan anda tuliskan prosedurnya.

4.  Ketik kode event di antara pernyataan private…..dan end sub

Selengkapnya...

Asal Muasal atawa SEJARAH VB.NET

"Tak Kenal Maka Tak Sayang" Begitu Pepatah Lama Mengatakan. Maka sebelum lebih jauh lagi saya membahas serta membagikan tips /trik mengenai VB.NET, saya akan menjelaskan sekilas mengenai sejarah dari VB.NET ini.

VB.NET.. mungkin beberapa dari pembaca sekalian ada yang bertanya-tanya mengenai apa itu VB.NET atau mungkin dari pembaca sudah akrab sekali dengan istilah ini. Bagi yang belum tahu, VB.NET bukanlah sebuah binatang.. (hehe) ataupun bukan sebuah makanan atau tempat. VB.NET merupakan salah satu bahasa programming yang dibuat dari microsoft.. (eitt yang uda mulai bosan jangan kabur dulu... hehe.. karena pasti ini akan menarik). lanjut lagi ke topik. Oh iya, saya sebelumnya saya juga ingin menjelaskan kenapa saya menjelaskan mengenai VB.NET, karena sebelum kita melangkah lebih jauh ada baiknya kita saling mengenal dulu dengan VB.NET karena Ada pepatah yang bilang "tak kenal maka tak sayang!", hehe maka menurut saya ada baiknya kita mengenal vb.net ini.

VB.NET merupakan perkembangan bahasa programming dari bahasa Visual Basic, untuk lebih jelasnya mari kita lihat bersama-sama dibawah ini!


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)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. 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


4. 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
5. 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
6. 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
7. 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.
8. 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
9. 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.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. 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 :
1. 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
2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. 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
14. 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
15. 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
Selengkapnya...