Author Topic: logika script  (Read 1893 times)

0 Members and 1 Guest are viewing this topic.

Offline gitu

  • Newbie
  • *
  • Posts: 10
logika script
« on: October 02, 2012, 02:49:58 PM »
para master Foxpro, saya diminata bos untuk merubah aplikasi foxpro dari dbf ke sql, dan saya menmukan coding sebagai berikut :

a=a+1
dimension ardtl (a,16)
b=1
do while b <= 16
   store "" to ardtl(a,b)
   b=b+1
enddo
ardtl(a,1) = "f_nomor"
ardtl(a,2) = "N"
ardtl(a,3) = 3
ardtl(a,4) = 0
ardtl(a,5) = .f.
ardtl(a,6) = .f.

select 0
set safety off
ThisFormSet.TempFile = _DirTemp + sys(2015) + ".tmp"
create table (ThisFormSet.TempFile) from array ardtl
use (ThisFormSet.TempFile) exclusive alias Tabledtl
set safety on

yang saya ingin tanyakan logika dari script diatas, karna saya belum mengerti di scrip ini,..  :angel: :toothy4:

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: logika script
« Reply #1 on: October 02, 2012, 03:53:50 PM »
buat tabel aja kok repot amat yah  :icon_biggrin:

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: logika script
« Reply #2 on: October 02, 2012, 04:24:13 PM »
para master Foxpro, saya diminata bos untuk merubah aplikasi foxpro dari dbf ke sql, dan saya menmukan coding sebagai berikut :
......
a=a+1  &&  ini berarti bhw a adlh numerik, dan u/ selanjutnya nilainya +1, klo tadi 2 mk skrng 3
dimension ardtl (a,16)  && ini mksdx buatlah sebuah array 2 dimensi: jml baris sebanyak a diatas, jml kolom sebanyak 16
b=1   && menginisialisasi sebuah var numerik dengan nilai awal 1                               
do while b <= 16 && awal koding looping dari 1 s/d 16
   store "" to ardtl(a,b) && mengosongkan (memberi nilai=""=karakter kosong) kolom ke b dari baris ke a
   b=b+1  && tambah nilai b dengan 1, kan mau looping naik sampai 16
enddo && ini batas koding looping
ardtl(a,1) = "f_nomor" && beri nilai baris a kolom 1
ardtl(a,2) = "N" && beri nilai baris a kolom 2
ardtl(a,3) = 3 && beri nilai baris a kolom 3
ardtl(a,4) = 0 && beri nilai baris a kolom 4
ardtl(a,5) = .f. && beri nilai baris a kolom 5
ardtl(a,6) = .f. && beri nilai baris a kolom 6

select 0 && sekedar memilih area kerja yang belum terpakai (untuk mulai dipakai sekarang
set safety off && jebolin aja rem dan jangan ragu libas tabrak apapun didepan
ThisFormSet.TempFile = _DirTemp + sys(2015) + ".tmp" && buat nama file temporer secara acak
create table (ThisFormSet.TempFile) from array ardtl && buat file dengan nama tadi dengan isi data dari array ardtl
use (ThisFormSet.TempFile) exclusive alias Tabledtl && buka/aktifkan file itu
set safety on && sekarang hati2 - agar pasang ulang rem dan jangan maen tabrak aja
...
yang saya ingin tanyakan logika dari script diatas, karna saya belum mengerti di scrip ini,..  :angel: :toothy4:
makin bingung kan? SAYA JUGA!
siapa juga bilang enak jadi programmer, lebih enak jadi Ashanty: 2 juta records diciptakan dalam sekejap

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: logika script
« Reply #3 on: October 02, 2012, 04:34:17 PM »
sama aja dgn ini :

DIMENSION lajunk[2,4]
laJunk[1,1] = "Field01"
laJunk[1,2] = "C"
laJunk[1,3] = 10
laJunk[1,4] = 0
laJunk[2,1] = "Field02"
laJunk[2,2] = "N"
laJunk[2,3] = 10
laJunk[2,4] = 2
CREATE TABLE junk FROM ARRAY laJunk

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: logika script
« Reply #4 on: October 02, 2012, 04:39:30 PM »
kenapa harus cara gampang kalau ada cara muter-muter,
lagian kata TS :   aye kan emang kagak paham skripsinya.

Offline gitu

  • Newbie
  • *
  • Posts: 10
Re: logika script
« Reply #5 on: October 03, 2012, 09:24:56 AM »
Terima kasih semuanya atas penjelasannya,.. khususnya om DM,. ane kagum sama ente,..  :icon_salut: :)