Program Konversi Suhu delphi 7

1. Program Konversi Suhu : a. Program Celsius ke Fahrenheit Program Konversi Suhu merupakan program yang dapat membandingkan atau mengkonvert suhu dari alat ukur suhu, fungsi dari program ini agar pengguna dapat mengonvert suatu suhu yang berbasis cesius ke Fahrenheit. Program ini berfungsi untuk mempermudah perhitung konversi suatu suhu tanpa harus menghitung secara manual.  Screen shoot sebelum input NIlai Suhu :  Sesudah input NIlai Suhu  Coiding Program Celsius ke Fahrenheit : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button4Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); var c,f:real; begin c:=strtofloat(edit1.Text); f:=(5/9*c)+32; edit2.Text:=floattostr(f); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=(''); edit2.Text:=(''); end; end. b. Program Fahrenheit ke Celsius Program Konversi Suhu merupakan program yang dapat membandingkan atau mengkonvert suhu dari alat ukur suhu, fungsi dari program ini agar pengguna dapat mengonvert suatu suhu yang berbasis cesius ke Fahrenheit. Program ini berfungsi untuk mempermudah perhitung konversi suatu suhu tanpa harus menghitung secara manual.  Screen shoot program Fahrenheit ke Celsius sebelum input NIlai Suhu :  Sesudah input NIlai Suhu  Coiding Program Celsius ke Fahrenheit : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); VAR F,C:REAL; begin f:=strtofloat(edit1.text); c:=(5/9)*(f-32); edit2.Text:=floattostr(c); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=(''); edit2.Text:=(''); end; procedure TForm1.Button4Click(Sender: TObject); begin CLOSE; end; procedure TForm1.Button3Click(Sender: TObject); begin showMessage('Program Konversi Suhu Celsius ke Fahrenheit, Oleh Yoseph N Wengim'); end; end.  Algoritma Program : 1. Masukan input nilai suhu pada program konverst Celsius ke Fahrenheit atau Fahrenheit ke celsius 2. Program akan memproses nilai yang dimasukan sesuai dengan algoritma atau coding rumus yang masukan 3. Kemudian dimunculkan hasil sesuai konvers suhu pada program tersebut 4. Output program Celsius ke Fahrenheit akan muncul pada kolom Fahrenheit, dan program Fahrenheit ke Celsius pun akan muncul di Fahrenheit.