Compilateur : version de travail disponible

dim i,j,k,n,o,v
label stp
scene3d 99
full_space 0 :  full_space 99  : border_hide 0
color 99,219,243,165
on_click 99,stp
cam_position 0,1,10


3d_plane 4
3d_scale 4,1,1,1
3d_x_rotate 4,90
3d_y_position 4,-0.6
rem 3d_load_texture 4,"herbe2.JPG"
3d_u_tile 4,400
3d_v_tile 4,400
3d_color 4,0,150,23


' creation du robot general

3d_mesh 5
3d_load_object 5,"corpskin.3ds"
3d_collision_as_faces 5
3D_scale 5,0.2,0.2,0.2
3d_position 5,0,0.2,0
3d_z_rotate 5,90
3D_load_texture 5,"skincorps.bmp"
3d_x_rotate 5,0


3d_mesh 6
3d_load_object 6,"teteskin.3ds"
3d_color 6,250,150,0
3D_scale 6,0.2,0.2,0.2
3d_position 6,0,1.6,0
3d_load_texture 6,"skintete.bmp"
rem 3d_chain 6,5
3d_y_rotate 6,0
3d_X_rotate 6,90
rem creation bras droit
3d_mesh 7
3d_load_object 7,"braskin.3ds"
rem 3d_chain 7,5
3D_scale 7,0.2,0.2,0.2
3D_z_rotate 7,88
3d_position 7,-0.63,1,0
3D_y_rotate 7,200
3d_x_rotate 7,0
3D_load_texture 7,"skinbrasd.bmp"

rem creation bras gauche
3d_mesh 8
3d_load_object 8,"braskin.3ds"
rem 3d_chain 8,5
3d_color 8,250,150,34
3d_position 8,0,0,1.3
3D_scale 8,0.2,0.2,0.2
3D_z_rotate 8,92
3d_position 8,0.63,1,0
3d_y_rotate 8,180
3d_x_rotate 8,0
3d_load_texture 8,"skinbrasg.bmp"
rem creation jambe droite
3d_mesh 9
3d_load_object 9,"braskin.3ds"
rem 3d_chain 9,5
3d_color 9,51,102,46
3d_position 9,-0.22,-0.2,0
3D_scale 9,0.2,0.2,0.2
3D_z_rotate 9,88
3d_y_rotate 9,180
3d_load_texture 9,"skinjambe.bmp"
3d_x_rotate 9,180
rem creation jambe gauche
3d_mesh 10
3d_load_object 10,"braskin.3ds"
rem 3d_chain 10,5
3d_color 10,86,76,47
3d_position 10,0.20,-0.2,0
3D_scale 10,0.2,0.2,0.2
3D_z_rotate 10,92
3d_y_rotate 10,180
3d_load_texture 10,"skinjambe.bmp"
3d_x_rotate 10,180

3d_cube 11,0.1:3d_chain 11,5 :3d_scale 11,0.5,0.5,0.5
3d_cube 12,0.1:3d_chain 12,6 :3d_scale 12,0.5,0.5,0.5
3d_cube 13,0.1:3d_chain 13,7 :3d_scale 13,0.5,0.5,0.5
3d_cube 14,0.1:3d_chain 14,8 :3d_scale 14,0.5,0.5,0.5
3d_cube 15,0.1:3d_chain 15,9 :3d_scale 15,0.5,0.5,0.5
3d_cube 16,0.1:3d_chain 16,10:3d_scale 16,0.5,0.5,0.5




for i=180 to 800
o=30 :if i>400 then o=0 :if i>500 then o=330
3d_y_rotate 11,o
3d_y_rotate 12,o
3d_y_rotate 13,o
3d_y_rotate 14,o
3d_y_rotate 15,o
3d_y_rotate 16,o
j=i/20
k=j+180
3d_y_rotate 9,(187+(30*cos(j)))
3d_y_rotate 10,(187+(30*cos(k)))
3d_y_rotate 7,(175+(30*cos(j)))
3d_y_rotate 8,(175+(30*cos(k)))
pause 10
v=50
3d_move 11,(v/4000)
3d_move 12,(v/4000)
3d_move 13,(v/4000)
3d_move 14,(v/4000)
3d_move 15,(v/4000)
3d_move 16,(v/4000)


next i

terminate

end



stp:
terminate

 on_click 99,stp

dim boite_dialogue_visible%, false%, form7_creee%, hauteur_boite%, hauteur_ecran%, hnd%, k%, largeur_boite%, largeur_ecran%, res%, sens_traduction_texte$, true%, zz99%
false%=0
true%=1
dim sens_traduction$(15)

sens_traduction$(1)="français -> espagnol"
sens_traduction$(2)="espagnol -> français"
sens_traduction$(3)="français -> allemand"
sens_traduction$(4)="allemand -> français"
sens_traduction$(5)="français -> polonais"
sens_traduction$(6)="polonais -> français"
sens_traduction$(7)="français -> anglais"
sens_traduction$(8)="anglais -> français"
sens_traduction$(9)="français -> italien"
sens_traduction$(10)="italien -> français"
sens_traduction$(11)="français -> néerlandais"
sens_traduction$(12)="néerlandais -> français"
sens_traduction$(13)="français -> portugais"
sens_traduction$(14)="portugais -> français"

label valider_dialogue7, valider_sens_traduction

dll_on "kgf.dll"

' Préchargement des drapeaux.
for k%=1 to 7
    res%=k%+470
    picture res%
    left res%,-300
    width res%,100
    height res%,70
    stretch_on res%

    file_load res%,"images\"+trim$(mid$("espagne        allemagne      pologne        grande_bretagne italie          pays_bas        portugal      ",k%*16-15,15))+"2.bmp"
next k%

creer_dialogue7()

dll_off

end

sub creer_dialogue7()

    if form7_creee%=true%
      show 7
          else
      form 7
    end_if

    largeur_ecran%=screen_x
    hauteur_ecran%=screen_y

    largeur_boite%=590
    hauteur_boite%=750

    boite_dialogue_visible%=true%

    ' Cacher les boutons de réduction, agrandissement et fermeture.
    hnd% = handle(7)
    res% = DLL_call2("SetMinimizeMaximize",hnd%,0)
    res% = DLL_call2("SetCloseBox",hnd%,0)

    left 7,(largeur_ecran%-largeur_boite%)/2
    top 7,(hauteur_ecran%-hauteur_boite%)/2
    width 7,largeur_boite%
    height 7,hauteur_boite%

    caption 7,"Choix du sens de traduction."

    for k%=1 to 14
        res%=k%+450

        if form7_creee%=false% then option res%
        parent res%,7
        mark_off res%
        caption res%,sens_traduction$(k%)
        font_size res%,12
        font_bold res%

        if mod(k%,2)=1
          zz99%=0
          font_color res%,255,0,200
          left res%,20
              else
          zz99%=-45
          font_color res%,45,0,255
          left res%,360
        end_if

        top res%,k%*45+zz99%
        width res%,200
        height res%,20

        on_click res%,valider_sens_traduction
    next k%

    if form7_creee%=false%
      for k%=1 to 7
          res%=k%+470
          parent res%,7
          left res%,largeur_boite%/2-50
          top res%,k%*90-70
          width res%,100
          height res%,70
      next k%

      creer_bouton(478,7,"OK",largeur_boite%/2-50,hauteur_boite%-80,100,30)
      font_size 478,12
      font_bold 478
    end_if

    on_click 478,valider_dialogue7

    form7_creee%=true%

end_sub

valider_sens_traduction:
  ' N° du dernier objet cliqué.
  sens_traduction_texte$=caption$(number_click)
return

valider_dialogue7:
  boite_dialogue_visible%=false%
  hide 7
return

sub creer_bouton(param1%, param2%, param3$, param4%, param5%, param6%, param7%)
    button param1%
    if param2%>0 then parent param1%,param2%
    caption param1%,param3$
    left param1%,param4%
    top param1%,param5%
    width param1%,param6%
    height param1%,param7%
end_sub

dim t(10), v(10), i%

for i% = 1 to 10
 t(i%) = i%
 v(i%) = 2 * i%
next i%

print t(10)
print v(10)

end

#include"MemoryModule.bi"
#include"incfile.bi"
IncFile(DLLdata,"panoramic.dll")
#lang "fblite"
option gosub
#include once"windows.bi"
dim shared _handl as HWND
dim shared _library as HMEMORYMODULE
_library = MemoryLoadLibrary(DLLdata)
dim shared pc_init as sub stdcall _
(byval operand1 as handle)
pc_init=MemoryGetProcAddress(_library,"pc_init")
dim shared pc_close as sub
pc_close=MemoryGetProcAddress(_library,"pc_close")
DIM SHARED V_T(100) AS DOUBLE
DIM SHARED V_V(100) AS DOUBLE
DIM SHARED V_I AS INTEGER
dim shared pc_print_number as sub stdcall _
(byval P1 as double)
pc_print_number=MemoryGetProcAddress(_library,"pc_print_number")
declare function WinMain _
(byval _hInstance as HINSTANCE,_
byval _hPrevInstance as HINSTANCE,_
byval _szCmdLine as string,_
byval _iCmdShow as integer)as integer
end WinMain(GetModuleHandle(null),null,Command(),SW_NORMAL)
function WndProc _
(byval _hWnd as HWND,_
byval _wMsg as UINT,_
byval _wParam as WPARAM,_
byval _lParam as LPARAM)as LRESULT
function=0
select case(_wMsg)
case WM_CREATE
exit function
case WM_DESTROY
pc_close()
sleep 200
MemoryFreeLibrary(_library)
PostQuitMessage(0)
exit function
end select
function=DefWindowProc(_hWnd,_wMsg,_wParam,_lParam)
end function
function WinMain (byval _hInstance as HINSTANCE,_
byval _hPrevInstance as HINSTANCE,_
byval _szCmdLine as string,_
byval _iCmdShow as integer)as integer
dim _wMsg as MSG
dim _wcls as WNDCLASS
dim _hWnd as HWND
function=0
with _wcls
.style=CS_HREDRAW or CS_VREDRAW
.lpfnWndProc=@WndProc
.cbClsExtra=0
.cbWndExtra=0
.hInstance=_hInstance
.hIcon=LoadIcon(NULL,IDI_APPLICATION)
.hCursor=LoadCursor(NULL,IDC_ARROW)
.hbrBackground=GetStockObject(WHITE_BRUSH)
.lpszMenuName=NULL
.lpszClassName=@"HelloWin"
end with
if(RegisterClass(@_wcls)=FALSE)then
MessageBox(null,"Failed to register _wcls","Error",MB_ICONERROR)
exit function
end if
_hWnd = CreateWindowEx(0,_
@"HelloWin",_
"PANORAMIC",_
WS_OVERLAPPEDWINDOW,_
10,_
10,_
200,_
100,_
NULL,_
NULL,_
_hInstance,_
NULL)
_handl=_hWnd
UpdateWindow(_hWnd)
pc_init(_hWnd)
sleep 100
'-------------------------------------------------------------------------------
' SOURCE
'-------------------------------------------------------------------------------
FOR V_I=1 TO 100
V_T(V_I)=V_I
V_V(V_I)=2*V_I
NEXT V_I
pc_print_number(V_T(100))
pc_print_number(V_V(100))
goto _end
_end:
while(GetMessage(@_wMsg,NULL,0,0)<>FALSE)
TranslateMessage(@_wMsg)
DispatchMessage(@_wMsg)
wend
function=_wMsg.wParam
end function

dim a%,b%,c%
b% = 2 : c% = 5
if a% = b% = c%   then message "ok" : else : message "ko"

dim a$,b$
a$ = "Bonjour" : b$ = "Bonsoir"
if a$ < b$ then message "Vrai" : else : message "Faux"

dim a%,b%,c% , x
a% = 5 : b% = 10 : c% = 20
if a% < b% < c% then message "OK" : else : message "KO"
x = c% > a% < b%
if x then message "vrai" : else : message "faux"

dim x, y

x = 2
y = - x

print y

end

 dim true,false

false = 0 : true = not(false)
print true : print false
if true then message "Vrai" : else : message "Faux"
if not(true) then message "Vrai" : else : message "Faux"

 dim annee, bissextille
' Essayez l'une puis l'autre valeur
 annee = 2013
' annee = 2012
bissextille = (mod(annee,400) = 0) or (mod(annee,4) = 0) and (mod(annee,100) <> 0)
 if bissextille
   message str$(annee) + " est bissextille"
 else
   message str$(annee) + " est Non bissextile"
 end_if

 dim annee, bissextille  ,a$,b$
' Essayez l'une puis l'autre valeur
 annee = 2013
' annee = 2012
bissextille = (mod(annee,400) = 0) or (mod(annee,4) = 0) and (mod(annee,100) <> 0)
 if bissextille
   message str$(annee) + " est bissextille"
 else
   message str$(annee) + " est Non bissextile"
 end_if
 
 a$ = "je regarde le temps passé, le dernier jour arrive"
 message mid$(a$,3,5)

dim a$,b$
a$ = "Salut tout le monde"
b$ = mid$(a$,7,4)
message b$