Latihan 6 Sistem Basis Data

 

Command Button Hitung

with thisform

if val(.text2.value) > 10

                .text3.value="10%"

                .text4.value= val(.text1.value)*val(.text2.value)-0.1*val(.text1.value)*val(.text2.value)

                .text5.value="Anda mendapatkan diskon sebanyak 10%"

else

if val(.text2.value) = 10

                .text3.value="5%"

                .text4.value= val(.text1.value)*val(.text2.value)-0.05*val(.text1.value)*val(.text2.value)

                .text5.value="Anda mendapatkan diskon sebanyak 5%"

else

                .text3.value="0%"

                .text4.value= val(.text1.value)*val(.text2.value)

                .text5.value="Anda tidak mendapatkan diskon"

endif

endif

endwith

Command Button Clear

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

.text6.value=""

endwith

Command Button Exit

thisform.release()

Hasil Run

Latihan 5 Sistem Basis Data

 

Hitung

with thisform
if val(.text2.value) > 10
    .text3.value="10%"
    .text4.value= val(.text1.value)*val(.text2.value)-0.1*val(.text1.value)*val(.text2.value)
    .text5.value="Anda mendapatkan diskon sebanyak 10%"
else
    .text3.value="0%"
    .text4.value= val(.text1.value)*val(.text2.value)
    .text5.value="Anda tidak mendapatkan diskon"
endif
endwith

Clear

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

Endwith

Exit

thisform.release()

Latihan 4 Sistem Basis Data

Check

with thisform

if val(.Text1.value) > val(.Text2.value)

                .text3.value="Nilai A lebih besar dari nilai B"

else

                .text3.value="Nilai A lebih kecil dari nilai B"

endif

endwith

Clear

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text1.setfocus()

Endwith

Exit

thisform.release()

Latihan 1 Pemrograman Visual

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(edit6.Text);

b:=strtofloat(edit7.Text);

c:=a+b;

showmessage('Hello');

edit10.Text:=floattostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

edit8.text:=edit1.Text;

edit9.text:=edit2.text;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Close;

end;

end.

Tugas Kelompok 1 Struktur Data

Tugas Penghitungan Luas dan Volume pada delphi7 menggunakan case of else.
Berikut adalah script programnya

program penghitungan;

const

phi=3.14;

var

x:byte;

s,p,l,a,t,ss,r,tp:real;

Luas,Volume:real;

begin

writeln('==========================================');

writeln('   PROGRAM MENGHITUNG LUAS BANGUN DATAR   ');

writeln('          DAN VOLUME BANGUN RUANG         ');

writeln('==========================================');

writeln('           ~LUAS BANGUN RUANG~            ');

writeln('   1. Luas Persegi                        ');

writeln('   2. Luas Persegi Panjang                ');

writeln('   3. Luas Segitiga                       ');

writeln('   4. Luas Jajar Genjang                  ');

writeln('   5. Luas Trapesium                      ');

writeln('          ~VOLUME BANGUN RUANG~           ');

writeln('   6. Volume Kubus                        ');

writeln('   7. Volume Balok                        ');

writeln('   8. Volume Tabung                       ');

writeln('   9. Volume Kerucut                      ');

writeln('   10.Volume Limas                        ');

writeln('==========================================');

write('Masukkan Pilihan Anda   :                 ');

readln(x);

case x of

1:begin

  writeln('-------------------------------------------');

  writeln('               LUAS PERSEGI                ');

  writeln('-------------------------------------------');

  write('Masukkan sisi persegi    :    ');

  readln(s);

  Luas:=s*s;

  write('Luas Persegi adalah      :    ',Luas:6:2,'     ');

  readln;

  end;

2:begin

  writeln('-------------------------------------------');

  writeln('           LUAS PERSEGI PANJANG            ');

  writeln('-------------------------------------------');

  write('Masukkan sisi panjang      :     ');

  readln(p);

  write('Masukkan sisi lebar        :     ');

  readln(l);

  Luas:=p*l;

  write('Luas Persegi Panjang adalah: ',Luas:6:2,'      ');

  readln;

  end;

3:begin

  writeln('-------------------------------------------');

  writeln('                LUAS SEGITIGA              ');

  writeln('-------------------------------------------');

  write('Masukkan sisi alas          :   ');

  readln(a);

  write('Masukkan sisi tinggi        :   ');

  readln(t);

  Luas:=a*t/2;

  write('Luas Segitiga adalah        : ',Luas:6:2,'     ');

  readln;

  end;

4:begin

  writeln('-------------------------------------------');

  writeln('            LUAS JAJAR GENJANG             ');

  writeln('-------------------------------------------');

  write('Masukkan sisi alas          :    ');

  readln(a);

  write('Masukkan sisi tinggi        :    ');

  readln(t);

  Luas:=a*t;

  write('Luas Jajar Genjang adalah   : ',Luas:6:2,'     ');

  readln;

  end;

5:begin

  writeln('-------------------------------------------');

  writeln('               LUAS TRAPESIUM              ');

  writeln('-------------------------------------------');

  write('Masukkan Jumlah sisi sejajar:              ');

  readln(ss);

  write('Masukkan sisi tinggi        :   ');

  readln(t);

  Luas:=ss*t/2;

  write('Luas Trapesium adalah       :   ',Luas:6:2,'      ');

  readln;

  end;

6:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME KUBUS                ');

  writeln('-------------------------------------------');

  write('Masukkan sisi               :  ');

  readln(s);

  Volume:=s*s*s;

  write('Volume Kubus adalah         :  ',Volume:6:2,'  ');

  readln;

  end;

7:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME BALOK                ');

  writeln('-------------------------------------------');

  write('Masukkan panjang            :  ');

  readln(p);

  write('Masukkan lebar              :  ');

  readln(l);

  write('Masukkan tinggi             :  ');

  readln(t);

  Volume:=p*l*t;

  write('Volume Balok adalah         :  ',Volume:6:2,'  ');

  readln;

  end;

8:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME TABUNG               ');

  writeln('-------------------------------------------');

  write('Masukkan jari-jari          :  ');

  readln(r);

  write('Masukkan tinggi             :  ');

  readln(t);

  Volume:=phi*r*r*t;

  write('Volume Tabung adalah        :  ',Volume:6:2,' ');

  readln;

  end;

9:begin

  writeln('-------------------------------------------');

  writeln('              VOLUME KERUCUT               ');

  writeln('-------------------------------------------');

  write('Masukkan jari-jari          : ');

  readln(r);

  write('Masukkan tinggi             : ');

  readln(t);

  Volume:=phi*r*r*t/3;

  write('Volume Kerucut adalah       : ',Volume:6:2,'  ');

  readln;

  end;

10:begin

  writeln('-------------------------------------------');

  writeln('          VOLUME LIMAS SEGITIGA             ');

  writeln('-------------------------------------------');

  write('Masukkan alas               : ');

  readln(a);

  write('Masukkan tinggi segitiga    : ');

  readln(t);

  write('Masukkan tinggi prisma      : ');

  readln(tp);

  Volume:=a*t*tp/3/2;

  write('Volume Limas adalah         : ',Volume:6:2,'   ');

  readln;

  end;

else

writeln;

writeln('Nomor yang Anda tekan tidak ada dalam pilihan');

readln;

end;

end.

Latihan 3 Sistem Basis Data

Button Penjumlahan

with thisform

.text3.value=val(.text1.text)+val(.text2.text)

Endwith

Button Pengurangan

with thisform

.text3.value=val(.text1.text)-val(.text2.text)

Endwith

Button Perkalian

with thisform

.text3.value=val(.text1.text)*val(.text2.text)

Endwith

Button Pembagian

with thisform

.text3.value=val(.text1.text)/val(.text2.text)

Endwith

HASIL RUN

Latihan 2 Sistem Basis Data

 

 

COMMAND BUTTON ENTER
with thisform

.text5.value=.text1.text

.text6.value=.text2.text

.text7.value=.text3.text

.text8.value=.text4.text

Endwith

COMMAND BUTTON CLEAR

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

.text6.value=""

.text7.value=""

.text8.value=""

.text1.setfocus()

Endwith

COMMAND BUTTON EXIT

thisform.release()

HASIL RUN

 

Materi Sistem Basis Data 1

Membuat program sederhana fox pro.

Membuat form

Untuk menciptakan form baru, dapat digunakan perintah CREATE FORM dari jendela command. Misalnya membuat form selamat dengan langkah sebagai berikut:

CREATE FORM selamat

Cara yang kedua dengan memilih menu File à New. Pada saat muncul kotak dialog New, kliklah Form dan kemudian kliklah New file

1.       Membuat label pada form

Tulislah: SELAMAT BELAJAR FOXPRO dengan langkah – langkah sebagai berikut:

                                i.            Aktifkan jendela form Controls.

                               ii.            Klik ikopn label

                             iii.            Klik pada lokasi form tempat teks akan di tempatkan

                             iv.            Lebarkan tulisan yang dihasilkan

                              v.            Aktifkan jendela properties.

                             vi.            Pada tab layout, sorotlah property dengan nama Caption. Ganti dengan SELAMAT BELAJAR FOXPRO dan tekan enter.

2.       Menyimpan Form

                                 i.            Pilih menu File

                               ii.            Pilih save

Fisual foxpro menyimpan form dengan nama SELAMAT.SCX

                Selain file berekstensi  .SCX, file apalagi yang dibentuk oleh foxpro dan apa fungsinya?

3.       Menguji aplikasi

Jalankan form yang dibuat dengan cara

                                 i.            Pilih menu Form

                               ii.            Pulih Run Form

4.       Mengakhiri pengeksekusian

Untuk menutup eksekusi program dengan menekan tanda silang pada control

Mengatur properti

1.       Klik sekali terhadap label : SELAMAT BELAJAR FOXPRO

2.       Aktifkan jendela properties dan pilih tab layout

3.       Aturlah tulisan dan form sesuai keinginan. Jenis font, ukuran font, warna font, bold an italic, warna form, dll.

Menghapus control

Untuk menghapus control yang tidak diinginkan dengan cara :

1.       Klik pada control yang akan dihapus

2.       Tekan tombol Del atau ikon Cut

Membatalkan penghapusan

Untuk membatalkan control yang telah dihapus dengan cara:

1.       Pilih menu edit

2.       Pilih Undo

Memberikan judul Form

1.       Klik di lokasi form yang kosong.

2.       Aktifkan jendela properties

3.       Sorotlah properties Caption pada tab layout

4.       Ganti isinya dengan  PROGRAM SELAMAT

5.       Tekan enter

Tugas 1 Sistem Basis Data

Program data diri mahasiswa menggunakan Microsoft visual foxpro 6.0. Di bawah ini adalah gambaran form yang telah saya buat. Berisikan data diri yaitu nama, kelas, dan NIM. Form di bawah ini terdiri dari label, command button dan text box.

 

Program yang dibuat adalah program sederhana, yaitu mengisikan data diri di dalam text box. Ada 3 cara untuk mengisi text box, berikut scriptnya:

Cara 1

Cara ini adalah cara yang paling mudah. Namun cara ini tidak efisien karena kita harus mengisikan kata manual untuk diletakkan di dalam text box.

thisform.text1.value=”Apriska Nurfitrin Wardani”

thisform.text2.value=”TI 3 A”

thisform.text3.value=”32101047”

Cara 2

Cara ini lebih mudah dan lebih simple meskipun cara ini lebih panjang dari cara 1.

thisform.text1.value=thisform.label7.caption

thisform.text2.value=thisform.label8.caption

thisform.text3.value=thisform.label9.caption

Cara 3

Cara ini adalah cara yang paling praktis dan singkat.

with thisform

.text1.value=.label7.caption

.text2.value=.label8.caption

.text3.value=.label9.caption

Endwith

HASIL RUNNING PROGRAM

Tugas 1 Struktur Data

1. Pendefinisian Variabel

Variabel adalah suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses. (Variabel yang dimaksudkan disini sama seperti halnya arti variabel pada aljabar).

2. Kondisi (if...then...else) dan (case..of..)

Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program akan menjalankan pernyataan yang lain.

Statemen CASE-OF digunakan untuk memilih jika terdapat lebih dari dua kondisi yang setiapnya memerlukan penanganan yang berbeda.

3. Perulangan (for...to...do...) (while...do...) (repeat...until...)

FOR…DO dipergunakan ketika nilai yang akan digunakan sudah diketahui dengan nilai yang ada di dalamnya selalu ditambah atau dikurangi satu ketika mengalami perulangan.

Sintaks:

FOR variable := startindex (TO/DOWNTO) endindex DO BEGIN

statement;

END;

Dari sintaks di atas, terdapat dua jenis perubahan yang dapat digunakan, yaitu TO dan DOWNTO. TO akan menghasilkan nilai incremental atau penambahan satu setiap kali terjadi perulangan. Sedangkan DOWNTO akan menghasilkan nilai decremental atau pengurangan satu setiap kali terjadi perulangan.

WHILE…DO dapat digunakan tanpa harus ada perubahan pada nilai kondisi. Selama kondisi masih bernilai TRUE, maka perulangan akan dilakukan terus.

Sintaks:

WHILE (condition) DO BEGIN

statement;

END;

REPEAT…UNTIL berfungsi hampir sama dengan WHILE…DO. Pada REPEAT…UNTIL, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE.

Sintaks:

REPEAT

statement;

UNTIL (condition);

Dari penggalan program di atas, dapat dilihat bahwa REPEAT…UNTIL tidak memerlukan BEGIN dan END untuk menjalankan suatu blok statement.
Berikut contoh script dan hasilnya
1. IF THEN ELSE

var

a:integer;

begin

writeln('Berapa kali Anda membolos kuliah? ');

readln(a);

if a>=5 then

writeln('Anda tidak boleh mengikuti ujian')

else

writeln('Anda boleh mengikuti ujian');

readln;

end.

2. CASE OF

var

bulan:integer;

Begin

write('Bulan ke..=');

readln(bulan);

case bulan of

1:Writeln('Januari');

2:Writeln('Februari');

3:Writeln('Maret');

4:Writeln('April');

5:Writeln('Mei');

6:Writeln('Juni');

7:Writeln('Juli');

8:Writeln('Agustus');

9:Writeln('September');

10:Writeln('Oktober');

11:Writeln('November');

12:Writeln('Desember');

End;

readln;

End.

 
2. FOR TO DO

var

baris,kolom,jml :integer;

begin

write ('Jumlah Baris : ');readln(jml);

for baris:=1 to jml do

begin

write ('#': jml);

for kolom := 2 to (2 *baris -1 ) do

begin

write('#');

end;

readln;

end;

end.

3. WHILE DO

Var

kata: string;

begin

kata:='';

writeln('Tuliskan satu kata (tulis "stop" untuk selesai):');

readln(kata);

while (Kata<>'stop')do

begin

writeln('Kamu menuliskan:');

writeln(kata);

writeln;

writeln('Tuliskan satu kata (tulis "stop" untuk selesai):');

readln(kata);

end;

end.

4. REPEAT UNTIL

VAR

  condition,colour : string[10];

  BEGIN

  REPEAT

  WRITE('Tuliskan sebuah warna : ');

  READLN(colour);

  WRITE('Apakah warna tersebut terlihat jelas : [ya/tidak] ');

  READLN(condition);

  UNTIL ((colour = 'merah') and (condition = 'ya')) or

        ((colour = 'hijau') and (condition = 'ya'));

  END.