exemples en C ou Delphi : comment convertir en PureBasic ?
Publié : dim. 24/juin/2012 22:51
Ras le bol des exemples en C, Delphi... même en Pascal ! et notre langage alors ? 
Enfin, c'est surtout que je ne sais pas transformer ceci vers un code PureBasic
Merci pour votre aide, le but étant de fiabiliser les statistiques provenant des compteurs TeleInfo (avec le montage CartElectronic).
Des fois, il faudrait un convertisseur automatique Delphi --> Purebasic, etc.
Enfin, c'est surtout que je ne sais pas transformer ceci vers un code PureBasic
Code : Tout sélectionner
Déclarer les fonctions du D2XX
function FT_OpenEx(pvArg1:string; dwFlags:Dword; ftHandle:Pointer):FT_Result; stdcall;
External FT_DLL_Name name 'FT_OpenEx';
function FT_Close(ftHandle:Dword):FT_Result; stdcall; External FT_DLL_Name name
'FT_Close';
function FT_GetComPortNumber(ftHandle:Dword ;
lplComPortNumber:Pointer):FT_Result; stdcall; External FT_DLL_Name name
'FT_GetComPortNumber';Code : Tout sélectionner
Exemples en delphi 7:
Utilisation du CBUS BIT BANG MODE pour activer l'une ou l'autre des sorties:
(voir la note d'application AN232R-01 de FTDI)
Utiliser les fichiers: D2XXUnit.pas et iotst.pas
Activé la sortie du compteur 1:
passed:= write_value(1,1,'Interface USB -> Compteur',);
passed est un boolean et retourne true si l'opération est un succès.
Ou:
FT_SetBitMode(Handle, 0x11, 0x20) pour CPT 1Des fois, il faudrait un convertisseur automatique Delphi --> Purebasic, etc.