XProfan

 {$FBSYNTAX on}
declare dib&,array&,groesse&,hoehe&,ende&,bild&
DEF CreateDIB(2) !"dib","CreateDIB"
DEF FreeDIB(1) !"dib","FreeDIB"
DEF DrawDIB(4) !"dib","DrawDIB"
DEF CloneDIB(1) !"dib","CloneDIB"
dib&=usedll("dib.dll")
fbProc erzeugebild(byval b As Integer, ByVal g As Integer) As Integer Export
Dim test As Integer
FOR test = 0 TO 1400000 step 3
poke byte,test+b,&h00
poke byte,test+b+1,&h00
poke byte,test+b+2,&hff
next test
return 0

endproc

fbProc erzeugebildi(byval b As Integer, ByVal g As Integer) As Integer Export
Dim test As Integer
FOR test = 0 TO 1400000 step 3
poke integer,test+b,&h0000ff
next test
return 0

endproc

array&=CreateDIB(700,700)
groesse&=700*700*3
hoehe&=700
Window 20,20-750,780
Cls RGB(255,255,255)
bild&= Long(array&,40)
erzeugebildi(bild&,groesse&)
DrawDIB(%hdc,10,10,array&)
WaitKey
FreeDIB(dib&)
End

 {$FBSYNTAX on}
fbProc erzeugescreen() As Integer Export
dim a as string
Screenres(256,256)
a="Linie"
TextOut(%HDC,50,80,a,len(a))
Line (64,128)-(192,128)
a="Rechteck"
TextOut(%HDC,50,110,a,len(a))
Line (64,64)-(192,192),,B
a="Kreis"
TextOut(%HDC,50,140,a,len(a))
Circle (128,128),91
return 0

endproc

Window 20,20-200,400
Cls RGB(255,255,255)
erzeugescreen()
WaitKey
End

 {$FBSYNTAX on}
Declare Handle btn1, btn2,btn3,btn4,btn5
Declare Long ende
ende = 0
fbProc erzeugescreen() As Integer Export
Screenres(256,256)
return 0

endproc

fbProc linie() As Integer Export
Line (64,128)-(192,128)
return 0

endproc

fbProc rechteck() As Integer Export
Line (64,64)-(192,192),,B
return 0

endproc

fbProc circles() As Integer Export
Circle (128,128),91
return 0

endproc

fbProc clss() As Integer Export
cls
return 0

endproc

Window 300, 400
btn2  = Create("Button", %HWnd, "linie", 10, 35, 80, 25)
btn3   = Create("Button",%HWnd, "rechteck", 10, 60, 80, 25)
btn4   = Create("Button",%HWnd, "circles", 10, 85, 80, 25)
btn5   = Create("Button",%HWnd, "cls", 10, 110, 80, 25)
erzeugescreen()

WhileNot ende

WaitInput

If Clicked(btn2)

linie()

endif

If Clicked(btn3)

rechteck()

EndIf

If Clicked(btn4)

circles()

EndIf

If Clicked(btn5)

clss()

EndIf

EndWhile

End

 {$FBSYNTAX on}
Declare Handle btn1, btn2,btn3,btn4,btn5
Declare Long ende
ende = 0
fbProc erzeugescreen() As Integer Export
Screenres(400,256)
return 0

endproc

fbProc zeitmessung() As Integer Export
DIM AS DOUBLE StartZeit, EndZeit
dim a as single
dim b as integer
StartZeit=TIMER
for  b=0 to 1000000
a=sin(b)* 3.145678 / 0.345
next b
EndZeit=TIMER
PRINT "Das hat ";
PRINT USING"#######.###" ;(EndZeit-Startzeit)*1000;
PRINT " Millisekunden gedauert"
return 0

endproc

fbProc clss() As Integer Export
cls
return 0

endproc

Window 300, 400
btn2  = Create("Button", %HWnd, "zeit", 10, 35, 80, 25)
btn3   = Create("Button",%HWnd, "", 10, 60, 80, 25)
btn4   = Create("Button",%HWnd, "", 10, 85, 80, 25)
btn5   = Create("Button",%HWnd, "cls", 10, 110, 80, 25)
erzeugescreen()

WhileNot ende

WaitInput

If Clicked(btn2)

zeitmessung()

endif

If Clicked(btn3)

EndIf

If Clicked(btn4)

EndIf

If Clicked(btn5)

clss()

EndIf

EndWhile

End