Pascal

[0600661160]

Eh ada yang punya pascal gak ya??
lage butuh ney gue buat coding2 gitu denkz buat tugas pemograman gitu...

[nospamy]

Ada banyak compiler gratis pascal. Borland menyediakan compiler Turbo Pascal 5.5 gratis (1989).

Cari dengan kata kunci: "Turbo Pascal Free site:borland.com".

Ukurannya cuma 1 Mb.

[0600661160]

okay2 thx banget spam...

[coolmib]

gak sekalian coba FPC saja... gratis dan terus dikembangkan... bisa jalan/dicompile di berbagai platform
http://www.freepascal.org/

[ecwx]

coain juga dev-pascal : http://www.bloodshed.net/devpascal.html

itu IDE untu PASCAL grats, compiler-nya bisa pake freepascal, bisa pake gnu-pascal

[anna_ht]

ehm, aq smstr 1, tar smstr 2 mo masuk mata kul PASCAL,....
Kita-kita, situs apa yg yg coco buat pemula ini (aq bru belajar VBScript doang),. n aq msh bingung soal pemprograman,. Logika kurang jalan nih,..
thxa lot

[ruboW]

logika kurang jalan>???
emang jarang yang programer pake logika.. lu kira gw bisa bikin pake logika?? ngak tuh..

pada dasarnya bikin program jalan atau yg u bilang sbg logika adalah langkah2 bagaimana prog berjalan. bila dari dasar... belajarlah yg namanya flowchart.. atau beberpa bilang kotak2 menyebalkan..

bila merasa itu terlalu aneh.. belajarlah yg namanya UML (bila tak mau belajar flowchart)

kemudian.. apa yg kau mau pelajari?? vbscript? belajarlah jgn 1 tapi byk seperti HTML, ASP (temen nya), database (kl bs mysql), desain (bs contek py org) dan jg memahami cara org membuat prog..

itu semua bukan hal standar tetapi jalan programer itu berat dan sangat sulit.. terutama fakta tak byk programer kuat mengingat 100 line eh maaf prosedur.

[henry99]

pascal free coba pake lazarus, cari di sourceforge.net
saya juga pake buat pengganti delphi, soalnya bayar lisensi mahal

[henry99]

ehm, aq smstr 1, tar smstr 2 mo masuk mata kul PASCAL,....
Kita-kita, situs apa yg yg coco buat pemula ini (aq bru belajar VBScript doang),. n aq msh bingung soal pemprograman,. Logika kurang jalan nih,..
thxa lot


buat belajar ke www.ilmukomputer.com
logika ga jalan ???
ga ada cara lain, selain banyak latihan
beli buku2 pascal yg murah2 kan banyak tuh di daerah senen
ato kalo mo ngirit lagi minjem di perpus trus fotokopi soal2 nya
kerjain deh yg niat

[ruboW]

jgn menyerah dulu..
ato mau lompat ke basis win?? seperti delhi?

[anna_ht]

permisi, aq di mo bljr ttg Turbo Pascal 7.0 yg rada DOS gt,.
Klo kita dah ketik programny, trz mo ngerunningny gmn ya??
Ad yg tau ebook/elearning/tutorial yg TP 7.0 ini?? (eng/indo)
thx

[mpoes]

permisi, aq di mo bljr ttg Turbo Pascal 7.0 yg rada DOS gt,.
Klo kita dah ketik programny, trz mo ngerunningny gmn ya??
Ad yg tau ebook/elearning/tutorial yg TP 7.0 ini?? (eng/indo)
thx
coba diintip di ILMU KOMPUTER (http://www.ilmukomputer.com/category/pemrograman-pascal/)
Klo mo lebih canggih lagi, lo private aja sama bro Rubow...:D masalah biaya, harga KG lah ::ngakak2::

[anna_ht]

coba diintip di ILMU KOMPUTER (http://www.ilmukomputer.com/category/pemrograman-pascal/)
Klo mo lebih canggih lagi, lo private aja sama bro Rubow...:D masalah biaya, harga KG lah ::ngakak2::
ehm,... ilmu komp, klo yg masalah pascal, aq gk gt tertarik, yah,... gk gt ngeh,...
yg ebook lain tau gk??
btw, emang Rubow sih sp? ahli pemprograman pascal KG yah??::oops:: ::ngakak2::

[anna_ht]

Coba lihat tutorial Tuirbo Pascal:
http://shareware.pcmag.com/product.php[id]51094[cid]296[SiteID]pcmag
Nama file: pastut34.zip
Atau cari di Simtel/google.
aq brusan ngeklik linkny, tp gk bs,.. akses inetny mkin yg trll lembat,... bsk aq cba lg,... thx yo,..
btw, simtel tuh ap si?

[nospamy]

Coba pascal tutorial:

ftp://garbo.uwasa.fi/pc/turbopas/pastut34.zip

http://www.simtel.net/product.php[id]51094[cid]296[SiteID]simtel.net

[v_kools]

ehm, aq smstr 1, tar smstr 2 mo masuk mata kul PASCAL,....
Kita-kita, situs apa yg yg coco buat pemula ini (aq bru belajar VBScript doang),. n aq msh bingung soal pemprograman,. Logika kurang jalan nih,..
thxa lot

emang kuliah dimana? kok masih pake pascal?

[anna_ht]

emang kuliah dimana? kok masih pake pascal?
ad kul d sby,... ehm, ini pke pascal, coz kykny kampus aq gi mo ngasah 'logika' anak2ny gt,...
Tp, tar smstr slnjutny kykny ad delphi jgg,...::oops::
mohon bantuanny ya::oops:: ::oops:: ::oops::

[anna_ht]

Coba pascal tutorial:
ftp://garbo.uwasa.fi/pc/turbopas/pastut34.zip
http://www.simtel.net/product.php[id]51094[cid]296[SiteID]simtel.net
thx yahhh ::oops:: ::oops::
aq dah ngunduh yg pastut34.zip,...
tp, yg simtel.net tuh, bingung, trs wkt download2, e, ad kyk virus gt,.. ngeri d, avg aq teriak2::grrr::
Tp, kykny gpp::oops::

[nospamy]

> Simtel itu apa?

Simtel terkenal dengan berbagai koleksi program, shareware untuk DOS, termasuk turbo pascal, turbo C etc. Yang ada download itu dari FTP garbo Finlandia.

http://www.merlyn.demon.co.uk/clpb-faq.txt

'Garbo' The primary Turbo Pascal source/unit site.
ftp://garbo.uwasa.fi/pc/ {turbopa* directories}
http://garbo.uwasa.fi/

'Oulu' Lots of files related to game (and demo?) programming.
ftp://x2ftp.oulu.fi/pub/msdos/programming/

'Simtel' Enormous MS-DOS archive
ftp://ftp.simtel.net/pub/simtelnet
http://www.simtel.net/simtel.net/

> Simtel.net ada virus

Dulu Simtel banyak mirrors FTP. Sekarang banyak yang tutup, tetapi bisa dicari pakai google.

http://www.mirrorservice.org/sites/ftp.simtel.net/pub/simtelnet/MIRRORS.TXT

[anna_ht]

> Simtel itu apa?

Simtel terkenal dengan berbagai koleksi program, shareware untuk DOS, termasuk turbo pascal, turbo C etc. Yang ada download itu dari FTP garbo Finlandia.

http://www.merlyn.demon.co.uk/clpb-faq.txt

'Garbo' The primary Turbo Pascal source/unit site.
ftp://garbo.uwasa.fi/pc/ {turbopa* directories}
http://garbo.uwasa.fi/

'Oulu' Lots of files related to game (and demo?) programming.
ftp://x2ftp.oulu.fi/pub/msdos/programming/

'Simtel' Enormous MS-DOS archive
ftp://ftp.simtel.net/pub/simtelnet
http://www.simtel.net/simtel.net/

> Simtel.net ada virus

Dulu Simtel banyak mirrors FTP. Sekarang banyak yang tutup, tetapi bisa dicari pakai google.

http://www.mirrorservice.org/sites/ftp.simtel.net/pub/simtelnet/MIRRORS.TXT

Ehm, so ribet yah,... aq sih cm mau yg Turbo Pascal 7.0
but, thx yo::oops::

[shindo]

mumpung pada ngomongin pascal ..
pasti di sini pada ngumpul pakar nya pascal, including pakar delphi ..

nanya dong ... gw ada beberapa hal yg ga jelas seputar pemrograman delphi n database ... ada dimana forum yg ngebahas masalah kaya gini yak ?

[ruboW]

>>btw, emang Rubow sih sp? ahli pemprograman pascal KG yah??
mantan assisten

>>nanya dong ... gw ada beberapa hal yg ga jelas seputar pemrograman delphi n database ... ada dimana forum yg ngebahas masalah kaya gini yak ?

ada forum khususnya tapi kl disini bisa silakan tulis

[anna_ht]

>>btw, emang Rubow sih sp? ahli pemprograman pascal KG yah??
mantan assisten

ooo::oops:: , mantan assisten,... uh, takut,... ::ngakak2:: ::ngakak2::
Ehm, ad gk neh ebook ato elearning ttg Turbo Pascal 7.0 ?
Btw, ebook ato elearning tuh sm aj kan?

@shindo
wah, aq delphi tar smstr slnjutny,... skr msk pascal dl,..::oops:: ,.. tar aq yah yg nny sm km ::ngakak2::

[mpoes]

>>btw, emang Rubow sih sp? ahli pemprograman pascal KG yah??
mantan assisten

>>nanya dong ... gw ada beberapa hal yg ga jelas seputar pemrograman delphi n database ... ada dimana forum yg ngebahas masalah kaya gini yak ?

ada forum khususnya tapi kl disini bisa silakan tulis
kirain asisten be-ep... :D
Asisten dimana bro Rubow?

[omi]

seinget gw dulu di pascal kan ada menu diatas-nya itu, nah itu bisa diakses lewat kombinasi tombol alt+huruf depan dari menu2 tsb
tekan tombol alt nanti cursor akan otomatis pindah ke menu-nya, tinggal di browse pake tombol arah. Atau pake cursor mouse-nya (kl nongol)
Waduh kl logika ga jalan mau ga mau musti telusuri 1 per 1, tapi ideal-nya mmg belajar logika dulu ^^
Walaupun giliran praktek-nya asal prog-nya jalan ga usah pusing2, yg pusing itu ngerancang prog-nya dulu karena musti pake logika

[shindo]

>>nanya dong ... gw ada beberapa hal yg ga jelas seputar pemrograman delphi n database ... ada dimana forum yg ngebahas masalah kaya gini yak ?

ada forum khususnya tapi kl disini bisa silakan tulis
wah ... ada forum khususnya bro ?
kalo boleh ... tlong kasih tau ya :D
soalnya takut ntar ngerepotin disini kalo nanya2 terus ... heheh, kan jadinya yg jawabin ntar elu terus bro :D

sementara ini masalah gw :
gw bikin form buat show data pake ADO di delphi (show data aja tanpa append/edit/del)
data nya gw pake MS Access
tapi kok pas dijalanin langsung muncul error ini :
' ... raised exception class EVariantTypeCastError with message "could not convert variant of type Null into type String"

padahal datanya aja masih kosong sama sekali, gw pake field juga cuman 3 dan itu isinya string ...

thx ya bro :D

[anna_ht]

Walaupun giliran praktek-nya asal prog-nya jalan ga usah pusing2, yg pusing itu ngerancang prog-nya dulu karena musti pake logika
duh, ribet bgt ngomong soal logika(rada mandek2 neh)

[anna_ht]

wah ... ada forum khususnya bro ?
kalo boleh ... tlong kasih tau ya :D
soalnya takut ntar ngerepotin disini kalo nanya2 terus ... heheh, kan jadinya yg jawabin ntar elu terus bro :D

gk usah ribet2, klo gk ngeliat judul thread ttf delphi, buat thread baru aj langusng,. tar klo trnyata dah pernah yg ad buat tuh forum, tar kan thread yg km buat dicampur langsung sm admin/moderatorny gt,.(prnah ngalamin neh ::ngakak2:: )

[nospamy]

Ada e-book "Essential Pascal" gratis:

http://www.marcocantu.com/epascal/default.htm

Kalau buku Delphi bisa dicari dengan bittorrent.

[ruboW]

itu gampang
di variabel yg kamu masukin misalnya nama

nama=rsData.showdata(1) + "." ; //dikasi titik

kl datanya kosong.. pasti keluarnya titik

sementara ini masalah gw :
gw bikin form buat show data pake ADO di delphi (show data aja tanpa append/edit/del)
data nya gw pake MS Access
tapi kok pas dijalanin langsung muncul error ini :
' ... raised exception class EVariantTypeCastError with message "could not convert variant of type Null into type String"

padahal datanya aja masih kosong sama sekali, gw pake field juga cuman 3 dan itu isinya string ...

thx ya bro tidak jelas maksud anda..
coba copy paste codenya dan errornya kl mau sekalian printscr pas error

nb.. untuk code pake bbcode [ code ]
dan errornya pake bbcode [ i ] biar miring

[anna_ht]

Ada e-book "Essential Pascal" gratis:

http://www.marcocantu.com/epascal/default.htm

Kalau buku Delphi bisa dicari dengan bittorrent.
oo, aq dah download sip d sni,... ::oops::

[shindo]

nyari buku delphi di bittorent dimana yah ?
trus ilmukomputer.com gw nyoba belakangan ini kok ga bisa masuk yah ?

[shindo]

bro rubow,
yg kemarin bikin pake ADO di delphi buat show data aja sekarang dah jalan ...
sekarang gw lagi ada masalah buat bikin yg entry master-detail pake ADO ... ribet nih jadinya ...
ada yg bisa bantu ? help plis :D

table yg digunakan ada 2 : TMaster dan TDetail
PK TMaster : TNo
PK TDetail : TNo, TUrut

yg kemarin gw dah bisa utk show data, yg ini saya mau bikin entry Master-Detail form dengan menggunakan ADO.
Waktu entry pada master nya lancar aja, tapi entry detailnya selalu error
Sebelum ini waktu gw pake BDE aja ngga ada masalah, entry master detail berjalan normal. Utk table detail biasanya gw pakai CachedUpdate. Jadi kalo tombol Cancel ditekan, langsung yg di Detail juga cancel semua

error yg gw capture ada dibawah ini

[ruboW]

http://forum.kafegaul.com/attachment.php?attachmentid=69278&d=1170246147
ngak mau gampangin masalah ah!!
pertama: km baca disana pernyataannya apa?? tak bisa field (unik) berisi kosong!! yg mana tak boleh ada dlm database ini sebuah field yg kosong. kl wa tebak seh ini pasti yg kosong adalah id atau barangid.
coba perbaiki struktur databasenya.. pastikan yg id (biasanya id) itu bersifat autoincrement
kl saya salah.. kemungkinan bukan id tetapi no/kode barang.. contoh barang sendok ABC py kode A1245; piring CIR py kode B213 dst
jadi wa saranin intip dulu strukturnya.. kesalahan biasanya dari sana bukan dari bahasa
kl dah oke.. coba di rapiin bhs programingnya
kl gagal.. coba semua yg bersifat index atau unik dicancel semua atau mudahnya
id tetap primary dan auto-increment.. yg lain jadiin normal aja
tambahan.. tlg kl nma field jgn pake spasi.. walau bisa itu akan menyusahkan dalam programingnya

[anna_ht]

Ei, ad yg tau bagaimn buat menu d Turbo Pascal 7.0 yg :
menu :
1. Menu Satu
2. Menu Dua
3. Menu Tiga
Dimana nanti saat d RUN, kita pdt memilih menu dgn menekan panah atas dan bawah pd keyboard,..
Awal, maka diblok yg nomor menu satu, klo kita tekan tombol panah bawah akan pindah k dua (yg sedang aktif itu terblok(berwarna bda dgn menu lainny yg sdg tidak berada pd pointer,..
duh, ribet yo ngomongny ::grrr::

[ruboW]

emang!!
pertama pastikan dari ketiga menu itu.. yg disinari adalah no 1 (warnanya beda sendiri)..
lalu pastikan nilai yg akan dituju adalah 1

pas dibawah.. coba tangkep event (wa lupa pake apa?? readkey??)
kl readkey atas (kurangi nilai aktif -1) bila nilai yg dimasukkan kurang dari 1.. maka nilainya 1.. dan tampilkan menu lage..

kl dibawah.. tambah 1.. dan bila kelebihan.. pastikan nilainya yg max

bila hasil tekannya bukan enter, atas atau bawah.. langsung keluar ERROR atau suara error dan nulis lage.

dah ngak main pascal lage... kl masih butuh.. call aja gw.. eh PM

[anna_ht]

iya ni all,...
perlu segera,.... thx

[ruboW]

ym?? nyalain dunk...

[anna_ht]

udah, nyala dr tuadi,...

[ruboW]

hmm... mau fault
ym gw setanbedul

[anna_ht]

ei ei, aq dah kelar ngerja ttg MENU,..
thx atas bntuanny

[ruboW]

saya cuma memberi saran..

terutama saran buat prog pascal..
utamakan yg pertama bikin prog dulu (tanpa deklarasi var)
berikutnya baru deklarasi

[anna_ht]

ei ei,... aq yg bs edit-in program aq gk ya,... plz, dunk
Gni, aq dah buat 2 buat prosedur masing2 :
Prosedur bentuk1 = gambar utk benyuk 1
[Prosedur bentuk1 = gambar utk benyuk 1
Prosedur ini sdh jalan, alias jadi,.. (udah aq buat a sisipan, aq ubah jd ".txt" coz, ".PAS" gk valid)

Yg aq mo minta bantuant uh, gmn buat spy gambar bentuk1 menantul dr atas layar ke layar bawah (pke gotoXY), trs, saat ditekan tombol "b" dr keyboard, pantulan akan berhenti dan kita dapat menggeser gambar bentukan itu ke kiri ato ke kanan lewat penekanan tombol panah atas/bawah/kiri/kanan,.
Default adl bentuk1 (gambar pertama yg muncul saat kita masukkan inputan), kmudian klo kita tekan '2' (pd keyboard) maka bentuk akan berubah ke bentuk2(prosedur bentuk2), klo ditekan '1' lagi makan kembali ke gambar pd prosedur bentuk1,...
Duh, bantuin dunk,...
aq bingung pd penggunakan keypressed/readkey/ascii gt d
plzzzzzzzzzzzzzzzzzzzzzzzzz::grrr::

[ruboW]

ini mah dah level tinggi
gw butuh 3 hari deh untuk membuatnya

[anna_ht]

ini mah dah level tinggi
gw butuh 3 hari deh untuk membuatnya
hue hue hue,... hik hik hik,.....
ya, mn praktkum aq bsk lg,.
Yo wes, la,..
hr ni mati2an aq cba ::grrr::
thx yo, minta doany aj

[RAFee]

ei ei,... aq yg bs edit-in program aq gk ya,... plz, dunk
Gni, aq dah buat 2 buat prosedur masing2 :
Prosedur bentuk1 = gambar utk benyuk 1
[Prosedur bentuk1 = gambar utk benyuk 1
Prosedur ini sdh jalan, alias jadi,.. (udah aq buat a sisipan, aq ubah jd ".txt" coz, ".PAS" gk valid)

Yg aq mo minta bantuant uh, gmn buat spy gambar bentuk1 menantul dr atas layar ke layar bawah (pke gotoXY), trs, saat ditekan tombol "b" dr keyboard, pantulan akan berhenti dan kita dapat menggeser gambar bentukan itu ke kiri ato ke kanan lewat penekanan tombol panah atas/bawah/kiri/kanan,.
Default adl bentuk1 (gambar pertama yg muncul saat kita masukkan inputan), kmudian klo kita tekan '2' (pd keyboard) maka bentuk akan berubah ke bentuk2(prosedur bentuk2), klo ditekan '1' lagi makan kembali ke gambar pd prosedur bentuk1,...
Duh, bantuin dunk,...
aq bingung pd penggunakan keypressed/readkey/ascii gt d
plzzzzzzzzzzzzzzzzzzzzzzzzz::grrr::


ok nih aq bantuin
script pascal kmu banyak yg aq ganti dan ditambahin
ini script yang aq buat
USES crt;
VAR
n, x, y, bentuk : byte;
naik : boolean;
key : char;

FUNCTION Valid(inp:byte):boolean;
BEGIN
IF (inp>=4) AND (inp<=10) AND (inp MOD 2 = 0) THEN
Valid:=true
ELSE
Valid:=false;
END;

FUNCTION Balik(teks:string):string;
VAR
temp : string;
i : byte;
BEGIN
temp:='';
for i := length(teks) DOWNTO 1 DO
temp:=temp+teks[i];
Balik:=temp;
END;

PROCEDURE Bentuk1(n:integer);
VAR
deret,ch,baris : string;
i,j : byte;
BEGIN
deret:='';
FOR i := 1 TO n DO
BEGIN
IF (i<10) THEN
str(i,ch)
ELSE
str(0,ch);
deret:=deret+ch;
END;
FOR i := 1 TO n-1 DO
BEGIN
baris:=deret;
IF (i<n/2) THEN
BEGIN
baris:=Balik(baris);
FOR j := 1 TO length(baris) DO
BEGIN
IF (j < ((n/2)-i+1)) OR ( j > (n/2)+i) THEN
baris[j]:=' ';
END;
END
ELSE
BEGIN
FOR j := 1 TO length(baris) DO
BEGIN
IF (j < (i-(n/2)+1)) OR ( j > (length(baris)-i+(n/2))) THEN
baris[j]:=' ';
END;
END;
gotoxy(x,y+i);
writeln(baris);
END;
END;

PROCEDURE Bentuk2(n:integer);
VAR
deret,ch,baris,temp : string;
i,j : byte;
BEGIN
deret:='';
FOR i := 1 TO n DO
BEGIN
IF (i<10) THEN
str(i,ch)
ELSE
str(0,ch);
deret:=deret+ch;
END;
FOR i := 1 TO n DO
BEGIN
baris:='';
FOR j := 1 TO n-1 DO
BEGIN
IF (j <= (n/2)) THEN
temp:=deret
ELSE
temp:=Balik(deret);
IF (i < (n/2)) THEN
BEGIN
IF (j <= ((n/2)-i)) OR (j > ((n/2)+i-1)) THEN
temp[i]:=' ';
END
ELSE
BEGIN
IF (j < (i-(n/2))) OR (j > (length(deret)-i+(n/2))) THEN
temp[i]:=' ';
END;
baris:=baris+temp[i];
END;
gotoxy(x,y+i);
writeln(baris);
END;

END;

BEGIN
clrscr;
x:=1;
y:=1;
naik:=false;
bentuk:=1;
write('Masukan Inputan (4/6/8/10) : ');readln(n);
IF NOT Valid(n) THEN exit;
clrscr;
repeat
repeat
clrscr;
IF bentuk = 1 THEN
Bentuk1(n)
ELSE
Bentuk2(n);
delay(75);
IF naik THEN
BEGIN
dec(y);
IF y < 1 THEN
naik:=false;
END
ELSE
BEGIN
inc(y);
IF y > (24-n) THEN
naik:=true;
END;
until keypressed;
key:=Readkey;
IF key = #13 THEN
BEGIN
key:=#0;
repeat
clrscr;
IF bentuk = 1 THEN
Bentuk1(n)
ELSE
Bentuk2(n);
key:=readkey;
case key of
#72 : IF y > 1 THEN dec(y);
#77 : IF (x < (40-n)) THEN inc(x);
#80 : IF (y < (24-n)) THEN inc(y);
#75 : IF x > 1 THEN dec(x);
#8 : IF bentuk = 1 THEN bentuk := 2 ELSE bentuk := 1;
end;
until (key = #13) OR (key = #27);
END;
until key = #27;
END.

script kamu terlalu berbelit2 dan terlalu banyak commentnya, emang comment bisa ngebantu untuk mengingatkan, tapi harus pada tempatnya, kalo terlalu banyak ntar kmu sendiri yang pusing, program kamu juga terlalu berbelit2 yang malah bikin kamu pusing sendiri. Dalam pemrograman (apalagi dalam pascal) haruslah dibuat sesimpel mungkin tapi tetap mengacu pada tuntutan input dan output, knapa harus sesimpel mungkin, soalnya biar kmu sendiri ga binggung, dah ah ceramahnya (kebiasaan..... he3x)

aq terangin dikit ya
untuk kode tombol ke kanan/kiri/atas/bawah itu pake special key (kalo ga salah, soalnya aq dah 4 tahun ga pake pascal, ini juga skalian ngingetin lagi) jadi berbeda dengan char biasa
kalo pake readln maka inputan berupa ASCII dari 0 - 255, berbeda dengan readkey, selain bisa ASCII, bisa juga menggunakan tombol special seperti atas/kanan/bawah/kiri, F1-F12, ESC, BACKSPACE, ENTER, dll. Jadi jika pake readkey maka kmu harus pilih diantara tombol spesial apa tombol ASCII, dan itu ga bisa dipake berbarengan.

#72 = keatas
#77 = kekanan
#80 = kebawah
#75 = kekiri
#8 = backspace
#13 = enter
#27 = esc

jadi untuk berhenti pake enter, trus baru bisa dipindah2 pake atas/kanan/bawah/kiri, untuk ganti bentuk pake backspace (tapi pas dalam keadaan berhenti ya), dan biar jalan lagi pake enter lagi

dan satu lagi kesalahan kamu di baris 191kamu nulis
readKey;
seharusnya
key := readKey;
dan baris 192 dihilangkan

[anna_ht]

Bentar, direnungin dl::oops::

[anna_ht]

E, aq kan pke penekanan tombol 'b',..
nah itu pke kode2 kyk #blablabla ato
key:='b' ?

[anna_ht]

ok nih aq bantuin
script pascal kmu banyak yg aq ganti dan ditambahin
ini script yang aq buat

duh, itu sih 80% dganti
hehe::oops::
Aq jg bingung,....
hehe, mo perbaikin bbrp bagian gk bs coz logikany dah bda ::grrr::
but, thx, tar aq lihat lg

[RAFee]

E, aq kan pke penekanan tombol 'b',..
nah itu pke kode2 kyk #blablabla ato
key:='b' ?

kalo mo pake tanda panah (atas/kanan/bawah/kiri) itu berarti pake
kode kya #blablabla, nah dalam pemakaiannya biasanya ga bisa kalo
disatuin dengan ASCII
jadi kalo readkey nya hasilnya pengen dibuat

key := #72 {panah ke atas}

maka biasanya ga bisa jalan kalo di line lainnya ada perintah

key := 'b'

karena karakter 'b' itu masuknya ke ASCII

jadi intinya ga bisa digabungin

[anna_ht]

ooo, bgt,.....
thx thx

[anna_ht]

soal2 yg lain END --------------------
Eh, tnyni gmn cr buat d TurBo Pascal 7... password, so wkt kita
read(ID)
read(password)

nah yg password ini saat diketik, keluat bintang2, spt saat kita login d email
thx

[ruboW]

ada ide tp sulit ngetik disini.
pertama tempatkan user pada halaman kosong dimana isinya minta masukkan password

sebenarnya prosesnya si prog menunggu inputan sampai terakhirnya enter
repeat until enterKeypressed
didalamnya repeat until keypressed
bila ada penekanan.. masukkan yg ditekan itu kedalam array atau gampangnya

temp=temp+keyPress
lanjutkan dengan perintah gotoXY(x+keyYgDiteken, 34); print "*";

saat enter.. langsung keluar khan.. nah dibaca deh apa isi temp kemudian barulah di...tentukan apa salah atau benar.

nah.. susah khan jelasinnya.. lebih susah jalanninnya

[RAFee]

soal2 yg lain END --------------------
Eh, tnyni gmn cr buat d TurBo Pascal 7... password, so wkt kita
read(ID)
read(password)

nah yg password ini saat diketik, keluat bintang2, spt saat kita login d email
thx

gw bantuin lg deh

pake aja fungsi yang aq buat ini

USES crt;

FUNCTION BacaPass(x,y,p:byte):String;
VAR
In_Char : Char;
Huruf : String;
Jumhur,Ulang : Byte;

BEGIN
IF x+p > 80 THEN Exit;
FOR Ulang:= 1 TO p DO
BEGIN
Gotoxy(x+Ulang-1,y);
Write(' ');
END;
Jumhur:=0;
Huruf:='';
Gotoxy(x,y);
In_Char:=Readkey;
WHILE (In_char <> #13) DO
BEGIN
IF In_Char <> #8 THEN
BEGIN
IF JumHur < p THEN
BEGIN
Gotoxy(x+Jumhur,y);
Write('*');
Huruf:=Huruf+Upcase(In_Char);
Inc(Jumhur);
END;
END
ELSE
BEGIN
Dec(Jumhur);
IF Jumhur > 80 THEN Jumhur:=0;
IF Jumhur < 0 THEN Jumhur:=0;
Gotoxy(x+Jumhur,y);
Write(' ');
Gotoxy(x+jumhur,y);
Delete(Huruf,JumHur+1,1);
END;
In_Char:=ReadKey;
END;
BacaPass:=Huruf;
END;

syntax fungsinya

BacaPass(bariske,kolomke,maximumpanjanginputan);

contoh cara pakenya

password := BacaPass(1,1,20);

[anna_ht]

@ RAFee,....
itu pas aq RUN, dia ngebaca penekanan tombol ESC jg lo(2/3x)

Yah, thx d,... tp, sayang bkn tgs kultuh,..
Tar aq tny2 lg pas dpt tgs kul yo ^^

[ruboW]

tanya boleh.. tapi bayar donk. hehehehe...
sry ngak bisa bantu.. bukan karena ngak dibayar tapi karena sibuk

[anna_ht]

hehe, thx alot,...
Tp, atas perhatianny aq dah thx bgt kok ^^

[anna_ht]

TANYA ne,...
aq kan buat program pke Pascal dos,.
ini tentang Akses Memory...
trs, wkt dah ngeRUN pasti gk tahan sampai 1 menit, hasil RUN akan kembali ke program kita,...
D program aq ngebuat REPEAT UNTIL penekanan ESC,.
Balik ke masalah ngeRUN, kok pas itu belum penekanan tombol ESC langsung kembali ke program kita ya??
apa itu disebabkan karena akses memory yg digunakan over gt???::grrr::
help,... thx

[ruboW]

km compile dimana?
kl ngak salah coba pake perintah readln();
itu khan sama aja dengan teken esc..

[anna_ht]

km compile dimana?
kl ngak salah coba pake perintah readln();
itu khan sama aja dengan teken esc..
nah itu dia, seharusny ada penekanan ESC + Readkey gk bs keluar dr program kan,...
Nah, ternyata masalah itu disebabkan karena aq pke array yg melebihi range
hehe, kurang teliti aq ::hihi::
Solusi udah terpecahkan, tinggal penbuatan SCORE (buat game kecil2an), rada ribet si, coz harus membaca layar memori n layar pascal biasa,...::grrr::

[ruboW]

belajar pake pointer aja
itu susah tapi berguna lho

[anna_ht]

o iya ne,...
klo aq mo buat puzzle dgn bs membaca penakanan tombol mouse dgn klik kiri itu,... brarti hrs menggunakan interrupt yo???

[ruboW]

kl ngak salah interupt nya ada lagi..
kl di visual sih ada.. tp kl under dos.. wa ngak tahu deh

soal dari gw wa posting besok aja ya.

[Shaka_RDR]

o iya ne,...
klo aq mo buat puzzle dgn bs membaca penakanan tombol mouse dgn klik kiri itu,... brarti hrs menggunakan interrupt yo???


yup. Interrupt 33h klo Under DOS.



INT 33,0 - Mouse Reset/Get Mouse Installed Flag

AX = 00


on return:
AX = 0000 mouse driver not installed
FFFF mouse driver installed
BX = number of buttons


- resets mouse to default driver values:

. mouse is positioned to screen center
. mouse cursor is reset and hidden
. no interrupts are enabled (mask = 0)
. double speed threshold set to 64 mickeys per second
. horizontal mickey to pixel ratio (8 to 8)
. vertical mickey to pixel ratio (16 to 8)
. max width and height are set to maximum for video mode

========================================



INT 33,1 - Show Mouse Cursor


AX = 01


returns nothing


- increments the cursor flag; the cursor is displayed if flag
is zero; default flag value is -1

========================================

INT 33,2 - Hide Mouse Cursor


AX = 02


returns nothing


- decrements cursor flag; hides cursor if flag is not zero



========================================

INT 33,3 - Get Mouse Position and Button Status


AX = 03


on return:
CX = horizontal (X) position (0..639)
DX = vertical (Y) position (0..199)
BX = button status:

│F-8│7│6│5│4│3│2│1│0│ Button Status
│ │ │ │ │ │ │ │ └──── left button (1 = pressed)
│ │ │ │ │ │ │ └───── right button (1 = pressed)
└──┴─┴─┴─┴─┴─┴────── unused


- values returned in CX, DX are the same regardless of video mode

[anna_ht]

rada ribet yo::nangis3::
Gimn ne, buat puzzle

[ruboW]

liburnya kapan sih lu??
http://images.stage6.com/video_images/1111909t.jpgnanti wa kasi kerjaan kayak bikin game yg wa kasi gbrnya

[anna_ht]

liburnya kapan sih lu??
http://images.stage6.com/video_images/1111909t.jpgnanti wa kasi kerjaan kayak bikin game yg wa kasi gbrnya
soal libur, wah skitar 2 bulan kurang,... Klo gk salah sih awal juni UAS,....
Ini skr bnyk dksh tgs Praktek(buat game jg, tp gk sesulit kyk2 CS kali::oops:: )

Tgs praktikum(game SNAKE pke pointer),
Puzzle pke interrupt+graph,
2 mt kuliah yg akan segera ikutan ngasih tgs(mkin mggu ini bru dikasih tau soalny),.... ::grrr::
Gile tuh, gmn mo bljr utk UAS klo dpt tgs muluk ::doh::
Btw, itu game apaan ya?? Pke program apa?
Klo kyk game yg digambar itu jg buatny pke 3Dmax dl kan(gambar lokasi n org),...?

[ruboW]

Klo kyk game yg digambar itu jg buatny pke 3Dmax dl kan(gambar lokasi n org),...?lho!! situ lupa yg wa bilang di ym??
yg wa mau itu tipenya kayak puzzle..
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX XXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXX
XXXXXXXXXX
pertama kita membuat peta seperti diatas
kedua buat karakter (yg cuma berbentuk O)
pemain kita akan jalan di daerah yg saya tandai X tak bisa lebih!!
hubungan ama gbr 3d?? ngak ada seh.. cuma bayangin kl bisa dibikin 3d.. padahal wa maunya 2d aja!!

gimanahttp://iiichan.net/boards/comics/thumb/1176947691410s.jpgngerti ora son..

[RAFee]

lho!! situ lupa yg wa bilang di ym??
yg wa mau itu tipenya kayak puzzle..
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX
XXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX XXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXX
XXXXXXXXXX
pertama kita membuat peta seperti diatas
kedua buat karakter (yg cuma berbentuk O)
pemain kita akan jalan di daerah yg saya tandai X tak bisa lebih!!
hubungan ama gbr 3d?? ngak ada seh.. cuma bayangin kl bisa dibikin 3d.. padahal wa maunya 2d aja!!

gimanahttp://iiichan.net/boards/comics/thumb/1176947691410s.jpgngerti ora son..
ooo mo buat game kya gitu ya

[RAFee]

cara bikinnya...
bikin array 2 index aja
kya
map[x,y]
nah isi tiap elemennya itu 1 / 0,
1 berarti bisa dilewatin, trus 0 berarti ga bisa dilewatin

contohnya :
game karakternya di posisi 6,5 nah dia mo keatas ke posisi 6,4
tinggal periksa dulu...
apa posisi 6,4 itu tipenya 1 (bisa dilewatin) apa 0 (tidak bisa dilewatin)
kalo tipenya 1, baru si game karakternya boleh pindah ke atas
nah kalo 0 berarti proses pemindahan ga usah dieksekusi alias diam di tempat

NB : jangan lupa masukin batas perpindahannya kya
ga boleh ke sampe posisi dibawah 0 (nol)
kya -10,6
jadi cuman bisa ampe 1,6

[anna_ht]

hehe, coz gambar yg ditampangin d postingan itu gambar 3D kan,.. hehe

[ruboW]

http://orochi.iiichan.net/rag/thumb/1174759620423s.jpgitu khan harapannya dimasa depan :P
yg 2d aja deh.. itu sih bisa dibikin pake 3dgame studio (walau sebenernya agak susah..)

target sebenarnya sih prog ini baca file txt yg nanti jadi game kyk di atas.

[anna_ht]

Dl, aq pernah buat game(sederhana, tp sulit jg buat aq::unggg:: ) d Pascal tentuny,...
Itu dia ngebaca PETA dr *txt
Pke assign, read, write, close data gt
Tar, itu game mo buat d program apa???

[ruboW]

emang 3d..
wa dah buat yg versi php..

moga2 yg baca mengerti.. selain RAFE tentunya<?php
$maxKotak=5;
// get contents of a file into a string
if($_POST){
foreach($_POST as $nm=>$val){
$txt.="<br>$nm $val\n";
$$nm= $val;
}
}
$filename = "map1.txt";
$handle = fopen($filename, "r");
$contents = "";
while (!feof($handle)) {
$contents .= fread($handle, 500);

}

$txt2='';

$posX=1; $posY=1;
for($i=0;$i<=strlen($contents);$i++){
if(strtoupper( $contents[$i])){
$statPos[$posX][$posY]=$contents[$i];
}else{
$statPos[$posX][$posY]="";
}

if($contents[$i] =="\n"){
$posY++;
$posX=1;
}else{
$posX++;
if($iMaxX <$posX) $iMaxX=$posX;
}
}
/*
foreach($pos as $nm=>$val){
$txt.="<br>";
foreach($val as $nm2=>$val2){
$txt.="$val2";
}
}
*/
$txt.="<pre>";
for($i=0;$i<$posY;$i++){

for($j=0;$j<$iMaxX;$j++){
if($statPos[$j][$i]==0 || $statPos[$j][$i]==""){
$txt.="&nbsp;";
}else{
$txt.=$statPos[$j][$i];
}
}
$txt.="\n";

}
$txt.="</pre>";
fclose($handle);

// print $txt;exit();
//tentukan posisi sekarang
$txt.="<p>";
$txt.="area daerah = 0,0 - $iMaxX, $posY";
$txt.= " = ". (1+$iMaxX)* (1+ $posY)." kotak";
// print $txt;exit();
//$ok=0;

$txt.="<hr>$target";
if(is_array($_POST) && $posY0>0){
$txt.="<hr>pos array $posX0 $posY0";
$iPosX1=$posX0;
$iPosY1=$posY0;

if($target=="Atas"){
$iPosY1=$posY0-1;
}

if($target=="Bawah"){
$iPosY1=$posY0+1;
}

if($target=="Kanan"){
$iPosX1=$posX0+1;

}

if($target=="Kiri"){
$iPosX1=$posX0-1;

}

if($statPos[$iPosX1][$iPosY1]!=" "&&$statPos[$iPosX1][$iPosY1]!=0){
$ulang=99; //ulang dipakai untuk random posisi
}else{
$iPosX1=$posX0;
$iPosY1=$posY0;
$txtErr.="<h3>MELEWATI BATAS</h3>";//.$statPos[$iPosX1][$iPosY1];
$ulang=99; //ulang dipakai untuk random posisi
}

}

while($ulang<15){
if($ulang<0){
$iPosX1=17;
$iPosY1=0;
}else{
$iPosX1 = mt_rand(0, $iMaxX-1);
$iPosY1 = mt_rand(0, $posY-1);
}

$txt.="<br>posisi [ $iPosX1 ][ $iPosY1 ]".$statPos[$iPosX1][$iPosY1];

if($statPos[$iPosX1][$iPosY1]!=" "&&$statPos[$iPosX1][$iPosY1]!=0){
$ulang=100;
}
$ulang++;

}

$txt.="<br>posisi [ $iPosX1 ][ $iPosY1 ]";
//print $txt;exit();


$txt.="<hr><pre>";
for($j=0;$j<$iMaxX;$j++){
$i2=($j+10) %10;
$txt.=$i2;
}

$txt.="<br>";
for($i=0;$i<$posY;$i++){

for($j=0;$j<$iMaxX;$j++){

if($i==$iPosY1 && $j==$iPosX1){
$txt.="<b>X</b>";
}else{
$txt.=$statPos[$j][$i];

}
}
//$txt.="\n";

}
$txt.="</pre>";
$txt.="<br>posisi [ $iPosX1 ][ $iPosY1 ]";
$width=$maxKotak*80;
$txt2.="\n<table border=0 width=".$width." bgcolor=#FFFFCC>";

for($i=0;$i<$maxKotak;$i++){
$txt2.="\n<tr height=80>";
for($j=0;$j<$maxKotak;$j++){

$x=($iPosX1-($maxKotak-1)/2)+$j;
$y=($iPosY1-($maxKotak-1)/2)+$i;
if($statPos[$x][$y]==1){
$bgcolor="FFCC66";
}elseif($statPos[$x][$y]==2){
$bgcolor="33FF00";
}elseif($statPos[$x][$y]==3){
$bgcolor="FFFF00";
}else{
$bgcolor="";
}
$show="";
if($y==$iPosY1 && $x==$iPosX1){
$show="<center>you</center>";
}
$txt2.="\n<td width=80 ";
if($bgcolor!="") $txt2.="bgcolor=#$bgcolor";
$txt2.=">$show&nbsp;</td>";
}
$txt2.="\n</tr>";
}
$txt2.="\n</table>";

$txtBesar=$txt2;
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- Created on: 19/04/2007 -->
<head>
<title></title>
</head>
<body><?
print $txtBesar;
?>
<form method="post" >
<?
print "<input type=hidden value=$iPosY1 name=posY0>
<input type=hidden value=$iPosX1 name=posX0>";

?>
<table width="50" border="0" summary="">
<tr>
<td align="center" valign="middle" colspan="2">
<input type="submit" value="Atas" name=target>
&nbsp;</td>
</tr>
<tr>
<td><input type="submit" name=target value="Kiri" />&nbsp;</td>
<td><input type="submit" name=target value="Kanan" />&nbsp;</td>
</tr>
<tr>
<td align="center" valign="middle" colspan="2">
<input type="submit" name=target value="Bawah" />&nbsp;</td>
</tr>
</table><? print $txtErr;?>
</form>
<? print $txt;?>

</body>
</html>
untuk petanya.. seperti ini
111112211111
111111111111 1111111111 12122
113311 11111111221113 1 1113123123
11331111111111311113331121 1 21 1 31231
1111111111111111121111111 1 23132133123
1121111 111112212211112211231223 3123
111111 11111211211111 1 12123
111111 11111111111111 1 1212
2212 122222 12
1231131 12111 12 2 21
1231112 111122 12 2 112
1211 122212 122222 12
121 12212111 122112222
1121112 121121121 12 1112
1212112213121 12 2122
123112 13111111
111112211111
111111111111 1111111111 12122
113311 11111111221113 1 1113123123
11331111111111311113331121 1 21 1 31231
1111111111111111121111111 1 23132133123
1121111 111112212211112211231223 3123
111111 11111211211111 1 12123
111111 11111111111111 1 1212
2212 122222 12
1231131 12111 12 2 21
1231112 111122 12 2 112
1211 122212 122222 12
121 12212111 122112222
1121112 121121121 12 1112
1212112213121 12 2122
123112 13111111

mumet?? jangan deh... moga2 yg terakhir bs mmorpg dengan chara kayak ginihttp://www.wakachan.org/dress/thumb/1176417860081s.jpg::Grrr...:: cuma mau bagi2 gbr aja

[anna_ht]

walah,... php C Java ............. gk tau ne ::unggg::
hik hik::nangis3::

[ruboW]

spa suruh java, c atau php.. wa dah buat php
buat yg pascalnya aja :D

[anna_ht]

spa suruh java, c atau php.. wa dah buat php
buat yg pascalnya aja :D
hehe, iye iye, tp kan mau ngerti jd tuh isi program ::oops::
Ok, d pascal^^

[RAFee]

dulu juga aq pernah buat pake pascal
game kya gitu...
kalo ga salah ada 2 / 3 macem lah
cuman belum sempet selesai dan diterusin lagi....
soalnya itu waktu aq ngerjainnya pas kelas 1-2 sma

[ruboW]

sma seh wa belajar mempertahankan hidup gw..
soalnya seminggu sekali sekolah g diserang ama sekolah lain.. gimana mau belajar programing

[anna_ht]

sma seh wa belajar mempertahankan hidup gw..
soalnya seminggu sekali sekolah g diserang ama sekolah lain.. gimana mau belajar programing
wa,.............. emang srg tawuran tu::oops::

[ruboW]

yap.. dan itu emang bukan sesuatu yg bisa dibanggakan.
wa aja programing itu belajar sendiri.. lebih parah belajar BUKAN DIDEPAN komp..

wa bikin komp pake kertas lalu ngetik2 kayak org gila.. entah apa yg wa buat.. tp cukup FUN..
moga2 anak2 jaman sekarang jgn kayak gw.. gak ada komp.. bikin pake kertas lalu.. ngetik2 sendiri..
sebenernya sih ngak kreatif.soalnya wa ngikutin film kartun Inspektur Gadget, itu lho ceweknya yg bawa laptop kemana... yg ternyata pada tahun sekarang ada dan itu namanya PDA.

[anna_ht]

wah,...
gile bnyk tgs proyek,...
salah satuny buat EXCEL pke Pascal,... ::grrr::

[ruboW]

serius tuh??
yakin pascal?? bkn pake Delphi??

emang km dah belajar pake dll ama ocx?? terutama pake API

[anna_ht]

serius tuh??
yakin pascal?? bkn pake Delphi??

emang km dah belajar pake dll ama ocx?? terutama pake API
hah? API tuh apa ya??
harus pke pascal,... klo game salah satuny puzzle, gk tau ya gmn,..
cape bgt d::grrr::

[kthpink]

hai butuh bantuan nih ASAP.
dari kampus aku dapat proyek bikin spreadsheet pake pascal gunain double linked list... tipe datanya dah di tentuin:
type
PCell = ^Tcell;
Tcell = Record
NoKolom: char;
Data : Tdata;
Llink, Rlink : PCell;
Pbaris = ^Tbaris;
Tbaris = Record
NoBaris: integer;
HeadCell : Pcell;
Llink, Rlink : Pbaris;
tampilan programnya mode text 25barisx80kolom
nomor baris dari 1 sampe 9999
nomor kolom a sapai Z
tolong donk aku bingung please.............

[anna_ht]

hai butuh bantuan nih ASAP.
dari kampus aku dapat proyek bikin spreadsheet pake pascal gunain double linked list... tipe datanya dah di tentuin:
type
PCell = ^Tcell;
Tcell = Record
NoKolom: char;
Data : Tdata;
Llink, Rlink : PCell;
Pbaris = ^Tbaris;
Tbaris = Record
NoBaris: integer;
HeadCell : Pcell;
Llink, Rlink : Pbaris;
tampilan programnya mode text 25barisx80kolom
nomor baris dari 1 sampe 9999
nomor kolom a sapai Z
tolong donk aku bingung please.............
hihihi, emang kerjaan dah smpe mn ??

[kthpink]

bingung logikanya hehehehe
aku butuh bantuan aja
aku tuh agak blank sama yang namanya linked list
kesel deh padahal dah mati2an belajarnya,hehhe
please donk

[anna_ht]

bingung logikanya hehehehe
aku butuh bantuan aja
aku tuh agak blank sama yang namanya linked list
kesel deh padahal dah mati2an belajarnya,hehhe
please donk
yah,... gmn dunk,....
hoho, aq cm bs bilang Gd Luck ::oops::