Unduh Program Delphi Matriks Jacobian, B' Matriks dan B'' Matriks

Dalam postingan kali ini saya mendapat postingan menarik dari saudara Muhammad Ruswandi Djalal,
Kasusnya ada sebuah sistem tenaga Listrik 5 bus dan Program ini di buat untuk menghitung Matriks Jacobian yang sudah tersusun dari masing-masing "sub-matriks jacobian" j11, j12, j21, j22. selain itu juga akan menghitung B' dan B'' dari Matriks Ybus.
Komponen yang digunakan, seperti button, edit, label, dan timer. Berikut layout program delphinya..

Delphi Matriks Jacobian, B' Matriks dan B'' Matriks 1

Untuk button "Tugas 1" data sudah dimasukkan dalam listing program, namun untuk kasus data lain tinggal memasukkan data baru setelah sebelumnya di "clear".

Delphi Matriks Jacobian, B' Matriks dan B'' Matriks 2

Program setelah di run..

Delphi Matriks Jacobian, B' Matriks dan B'' Matriks 3

Untuk kasus data baru tinggal mengganti data G dan B baru setelah sebelumnya meng"clear" dan yang terakhir program jacobian ini hanya untuk iterasi pertama.. untuk yang lebih kompleks masih dalam tahap..

Untuk Melihat Postignan Awal, Anda Bisa Mengunjungi Link Original Nya Disini > Qu Anfusakum

Contoh Program Sederhana Delphi

Contoh program kali ini yakni mengenai penghitungan harga kamar hotel. Berikut tampilan programnya

Contoh Program Delphi Sederhana - Hai sobat, saya mau posting tentang program lagi nih, tapi kali ini bukan mengenai java, tetapi tentang Delphi. Sudah tahu belum apa itu Delphi.?, Sama halnya seperti Netbeans, Delphi adalah sebuah IDE Compiler yang menggunakan bahasa pemrograman pascal untuk pengembangan sebuah aplikasi. Artinya disini kita bisa membuat aplikasi dari sebuah IDE ini.

Disini saya tidak akan menampilkan source code nya disini, tapi sobat bisa download file delphinya di Download Program Delphi Sederhana

Berikut alur programnya :
1. Sobat klik button 'Mulai' terlebih dahulu untuk memulai aplikasi ini.
2. Sobat hanya mengisi Lama Menginap dan Harga saja, kemudian klik button Hitung maka semua text sudah terisi.
3. Text Jumlah dihitung dari Lama Menginap * Harga kamar
4. Keterangan diskon dan diskon diambil apabila Jumlah melebihi 1000000.
5. Terakhir, Total Bayar diambil dari Jumlah - Diskon

Sekian contoh program/aplikasi sederhana delphi dari Mas AHmad, semoga bermanfaat. :)

Program Menghitung Jumlah Hari Dengan Pemograman Delphi

Silahkan klik gambar di bawah ini untuk mendonwload soucecode nya:

unit UnitJumHari;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Label3: TLabel;
Label4: TLabel;
Shape1: TShape;
Bevel1: TBevel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Function DaysPerMonth(YearIn, MonthIn: Integer): Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function TForm1.DaysPerMonth(YearIn, MonthIn: Integer): Integer;
Const
DaysInMonth: array[1..12] of integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[MonthIn];
If (MonthIn = 2) and IsLeapYear(YearIn) then
Inc(Result);
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
s1,s2:Integer;
Begin
s1:=strToint(edit1.text);
s2:=StrToInt(edit2.text);
Memo1.Lines.Clear;
Memo1.Lines.Add(IntToStr(DaysPerMonth(s1,s2)));
Memo1.Lines.Add('Hari');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.

Silahkan klik gambar di bawah ini untuk mendonwload soucecode nya:

Unduh Gratis Kumpulan Source Code Program Delphi 7

Kumpulan Source Code Program Delphi 7 Free Download

Maaf Kepada Viewver Blog Ini, Kali Ini saya selaku admin disini, ini bisa terselasikan juga jika sobat ingin juga melihat blog saya yang Fenomenal Program Ini, pertama kali share saya akan bagikan buat sobat Contoh Source Code Program Delphi 7 Sekedar informasi blog ini hanya menyediakan program jadi yang sobat bisa langsung download, jika sobat ingin bertanya tentang program saya minta maaf saya hanya membantu sobat dalam mengerjakan tugas kuliah, karena saya mengerti betapa pentingnya program dan sulitnya membuat program bagi para Jurusan teknik informatika khususnya yang mengenai mata kulia bahasa pemrograman, Nah tanpa membuang-buang waktu buat yang membutuhkan source code bahasa pemrograman delphi ini silahkan di download sobb,, cekidot

[ Kumpulan Contoh ]

Source Code Program Delphi 7

• Download = Program Aplikasi Administrasi Surat.
• Download = Program Aplikasi Apotik.
• Download = Program Aplikasi Billing Warnet.
• Download = Program Aplikasi Games Boogle.
• Download = Program Aplikasi Games Classieux.
• Download = Program Aplikasi Games MinezWeeper.
• Download = Program Aplikasi Games RCouster 1.
• Download = Program Aplikasi Games RCoaster 2.
• Download = Program Aplikasi Games Solitaire.
• Download = Program Aplikasi Games Tetris.
• Download = Program Aplikasi Klinik.
• Download = Program Aplikasi Koperasi Simpan Pinjam.
• Download = Program Aplikasi Manajemen Warnet.
• Download = Program Aplikasi Pendapatan Counter HP.
• Download = Program Aplikasi Penjualan Kaset 1.
• Download = Program Aplikasi Penjualan Kaset 2.
• Download = Program Aplikasi Perpustakaan.
• Download = Program Aplikasi Sistem Pembayaran Listrik, Air dan Telphone.
• Download = Program Aplikasi SMS.

Silahkan Anda Sedot Sepuas Mungkin , jika Anda masih Berminat.
Lihat Lihat Aja Dalam Daftar Isi Saya Oke, Thnanks For Viewver My BLog Program

Kumpulan Source Code Program Delphi 7 Free Download

Kumpulan Program Delphi 7 For U All

Dalam Article Ini Saya Akan Share Dalam Bentuk PDF .
Article Yang Saya Buat Ini Banyak Dari File Tetangga Termasuk Senior Kita Yaitu
ILMUKOMPUTER
karena ILMU komputer Termasuk WEBSITE yang sangat Bermanfaaat Untuk Dikunjungi
Dan Itu Sangat Lah Berguna Bagi Kita Anak Programmer.
Untuk Lebih Lanjut Kita Lanjut Aja Ke Article
dibawah Ini..






Langsung Saja OK

1. File Pertama Yaitu Membuat Aplikasi Sederhana

 Read File Here ==> Program Aplikasi Sederhana

2. File Pertama Yaitu Membuat Form Biodata

 Read File Here ==> Membuat Form Biodata

3. File Pertama Yaitu Tutorial Program Aplikasi

 Read File Here ==> Tutorial Program Aplikasi

4. File Pertama Yaitu Memasukkan file Flash Ke Delphi 7

 Read File Here ==> Memasukkan file Flash Ke Delphi 7

5. File Pertama Yaitu Membuat Animasi Mata dengan Borland Delphi 7.0

 Read File Here ==> Membuat Animasi Mata dengan Borland Delphi 7.0

6. File Pertama Yaitu Membuat Login Form Dengan Borland Delphi dan Basis Data Microsoft Access

 Read File Here ==> Membuat Login Form Dengan Borland Delphi dan Basis Data Microsoft Access

7. File Pertama Yaitu Membuat Form Gaji Karyawan dengan Delphi 7

 Read File Here ==> Membuat Form Gaji Karyawan dengan Delphi 7

8. File Pertama Yaitu Program untuk Capture Foto dengan Webcam menggunakan
Delphi 7.0

 Read File Here ==> Program untuk Capture Foto dengan Webcam menggunakan Delphi 7.0

9. File Pertama Yaitu Membuat Dialog KILLER dengan DELPHI 7

 Read File Here ==> Membuat Dialog KILLER dengan DELPHI 7

10. File Pertama Yaitu Menggunakan grafik / chart pada Borland Delphi 7

 Read File Here ==> Menggunakan grafik / chart pada Borland Delphi 7

Thanks For Read Article Here.....

copyright@ILMUKOMPUTER And Evi_WidyAstuti

PROGRAM MENGHITUNG LUAS SEGITIGA DENGAN DELPHI 7

Program berikut ini mempergunakan rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut kita bisa membuat sebuah program sederhana.
Langka-langka untuk membuat programnya adalah sebagai berikut :

1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawah ini.

Gambar 1. Form Tampilan

2. Kemudian Doble Click pada tombol Proses dan ketikan Code dibawah ini pada bidang Code editor seperti yang terlihat pada gambar 2 .

procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real; 
begin 
A:=STRTOFLOAT(EDIT1.TEXT); 
T:=STRTOFLOAT(EDIT2.TEXT); 
L:=0.5*A*T; 
EDIT3.Text:=FLOATTOSTR(L); 
end;

Gambar 2. Bidang Code Editor

3. Setelah selesai memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas yang berwana hijau. Atau dengan menekan f9 pada keyboard.

PROGRAM KALKULATOR SEDERHANA DENGAN DELPHI 7

Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana,

Langka-langkanya adalah sebagi berikut :

1.Buatlah sebuah Form seperti yang terlihat pada gambar 11 dibawa ini.

  Pada program berikut ini kita akan menggunakan empat buah botton, tiga buah

  edit dan satu label. Ubah Caption botton pada properties sesuai dengan yang

  kita inginkan, hapus edit pada properties-text dang anti label dengan hasil

  perhitungan.

Gambar 11. Form Menu

2.Doble Clik tombol Tamba dan masukan code dibawah ini pada bidang code editor.

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;

Note : Untuk C pada tombol Kurang codenya menjadi C:=A-B;
       Pada tombol Kali codenya menjadi C:=A*B;
       Sedangkan  pada tombol Bagi codenya menjadi C:=A div B;

Program Transaksi Sederhana dengan Borland Delphi 7

Komponen yang digunakan :

- Komponen Standart : Panel, Edit, Label, Memo, Button
Listing Program :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;

Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo4: TMemo;
Memo5: TMemo;
Edit7: TEdit;
Memo6: TMemo;
Timer1: TTimer;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var harga1,harga2,harga3,tot1,tot2,tot3,total,diskon,uang,bayar,kembali: currency;
jml1,jml2,jml3:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
harga1:=StrToCurr(Edit1.Text);
harga2:=StrToCurr(Edit2.Text);
harga3:=StrToCurr(Edit3.Text);
jml1:=StrToInt(Edit4.Text);
jml2:=StrToInt(Edit5.Text);
jml3:=StrToInt(Edit6.Text);
tot1:=harga1*jml1;
tot2:=harga2*jml2;
tot3:=harga3*jml3;
Memo1.Text:=CurrToStr(tot1);
Memo2.Text:=CurrToStr(tot2);
Memo3.Text:=CurrToStr(tot3);
total:=tot1+tot2+tot3;
Memo4.Text:=CurrToStr(total);
Button2.Visible:=True;
Button3.Visible:=True;
Button4.Visible:=True;

total:=StrToCurr(Memo4.Text);
if total>=2000000 then
diskon:=100000
else diskon:=50000;
Memo5.Text:=CurrToStr(diskon);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
uang:=StrToCurr(Edit7.Text);
bayar:=total-diskon;
kembali:=uang-bayar;
Memo6.Text:=CurrToStr(kembali);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
harga1:=2000000
else if ComboBox1.ItemIndex=1 then
harga1:=1000000
else if ComboBox1.ItemIndex=2 then
harga1:=500000;

Edit1.Text:=CurrToStr(harga1);
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex=0 then
harga2:=200000
else if ComboBox2.ItemIndex=1 then
harga2:=100000
else if ComboBox2.ItemIndex=2 then
harga2:=50000;


Edit2.Text:=CurrToStr(harga2);
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.ItemIndex=0 then
harga3:=250000
else if ComboBox3.ItemIndex=1 then
harga3:=150000
else if ComboBox3.ItemIndex=2 then
harga3:=100000;


Edit3.Text:=CurrToStr(harga3);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label7.Caption:=TimeToStr(now);
Label6.Caption:=DateToStr(now);
end;
end.