Contoh Aplikasi kalkulator delphi perbandingan senilai dan berbalik nilai-in ITsystemID,penulis tidak henti-hentinya menerbitkan artikel baru yang membahas contoh aplikasi kalkulator yang dibuat dengan bahasa delphi atau pascal.kalkulator-kalkulator in ITsystemID adalah hasil karangan Dholys sejak duduk di bangku SMK dan kebetulan baru ini penulis update.Untuk itu silahkan bookmark blog penulis di browser anda agar bisa mengakses artikel terbaru in ITsystemID tentang mengarang code kalkulator dan logika matematika setiap minggunya.sesuai janji saya di artikel Cara Mengarang code program aplikasi bagi pemula.!!
Ok,langsung saja! kali ini penulis akan membahas code calculator karangan penulis dengan tema "perbandingan senilai dan berbalik nilai".untuk kode programnya penulis bagi menjadi 2 bagian sesuai judul dan di akhir artikel barulah kita satukan menjadi 1 aplikasi utuh.
Oh iya!, mau ngasi tau!,warnet-warnet sekarang proteksinya ketat banget jadi saya kesulitan untuk meng-install borland delphi ditambah lagi banyaknya CC TV,jadi disini saya menjelaskan code dan pembuatan aplikasinya dengan text saja.DENGAN TEXT?,waduh.!
ettssss...!! jangan langsung males baca gitu donk.!,malah sebenarnya kekurangan ini justru bagu sekali buat anda yang ingin mendalami calculator.kenapa? karna yang terpenting dalam calculator adalah keakuratan perhitungan bukan visual dengan kata lain anda disarankan focus pada text code sedangkan visual/tampilan adalah masalah gampang dan urusan belakangan tuh.!!
kota B.Jika jarak yang ditempuh mobil tersebut sejauh 300km,maka waktu
yang diperlukan untuk sampai di kota B adalah...........Jam.
Penyelesaian by dholys : 300 = a
60 = 1
60a = 300 X 1
a = 300 / 60
a = 5 jam
Penciptaan code by dholys :
1. Buatlah terlebih dahulu beberapa identifier/pengenal,lalu masukkan proses hitung diatas kedalamnya:
klo gak tau: ( * ) adalah simbol perkalian,untuk itu jangan pake ( X ) silang untuk mengalikan 2 buah
operand.
var
a,b,c,d,e,f : real;
Begin
a := 300 ; // input nilai 1
b := 60 ; // input nilai 2
c := 1 ; // input nilai3
d :=60 * 1 ; //hasil 60
e :=300 * 1 ; //hasil 300
f :=300 /60 ; //hasil 5 hasil sudah ditemukan
end;
2. Dari hasil diatas ,kemudian code diseleksi lagi dengan menggantia angka (proses hitung) menjadi
variabel (untuk identifier).
var
a,b,c,d,e,f : real;
Begin
a := 300; // input ganti sesuai sumber input anda
b := 60 ; // input ganti sesuai sumber input anda
c := 1 ; // input ganti sesuai sumber input anda
{ubah angka(proses hitung) menjadi variabel}
d := b * 1 ;
e := a * c ;
f := e / d ;
end;
3.Jika anda ingin membuat aplikasi visualnya,anda cukup mengganti isi variabel a,b,c (sumber input)
dengan komponen input.contoh penulis ITsystemID menggunakan Tedit untuk input output
datanya.maka codenya kira-kira seperti ini:
var
a,b,c,d,e,f : real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y2.text);
d := b * 1 ;
e := a * c ;
f := e / d ;
hasil.text:=floattostr(f) ; //ubah kembali bilangan real menjadi teks untuk ditampilkan di Tedit
end;
4.nah jika anda sudah paham dan sudah bisa bikin aplikasinya maka berikut ini penulis ITsystemID
berikan source code yang sudah dipersingkat untuk penggabungan kedua calculator nantinya
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d: real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y2.text);
d := a * c / b ; //code ini sama dengan sebelumnya,hanya dipersingkat saja
hasil.text:=floattostr(d) ;
end;
Penyelesaian by dholys : 6 = 24
8 = a
8a = 6*24
8a = 144
a = 144 /8
a = 18
Penciptaan code by dholys :
1. Buatlah terlebih dahulu beberapa identifier/pengenal,lalu masukkan proses hitung diatas kedalamnya:
klo gak tau: ( * ) adalah simbol perkalian,untuk itu jangan pake ( X ) silang untuk mengalikan 2 buah
operand.
var
a,b,c,d,e: real;
Begin
a := 6 ; // input nilai 1
b := 8 ; // input nilai 2
c := 24 ; // input nilai3
d :=6 * 24 ; //hasil 144
e :=144 / 8 ; //hasil18
end;
2. Dari hasil diatas ,kemudian code diseleksi lagi dengan menggantia angka (proses hitung) menjadi
variabel (untuk identifier).
var
a,b,c,d,e: real;
Begin
a := 6; // input ganti sesuai sumber input anda
b := 8 ; // input ganti sesuai sumber input anda
c := 24 ; // input ganti sesuai sumber input anda
{ubah angka(proses hitung) menjadi variabel}
d := a * c ;
e := d / b ;
end;
3.Jika anda ingin membuat aplikasi visualnya,anda cukup mengganti isi variabel a,b,c (sumber input)
dengan komponen input.contoh penulis ITsystemID menggunakan Tedit untuk input output
datanya.maka codenya kira-kira seperti ini:
var
a,b,c,d,e : real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y1.text);
d := a * c ;
e := d / b ; hasil.text:=floattostr(e) ; //ubah kembali bilangan real menjadi teks untuk ditampilkan di Tedit
end;
4.nah jika anda sudah paham dan sudah bisa bikin aplikasinya maka berikut ini penulis ITsystemID
berikan source code yang sudah dipersingkat untuk penggabungan kedua calculator nantinya
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d: real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y1.text);
d := a * c / b ; //code ini sama dengan sebelumnya,hanya dipersingkat saja
hasil.text:=floattostr(d) ;
end;
Ya,benar!, kedua code yang sudah dipersingkat tadi sama persis.perbedaannya hanya disumber input variabel "c" yaitu Tedit (y1.text dan y2.text).
Nah untuk solusinya mudah sekali yah.! anda bisa mengganti salah satu variabel "c" dengan identifier lain, atau paling ampuh yaitu menghilangkan salah satu Tedit(y1 atau y2) karna code perhitungan dan konsepnya sama saja.
1.mengganti salah satu variabel "c"
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d,e: real;
Begin
a := strtofloat (x1.text);
b := strtofloat (x2.text);
c := strtofloat (y1.text); // untuk perbandingan berbalik nilai
d := strtofloat (y2.text); //untuk perbandingan senilai
e := a * c* d / b ;
hasil.text:=floattostr(e) ;
end;
Untuk mencegah pengguna mengisi keempat Tedit maka kita proses onclik milik Tombol radio.
Procedure tform1.berbaliknilaiclick(sender:Tobject);
begin
If form1.berbaliknilai.checked = true then
begin
y2.visible := false ;
d:=1;
end;
end ;
Procedure tform1.senilaiclick(sender:Tobject);
begin
If form1.senilai.checked = true then
begin
y1.visible := false
c:=1;
end;
end ;
2.menghilangkan salah satu Tedit,mau dikasih tau lagi??..hadeh..
pokoknya hilangkan salah satu Tedit saja (y1 atay y2)
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d,e: real;
Begin
a := strtofloat (x1.text);
b := strtofloat (x2.text);
c := strtofloat (y1.text); //dihilangkan salah satu Tedit(kodenya tetap seperti semula )
e := a * c* / b ;
hasil.text:=floattostr(e) ;
end;
artikel ini saya update sebelum tanggal 1 april.
Ok,langsung saja! kali ini penulis akan membahas code calculator karangan penulis dengan tema "perbandingan senilai dan berbalik nilai".untuk kode programnya penulis bagi menjadi 2 bagian sesuai judul dan di akhir artikel barulah kita satukan menjadi 1 aplikasi utuh.
Oh iya!, mau ngasi tau!,warnet-warnet sekarang proteksinya ketat banget jadi saya kesulitan untuk meng-install borland delphi ditambah lagi banyaknya CC TV,jadi disini saya menjelaskan code dan pembuatan aplikasinya dengan text saja.DENGAN TEXT?,waduh.!
ettssss...!! jangan langsung males baca gitu donk.!,malah sebenarnya kekurangan ini justru bagu sekali buat anda yang ingin mendalami calculator.kenapa? karna yang terpenting dalam calculator adalah keakuratan perhitungan bukan visual dengan kata lain anda disarankan focus pada text code sedangkan visual/tampilan adalah masalah gampang dan urusan belakangan tuh.!!
A.Form "Perbandingan senilai"
Contoh materi dholys : Sebuah mobil bergerak dengan kecepatan tetap 60km/jam dari kota A menujukota B.Jika jarak yang ditempuh mobil tersebut sejauh 300km,maka waktu
yang diperlukan untuk sampai di kota B adalah...........Jam.
Penyelesaian by dholys : 300 = a
60 = 1
60a = 300 X 1
a = 300 / 60
a = 5 jam
Penciptaan code by dholys :
1. Buatlah terlebih dahulu beberapa identifier/pengenal,lalu masukkan proses hitung diatas kedalamnya:
klo gak tau: ( * ) adalah simbol perkalian,untuk itu jangan pake ( X ) silang untuk mengalikan 2 buah
operand.
var
a,b,c,d,e,f : real;
Begin
a := 300 ; // input nilai 1
b := 60 ; // input nilai 2
c := 1 ; // input nilai3
d :=60 * 1 ; //hasil 60
e :=300 * 1 ; //hasil 300
f :=300 /60 ; //hasil 5 hasil sudah ditemukan
end;
2. Dari hasil diatas ,kemudian code diseleksi lagi dengan menggantia angka (proses hitung) menjadi
variabel (untuk identifier).
var
a,b,c,d,e,f : real;
Begin
a := 300; // input ganti sesuai sumber input anda
b := 60 ; // input ganti sesuai sumber input anda
c := 1 ; // input ganti sesuai sumber input anda
{ubah angka(proses hitung) menjadi variabel}
d := b * 1 ;
e := a * c ;
f := e / d ;
end;
3.Jika anda ingin membuat aplikasi visualnya,anda cukup mengganti isi variabel a,b,c (sumber input)
dengan komponen input.contoh penulis ITsystemID menggunakan Tedit untuk input output
datanya.maka codenya kira-kira seperti ini:
var
a,b,c,d,e,f : real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y2.text);
d := b * 1 ;
e := a * c ;
f := e / d ;
hasil.text:=floattostr(f) ; //ubah kembali bilangan real menjadi teks untuk ditampilkan di Tedit
end;
4.nah jika anda sudah paham dan sudah bisa bikin aplikasinya maka berikut ini penulis ITsystemID
berikan source code yang sudah dipersingkat untuk penggabungan kedua calculator nantinya
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d: real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y2.text);
d := a * c / b ; //code ini sama dengan sebelumnya,hanya dipersingkat saja
hasil.text:=floattostr(d) ;
end;
B.Form : "Perbandingan berbalik nilai"
Contoh materi dholys : Suatu pekerjaan dapat diselesaikan selama 24 hari oleh 6 orang
pekerja.jika pekerjaan itu dikerjakan oleh 8 orang pekerja,maka
pekerjaan tersebut akan selesai berapa hari?
8 = a
8a = 6*24
8a = 144
a = 144 /8
a = 18
Penciptaan code by dholys :
1. Buatlah terlebih dahulu beberapa identifier/pengenal,lalu masukkan proses hitung diatas kedalamnya:
klo gak tau: ( * ) adalah simbol perkalian,untuk itu jangan pake ( X ) silang untuk mengalikan 2 buah
operand.
var
a,b,c,d,e: real;
Begin
a := 6 ; // input nilai 1
b := 8 ; // input nilai 2
c := 24 ; // input nilai3
d :=6 * 24 ; //hasil 144
e :=144 / 8 ; //hasil18
end;
2. Dari hasil diatas ,kemudian code diseleksi lagi dengan menggantia angka (proses hitung) menjadi
variabel (untuk identifier).
var
a,b,c,d,e: real;
Begin
a := 6; // input ganti sesuai sumber input anda
b := 8 ; // input ganti sesuai sumber input anda
c := 24 ; // input ganti sesuai sumber input anda
{ubah angka(proses hitung) menjadi variabel}
d := a * c ;
e := d / b ;
end;
3.Jika anda ingin membuat aplikasi visualnya,anda cukup mengganti isi variabel a,b,c (sumber input)
dengan komponen input.contoh penulis ITsystemID menggunakan Tedit untuk input output
datanya.maka codenya kira-kira seperti ini:
var
a,b,c,d,e : real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y1.text);
d := a * c ;
e := d / b ; hasil.text:=floattostr(e) ; //ubah kembali bilangan real menjadi teks untuk ditampilkan di Tedit
end;
4.nah jika anda sudah paham dan sudah bisa bikin aplikasinya maka berikut ini penulis ITsystemID
berikan source code yang sudah dipersingkat untuk penggabungan kedua calculator nantinya
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d: real;
Begin
a := strtofloat (x1.text); //strtofloat adalah conversi type string ke type real (teks menjadi bilangan bulat)
b := strtofloat (x2.text);
c := strtofloat (y1.text);
d := a * c / b ; //code ini sama dengan sebelumnya,hanya dipersingkat saja
hasil.text:=floattostr(d) ;
end;
C.Penggabungan kedua code menjadi satu Calculator
In ITsystemID coba anda perhatikan dengan seksama no.4 diatas,ada yang tidak asing bukan?,jika anda benar benar membaca artikel ini dari awal hingga sekarang pasti anda tahu.!Ya,benar!, kedua code yang sudah dipersingkat tadi sama persis.perbedaannya hanya disumber input variabel "c" yaitu Tedit (y1.text dan y2.text).
Nah untuk solusinya mudah sekali yah.! anda bisa mengganti salah satu variabel "c" dengan identifier lain, atau paling ampuh yaitu menghilangkan salah satu Tedit(y1 atau y2) karna code perhitungan dan konsepnya sama saja.
1.mengganti salah satu variabel "c"
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d,e: real;
Begin
a := strtofloat (x1.text);
b := strtofloat (x2.text);
c := strtofloat (y1.text); // untuk perbandingan berbalik nilai
d := strtofloat (y2.text); //untuk perbandingan senilai
e := a * c* d / b ;
hasil.text:=floattostr(e) ;
end;
Untuk mencegah pengguna mengisi keempat Tedit maka kita proses onclik milik Tombol radio.
Procedure tform1.berbaliknilaiclick(sender:Tobject);
begin
If form1.berbaliknilai.checked = true then
begin
y2.visible := false ;
d:=1;
end;
end ;
Procedure tform1.senilaiclick(sender:Tobject);
begin
If form1.senilai.checked = true then
begin
y1.visible := false
c:=1;
end;
end ;
2.menghilangkan salah satu Tedit,mau dikasih tau lagi??..hadeh..
pokoknya hilangkan salah satu Tedit saja (y1 atay y2)
Procedure Tform1.hitungclick (Sender:Tobject);
var
a,b,c,d,e: real;
Begin
a := strtofloat (x1.text);
b := strtofloat (x2.text);
c := strtofloat (y1.text); //dihilangkan salah satu Tedit(kodenya tetap seperti semula )
e := a * c* / b ;
hasil.text:=floattostr(e) ;
end;
Komentar
Posting Komentar