DELPHI sama TP kan sama2 pake bahasa pascal, paling bedanya dikit2 doang. udah dicoba? gak bisanya dimana? kalo saya liat sepintas lalu, paling cuma fungsi "strtoint" yg gak bisa di TP, bikin aja sendiri fungsi "strtoint" yg sederhana. kalo masih gak bisa, silakan posting cod...
namanya juga proses belajar gan, lambat sedikit gak apa2, yg penting ngerti gan. lihat output di atas gan, udah saya bagi jadi 3 bagian: titik hitam, angka biru dan angka merah (untuk contoh sengaja saya buat titik hitam, untuk program aslinya ganti jadi spasi yah). yg pernah agan buat adalah 1 ...
sori gan, mungkin step yg saya kasih kurang sederhana. untuk langkah pertama, agan bisa bikin yg begini dulu: 1 2 3 4 5 untuk contoh, agan bisa liat di http://www.learn-programming.za.net/programming_pascal_learn06.html bagian For loop nya aja. coba bikin yg outputnya kaya' yg di atas. kalo...
seinget saya dulu bisa pake tanda pagar, jadi bisa begini nulisnya writeln(#201#205#205#205#205#205#205#205#187); writeln(#186' kotak '#186); writeln(#200#205#205#205#205#205#205#205#188); jadi nostalgia nih... :)
mulai dari yang gampang dulu gan, coba bikin yg begini dulu: 1 12 123 1234 12345 kalo udah bisa, lanjut lagi coba bikin begini: 1 21 321 4321 54321 trus lanjut coba bikin begini: 1 21 321 4321 54321 untuk perulangan yg sudah diketahui jumlahnya, pakai perintah "for" hint: pake perulan...
jadi OOT nih, langsung liat dari msdn aja gan, di http://msdn.microsoft.com/en-us/library/ms182717(v=sql.90).aspx
iya bener tuh, saya gak baca teliti query nya. kalo pake ms sql server sih bisa pake stored procedure, jadi "if" nya di dalem stored procedure.
AFAIK field pada 'order by' gak bisa dikasih parameter. Kalo mau, set ulang sql text nya aja. if urut.Text = 'Y' then begin tabel1.sql.clear; tabel1.sql.add('select .... from .... order by total'); end else begin tabel1.sql.clear; tabel1.sql.add('select .... f...
Kalo jaman dos dulu sih bisa pencet tombol Alt+F5 untuk ngeliat output screen nya. Tapi gak tau juga kalo pascal buat windows masih kaya' dulu apa nggak. Saya pake freepascal masih bisa liat pake Alt+F5
pake '%' harusnya gak masalah, di sql querynya pake 'like' apa '=' gan? soalnya kalo pake '=' tanda '%' gak ngaruh. (saya blom praktekin langsung sih)
liat yg dikasih warna biru gan. lebih enak ngebacanya kalo pake array dari "record" gan, coba liat http://www.nusinau.com/contoh-program-record/ (bukan blog ane gan, cuma hasil googling) untuk contohnya.
coba begini gan: for i := 0 to ComponentCount-1 do if (Components) is TEdit then begin b := TEdit(Components); dm1.adoquery1.Fields.Fields.value := b.Text; end; jangan lupa nama unit data module nya ditambahin di bagian "uses". selain itu, property tag nya disamain urutannya kaya'...
iterasi tiap komponen aja, kalo mau kasih tanda (index) di property Tag tiap TEdit: Edit1 --> Tag=1, Edit2 --> Tag=2, dst. trus iterasi nya begini: for i := 0 to ComponentCount-1 do if (Components) is TEdit then begin b := TEdit(Components); b.text := 'ini edit ' + inttostr(b.tag...
@gusdecool makasih gan, maklum aja nubi baru tau ada fungsinya. dulu pake asp harus begitu soalnya. @ikhsan programnya dipake internal sih, tapi kalo utk dipublish best-practice nya gimana gan?
nice thread. saya nubi di php nih, biasanya make php cuma utk load data json doang. Mau sharing + nanya saya biasa pake baris code ini di awal page: foreach($_GET as $variable => $value) { $$variable = $value; } foreach($_POST as $variable => $value) { $$variable = $value; } pake cara itu b...
kalo kaya' yg di gbr, pake TEdit aja, tapi set property enabled=false. tapi kalo saya lebih milih set property readOnly=true; lebih enak diliat.
Dulu pernah pake perintah ini, event nya ditaro di OnMouseDown di komponen turunan TWinControl, kalo saya biasanya pake TPanel utk judul, dan di onMouseDown nya TPanel ini dikasih ReleaseCapture, dst.... coba deh design form nya dicapture biar jelas.