Membuat Program Aplikasi Barisan Dan Deret Aritmatika Dengan Delphi

Membuat Program Aplikasi Barisan dan Deret Aritmatika Dengan Delphi

Program Aplikasi Barisan dan Deret Aritmatika Langkah-langkah Kerja: 1. Letakkan 3 komponen Label, 3 komponen Edit, dan 3 komponen Button pada sebuah Form. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini: Tabel 4.1 Daftar Komponen Program Aplikasi Barisan dan Deret Aritmatika Komponen Tab Nomor Properti Nama Form Caption Aplikasi Barisan dan Deret Aritmatika Label Standard 1 Caption Suku Pertama (a1) 2 Caption Suku Kedua (a2) 3 Caption Beda (b) 4 Caption n 5 Caption Suku ke-n (Un) 6 Caption Jumlah suku ke-n (Sn) Kosongkan Edit 1 Text Kosongkan 2 Text Kosongkan 3 Text Kosongkan 4 Text Kosongkan 5 Text Kosongkan 6 Text Button 1 Caption &Proses 2 Caption &New 3 Caption &Exit 2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 4.1 Desain Program Aplikasi Barisan dan Deret Aritmatika 3. Klik ganda pada tombol “Proses” dan ketikkan sintak berikut ini: procedure TForm1.Button1Click(Sender: TObject); Var a1,a2,b,n,Un,Sn:real; begin a1:=Strtofloat(Edit1.Text); a2:=Strtofloat(Edit2.Text); n:=Strtofloat(Edit3.Text); b:=a2-a1; Un:=a1+(n-1)*b; Sn:=n/2*(a1+Un); Edit4.Text:=Floattostr(b); Edit5.Text:=Floattostr(Un); Edit6.Text:=Floattostr(Sn); end; 4. Klik ganda pada tombol “New” dan ketikkan sintak berikut ini: procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit1.SetFocus; 5. Klik ganda pada tombol “Exit” dan ketikkan sintak berikut ini: procedure TForm1.Button3Click(Sender: TObject); begin IF MESSAGEDLG('SYAHARUDDIN: 151074002: III/A',MTCONFIRMATION,[MBYES]+[MBNO]+[MBCANCEL],0)=MRYES THEN APPLICATION.Terminate; end; 6. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini:

Gambar 4.2 Hasil Eksekusi Program Aplikasi Barisan dan Deret Aritmatika Simpanlah Program Aplikasi anda melalui: File  Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi IV-a”, klik OK. Program yang akan kita buat disini adalah aritmatika (tambah, kurang, kali dan bagi) dan source code dari program aritmatika ini bisa di dowload dibawah tulisan ini. Buat sebuah VLC form application baru di delphi dan design seperti gambar dibawah ini

keterangan : label1, edit1 di Angka 1 label2, edit2 di Angka 2 label3, edit3 di Hasil Button1 : kali Button2 : bagi Button3 : tambah Button4 : kurang Button5 : clear klik dua kali pada tombol kali dan tambahkan script dibawah ini angka1 := StrToFloat(edit1.Text); angka2 := StrToFloat(edit2.Text);

hasil := angka1 * angka2; edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol bagi dan tambahkan script dibawah ini angka1 := StrToFloat(edit1.Text); angka2 := StrToFloat(edit2.Text); hasil := angka1 / angka2; edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol tambah dan tambahkan script dibawah ini angka1 := StrToFloat(edit1.Text); angka2 := StrToFloat(edit2.Text); hasil := angka1 + angka2; edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol kurang dan tambahkan script dibawah ini angka1 := StrToFloat(edit1.Text); angka2 := StrToFloat(edit2.Text); hasil := angka1 - angka2; edit3.Text := FloatToStr(hasil)

klik dua kali pada tombol clear dan tambahkan script dibawah ini edit1.Text := ''; edit2.Text := ''; edit3.Text := '';

jalankan dengan menekan tombol F9, hasilnya bisa dilihat dibawah ini