Salam jumpa, lagi rekan2 pecinta delphindo, saya punya masalah lagi
mengenai mencari nilai 2 array yang tidak sama kemudian hasilnya
disimpan ke array ke 3:
implementasi ini saya inginkan utk mendeteksi ketika user lupa
telah menjawab soal no berapa yang telah terjawab sekalian yang
belum terjawab, kemudian dengan klik tombol batton bisa langsung di
ketahui semua informasi tersebut.
x:array[1..10]of integer =ini berfungsi untuk menyimpan urutan
no_soal.
y:array[1..10] of integer =ini berfungsi utk menampung no_soal yang
telah dijawab user
z:array[1..10] of integer = hasil yang belum terjawab
saya gunakan listing sbb :
procedure TForm1.Button2Click(Sender: TObject);
VAR
I,K,J:INTEGER;
begin
// sql ini berfungsi untuk mengecek no soal yang telah dijawab
user.....====
QUERY1.Close;
QUERY1.Open;
QUERY1.SQL.Clear;
QUERY1.SQL.Add( 'SELECT DISTINCT U.Nama, S.No_soal,
S.Kd_pil, w.BOBOT,p.nama_pil,J.TGL_TES');
QUERY1.SQL.Add( 'FROM CLIENT U, PEKERJAAN1 J, SOALTEST1
S, PILIHAN1 P, JENISTEST T, BANKSOAL B, JAWABSOAL1 W ');
QUERY1.SQL.Add( 'WHERE U.KD_USER=J.KD_USER AND
J.NO_SOAL=S.NO_SOAL AND J.KD_PIL=S.KD_PIL AND J.KD_TES=S.KD_TES ');
QUERY1.SQL.Add( 'AND s.kd_soal=b.kd_soal and
s.kd_tes=t.kd_tes and s.kd_pil=p.kd_pil and w.kd_soal=s.kd_soal and
w.kd_pil=p.kd_pil and j.no_soal=w.no_soal ');
QUERY1.SQL.Add( 'AND U.KD_USER =:KODE ');
QUERY1.SQL.Add( 'ORDER BY NO_SOAL ');
QUERY1.ParamByName('KODE').Value:=EDIT1.Text;
QUERY1.Prepare;
QUERY1.Open;
//proses pengisian ke larik y, ini dah bisa..
QUERY1.First;
FOR K:= 1 TO QUERY1.RecordCount DO
BEGIN
Y[K]:=QUERY1.FIELDBYNAME('NO_SOAL').Value;
LISTBOX1.Items.Add(INTTOSTR(Y[K]));
QUERY1.Next;
END;
QUERY1.First;
//proses pengsian larik x ....urutan soal... ini dah bisa
FOR I:= 1 TO 10 DO
BEGIN
X[I]:=I;
LISTBOX2.ITEMS.ADD(INTTOSTR(X[I]));
//nah ini yang masalah ..! gimana ya membandingkan isi Larik X dan Y
cari yang tidak sama -->Simpan ke larix Z
{ WHILE Y[K]<>X[I]DO
BEGIN
K:=K+1;
Z[J]:=X[I];
LISTBOX3.Items.Add(INTTOSTR(Z[J]));
END; }
END;
END;
mungin rekan2 punya solusi lain dengan tidak menggunakan array....
mohon bantuannya...
terima kasih.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
