Membuat Aplikasi Sederhana Gaji Karyawan Dengan Dhelphi

 Contoh Program sederhana Membuat Gaji Karyawan Dengan Dhelpi, kebetulan sekali. kemarim saya dapat tugas untuk membuat gaji karyawan menggunakan case of di dhelpi.  bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :

1. Buka Program Dhelpi7

2.Tambah kan pada form seperti si bawah ini

 

Nama Kontrol	Propetis	Setting
GroupBox1	Caption	Input Data
Label1	Caption	Nama
label2	Caption	Golongan
Label3	Caption	Status
Edit1	Name	Ednama
ComboBox1	Name	Cbmgol
ComboBox2	Name	cmbStatus
GroupBox2	Caption	Input Data
Label4	Caption	Gaji Pokok
Label5	Caption	Tunjangan
Label6	Caption	Tunj.Keluarga
Label7	Caption	Gaji Kotor
Label8	Caption	Asuransi
Label9	Caption	Pajak
Edit2	Name	EdgajiPokok
Edit3	Name	EdTunjangan
Edit4	Name	EdGajiKotor
Edit5	Name	EdTunkel
Edit6	Name	EdAsuransi
Edit7	Name	EdPajak
GroupBox3	Caption	Hasil
Label10	Caption	lblHasil
GroupBox4	Caption	Proses
Button1	Caption	Hitung
	Name	BtnHitung
Button2	Caption	Clear
	Name	BtnClear
Button3	Caption	Keluar
	Name	BtnExit

 lalu buat desain program seperti di bawah ini, tapi jika ingin mendesain sendiri.. Juga  boleh.

3. Kemudian Masukan Kode Listing program seperti di bawah ini :

procedure TForm1.BtnHitungClick(Sender: TObject);

var

gajikotor,asuransi,pajak,total : real;

begin

if (Cbmgol.ItemIndex <> -1) and (cmbStatus.ItemHeight <> -1) then

case Cbmgol.ItemIndex of

  0 : begin

  EdgajiPokok.Text := '500000';

  EdTunjangan.Text := '100000';

   end;

  1 : begin

  EdgajiPokok.Text := '600000';

  EdTunjangan.Text := '100000';

  end;

  2 : begin

  EdgajiPokok.Text := '700000';

  EdTunjangan.Text := '100000';

   end;

  3: begin

  EdgajiPokok.Text := '1000000';

  EdTunjangan.Text := '100000';

   end;

  4: begin

  EdgajiPokok.Text := '2000000';

  EdTunjangan.Text := '100000';

  end;

  end;

  case cmbStatus.ItemIndex of

  0 : begin

  EdTunkel.Text := '150000';

  end;

  1 : begin

  EdTunkel.Text := '0';

  end;

  end;

  gajikotor := StrToFloat(EdgajiPokok.Text) + StrToFloat(EdTunjangan.Text) + StrToFloat(EdTunkel.Text);

  EdGajiKotor.Text := FloatToStr (gajikotor);

  asuransi := 0.5 * gajikotor;

  EdAsuransi.Text := FloatToStr (asuransi);

  if (gajikotor >= 1000000) then

  begin

  pajak := 0.1 * gajikotor;

  end

  else

  begin

  pajak := 0;

  end;

  EdPajak.Text := FloatToStr (pajak);

  total := gajikotor - asuransi - pajak;

  lblHasil.Caption := FloatToStr (total);

  end;

procedure TForm1.BtnClearClick(Sender: TObject);

begin

Ednama.Clear;

Cbmgol.ItemIndex := -1;

Cbmgol.Text := 'Pilih golongan';

cmbStatus.ItemIndex := -1;

cmbStatus.Text := 'Pilih Status';

EdgajiPokok.Text := '0';

EdTunjangan.Text := '0';

EdTunkel.Text := '0';

EdGajiKotor.Text := '0';

EdAsuransi.Text := '0';

EdPajak.Text := '0';

lblHasil.Caption := '0';

Ednama.SetFocus;

end;

procedure TForm1.BtnExitClick(Sender: TObject);

begin

close;

end;

end.

4. save Program anda lalu jalankan program., Run pilih start atau tekan F9.., 

   Selamat mencoba.....^_^..,

dan hasilnya akan seperti di bawah ini

Cara Membuat Kalkulator dengan Delphi7

     Contoh program sederhana Membuat kalkulator dengan delphi7, ini adalah salah satu program sederhana yang saya dapatkan saat praktek industri atau PKL walau belajar secara otodidak hanya melihat buku yang di berikan oleh  salah satu pegawai  tempat saya PI tapi tetap bersyukur,
alhamdulillah saya dapat ilmu baru..hehehe ^_^ hehehe.. sedikit tau tentang delphi lah...hehehe..,

nah bagi yang ingin membuatnya silahkan lihat di bawah ini :

1.Buka Program Delphi7

2.Kemudian tambahkan pada Form andan 4 Label, 3 Edit, 6 Button lalu buat desain form seperti di bawah ini :

3. Kemudian masukkan kode atau listing program seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
nil1,nil2:real;
Tambah:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
tambah :=nil1 + nil2;
Edit3.Text := floattostr(tambah);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nil1,nil2:real;
Kurang:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kurang :=nil1 - nil2;
Edit3.Text := floattostr(kurang);
end;

procedure TForm1.Button3Click(Sender: TObject);
 var
nil1,nil2:real;
Kali:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kali :=nil1 * nil2;
Edit3.Text := floattostr(Kali);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
nil1,nil2:real;
Bagi:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Bagi :=nil1 / nil2;
Edit3.Text := floattostr(Bagi);

end;



procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;

end.

4. save Program anda lalu jalankan program., Run pilih start atau tekan F9.., 

   Selamat mencoba.....^_^..,

membuat Kalkulator Sederhana dengan Visual Basic

         Program sederhana membuat kalkulator dengan visual basic., bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :

1. Buka program visual basic., pilih new project kemudian pilh standart exe.

2. Tambah kan pada form anda 4 label, 3 textBox, 5 CammondButton., Kemudian desain form seperti di bawah ini :

3. Kemudian Aturlah Propetis masing-masing Kontrol seperti di bawah ini :

3.Kemudian Masukkan Kode atau listing Program seperti di bawah ini :

Private Sub cmdKali_Click()
TxtHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
TxtHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
TxtHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub cmdClear_Click()
Text1.Text = ""
Text2.Text = ""
TxtHasil.Text = ""
End Sub

Private Sub CmdExit_Click()
End
End Sub

4. Kemudian jalankan program., Run pilih Start Atau tekan F5

    Silahkan Mencoba.... ^_^

   


















































































                    






















































































   

Aplikasi Penjualan Tiket Kereta Api dengan visual basic

        Ini adalah program sederhana aplikasi penjualan tiket kereta api dengan visual basic 

langsung saja ya.......

1. Buka visual basic , new project  pilih setandart exe

2. kemudian tambah kan pada  form anda 7 label, 1 ComboBox, 1 frame , 5 Textbox, 3 CammondButton lalu buat desain form seperti di bawah ini:

3. Kemudian ketikan Kode program seperti di bawah ini :

Private Sub Combo1_click()
If Combo1.Text = "Mut2121" Then
Text2.Text = "23000"
Text3.Text = "Mutiara"
Text4.Text = "17.00"
End If
If Combo1.Text = "Bim2121" Then
Text2.Text = "50000"
Text3.Text = "Bima"
Text4.Text = "16.00"
End If
If Combo1.Text = "Eko2121" Then
Text2.Text = "35000"
Text3.Text = "Ekonomi"
Text4.Text = "19.00"
End If
If Combo1.Text = "Sen2121" Then
Text2.Text = "15000"
Text3.Text = "Senja"
Text4.Text = "20.00"
End If

End Sub

Private Sub Command1_Click()
Text6.Text = Text2.Text * Text5.Text
End Sub


Private Sub Command2_Click()
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "Mut2121"
Combo1.AddItem "Bim2121"
Combo1.AddItem "Sen2121"
Combo1.AddItem "Eko2121"
End Sub

 4. Save program anda kemudian Jalankan program Run, pilih start atau dengan  F5 ,,,,,

     Silahkan mencoba...... :-)

cara membuat aplikasi musik dengan visual basic

         Sekedar ingin berbagi ilmu.,, ini adalah program membuat aplikasi musik dengan visual basic kalau ada yang ingin membuat, ini contohnya :

1. Buka visual basic, pilih new project dan plih standart exe,,

2. Klik menu project pilih components ctrl+T kemudian pilih dan tandai Microsoft Cammond Dialog

    Control dan Microsoft Multimedia Control 6.0.

3. Lalu tambahkan di form anda 1 Label, 2 CammondButton, 1 Microsoft Cammand Dialog dan 1   Microsoft Multimedia Control 6.0, kemudian desain form seperti di bawah ini :

4.Aturlah propetis masing - masing control seperti di bawah ini :

 

5. Masukkan code program seperti di bawah ini :

     Private Sub Command1_Click()

     On Error GoTo loncat

     MMControl1.Command = "stop"

     CommonDialog1.ShowOpen

     MMControl1.FileName = CommonDialog1.FileName

     MMControl1.Command = "open"

     Label1.Caption = CommonDialog1.FileTitle

     loncat:

     Exit Sub

     End Sub

     Private Sub Command2_Click()

     End

     End Sub

     Private Sub Form_Unload(Cancel As Integer)

     MMControl1.Command = "stop"

     End Sub

6. Kemudian jalankan program dengan pilih run start atau tekan F5 lalu klik open.., pilih lagu yang
    diinginkan... dan hasilnya akan seperti di bawah ini......

    silahkan mencoba,,, ,,,  :-)