Logiciel de dessin DenisDraw, illustration navire
Logiciel de dessin DenisDraw, illustration plongeur
  • Bienvenue !

Utilisation de la DLL Vic-Pilot avec OpenOffice.Org BASIC.

Placer la DLL Vic_Pilot.dll dans le répertoire Windows ou dans le répertoire même de votre application ou dans la variable Path.

logiciel dessin
utiliser ce prototype d'appel des fonctions:
Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( ByVal long )
Declare Sub Lance_Vic Lib "Vic_Pilot.dll" Alias "Lance_Vic"
Declare Sub Vic_Start_path Lib "Vic_Pilot.dll" Alias "Vic_Start_path"
Declare Sub Vic_Close_path Lib "Vic_Pilot.dll" Alias "Vic_Close_path"
Declare Sub Vic_Insert_pah Lib "Vic_Pilot.dll" Alias "Vic_Insert_pah"
Declare Sub Vic_Set_Width_Path Lib "Vic_Pilot.dll" Alias "Vic_Set_Width_Path" ( ByVal long )
Declare Sub Vic_Stroke_Color Lib "Vic_Pilot.dll" Alias "Vic_Stroke_Color" ( ByVal long )
Declare Sub Vic_Fill_Color Lib "Vic_Pilot.dll" Alias "Vic_Fill_Color" ( ByVal long )
Declare Sub Vic_Laser_Color Lib "Vic_Pilot.dll" Alias "Vic_Laser_Color" ( ByVal long )
Declare Sub Vic_unset_laser Lib "Vic_Pilot.dll" Alias "Vic_unset_laser"
Declare Sub Vic_Add_ligne Lib "Vic_Pilot.dll" Alias "Vic_Add_ligne" ( ByVal long, ByVal long )
Declare Sub Vic_Add_Circle Lib "Vic_Pilot.dll" Alias "Vic_Add_Circle" ( ByVal long )
Declare Sub Vic_Add_Quart Lib "Vic_Pilot.dll" Alias "Vic_Add_Quart" ( ByVal long, ByVal long )
Declare Sub Vic_Add_IQuart Lib "Vic_Pilot.dll" Alias "Vic_Add_IQuart" ( ByVal long, ByVal long )
Declare Sub Vic_Add_Spline Lib "Vic_Pilot.dll" Alias "Vic_Add_Spline" ( ByVal long, ByVal long )
Declare Sub Vic_Add_Bézier Lib "Vic_Pilot.dll" Alias "Vic_Add_Bézier" ( ByVal long, ByVal long )
Declare Sub Vic_Add_Quadra Lib "Vic_Pilot.dll" Alias "Vic_Add_Quadra" ( ByVal long, ByVal long )
Declare Sub Vic_Line Lib "Vic_Pilot.dll" Alias "Vic_Line" ( ByVal long, ByVal long, ByVal long, ByVal long )
Declare Sub Vic_Circle Lib "Vic_Pilot.dll" Alias "Vic_Circle" ( ByVal long, ByVal long, ByVal long, ByVal boolean )
Declare Sub Vic_Rectangle Lib "Vic_Pilot.dll" Alias "Vic_Rectangle" ( ByVal long, ByVal long, ByVal long, ByVal long, ByVal boolean )
Declare Sub Vic_Ellipse Lib "Vic_Pilot.dll" Alias "Vic_Ellipse" ( ByVal long, ByVal long, ByVal long, ByVal long, ByVal boolean )
Declare Sub Vic_Angle_Ellipse Lib "Vic_Pilot.dll" Alias "Vic_Angle_Ellipse" ( ByVal long, ByVal long, ByVal long, ByVal long, ByVal long, ByVal boolean )

Procedure d'exemple:

Sub Main
Dim lValue As Long
Dim a as Long
Dim b as Long
Dim c as Long
Dim longeur as Long
lValue = 5000
MyMessageBeep( lValue )
Lance_Vic
longeur=10
For i=1 to 50
a=5000+cos(i/50*6*pi)*longeur*10
b=5000+sin(i/50*6*pi)*longeur*10
c=longeur
Vic_Fill_Color(rgb((i/50)*255,255-(i/50)*255,(i/50)*100+150))
Vic_Circle(a,b,c,vrai)
longeur=longeur+10
next i
MyMessageBeep( lValue )
FreeLibrary("user32.dll" )
FreeLibrary("Vic_Pilot.dll" )
End Sub