XProfan

{$FBSYNTAX ON}

declare a%[2]

fbPROC fbArrayTest1(ByVal p As byte Pointer) As Integer export
  poke integer,p+0,100 'here p always circa 4 raise, there p as byte Pointer definiert is and FreeBasic therefore at Pointer always one byte weiterzählt
  poke integer,p+4,101 'the corresponds to the intuitive Vorgehen, if one Integers in a Speicherbereich writes
  poke integer,p+8,102
  return 0
ENDPROC

fbPROC fbArrayTest2(ByVal p As Integer Pointer) As Integer export
  poke integer,p+0,103 'here p always only circa 1 raise, there p as Integer Pointer definiert is and FreeBasic white, How many Bytes in each element stick (namely 4 per Integer)
  poke integer,p+1,104 'this is *not* absolutely intuitiv; i'd something like avoid and rather byte Pointer for Arrays using
  poke integer,p+2,105
  return 0
ENDPROC

cls
fbArrayTest1(@addr(a%[0]))
print a%[0]
print a%[1]
print a%[2]
print
fbArrayTest2(@addr(a%[0]))
print a%[0]
print a%[1]
print a%[2]
waitinput
end

{$FBSYNTAX on}

declare b1#,b2#,b3#,uebergabe#

fbProc fb3Strings(ByVal uebergabe As Any Pointer) As Integer export
  dim As ZString Pointer s1,s2,s3
  s1=peek(ZString Pointer,uebergabe)
  s2=peek(ZString Pointer,uebergabe+4)
  s3=peek(ZString Pointer,uebergabe+8)
  screenres(400,300)
  print *s1
  print *s2
  print *s3
  return 0
ENDPROC

cls
dim b1#,10000
dim b2#,10000
dim b3#,10000
string b1#,0="String 1"
string b2#,0="String 2"
string b3#,0="String 3"
dim uebergabe#,12
long uebergabe#,0=b1#
long uebergabe#,4=b2#
long uebergabe#,8=b3#
fb3Strings(uebergabe#)
waitinput
dispose uebergabe#,b1#,b2#,b3#
end

{$FBSYNTAX on}

declare a%[10],i%

fbProc fbArrayTest(ByVal p As Any Pointer) As Integer export
  dim i As byte
  dim a(10) As Integer Pointer
  for i=0 to 10
    a(i)=p+(i*4) 'address the Elements settle
    *a(i)=i 'the element a worth allocate
  next i
  return 0
ENDPROC

cls
fbArrayTest(@addr(a%[0]))
for i%,0,10
  print a%[i%]
endfor
waitinput
end

Declare name$
Window Title "BILD-BETRACHTER"
CLS
ShowMax
Name$ = @LoadFile $("Bilddateien","*.BMP")

While name$ <> ""

    Cls
    LoadBmp name$,0,0; 0
    Window Title "BILD-VIEWER - [" + name$ + "]"
    WaitMouse
    name$ = @LoadFile $("Bilddateien","*.BMP")

EndWhile

End