Bimbingan Olimpiade Komputer : Pembahasan 3. OSK 2007

ahmadrizal — Tue, 10 May 2011 03:24:04 +0000

Soal 39. OSK 2007
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008

function apaitu(a:integer; b:integer):integer;
var count : integer;
begin

count :=count + 1;
writeln(count);
if (a > b) then
   apaitu := apaitu(b,a)
else if (a = 0) then
     apaitu :=b
else
    apaitu := apaitu(b mod a,a);
end;

begin
writeln(apaitu(1001,1331));
readln;
end.

Pembahasan :
Pemanggilan writeln(apaitu(1001,1331)) akan menghasilkan 11

A = 1001
B = 1331

if (a>b)  apaitu(a,b) if(a = 0)  apaitu := b apaitu(b mod a, a)
(1001>1331)tidak
                      if(1001=0)tidak     apaitu(1331 mod 1001,1001)
                                               apaitu(330,1001)

(1001>330)ya
            apaitu(330,1001)
(330>1001)tidak
                      if(330=0)tidak    apaitu(1001 mod 330,330)
                                             apaitu(11,330)

(330 > 11) ya
            apaitu(11,330)
(11 > 330) tidak
                      if(11=0) tidak    apaitu(330 mod 11,11)
                                            apaitu(0,11)

(11 > 0) ya
                apaitu(0,11)
(0 > 11) ya
                        if(0=0) yA ---> PROSES SELESAI	      
NILAI A = 11

Link Yang berhubungan :

Bimbingan Olimpiade Komputer : Pembahasan 2. OSK 2007

ahmadrizal — Mon, 09 May 2011 04:40:30 +0000

Soal 37 (OSK 2007)
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008

function apaini(a:integer; b: integer):integer;
var
x,y,r : integer;
begin
     x := a;
     y := b;
     while (y <> 0) do
     begin
          r := x mod y;
          x := y;
          y := r;
     end;
     apaini:=x;
end;

begin
writeln(apaini(414,662));
readln;
end.

Hasilnya adalah 2

Langkah-langkah penyelesaiannya :

while (y <> 0)         r = x mod y           x = y         y = r
        (662 <> 0)     r = 414 mod 662     x = 662      y = 414
                           r = 414
        (414 <> 0)     r = 662 mod 414     x = 414      y = 248
                           r = 248
        (248 <> 0)     r = 414 mod 248     x = 248      y = 166
                           r = 166
        ........
        ........
        (2 <> 0)        r = 81 mod 2          x = 2          y = 0
                           r = 0
        (0 <> 0)        Perulangan while berhenti...

Sehingga mendapatkan nilai x = 2

Link Yang berhubungan :

Bimbingan Olimpiade Komputer : Pembahasan 1. OSK 2007

ahmadrizal — Mon, 09 May 2011 03:59:50 +0000

Soal No. 32 (OSK 2007)
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008

const
xmin = -10;
xmax = 10;
ymin = -10;
ymax = 10;

function code(x:integer;y : integer):byte;
var c:byte;
begin
     c:=0;
     if (x < xmin) then          c:= c or 8
     else if (x > xmax) then   c:= c or 1;
     if (y < ymin) then          c:= c or 4
     else if (y > ymax) then   c:= c or 2;
     code :=c;
end ;

begin
writeln(code(-12,-12) or code(20,5));
readln;
end.

Jawaban:
Dari Soal diatas apabila progam dijalankan maka akan menghasilkan 0

Langkah-langkah penyelesaiannya :

Pemanggilan Code(-12,-12)
X = -12
Y = -12
C = 0
if (x < xmin) then  c = c or 8
Jika (-12 < -10) maka c = 0 or 8 = 8

if (y < ymin) then c := c or 4
Jika (-12 < -10)maka c := 8 or 4 = 12
Code = c;
Code = 12

Pemanggilan Code(20,5)
X = 20
Y = 5
C = 0
if (x < xmin) then c = c or 8
Jika (20 < -10) maka tidak terpenuhi
	Else if (x > xmax) then  c = c or 1 
	Else Jika (20 > 10) maka c = 0 or 1 = 1
if (x < xmin) then …
Jika (5 < -10) maka tidak terpenuhi
	Else if (y > ymax) then …
Else jika (5 > 10) maka tidak terpenuhi
Karena tidak ada yang terpenuhi maka Code = c
Code  = 0

Dari proses di atas :
Pemanggilan code(-12,-12) menghasilkan 12
Pemanggilan code(20,5) menghasilkan 1
Sehingga (code(-12,-12) and code (20,5)) = 12 and 1 = 0

Link Yang berhubungan :

Pemrograman Delphi . Pembuatan Laporan Transaksi PerTanggal dan PerPeriode dengan Menggunakan Rave (Tanggal + datetimePicker)

ahmadrizal — Thu, 27 Jan 2011 13:19:48 +0000

Langkah-langkahnya adalah :

1. Buatlah Form serperti di atas

2.Koneksikan ke dalam database dan isi adoquery

3. Membuat laporan dengan menggunakan Rave

Untuk nomor 1, 2 dan 3 diatas silahkan baca kembali modul berikut : Pembuatan Report dengan Rave

4. Kembali kedalam Form Laporan di Delphi lalu Double klik pada RadioGroup untuk jenis report dan ketikkan listing berikut :


procedure TForm9.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then
Jenis :='PT'
else
Jenis :='PP';
end;

5. Kembali ke Form, double Klik Tombol Cetak dan ketikkan koding berikut :


procedure TForm9.CetakClick(Sender: TObject);
begin
if jenis='PT' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli and tgl_faktur = #' + formatdatetime('mm/dd/yyyy',datetimepicker1.date) + '#');
adoquery1.Open;
if not adoquery1.eof then
begin
adoquery1.Active :=true;
RvProject1.Execute;
rvproject1.ExecuteReport('Transaksi.rav');
end
else
Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);
end;

if jenis='PP' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli and tgl_faktur >= #' + formatdatetime('mm/dd/yyyy',datetimepicker1.date) + '# and tgl_faktur <= #' + formatdatetime('mm/dd/yyyy',datetimepicker2.date) + '#');
adoquery1.Open;
if not adoquery1.eof then
begin
adoquery1.Active :=true;
RvProject1.Execute;
rvproject1.ExecuteReport('Transaksi.rav');
end
else
Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);
end;
if jenis='' then
Application.Messagebox('maaf Pilih Dulu Jenis Laporannya...','Cek Input',mb_iconstop);
end;

Selamat Mencoba…. moga sukses

Pemrograman Delphi 9. Pembuatan Laporan Transaksi Pembelian Barang dengan menggunakan Rave (Master/Detail)

ahmadrizal — Tue, 25 Jan 2011 08:48:31 +0000

Langkah-langkah pembuatan laporan dengan menggunakan Rave adalah :
1. Menambahkan form baru pada projek yang telah dibuat sebelumnya.
2. Tambahkan komponen :
1 buah Ado connection, 2 buah ADoQuery dan Dataset
dan tambahkan juga 2 buah button, Button1 untuk cetak dan Button2 untuk CancelUntuk membuat laporan kita menggunakan dua komponen pallete RAVE yaitu : 1 buah RVProject dan 2 buah RVDataSetConnectionD
3. Mengkoneksikan Database dengan Adoconnection :

Klik ADOConnencti pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data source ketikkan : D:\Transaksi\transaksi.accdb, dan yang terakhir klik test connection. Apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmCetakanggota.

4. Mengaktifkan Adoquery 1 untuk tabel Transaksi
Klik Adoquery1, klik SQL pada properties, lalu ketikkan :

select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli

perintah ini dijadikan sebagai master yang akan digunakan untuk menampilkan data transaksi dan beralasi dengan tabel pelanggan

Dan Klik Active pada properties ganti false menjadi true.

5. Mengaktifkan Adoquery 2 untuk tabel Djual

select * , harga * jumlah as jumlahharga from djual, barang where djual.kode_barang = barang.kode_barang

perintah ini dijadikan sebagai Detail yang akan digunakan untuk menampilkan data Detail dari transaksi dan berelasi dengan tabel barang disertai dengan proses untuk menghitung jumlahharga yang didapat diari perkalian harga * jumlah

6.Mengkoneksikan RVDataSetConnection 1 ke Adoquery 1, sebaiknya nama RVDatasetConnection 1 diganti dengan RVTransaksi pada properties dengan dataset, dengan cara klik RVDataSetConnection/RVtransaksi, pada properties klik Dataset, lalu pilih AdoQuery1.

7. Mengkoneksikan RVDataSetConnection 2 ke Adoquery 2, sebaiknya nama RVDatasetConnection 2 juga diganti dengan RVDetail pada properties, dengan cara klik RVDataSetConnection/RVDetail, pada properties klik Dataset, lalu pilih AdoQuery2.

8. Menjalankan Rave
langkah-langkahnya adalah :

DataView untuk Master

Double klik pada Rave Project atau Klik menu Tools pada delphi, klik RAVE designer
Klik File, Klik New Data Object
Klik Direct Data view
Klik RVTransaksi (DT), lalu klik Finish

Data View untuk Detail

Klik File, Klik New Data Object
Klik Direct Data view
Klik RVTransaksi (DT), lalu klik Finish

Dengan cara tersebut maka disudut kanan atas akan terbuat 2 buah Dataview yaitu Dataview 1 (untuk master) dan DataView 2 (untuk Detail)

9. Desain Report Master/Detail secara Manual
Klik Report pada Tab report setelah itu klik Region Component, gerak kursur kearah lembar kerja dan drag sehing lembar kerja tertutup semua dengan Region Component :

Klik Band Component pada tab Report lalu letakkan pada region, Klik Tab Standar lalu klik Text component, pada properties sebelah kiri, ganti text menjadi “Form Laporan Transaksi Pembelian” ini digunakan untuk judul dari laporan yang dibuat.

Klik Tab Report dan klik Data Band Component gerakkan kearah region lalu klik, maka akan terbuat Data Band 1, ini akan digunakan sebagai master table header, selanjutnya atur pada properties :
untuk data band pertama rubah

Klik Bandstyle lalu klik master (body Header), lalu OK
Klik DataView pada properties isi dengan DataView1 (Master)
Klik Detail Key isi dengan NO_faktur
Klik start New Page isi dengan True

Jika sudah selesai lanjutkan dengan mengisi Text Component yang ada pada tab Standar, lalu isikan ke dalam Data View satu sebanyak empat buah text masing-masing untuk : no transaksi, tanggal transaksi, id pelanggan dan nama pelanggan.
Klik Tab Report, lalu klik Data Text Component dan letak pada Dataview 1 atau tepatnya pada Data Band 1, sebanyak empat buah masing-masing ganti pada propertiesnya : Dataview diisi dengan Dataview 1, dan DataField disesuaikan dentan texnya lanjutkan dengan Data text yang lain sehingga membentuk gambar berikut

uji Rave dengan cara klik File lalu Execute dan klik OK

Klik Tab Report kembali, lalu klik Data Band Component lalu klik pada region ini digunakan untuk menampilkan field detail, setelah itu atur pada properties dengan cara :

Klik BandStyle, lalu klik detail, lalu OK
Klik dataviewnya isi dengan dataview2
Klik Detail key lalu isi dengan No_faktur
Klik ControllerBand isi dengan DataBand1
klik MasterDataView isi dengan Dataview1
Klik MasterKey isi dengan NO_Faktur

langkahselanjutnya adalah klik Tab Report lalu klik DataText Component, dan letakkan pada Databand 2, sebanyak 5 buah untuk kode barang, nama barang, harga barang, jumlah, dan total, atur masing-masing data text component pada properties untuk Dataview isi dengan dataview 2 dan Data Fieldnya sesuai dengan data yang akan ditampilkan.

Tambahkan satu buah Databand dengan cara klik Tab Report dan klik Data Band Componen ini digunakan untuk menjumlah total setelah itu atur pada propertiesnya :

Klik BandStyle, lalu klik row Footer(), lalu OK
Klik dataviewnya isi dengan dataview2
Klik Detail key lalu isi dengan No_faktur
Klik ControllerBand isi dengan DataBand1
klik MasterDataView isi dengan Dataview1
Klik MasterKey isi dengan NO_Faktur

Klik Tab Report lalu klik Calc Text Component, letakkan pada Databand 3, lalu antur pada propertiesnya untuk Dataview isi dengan Dataview1, dan Data Field isi dengan jumlahharga dan untuk Controllernya isi dengan Dataview 2.

Uji Program… dengan cara klik File Klik Execute lalu klik OK

jika sudah selesai setting pada rave simpan file rave dengan cara klik File Klik Save as lalu tentukan Folder dimana project delphi dibuat beri nama Prjlaporantransaksi.rav.

Kembali ke Delphi,
Double klik Tombol Cetak lalu ketik listing program berikut :

adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli');
adoquery1.Open;
adoquery1.Active :=true;
RvProject1.Execute;
rvproject1.ExecuteReport('Prjlaporantransaksi.rav');

eit jangan lupa klik RvProjectnya lalu klik pada properties dibagian Project File yang titik tiga, lalu buka file Prjlaporantransaksi.rav ….
selesai… deh….
selamat mencoba….
Ahmad Rizal Abidin, M.Kom….

Pemrograman Delphi 8. Pembuatan Laporan Daftar Pelanggan dengan menggunakan Rave

ahmadrizal — Thu, 20 Jan 2011 03:14:16 +0000

Pemrograman Delphi 7. Pembuatan Laporan Daftar Barang dengan menggunakan Rave

ahmadrizal — Thu, 20 Jan 2011 03:11:47 +0000

Pemrograman Delphi 6. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi Pembelian Barang)

ahmadrizal — Thu, 20 Jan 2011 02:32:16 +0000

Kodingnya adalah :

Double klik Tombol Update lalu ketikkan listing koding berikut :


procedure TForm2.Button6Click(Sender: TObject);
var jumlah : integer;
stock:integer;
begin
adoquery5.SQL.Clear;
adoquery5.SQL.Add('Select * from djual WHERE no_faktur = "'+ edit1.Text +'" and kode_barang ="'+ DBLookupComboBox2.KeyValue+'" ');
adoquery5.Open;
if not adoquery5.Eof then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from barang where kode_barang="'+DBLookupComboBox2.KeyValue+'"');
adoquery1.open;
jumlah := adoquery5.Fields[3].AsInteger + adoquery1.Fields[3].AsInteger;
stock := jumlah - strtoint(edit2.Text);

adoquery1.SQL.Clear;
adoquery1.SQL.Add('update barang set stock="'+inttostr(stock)+'" where kode_barang="'+DBLookupComboBox2.KeyValue+'"');
adoquery1.ExecSQL;

adoquery5.SQL.Clear;
adoquery5.SQL.Add('update penjualan set tgl_faktur="'+datetostr(DateTimePicker1.Date)+'", id_pembeli="'+ DBLookupComboBox1.KeyValue +'" where no_Faktur="'+edit1.Text+'"');
adoquery5.ExecSQL;

adoquery4.sql.Clear;
adoquery4.SQL.add('update djual set jumlah="'+ edit2.Text +
'", harga ="'+ edit3.Text +'" where no_Faktur="'+ edit1.Text +'" and kode_barang="'+ DBLookupComboBox2.KeyValue +'"');
adoquery4.ExecSQL;

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from barang');
adoquery1.open;
end
else
begin
adoquery4.SQL.Clear;
adoquery4.SQL.Add('insert into Djual(no_faktur,kode_barang,jumlah,harga)values("'+edit1.text+'","'+DBLookupComboBox2.KeyValue+'","'+ edit2.Text +'","'+edit3.Text+'")');
adoquery4.ExecSQL;
tampildb();
end;
tampildb();
kosongbarang();
end;

2. Buatlah Procedure TAmpildb dan kosongbarang;

a. Procedure Tampil Database


procedure TForm2.tampildb();
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select no_Faktur,kode_barang,harga,jumlah, (harga*jumlah) as total from djual where no_Faktur = "'+ edit1.text +'"');
adoquery4.Open;
datasource4.DataSet := adoquery4;
dbgrid1.DataSource := datasource4;

adoquery5.Close;
adoquery5.SQL.clear;
adoquery5.SQL.add('select sum(harga*jumlah) from djual where no_Faktur = "'+ edit1.text +'"');
adoquery5.Open;
edit4.Text := adoquery5.Fields[0].AsString;
end;

a. Procedure Kosong

procedure TForm2.kosongbarang();
begin
DBLookupComboBox2.KeyValue:='';
dbedit3.Text:='';
dbedit4.Text:='';
edit2.Text:='';
edit3.Text:='';
End;

3. Double Klik Pada Edit2 (Jumlah), lalu rubah pada event di properties menjadi On KeyPress, selanjutnya ketik listing berikut :


procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
VAR SISA:INTEGER;
begin
IF KEY=#13 THEN
BEGIN
 IF (ADOQUERY1.Fields[3].AsInteger < sTRTOINT(eDIT2.Text)) then
 BEGIN
 Application.MessageBox('DATA TIDAK CUKUP','cONTROL',MB_ICONSTOP);
 END;

 EDIT3.Text := INTTOSTR(STRTOINT(DBEDIT4.Text) * STRTOINT(EDIT2.TEXT));
 SISA:= ADOQUERY1.Fields[3].AsInteger - STRTOINT(EDIT2.Text);

 ADOQUERY6.Close;
 ADOQUERY6.SQL.CLEAR;
 ADOQUERY6.SQL.Add('UPDATE BARANG SET STOCK = "'+ inttostr(SISA) +'" WHERE KODE_BARANG = "'+ ADOQUERY1.Fields[0].ASSTRING +'"');
 ADOQUERY6.ExecSQL;
END;

4. Double klik Tombol Save, lalu ketikkan listing berikut :


procedure TForm2.Button3Click(Sender: TObject);
var i : integer;
begin
adoquery3.SQL.Clear;
adoquery3.SQL.add('insert into Penjualan(no_faktur,id_pembeli,tgl_faktur)values("'+ edit1.Text +'","'+DBLookupCombobox1.Text+'","'+DateToStr(DateTimePicker1.Date)+'")');
adoquery3.ExecSQL;

for i := 1 to SG.RowCount-1 do
begin
adoquery4.SQL.Clear;
adoquery4.SQL.Add('insert into Djual(no_faktur,kode_barang,jumlah,harga)values("'+edit1.text+'","'+ sg.Cells[1,i] +'","'+ edit2.Text +'","'+edit3.Text+'")');
adoquery4.ExecSQL;
end;
end;

Pemrograman Delphi 5. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Distributor)

ahmadrizal — Thu, 20 Jan 2011 02:21:34 +0000

:
Kodingnya :

Pemrograman Web 2. Modul 8. Form Lembar Hasil Studi (LHS) dengan menggunakan PHP

ahmadrizal — Wed, 19 Jan 2011 03:13:13 +0000

1. Formlhs.html




Form Lembar Hasil Studi
2. Tampillhs.php

 0 )
{
$mhssql = mysql_query("select * from mhs where nobp='$nobp'");
$hasilmhs=mysql_fetch_row($mhssql);
if ($hasilmhs)
{
echo"



No BP    =

Semester =

Tahun    =









";
echo"";
}
}
?>

  ";
 echo "";
 echo "";
 echo "";
 echo "";
 if ($datakrs['Nilai']=="A")
 $mutu=4;
 else if ($datakrs['Nilai']=="B")
 $mutu=3;
 else if ($datakrs['Nilai']=="C")
 $mutu=2;
 else if ($datakrs['Nilai']=="D")
 $mutu=1;
 else
 $mutu=0;
 echo "";
 $bobotmutu = $datakrs['sks'] * $mutu;
 echo "";
 $jumsks = $jumsks + $datakrs['sks'];
 $totbot = $totbot + $bobotmutu;
 $i++;
}
echo "";
echo "";
$ipk = $totbot / $jumsks;
echo "";
?>
NOBP : $nobp
";
echo"Nama : $hasilmhs[1]
";
echo"Semester : $semester
";
echo"Tahun : $tahun
No.
 Kode
 Nama Matakuliah
 SKS
 Nilai
 Mutu
 Bobot Mutu

$i $datakrs[kode] $datakrs[nama] $datakrs[sks] $datakrs[Nilai] $mutu $bobotmutu
JUMLAH SKS $jumsks
JUMLAH Bobot $totbot
IPK $ipk

NOBP : $nobp "; echo"Nama : $hasilmhs[1] "; echo"Semester : $semester "; echo"Tahun : $tahun
No.	Kode	Nama Matakuliah	SKS	Nilai	Mutu	Bobot Mutu
$i	$datakrs[kode]	$datakrs[nama]	$datakrs[sks]	$datakrs[Nilai]	$mutu	$bobotmutu
JUMLAH SKS	$jumsks
JUMLAH Bobot	$totbot
IPK	$ipk

3. Tampildosen.php


";
echo"Daftar Dosen";
echo"No. 
 Kode Dosen 
 Nama Dosen 
 Alamat Dosen ";
$nomor=1;
while($data=mysql_fetch_row($hasil))
{
echo "$nomor";
echo "$data[0]";
echo "$data[1]";
echo "$data[2]";
$nomor++;
}
echo"";
?>

Materi yang berhubungan :

1. Aplikasi Sistem Informasi Akademik
2. Form MAhasiswa
3. Form Dosen
4. Form Matakuliah
5. Jadwal Perkuliahan"
6. Form KRS
7. Form Nilai
8. Form LHS