PureBoard

Code: Alles auswählen

CompilerIf #False
;{ reine arrays
; geht nicht mit Stringarrays
; Dimensionen
d1 = 10
d2 = 50

; array belegen
Dim test(d1, d2)
For x = 0 To d1
  For y = 0 To d2
    test(x, y) = x * d2 + y
  Next
Next

; array anzeigen
For x = 0 To d1
  For y = 0 To d2
    Debug "(" + Str(x) + " / " + Str(y) + "):   " + Str(test(x, y))
  Next
Next

; array abspeichern
ptr = @test()
size.l = (d1+1) * (d2+1) * 4 ; long = 4 byte
Debug "size: " +Str(size)
If CreateFile(1, "C:\temp\arraytest.arr")
  WriteData(ptr, size)
  CloseFile(1)
EndIf

; neues Array kreieren
Dim testneu(d1, d2)
ptr = @testneu()
size.l = (d1+1) * (d2+1) * 4
; Array laden
If ReadFile(1, "C:\temp\arraytest.arr")
  ReadData(ptr, size)
  CloseFile(1)
EndIf

Debug""
Debug""
; neues array anzeigen
For x = 0 To d1
  For y = 0 To d2
    Debug "(" + Str(x) + " / " + Str(y) + "):   " + Str(testneu(x, y))
  Next
Next
;}
CompilerEndIf 
CompilerIf #False
;{ Arrays mit Strukturen
; geht nicht mir Strukturen, die Strings beinhalten
Structure tst
  a.l
  b.l
  c.l
  d.b
  e.w
  f.f
EndStructure

d1 = 10
d2 = 50


; struktur belegen
Dim test.tst(d1, d2)
For x = 0 To d1
  For y = 0 To d2
    test(x, y)\a = x
    test(x, y)\b = y
    test(x, y)\c = x * d2 + y
    test(x, y)\d = y
    test(x, y)\e = x + y
    test(x, y)\f = x * d2 / y
  Next
Next

; struktur anzeigen
; For x = 0 To d1
  ; For y = 0 To d2
    ; Debug ""
    ; Debug "(" + Str(x) + " / " + Str(y) + ")"
    ; Debug "a: " + Str(test(x, y)\a)
    ; Debug "b: " + Str(test(x, y)\b)
    ; Debug "c: " + Str(test(x, y)\c)
    ; Debug "d: " + Str(test(x, y)\d)
    ; Debug "e: " + Str(test(x, y)\e)
    ; Debug "f: " + Strf(test(x, y)\f)
  ; Next
; Next

; Struktur abspeichern
ptr = @test()
size.l = (d1+1) * (d2+1) * SizeOf(tst)
Debug "size: " +Str(size)
If CreateFile(1, "C:\temp\arraytest.arr")
  WriteData(ptr, size)
  CloseFile(1)
EndIf

; neues array
Dim testneu.tst(d1, d2)

; Struktur laden
ptr = @testneu()
size.l = (d1+1) * (d2+1) * SizeOf(tst)
Debug "size: " +Str(size)
If ReadFile(1, "C:\temp\arraytest.arr")
  ReadData(ptr, size)
  CloseFile(1)
EndIf

; struktur anzeigen
For x = 0 To d1
  For y = 0 To d2
    Debug ""
    Debug "(" + Str(x) + " / " + Str(y) + ")"
    Debug "a: " + Str(testneu(x, y)\a)
    Debug "b: " + Str(testneu(x, y)\b)
    Debug "c: " + Str(testneu(x, y)\c)
    Debug "d: " + Str(testneu(x, y)\d)
    Debug "e: " + Str(testneu(x, y)\e)
    Debug "f: " + StrF(testneu(x, y)\f)
  Next
Next
;}
CompilerEndIf 
CompilerIf #True
;{ Listen
;geht auch wieder nicht mit strings...
Structure tst
  a.l
  b.l
  c.l
  d.b
  e.w
  f.f
EndStructure

d1 = 10
d2 = 50

; struktur belegen
NewList test.tst()
For x = 0 To d1
  For y = 0 To d2
    AddElement(test())
    test()\a = x
    test()\b = y
    test()\c = x * d2 + y
    test()\d = y
    test()\e = x + y
    test()\f = x * d2 / y
  Next
Next

;struktur anzeigen
; ResetList(test())
; While NextElement(test())
  ; Debug ""
  ; Debug "(" + Str(ListIndex(test())) + ")"
  ; Debug "a: " + Str(test()\a)
  ; Debug "b: " + Str(test()\b)
  ; Debug "c: " + Str(test()\c)
  ; Debug "d: " + Str(test()\d)
  ; Debug "e: " + Str(test()\e)
  ; Debug "f: " + StrF(test()\f)
; Wend

; Struktur abspeichern
  ; den pointer zum ersten Element erwischen)
SelectElement(test(), 0)
ptr = @test()

size.l = CountList(test()) * SizeOf(tst)
Debug "size: " +Str(size)
If CreateFile(1, "C:\temp\arraytest.arr")
  WriteData(ptr, size)
  CloseFile(1)
EndIf


; neue liste
NewList testneu.tst()
; elemente anhängen
For x = 0 To d1
  For y = 0 To d2
    AddElement(testneu())
  Next
Next

; Struktur laden
  ; den pointer zum ersten Element erwischen)
SelectElement(testneu(), 0)
ptr = @testneu()
Debug ptr

;size.l = (d1+1) * (d2+1) * SizeOf(tst)
Debug "size: " +Str(size)
If ReadFile(1, "C:\temp\arraytest.arr")
  ReadData(ptr, size)
  CloseFile(1)
EndIf

;struktur anzeigen
ResetList(testneu())
While NextElement(testneu())
  Debug ""
  Debug "(" + Str(ListIndex(test())) + ")"
  Debug "a: " + Str(testneu()\a)
  Debug "b: " + Str(testneu()\b)
  Debug "c: " + Str(testneu()\c)
  Debug "d: " + Str(testneu()\d)
  Debug "e: " + Str(testneu()\e)
  Debug "f: " + StrF(testneu()\f)
Wend
;}
CompilerEndIf