Selection sort dengan VB

Lanjut bahas sorting selanjutnya, sekarang gw bakalan bahas tentang selection sort. Selection Sort merupakan kombinasi antara sorting dan searching. Untuk setiap proses, akan dicari elemen-elemen yang belum diurutkan yang memiliki nilai terkecil atau terbesar akan dipertukarkan ke posisi yang tepat di dalam array. Misalnya untuk putaran pertama, akan dicari data dengan nilai terkecil dan data ini akan ditempatkan di indeks terkecil (data[0]), pada putaran kedua akan dicari data kedua terkecil, dan akan ditempatkan di indeks kedua (data[1]). Selama proses, pembandingan dan pengubahan hanya dilakukan pada indeks pembanding saja, pertukaran data secara fisik terjadi pada akhir proses.

gambar proses pengurutan dengan Selection Sort








Prosedur selection Sort



void selection_sort (int data[])
{
for(int i=0;i<n-1;i++)
{
pos=i;
for(int j=i+1;j<n;j++)
{
if (data[j]<data[pos] pos=j; //ascending
}
if(pos!=i) tukar(&data[pos],&data[i]);
}
}

readmore »»  

Program Vb.Net : Membuat Jajaran Genjang di Vb.Net Console

Kemarin saya sudah memberikan coding cara membuat jajaran genjang dengan c++, sekarang saya berikan coding membuat jajaran genjang dengan vb.net Console



Coding:

Imports System.Console
Module Module1
Sub Main()
Dim bil, i, j, y As Integer
' Dim hasil As Integer
Write("Masukan Angka : ")
bil = ReadLine()
WriteLine("")
If bil > 0 And bil <= bil Then
For i = bil To 1 Step -1
For j = 1 To i Step 1
Write(" ")
Next j

For j = 1 To bil Step 1
y = 2 * j - 1
Write("*")
Next j
WriteLine("")
Next i
End If
ReadLine()
End Sub
End Module

Sekarang berdasarkan reques dari KHézié LøvìñG'ü Ælwåys yang menginginkan kalau inputannya harus seperti ini:


Codingnya:

Imports System.Console
Module Module1
Sub Main()
Dim bil, i, j, y As Integer
' Dim hasil As Integer
Write("Masukan Angka : ")
bil = ReadLine()
WriteLine("")
If bil > 0 And bil <= bil Then
For i = bil To 1 Step -1
For j = 1 To i Step 1
Write(" ")
Next j

For j = 1 To bil Step 1
y = 2 * j - 1
Write(y)
Next j
WriteLine("")
Next i
End If
ReadLine()
End Sub
End Module

READ MORE - Program Vb.Net : Membuat Jajaran Genjang di Vb.Net Console

readmore »»  

Program Vb.Net : Tutor Merestor Database .mdf , Membuat Form Utama Bali Villa Rental dan Membuat Menu Login

ali ini saya akan share laporan praktikum pertemuan ke 4 vibi.net saya.
Minggu ke 4 saya mempalajari tentang merestore database yang berekstensi .mdf dan .log yang sudah saya buat pada pertemuan sebelumnya. Kemudian di teruskan untuk membuat form utama dari program Bali Villa Rental

Berhubung tutor nya sangat panjang, dan bikin capek ngetik. tutor bisa di download di sini dan untuk download icon program yang di gunakan, download di sini

Screen Shot Form yang akan kita buat:

ini adalah screen shoot form utama yang akan kita buat, kita akan belajar cara memasukkan icon-icon seperti di gambar.


masih pada form utama, kita akan belajar bagaimana membuat icon saat di klik muncul menu tambahan seperti menu login, logout. menambahkan icon di samping tulisan log in.


Selanjutnya kita akan belajar membuat menu di samping,


selanjutnya kita akan membuat form baru, yaitu form login


dan terakhir kita akan belajar coding sederhana untuk menampilkan form login, saat kita mengklik tombol login.



Berhubung tutor nya sangat panjang, dan bikin capek ngetik. tutor bisa di download di sini dan untuk download icon program yang di gunakan, download di sini



selamat mencoba :)

READ MORE - Program Vb.Net : Tutor Merestor Database .mdf , Membuat Form Utama Bali Villa Rental dan Membuat Menu Login

readmore »»  

Contoh Program Simpan Foto Menggunakan Visual Basic 6.0

Karena banyak pertanyaan dari teman-teman tentang bagaimana membuat program menyimpan foto di vb 6, Maka pada pembahasan kali ini saya akan membahas tentang bagaimana cara menampilkan dan menyimpan foto pada folder yang kita buat menggunakan visual basic 6. Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.

Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.

Kemudian buat database access dengan nama dblatihan.mdb seperti dibawah ini :

Nama Database : dblatihan

Nama Tabel       : data

 

Field	Data Type	Size
NRP	Text	10
Nama	Text	30
Jurusan	Text	35

Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.

Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :

Componen tambahan yang digunakan pada desain form diatas adalah :

- Microsoft ADO Data Control 6.0

- Microsoft Common Dialog Control 6.0

- Microsoft DataGrid Control 6.0

Kemudian ubah properti name pada masing-masing command menjadi seperti ini :

untuk command Simpan = cmdsimpan

- Edit = cmdedit

- Hapus = cmdhapus

- Bersihkan = cmdbersih

- Cari Foto = cmdcari

- Keluar = cmdkeluar

Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :

Public conn As New ADODB.Connection
Public RSdata As New ADODB.Recordset

Sub koneksi()
Set conn = New ADODB.Connection
Set RSdata = New ADODB.Recordset
conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"
End Sub

Kemudian pada form activate dan form load ketikkan kode perintah berikut :

Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"
Adodc1.RecordSource = "data"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load() 
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text4.Enabled = False
End Sub

Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :

Private Sub TampilkanData()
Text2 = RSdata!nama
Text3 = RSdata!jurusan
Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
End Sub

Perintah untuk mencari data dengan acuan dari Text1 : 

Function CariData()
    Call koneksi
    RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn
End Function

Perintah untuk mengosongkan text inputan :

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :

Private Sub simpan()
SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
End Sub

Perintah untuk tombol Cari Foto, untuk mencari dan membuka foto yang dipilih dari drive.
Private Sub cmdcari_Click()
cmndialog.ShowOpen
Text4 = cmndialog.FileName
End Sub

Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.

Private Sub cmdsimpan_Click()
Dim SQLTambah As String
 Call simpan
            SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
            conn.Execute SQLTambah
            Form_Activate
End Sub

Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.

Private Sub cmdedit_Click()
 Dim SQLEdit As String
 Call simpan
            SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
            conn.Execute SQLEdit
            Form_Activate
End Sub

Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.

Private Sub smdhapus_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub

Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.

Private Sub cmdbersih_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub
 

Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.
Private Sub Text1_LostFocus()
Call CariData
        If Not RSdata.EOF Then
            TampilkanData
            MsgBox "Data Ditemukan"
            Else
            Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            End If
End Sub

Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.
Private Sub Text4_Change()
Image1.Picture = LoadPicture(Text4)
End Sub

Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :

sumber: http://fadilcrows.blogspot.com

readmore »»  

Component List View VB 2006

Membuat menu dengan tampilan Short Cut dengan menggunakan List View .List View adalah salah satu component favorit saya di Visual Basic 6.0, kemampuannya sangat multi fungsi. Kali saya akan membahas fungsi list view untuk membuat menu dengan berbasiskan bentuk shortcut yang terdiri dari icon dan teks. Agar anda tahu manfaatnya saya akan gabungkan dengan menggunakan Form MDI(multi Document Interface), sehingga ini bisa menjadi alternati lain dari bentuk Menu di MDI. Buka Visual Basic 6.0 ,

pilih project Standard Exe.
1. Tambahkan komponen List View,Image View dengan cara pilih menu Project – Components, cek item Microsoft Windows Common Controls 6.0. OK
2. Tambahkan MDI form melalui Project Explorer Klik kanan di nama Project – Add – MDI Form

3. Langkah berikutnya adalah membuat desain MDI Form, Buat seperti gambar di bawah ini. tambahkan komponen-komponen seperti List View, Picture Box, ImageList, Command Group

Susunlah componen -componen seperti bentuk gambar dibawah.

4.Lebih lanjut dengan List View dan Image List a. Image List : di gunakan untuk menyimpan icon yang akan di gunakan di List View Letakkan Image List ke MDI Form , Klik kanan properties kemudian setting seperti gambar dibawah ini



Gunakan Tombol Insert Picture untuk menambahkan icon b. Lanjutkan dengan setting Properties List View pada tab Image List

c. Setelah selesai, lanjutkan dengan command button , buat control Array (Copy -Paste) , rubah properties command button menjadi FORM an Report untuk command yang lain. isi kode sebagai berikut :

readmore »»  

Membuat Laporan di VB.Net 2008 dengan Crystal Report

Pertama-tama buat database di SQL Server dan beri nama testing. Kemudian buat tabel tbl_buku seperti berikut ini : (Script SQL dapat didownload di akhir postingan)

Buat project baru VB.Net 2008 lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :

 Imports System.Data.SqlClient  
 Public Module modulkoneksi  
 #Region "Deklarasi Variabel"  
   Public koneksi As SqlConnection = Nothing  
   Public cmd As SqlCommand = Nothing  
 #End Region  
 #Region "Fungsi Testing Koneksi Database"  
   Public Sub TestKoneksi()  
     Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     koneksi = New SqlClient.SqlConnection(connString)  
     Try  
       koneksi.Open()  
       koneksi.Close()  
     Catch ex As Exception  
       MessageBox.Show("Database Connection Error : " & ex.Message)  
     End Try  
   End Sub  
 #End Region  
 End Module  

Untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda.

Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan beri nama laporan.rpt (lihat gambar berikut)

 

Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.

Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.

Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :



Melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.



Buka Form1 dan melalui Toolbox cari CrystalReportViewer dan masukkan ke Form1. Melalui properties CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi. Run (F5) VB dan Report akan ditampilkan.

readmore »»  

Belajar C++ Dengan Visual Studio 2008

Selain bisa digunakan untuk pemrograman bahasa Basic, Visual Studio juga mendukung bahasa-bahasa pemrograman lain diataranya C# dan C++.

Sekaranng kita coba kerkenalan dengan C++ dengan Visual Studio 2008…
mari kita mulai…
1. Buka program Visual Studio 2008, kalau yang belum punya silahkan download dulu di sini yang express aja biar gratis..he.he.he…
2. Klik Menu File –> New –> Project

3. Pada bagian Project Type pilih Visual C++, kemudian pada bagian templete pilih Win 32 Console
Application, tuliskan nama project yang akan dibuat contohnya namahnya hello. klik OK

4. Klik Next


5. Jangan lupa checklist Empty Project pada bagian Additional Option. klik Finish


6. Setelah itu klik kanan pada Source file pada bagian Solution Explorer, pilih Add–>New Item
7. Pada bagian Templates pilih C++ File ( cpp), klik Add
8. File hello.cpp yang baru dibuat pertama kali kosong.
9. Ketikan kode berikut ini
#include <iostream>
#include <conio.h>
using namespace std;
void main()
{
cout <<”Hello”;
getch();
}
tampilan pada screen jadi seperti ini


untuk menjalankan programtekan F5
ini contoh outputnya

readmore »»  

Mengenal Toolbox Visual Basic 2008

Toolbox  berisi komponen-komponen yang merupakan sarana untuk membentuk user interface, lalu komponen apa saja kah yang bisa kita gunakan? , berikut ini saya akan bahas beberapa komponen yang sering digunakan dalam pembuatan program dengan Visual Basic 2008.

1. Label : Komponen digunakan untuk menampilkan teks yang tidak dapat diubah oleh pengguna jika project sudah di-compile menjadi file EXE.

2.  TextBox : digunakan untuk menampilkan teks yang bisa diubah oleh pengguna.

3. Botton :  digunakan untuk memulai proses tertentu pada saat pengguna melakukan klik.

4. Checkbox : digunakan untuk memberikan pilihan kepada pengguna, pilihan bisa lebih dari satu.

5. Radio Button :  fungsinya hampir sama dengan CheckBox. Bedanya, pada CheckBox biasanya pengguna bisa memilih lebih dari satu pilihan.

 6. ListBox : digunakan untuk memberikan pilihan dalam bentuk daftar.

7.  ComboBox : fungsinya hampir sama dengan dengan ListBox, hanya saja pengguna bisa memasukan pilihan lain.

8. Frame, GroupBox, Panel : digunakan untuk mengelompokan control-kontrol yang dianggap memiliki fungsi sejenis.

9. PictureBox : digunakan untuk menampilkan gambar atau image

readmore »»  

Program Perkalian Dengan Looping Pada Visual Studio 2008

Program Perkalian Dengan Looping Pada Visual Studio 2008

gambar diatas adalah tampilan untuk program yang akan di buat , untuk propertiesnya silahkan di sesuaikan sendiri

Syntax :::

Imports System.IO

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

Close()

End Sub

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

Dim i, a, n, kali As Integer
Dim hasil

a = TextBox2.Text
n = TextBox3.Text
kali = TextBox1.Text

hasil = ""

For i = a To n
hasil = hasil & kali & " x " & i & vbTab & " = " & kali * i & vbCrLf

Next

TextBox4.Text = hasil

End Sub

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

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()

End Sub

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

Dim outputfile As StreamWriter

Try

outputfile = New StreamWriter("D:\PerkalianLooping.txt", True)
Catch

MessageBox.Show("Error Writing File...")

End Try

Try

outputfile.WriteLine(Now())
outputfile.WriteLine(TextBox4.Text)
outputfile.WriteLine()
outputfile.WriteLine()
outputfile.Dispose()
MessageBox.Show("Data Sudah Disimpan . . .")

Catch

MessageBox.Show("Sorry! Error Writing File...")

End Try

End Sub

End Class

readmore »»  

Contoh Source Code Visual Studio 2008

Public Class Form1

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

    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 = 1 To 10
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 2 = 0 Then
                ListBox1.Items.Add("Bil Genap " & I)
            Else
                ListBox1.Items.Add("Bil Ganjil " & I)
            End If
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim I As Integer = 1
        ListBox1.Items.Clear()

        Do While I <= 10
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        I = Val(TextBox1.Text)
        Do While I <= Val(TextBox2.Text)
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub

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

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        I = Val(TextBox1.Text)
        Do While I <= Val(TextBox2.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If

            I = I + 1
        Loop
    End Sub
End Class

readmore »»  

Contoh Program biodata mahasiswa Vb 2008

Contoh Program Vb 2008

Public Class Form3
'membuat Variabel array

Dim listtxt(3) As String
Dim listitem As ListViewItem


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

'memasukkan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukkan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)

End Sub


'setting kolom listview
Sub setlistview()

ListView1.View = View.Details

'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

End Sub


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub



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


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

End Sub
End Class

readmore »»  

Perkembangan pemrograman Visual Basic dari dulu sampai sekarang

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

readmore »»  

Membuat Form Login di VB.Net 2008

Kali ini kita akan membuat Login Form, pertama-tama siapkan di Sql Server sebuah database testing dan tabel bernama tbl_user. Kurang lebih berikut penampakan tbl_user.

Sql code untuk tabel diatas dapat didownload di akhir postingan. Selanjutnya buat Project baru di VB.Net 2008 anda dan buat form login seperti berikut ini :

Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja. Berikut adalah kode untuk proses login yang akan kita gunakan :

 cmd.Connection = koneksi  
 cmd.CommandText = "SELECT * FROM tbl_user WHERE myuser = '" & TextBoxUser.Text & "' and mypass = '" & TextBoxPass.Text & "'"  
 dtReader = cmd.ExecuteReader  
 If (dtReader.Read()) Then  
   Utama.Show()  
 Else  
   MsgBox("Maaf, Username dan Password tidak Ditemukan....!", MsgBoxStyle.OkOnly, "Login Gagal")  
 End If  

readmore »»  

Rahasia VB.Net 2008 ( Membuat Program VB NET Berbasis Database Tanpa Sourcecode)

Membuat program vb net berbasis database, memang sangat tidak mudah bagi kita para pemula, tetapi itu bukanlah hal yang sulit bagi mereka para Ahli, nah bagi anda yang merasa sulit dalam membuat sebuah software berbasis database, disini saya akan coba memberikan solusi yang tepat dan cepat bagi anda,dan saya pastikan anda akan bisa melakukanya, jika anda mau tentunya.

Dalam kesempatan ini kita akan belajar membuat program vb net berbasis data base,yang menggunakan VB NET 2008 dan dengan data base Microsoft Acces 2007.

Mengapa saya bisa memastikan anda bisa,.?jawabanya hanya satu,karena cara ini sangat mudah dan cepat.Oke deh,mari kita mulai pembelajaran kita,.

1.Silahkan buka Microsoft Acces anda,lalu buat data base dengan nama Mahasiswa,dan table dengan nama tabelMahasiswa.untuk field table,lihat gambar di bawah

2.Kemudian silahkan buka  VB 2008,dan buat project baru dangan nama data acces,lalu klik Data Source yang terletak di atas jendela Properties.lihat gambar di bawah.

3.kemudian Klik Add new Data Source  ,maka akan muncul kotak dialog  Data Source configuration Wizard,seperti di bawah.

4.silahkan klik Next,maka akan muncul tampilan di bawah,

5.kemudian klik New Connection,kemudian akan muncul tampilan seperti di bawah,

6.Silahkan pilih Microsoft Acces Database File,dan klik Continiue dan akan muncul tampilan di bawah ini,

7.Klik tombol Browse…dan silahkan anda cari lokasi data base yang anda buat tadi.sebagai contoh tempat penyimpanan file data base tadi pada drive C:Program FilesMahasiswa.accdb dan silahkan klik tombol OK,ke mudian klik Next,sampai  pada muncul tampilan seperti berikut ini.

8. beri tanda centang pada cekbox Tables,kemudian klik Finish,maka pada jendela Data Source VB 2008 ,akan tampak seperti gambar di bawah.

9. Kemudian silahkan anda klik combobox yang berwarana biru(tableMahasiswa) dan drag geser ke area Form1,dan juga masing- masing field dari table mahasiswa(NIM,Nama Mahsiswa,Kelas,Jurusan dan Semester).Sampai menghasilkan gambar desain berikut pad form1

10.Kemudian coba anda tekan tombol F5,jika muncul tampilan seperti gambar di bawah,berarti program VB net berbasis database anda sudah jadi,.

11.Silahakan anda pergunakan tombol navigator berikut,untuk mengolah database anda,.

 

 

 

 sumber: http://jemyshombing.com

readmore »»