Pages

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.