aplikasi jam digital dengan delphi

Assalamu alaikum Wr.Wb..!!
Salam Sejahtera bagi kita semua….
kali ini saya akan sharing tentang cara membuat jam digital Layaknya seperti yang biasa dilihat pada jalur lampu merah…..Disini saya menggunakan DELPHI7 untuk membuat aplikasi  yang sangat sederhana ini …. perlu teman-teman ketahui bahwa dalam pembuatan aplikasi sederhana ini, itu tidaklah rumit seperti teman-teman pikirkan…, tapi yang menjadi kendala sekarang kurangnya minat teman-teman untuk membuat aplikasi yang sangat sederhana seperti ini…
Yang Paling Penting disini Logika dari pembuatan Aplikasi ini
Saya buat Berdasarkan Stambuk 122063, 3 angka terakhir Stambuk
 

Read More

contoh program mencari bilangan prima di delphi

procedure TForm2.Button1Click(Sender: TObject); var   i, j, prima, jml: integer; begin   jml := StrToInt(Edit2.Text);   ListBox1.Items.Clear;   For i := StrToInt(Edit1.Text) to jml do   Begin     j := 0;     For prima := 1 to i do     Begin       If i mod prima = 0 Then         j := j + 1     End;     If j = 2 then       ListBox1.Items.Add(IntToStr(i));   End; end; procedure TForm2.FormCreate(Sender: TObject); begin   Edit1.Clear;   Edit2.Clear; end; end.

Read More

program hitung nilai mahasiswa dengan delphi

procedure TForm1.tbprosesClick(Sender: TObject); begin Edit7.Text:=FloatToStr((StrToInt(Edit4.text)+StrToInt(Edit5.text)+StrToInt(Edit6.text))/3); if (Edit7.text >='80') then   Edit8.Text:='NILAI ANDA A' Else if (Edit7.Text >='70') then   Edit8.Text:='NILAI ANDA B' Else if (Edit8.Text >='60') then   Edit8.Text:='NILAI ANDA C' else if (Edit7.Text >='50') then   Edit8.Text:='NILAI ANDA D' else   Edit8.Text:='NILAI ANDA TUNDA/E' end; procedure TForm1.tbulangClick(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit7.Clear; Edit8.Clear; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.Edit1Change(Sender: TObject); begin Label8.Caption:=Edit1.Text; end; procedure TForm1.Edit2Change(Sender: TObject); begin Label9.Caption:=Edit2.Text; if copy(Edit2.Text,3,1)='1' then   Edit3.Text:='SISTEM INFORMASI' else if copy(Edit2.text,3,1)='2' then   Edit3.Text:='TEKNIK INFORMASI' else if copy(Edit2.Text,3,1)='3' then   Edit3.Text:='MANEJEMEN INFORMASI' else if copy(edit2.Text,3,1)='4' then Application.MessageBox('maaf stambuk digit 3 salah',':::info:::',MB_ICONINFORMATION); end; procedure TForm1.Edit3Change(Sender: TObject); begin Label10.Caption:=Edit3.Text; end; procedure TForm1.Edit8Change(Sender: TObject); begin Label11.Caption:=Edit8.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit7.Clear; Edit8.Clear; Edit3.Enabled:=false; Edit7.Enabled:=false; Edit8.Enabled:=false; end; end.

Read More

aplikasi menghitung lembar fotocopy dari delphi

mohon kritik dan saranya

procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.clear; Edit4.Clear; Edit5.clear; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.clear; Edit4.Clear; Edit5.Clear; end; procedure TForm1.Button1Click(Sender: TObject); var nilai,x:Real; begin if (RadioButton1.Checked=false) and (RadioButton2.Checked=false) then   begin   Application.MessageBox('pilih pelanggan atau tidak','::info:::',MB_ICONINFORMATION);   end   else if (Edit1.text)=''  then   begin   Application.MessageBox('lengkapi datax','info');   end   else if RadioButton1.Checked then   begin   Edit3.text:=IntToStr(StrToInt(Edit1.text)*StrToInt(Edit2.text));   x:=0.2;   nilai:=x*StrToFloat(Edit3.Text);   Edit4.Text:=FloatToStr(nilai);   end else if RadioButton2.Checked then   begin   Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.text));   x:=0.05;   nilai:=x*StrToFloat(Edit3.text);   Edit4.Text:=FloatToStr(nilai);   end end; procedure TForm1.Button3Click(Sender: TObject); begin CLOSE; end; procedure TForm1.Button4Click(Sender: TObject); var kembalian:Real; begin kembalian:=StrToInt(Edit4.Text)-StrToInt(Edit5.Text); Label7.Caption:=FloatToStr(kembalian); end; end.

Read More

sejarah delphi

Delphi adalah sebuah bahasa pemrograman dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh Borland (sebelumnya dikenal sebagai Inprise). Bahasa Delphi, yang sebelumnya dikenal sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework (lihat di bawah). Dengan menggunakan Free Pascal yang merupakan proyek opensource, bahasa ini dapat pula digunakan untuk membuat program yang berjalan di sistem operasi Mac OS X dan Windows CE.

Lingkungan pengembangan Delphi

Umumnya delphi lebih banyak digunakan untuk pengembangan aplikasi desktop dan enterprise berbasis database, tapi sebagai perangkat pengembangan yang bersifat general-purpose ia juga mampu dan digunakan dalam berbagai jenis proyek pengembangan software. Ia juga yang dikenal sebagai salah satu yang membawa istilah RAD tool, kepanjangan dari Rapid Application Development, saat dirilis tahun 1995 untuk windows 16-bit. Delphi 2, dirilis setahun kemudian, mendukung lingkungan windows 32-bit, dan versi c++, C++Builder, dirilis beberapa tahun kemudian. Pada tahun 2001 sebuah versi linux yang dikenal sebagai Kylix tersedia. Dengan satu rilis baru setiap tahunnya, pada tahun 2002 dukungan untuk Linux (melalui Kylix dan CLX component library) ditambahkan dan tahun 2003 .NET mulai didukung dengan munculnya Delphi.Net (Delphi 8). Kini sudah keluar juga untuk versi .NET terbaru yaitu RAD Studio 2007 dan Turbo Delphi .NET dengan versi desktopnya yaitu Delphi 2007 for win 32 dan Turbo Delphi.

Chief Architect yang membidani Delphi, dan pendahulunya Turbo Pascal, adalah Anders Hejlsberg sampai kemudian ia pindah ke Microsoft tahun 1996 di mana ia sebagai chief designer C# dan termasuk orang kunci dalam perancangan Microsoft .Net Framework. Dukungan penuh untuk .Net ditambahkan pada Delphi 8 (dirilis pada bulan Desember 2003) dengan penampilan user interface (look and feel) mirip dengan Microsoft Visual Studio .NET.

Delphi 2005 (nama lain dari Delphi 9) mendukung code generation baik untuk win32 maupun .NET, dan seperti yang telah dikenal, fitur-fitur manipulasi data secara live dari database secara design-time. Ia juga membawa banyak pembaruan pada IDE secara signifikan.

Para penganjur delphi mengklaim dengan bahasa pemrograman Delphi, IDE dan component library (VCL/CLX) yang disediakan oleh vendor tunggal memungkinkan satu paket yang lebih konsisten dan mudah dikenali. Produk delphi ini didistribusikan dalam beberapa rancangan: Personal, Professional, Enterprise (sebelumnya Client/Server) dan Architect.

Referensi : http://ekoindri.wordpress.com/sejarah/

Read More