Utilisation de la DLL Vic-Pilot avec Borland Delphi

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.

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_Bezier Lib "Vic_Pilot.dll" Alias "Vic_Add_Bezier" ( 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