180 likes | 499 Views
PEMROGRAMAN DELPHI 7.0. Jaidup Banjarnahor Dosen Tetap AMIK MBP. Mengenal Berbagai Istilah Borland Delphi. Borland Delphi merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi visual. Keunggulan bahasa pemrograman ini terletak pada : Kualitas
E N D
PEMROGRAMANDELPHI 7.0 Jaidup Banjarnahor Dosen Tetap AMIK MBP
Mengenal Berbagai Istilah Borland Delphi Borland Delphi merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi visual. Keunggulan bahasa pemrograman ini terletak pada : • Kualitas • Produktivitas • Kwantitas • Pengembangan perangkat lunak • Desain • Kecepatan eksekusi program • Berbasis Windows
Khusus untuk pemrograman database, Borland Delphi menyediakan fasilitas objek yang kuat dan lengkap yang memudahkan programmer dalam membuat program. Format database yang dimiliki Delphi adalah format database Paradox,dBase, MS. Access, ODBC, SyBASE, MySql,Oracle dan lain-lain.
Menjalankan Program Borland Delphi • Menjalankan Program Borland Delphi • Pilih menu Programs • Pilih Borland Delphi 7, • kemudian klik Delphi 7
LAKUKAN LANGKAH BERIKUT • Simpan kerjaan anda dengan cara pilh file, save (jika anda belum punya folder, silahkan buat, jika sudah lanjutkan penyimpanan) ganti nama unit1 dengan nama unit anda misalnya Ulatih1.pas • Simpan projek dengan File – save project AS lanutkan dengan memberikan nama projek misalnya Platih1 kemudian pilih save
Ubah properti caption dari masing-masing label sehingga menghasilkan tampilan sebagai berikut
Ubah properti text dari edit1 sampai dengan edit6 menjadi kosong
Ubah properti name untuk edit1 sampai dengan edit6 dengan edit_kode,Edit_Jurusan, Edit_pendaftaran,Edit_didik, Edit_ujian dan Edit_Total Properti name dari edit1
Double clik pada button proses, sehingga akan muncul code editor procedure TForm1.Button1Click(Sender: TObject); begin if Edit_kode.Text ='D3-TI' then begin Edit_Jurusan.Text := 'Teknik Informatika'; Edit_Pendaftaran.Text := '100000'; Edit_didik.Text := '1000000'; edit_UJIAN.Text := ‘200000'; END
ELSE IF edit_kode.Text = 'D3-MI' then begin Edit_Jurusan.Text:= 'Manajemen Informatika D-III'; Edit_Pendaftaran.Text := '120000'; Edit_didik.Text := '1500000'; edit_UJIAN.Text := '250000'; END ELSE begin Edit_Jurusan.Text:='Manajemen Informatika D-I'; Edit_Pendaftaran.Text := '200000'; Edit_didik.Text := '2000000'; edit_UJIAN.Text := '300000'; END;
edit_total.Text :=inttostr(strtoint(Edit_pendaftaran.Text)+ strtoint(edit_didik.Text )+ strtoint(edit_ujian.Text )); END; END.
LATIHAN - 1 Inttostr : mengubah integer ke string Strtoint : mengubah string ke integer
Untuk button1 • Edit3.text := inttostr( strtoint(edit1.text) + strtoint(edit2.text));