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