Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
 | | Sujet: BDR.dll: ajout fonction BDRversion -> Version V1.00 Jeu 25 Avr 2013 - 2:42 | |
| Nouvelle version:
BDR.dll V1.00 du 25/04/2013
Nouveauté:
ajout de la fonction BDRversion
Appel:
BDR.dll: version% = DLL_call1("BDRversion",adr(version$))
BDR_SUB.bas et KGF_SUB.bas: BDRversion()
La version de la DLL est fixée à V1.00 ce jour.
La doc est à jour.
Modules modifiés:
BDR.dll
BDR_SUB.bas
KGF_SUB.bas
BDR.chm, BDR.doc, BDR.pdf
| |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: BDR.dll: ajout fonction BDRversion -> Version V1.00 Jeu 25 Avr 2013 - 10:36 | |
| Voici un petit programme qui affiche la version de KGF.dll et celle de BDR.dll si cette DLL est présente: - Code:
-
' affichage versions KGF et BDR.bas
'
' Ce programme affiche la version de KGF.dll
' et de BDR.dll si cette DLL est présente.
' Les chemins sont à adapter dans les variables
' Evidemment, KGF.dll doit être présent !.
dim KGF$, BDR$, s$
KGF$ = "KGF.dll"
BDR$ = "..\BDR\BDR.dll"
memo 1 : top 1,10 : left 1,10 : width 1,400 : height 1,150
font_name 1,courier
KGF_initialize(KGF$)
KGFdllVersion()
format(KGFdllversion%)
item_add 1,"Format texte: "+KGFdllversion$
item_add 1,"Format numérique: "+s$
item_add 1," "
if file_exists(BDR$)=1
BDRinitialize(BDR$)
BDRversion()
format(BDRversion%)
item_add 1,"Format texte: "+BDRversion$
item_add 1,"Format numérique: "+s$
item_add 1," "
end_if
end
sub format(version%)
s$ = str$(version%/100)
if instr(s$,".")=0 then s$ = s$ + ".00"
if instr(s$,".")=(len(s$)-1) then s$ = s$ + "0"
end_sub
#INCLUDE "KGF_SUB.bas"
| |
|
Calendrier