Menampilkan Data Ke Combobox Di VB.NET

Setelah beberapa minggu yang lalu saya memposting Encryption dan Decryption String Dengan VB.NET
Kali ini saya akan memposting tentang Menampilkan Data ke Combobox Di VB.NET. Terkadang dalam membuat sebuah program kita perlu untuk Menampilkan Data ke Combobox Di VB.NET misalnya saja untuk menampilkan data kategori barang, satuan barang ataupun yang lainnya.

Langkah - langkah Menampilkan Data ke Combobox Di VB.NET

1. Buat sebuah database dengan nama latihan

2. Buat sebuah table di dalam database latihan dengan script dibawah ini

CREATE TABLE siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat varchar(100) not null
)

3. Tambah data pada table siswa dengan script dibawah ini

INSERT INTO	siswa (nis,nama,alamat) 
values ('334','Dwi Randy Herdinanto','Bandar Lampung'),
('335','Budi','Bandar Lampung'),
('336','Ita','Bandar Lampung')

Anda juga dapat mempelajari tentang Syntak Dasar SQL disini

4. Buat sebuah project dengan nama database combobox

5. Tambahkan sebuah combobox ganti namenya dengan cbo_nis dan DropDownStylenya pilih DropDownList sehingga tampilan pada form tersebut seperti gambar dibawah ini

6. Double click form tersebut lalu ketikan Imports System.Data.SqlClient

7. Pada Event Form_Load ketikan script dibawah ini

  'Membuat string koneksi ke database
        Dim sconn As String = "Data Source=.;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123"
        'Menyiapkan koneksi database
        Dim conn As New SqlConnection(sconn)
        'Menyiapkan perintah query
        Dim cmd As New SqlCommand("select nis,nama from siswa", conn)
        'Menyiapkan data adapter
        Dim adapter As New SqlDataAdapter(cmd)
        'Menyiapkan datatable untuk menampung data dari table siswa
        Dim dt As New DataTable
        'Menggunakan try agar ketika ada error maka akan melakukan statement yang ada di dalam block Catch ex As Exception
        Try
            'Binding data ke datatable
            adapter.Fill(dt)
            'Binding data dar datatable ke combobox
            cbo_nis.DataSource = dt
            'Menentukan nilai dari setiap pilihan di combobox
            cbo_nis.ValueMember = "nis"
            'Menentukan data yang akan di tampilkan di setiap pilihan combobox
            cbo_nis.DisplayMember = "nama"
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error") 'Menampilkan pesan error
        End Try

8. Jalankan program tersebut dengan menekan CTRL+F5

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Sekian dari saya
Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini

Read More

Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Kali ini saya akan memposting tentang Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

Karena untuk Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal  kita perlu menggunakan perulangan ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For Do di Turbo Pascal 

Langkah-langkah Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

1. Buka program turbo pascal yang anda punya

2. Ketikan script dibawah ini

program priamid;
var
 i,j,k,bil:integer;
begin
 clrscr;

        writeln('===============');

        writeln('Tutorial Koding');

        writeln('===============');

 write('Masukan Tinggi Piramida : ');readln(bil);
 for i:=1 to bil do {Perulangan dari 1 sampai tinggi piramida}
 begin
  for j:=bil down to i do {Perulangan untuk membuat jarak/spasi}
  begin
   write(' ');
  end;

  for k:=1 to i+i-1 do {Perulangan untuk menampilkan bintang}
  begin
   write('*');
  end;
 writeln;
 end;
 readln;
end;

3. Jalankan program tersebut dengan menekan CTRL+F5

Semoga bermanfaat, terima kasih atas kunjungannya

Read More

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Setelah beberapa hari yang lalu saya sempat memposting tentang Konversi Suhu di Turbo Pascal
kali ini saya akan memposting tentang Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

jadi misalkan kita menginputkan 390 hari maka akan muncul text bertuliskan 1 tahun  1 bulan 10 hari
oke langsung saja

Langkah - langkah Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2. Ketikan Script dibawah ini

program konversihari;
uses crt;
var
 hari,jhari,jbulan,jtahun,sisa:integer;
begin
 clrscr;
 writeln('======================');
 writeln('Tutorial Koding');
 writeln('=====================');
 writeln('');
 write('Masukan Jumlah Hari : ');readln(hari);
 jtahun:=hari div 365;
 sisa:=hari div 365;
 jbulan:=sisa div 31;
 jhari:=sisa mod 31;
 if (jhari=0) then
 begin
  jhari:=sisa;
 end;
 writeln('Hasil Konversi : ',jtahun,' Tahun ',jbulan,' Bulan ',jhari,' Hari ');
 readln;
end.
 

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya, semoga bermanfaat

Read More

Membuat Function di Turbo Pascal

Setelah beberapa hari yang lalu saya membahas tentang Membuat Procedure di Turbo Pascal
kali ini saya akan melanjutkan dengan Membuat Function di Turbo Pascal

Apa itu function ?
Function hampir sama dengan Procedure yaitu suatu modul program yang terpisah dari program utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program, tapi function memiliki perbedaan dengan procedure yaitu, jika function memberikan nilai balik (return) namun jika procedure tidak

Langakah - langkah Membuat Function di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2.. Ketikan script dibawah ini

program fungsi;
uses crt;

function hitungluas(p,l:integer):integer; {membuat fungsi hitungluas dimana parameter p dan l adalah integer}
begin       {Dan nilai yang akan dikembalikan (return) berupa integer}
 hitungluas:=p*l; {Menghitung luas persegi,hasil dari hitungluas adalah nilai yang akan dikembalikan (return)}
end;

var
 pj,lb:integer;
begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 
 write('Masukan Panjang Persegi Panjang : ');readln(pj);
 write('Masukan Lebar Persegi Panjang : ');readln(lb);

 writeln('Luas Persegi Panjang : ',hitungluas(pj,lb)); {Memanggil fungsi hitungluas serta mengirimkan parameter berupa pj dan lb}
 readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

Sekian dari saya, semoga bermanfaat

Read More

Konversi Suhu Dengan Turbo Pascal

Kali ini saya akan memposting tentang Konversi Suhu Dengan Turbo Pascal

• Konversi Celcius ke Fahrenhuit dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program cel;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('===============');
	writeln('Tutorial Koding');
	writeln('===============');
	write('Masukan suhu dalam celcius : ');readln(celcius);

	fahrenheit:=9/5*celcius+32 {Mengkonversi celcius ke fahrenheit}
	reamur:=4/5*celcius;	{Mengkonversi celcius ke reamur}

	writeln('Konversi suhu ke fahrenheit :',fahrenheit:0:1);
	writeln('Konversi suhu ke reamur :',reamur:0:1);
	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Fahrenheit ke celcius dan reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program fah;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam fahrenheit : ');readln(fahrenheit);
	
	celcius:=5/9*(fahrenheit-32); {Konversi fahrenheit ke celcius}
	reamur:=4/9*(fahrenheit-32); {Konversi fahrenheit ke reamur}

	writeln('Konversi suhu celcius : ',celcius:0:1);
	writeln('Konversi suhu reamur : ',reamur:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Reamur ke Celcius dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan script dibawah ini

program ream;
uses crt;
var
	reamur,celcius,fahrenheit:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam reamur : ');readln(reamur);

	celcius:=4/5*reamur;
	fahrenheit:=9/4*(reamur+32);

	writeln('Konversi ke celcius : ',celcius:0:1);
	writeln('Konversi ke fahrenheit : ',fahrenheit:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya
semoga bermanfaat

Read More

Membuat Procedure di Turbo Pascal

Setelah beberapa siang tadi saya memposting tentang Menggunakan Const di Turbo Pascal
kali ini saya akan memposting tentang Membuat Procedure di Turbo Pascal

Terkadang ketika kita membuat sebuah program yang sudah sampai ratusan bahkan ribuan baris, kita akan kesulitan dalam memahami jalannya program itu secara keseluruhan, maka ada baiknya program yang kita buat tersebut kita pecah menjadi beberapa bagian, agar kita lebih mudah dalam memahami jalannya program tersebut,oleh karena itu membuat procedure sangat lah dianjurkan dalam membuat program, selain memudahkan kita dalam memahami jalannya program kita juga tidak perlu menuliskan procdure yang sama berulang - ulang kita cukup memanggil procedure yang kita buat saja

Berikut cara membuat Membuat Procedure di Turbo Pascal

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur;
uses crt;
var
 p,l,luas:integer; {Mendekarasikan variable}

procedure hitung; {Membuat procedure hitung untuk menghitung luas persegi panjang}
begin
 luas:=p*l; {Menghitung luas persegi panjang}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan luas persegi panjang}
end;

begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung; {Memanggil procedure hitung tanpa parameter}
 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL+F9

Membuat Procedure dengan parameter

Apa itu Parameter ?
Secara sederhana parameter merupakan variable yang dituliskan di dalam kurung. Dalam pembuatan program biasanya diperlukan pertukaran informasi antara procedure atau function, serta pada blok program utama dimana nama procedure atau function tersebut dipanggil

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur_param;
uses crt;
var
 p,l,luas:integer; {Mendeklarasikan variable}

procedure hitung(p,l:integer); {Membuat procedure dengan parameter}
begin
 luas:=p*l; {Menghitung luas persegi panjang dimana nilai p dan l didapat dari parameter procedure hitung}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan Luas Persegi}
end;

begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung(l,p); {Memanggil procedure hitung serta mengirim nilai dari p dan l}
 readln;
end;

3. Jalnkan program tersebut dengan menekan CTRL+F9

Semoga berhasil
Terima kasih atas kunjungannya

Read More

Menggunakan Const di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Membuat Kalkulator Dengan Turbo Pascal
kali ini saya akan memposting Menggunakan Const di Turbo Pascal

Apa itu Const ?
Const adalah indentifier terkait nilai yang biasanya tidak dapat diubah selama program itu berjalan

Contoh Penggunaan Const di Turbo pascal

1. Buka program turbo pascal yang anda miliki

2. Ketikan Script dibawah ini

program konstanta;
uses crt;
const
	phi:real=3.14;
var
	jari,luas,keliling:real;
begin
	clrscr;
	writeln('=====================');
	writeln('Tutorial Koding');
	writeln('=====================');
	write('Masukan Jari-Jari Lingkaran : ');readln(jari);

	luas:=phi*sqr(jari); {Menghitung Luas Lingkaran}
	keliling:=2*phi*jari; {Menghitung Keliling Lingkaran}

	writeln('Luas Lingkaran : ',luas:0:1);
	writeln('Keliling Lingkaran : ',keliling:0:1);
	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya
Semoga bermanfaat, terima kasih atas kunjungannya

Read More