Anda mungkin sudah mengunduh aplikasi mini SMD Resistor Calculator dan mungkin telah menggunakannya. Kami berharap semoga aplikasi mini yang kami buat dan bagikan dapat memberi manfaat bagi Anda. Kritik dan saran yang membangun tentu sangat kami harapkan demi pengembangan aplikasi-aplikasi mini yang kami buat.

Teknik Elektro Links - SMD Resistor Calculator

FYI, program ini kami buat menggunakan Lazarus/Freepascal dan kami menyediakan SOURCECODE program SMD Resistor Calculator dengan HARGA TERJANGKAU. Tidak hanya mendapatkan sourcecode, tapi Anda juga akan mendapatkan Online Support untuk konsultasi pemrograman. Kontak: WA 0882-3560-7047.

Pada kesempatan ini, kami ingin membagikan lagi sebuah aplikasi mini untuk menghitung nilai kapasitor keramik atau mylar, yakni: Ceramic/Mylar Capacitor Calculator. Berikut ini adalah tampilan programnya.

Seperti halnya SMD Resistor Calculator, program Ceramic/Mylar Capacitor Calculator juga kami buat menggunakan Lazarus/Freepascal. Simak screenshot berikut ini.

Sebagai input, program menggunakan komponen TEdit yang digabungkan dengan komponen TUpDown. Program menggunakan 4 buah pasangan komponen tersebut untuk menerima masukan nilai digit-1, digit2, digit-3 dan digit-toleransi.

Penggunakan TEdit + TUpDown sangat penting untuk menghindari kesalahan input oleh user.

Dengan menggunakan TEdit + TUpDown, maka nilai-nilai digit dan toleransi akan selalu berada dalam jangkauan nilai yang benar atau valid. Hal ini akan mengurangi kode program karena kita tidak perlu melakukan validasi untuk masukan kode kapasitor.

Untuk menyimpan data nilai Digit-1, Digit-2, Digit-3 dan Digit-Toleransi, digunakan variabel: D1, D2, D3 dan Tol dengan tipe Integer. Variabel PicoFaradValue adalah variabel untuk menyimpan nilai kapasitor dalam satuan picoFarad atau pF.

var
  Form1: TForm1;
  D1, D2, D3, Tol: Integer;
  PicoFaradValue: Int64;

Untuk mengontrol nilai D1, D2, D3 dan Tol, dan melakukan update nilai kapasitor bilamana terjadi perubahan nilai digit, maka kita perlu mengatur pada event click. Berikut ini adalah kode program untuk UpDown1Click.

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  if Button=btNext then
  begin
    if D1<9 then
      inc(D1)
    else if D1=9 then
      D1:= 0
  end else if Button=btPrev then
  begin
    if D1>0 then
      dec(D1)
    else if D1=0 then
      D1:= 9;
  end;
  Digit1.Text:= IntToStr(D1);
  UpdateNilaiKapasitor;
end;

Download CapCalcExe

Anda dapat mengunduh program aplikasi mini Ceramic/Mylar Capacitor Calculator ini secara gratis melalui link berikut ini:

CapCalcExe.zip (<1MB)

Kami menyediakan paket program CapCalc lengkap dalam bentuk proyek Lazarus/Freepascal dengan harga terjangkau. Kontak kami melalui Whatsapp 0882-3560-7047 jika Anda berminat.

Pembuatan Program Aplikasi dan Pelatihan Privat Pemrograman

Kami melayani pembuatan program aplikasi dan pelatihan privat pemrograman. Silakan menghubungi kami jika Anda membutuhkan bantuan dalam pembuatan program aplikasi. Whatsapp 0882-3560-7047.

Selamat belajar. Selamat berkarya.