Membuat Kakulator sederhana menggunakan Visual Basic

oke pada postingan kali ini kita akan membahas dan membuat kalkulator sederhana menggunakan Vb.net (Visual Basic.net), ikuti langkah langkah berikut yaak jangan sampai ketinggalan loh, pahami aja codingnyaa kalo sudah paham pasti bisa berkreasi yehee.

1. Buka Software Visual basic, Pilih Standard Exe lalu klik open 

2. Setelah itu Desainlah Form seperti ini

3. Lalu masuk coding dengan cara klik 2 kali di form dan paste kode ini :

Dim Angka(1 To 2) As Single
Dim Operator As String

Private Sub CmdAngka_Click(Index As Integer)
    Text1.Text = Text1.Text & CmdAngka(Index).Caption
End Sub

Private Sub CmdHapus_Click(Index As Integer)
    Text1.Text = ""
End Sub

Private Sub CmdHitung_Click()
    Dim Hasil As Single
   
    If Text1.Text = "" Then Exit Sub
   
    Angka(2) = CSng(Text1.Text)
   
    Select Case Operator
    Case "+"
        Hasil = Angka(1) + Angka(2)
    Case "-"
        Hasil = Angka(1) - Angka(2)
    Case "*"
        Hasil = Angka(1) * Angka(2)
    Case "/"
        Hasil = Angka(1) / Angka(2)
    End Select
   
    Text1.Text = Hasil
End Sub

Private Sub CmdOperator_Click(Index As Integer)
    If Text1.Text = "" Then Exit Sub
   
    Angka(1) = CSng(Text1.Text)
    Operator = CmdOperator(Index).Caption
    Text1.Text = ""
End Sub

4. Setelah itu klik F5 untuk menjalankan programnya.

Selesai..

Cara mudah menampilkan data di Dbgrid Delphi 7

kali ini kita akan belajar cara membuat koneksi dari microsoft access untuk delphi,hal pertama yang harus kita siapkan adalah database dari microsoft access. bisa juga menggunakan Sql Server dan Xampp sama aja dalam pemanggilan dan codenya.

Ok kita mulai buka aplikasi delphi 7

tampilan awal seperti di gambar,ok sekarang kita tambahkan komponen adotable,datasource,dbgrid.

ok tambahkan adotable,adotable terletak di komponen ado untuk jelasnya lihat gambar di bawah

 

 

jika kalian ingin menggati namanya bisa di edit di properti bagian name.Selanjutnya kita tambahkan komponen dbgrid.Letak dari dbgrid berada pada data controls,untuk lebih jelas silahkan lihat gambar :

 

 

terakhir komponen datasource letak datasource di data access lebih jelas lihat gambar:

 

 

ok,sekarang komponen yang dibutuhkan telah siap saatnya konek database.

langkah awal click adotable yang tadi dibuat kemudian pada properti bagian connectionstring di clik gambar ...(titik tiga ),selanjutnya muncul kotak dialog kemudian click build lebih jelas lihat gambar

 

 

 

kemudian muncul  kotak dialog lagi pilih microsoft jet 4.0 ole db provider karena kita menggunakan database berupa access,kemudian click next lebih jelas lihat gambar:

 

 

 

 muncul di kotak dialog kemudian click ...(titik 3),untuk memilih database yang akan di tampung di adotabele seperti di gambar 

pilih database sesuai yang diingginkan kemudian test  connection jika benar akan muncul tulisan
"test connection succeeded"

 

 

 

lanjut click ok kemudian tulisan akan berubah sesuai nama database dan peletakan di komputer anda lihat gambar:

 

 

kemudian set tabel yang diinginkan pada properti tablenama untuk lebih jelas lihat gambar di bawah

 

 

 karna didalam database saya membuat data table hanya satu jadi yang muncul hanya satu pilih sesuai keninginan.Kemudian pada properti active ganti dari flase jadi  true untuk jelasnya lihat gambar dibawah:

 

 

adotable sudah diset semua lanjut set datasource,untuk datasource yang diset hanya properti dataset saja.Atur agar datasource terhubung dengan adotabel yang diinginkan untuk lebih jelas silahkan liahat gambar.

 

 

terakhir konekan dbgrid dengan datasource untuk lebih jelas lihat gambar:

 

 

ok database sudah masuk dan ditampilkan di dbgrid.

 

sekian dan terima kasih semoga bermanfaat :)), 

 

Contoh Program Menghitung Gaji Pegawai dengan fungsi if pada Delphi 7

Alhmdulillah, Selamat datang di blog saya. Setelah pada artikel sebelumnya saya jelaskan tentang percabangan, Pada kesempatan kali ini saya akan berikan contohnya yaitu menghitung gaji pegawai. Yang kebetulan program ini adalah tugas kuliah saya di waktu semester 5. Hehe Adapun ketentuan program yang akan kita buat adalah

Besar gaji pokok:
Direktur=5000000
Manajer=3000000
Karyawan=2000000
Besar tunjangan :
Tetap=1000000
Honorer=500000
Rumus gaji bersih = Gaji pokok+tunjangan

Ok,, saatnya kita buat formnya, adapun tampilannya sbb:

Atur juga propertisnya seperti di bawah ini

Objek	Name	Caption
Form1	frmgaji	Form Hitung Gaji
Label1	Label1	Menghitung Gaji Pegawai
Label2	Label2	Nama
Label3	Label3	Jabatan
Label4	Label4	Gaji pokok
Label5	Label5	Tunjangan
Label6	Label6	Gaji Bersih
GroupBox1	GroupBox1	Status
RadioButton1	RbHonorer	Honorer
RadioButton2	RbTetap	Tetap
Button1	Bthitung	hitung
Button2	Btinput	Input Lagi
Button3	BtSelesai	Selesai

obyek	Name	Text
Edit1	ednama	–
Edit2	edgajipokok	–
Edit3	edtunjangan	–
Edit4	edgajibersih	–
ComboBox1	cbjabatan	–

Untuk Linsting Programnya Sbb:

Sebelum ke program, kita isi dulu daftar jabatanya di combo box. Untuk mengisikannya ada dua cara.Dengan ngedit di Object Propertisnya dan lewat program Untuk langkah Pertama masuk Ke object Inspector-Propertis-Items.. lalu tuliskan nama jabatanya di String list editor- Klik Ok setelah selesai.

Kalau lewat Program, Doble klik formnya, lalu ketikkan Program sbb:

procedure Tfrmgaji.FormCreate(Sender: TObject);
begin
cbjabatan.Items.Add ('Direktur');
cbjabatan.Items.Add ('Manager' );
cbjabatan.Items.Add('Karyawan
end;

Program Untuk menampilkan Gaji Pokok Berdasarkan Data di Combo Box

• Aktifkan combo box(cbjabatan)
• Pada Jendela object Inspector, pilih tab event di samping properties.
• Pilih dan aktifkan onclick, seperti yang terlihat seperti gambar berikut ini:

• Double Click pada combo On Click
• Ketikkan program berikut
  
  procedure Tfrmgaji.cbjabatanClick(Sender: TObject);
  begin
  if cbjabatan.Text = 'Direktur' then
  edgajipokok.Text := ' 5000000'
  else
  if cbjabatan.Text = 'Manajer' then
  edgajipokok.Text := '3000000'
  else
  if cbjabatan.Text = 'Karyawan' then
  edgajipokok.Text := '2000000'
  else
  edgajipokok.Text := '0' end;
    Program Menghitung Tunjangan Karyawan Honorer
  Double Click Radio Button yang honorer lalu ketikkan program Sbb:
  
  

  procedure Tfrmgaji.rbhonorerClick(Sender: TObject);
  begin
  if  rbhonorer.Checked = true then
  edtunjangan.Text :='500000';
  end;

  Program Menghitung Tunjangan Karyawan Tetap
  Double Click Radio Button Yang tetap, lalu Ketikan Program Sbb;
  
  procedure Tfrmgaji.rbtetapClick(Sender: TObject); 
  begin
  if  rbtetap.Checked = true then
  edtunjangan.Text :='1000000';
  end; Program Menghitung Gaji Bersih
  Double Click Button Hitung, Lalu ketikkan Program Berikut:
  
  procedure Tfrmgaji.bthitungClick(Sender: TObject); 
  var a,b,c:integer; 
  begin 
  a := StrToInt(edgajipokok.Text); 
  b := StrToInt(edtunjangan.Text);
   c := a+b;  
  edgajibersih.Text := IntToStr(c); 
  end;
  
  Program Input Lagi
  Double Click Button Input Lagi lalu ketikkan Program berikut:
  
  procedure Tfrmgaji.edlagiClick(Sender: TObject); 
  begin 
  cbjabatan.Text := 'Jabatan';  
  ednama.Text := ' '; 
  edgajibersih.Text := '0';  
  Edtunjangan.Text := '0';  
  edgajipokok.Text := '0'; 
  rbhonorer.Checked := false; 
  rbtetap.Checked := false;  
  end;
  
  Program Selesaiprocedure Tfrmgaji.btselesaiClick(Sender: TObject);
  begin
  close;
  end; 
  
  Hasil Jadi!!
   
  
  
  
   itu tadi contoh Program dengan fungsi IF, Kalian bisa memodifikasi program tersebut untuk menjadi program yang lebih advance lagi..