Et bien voila !! Tu vois, c'etait pas dur...Ollivier a écrit :... une librairie sur la manipulation des périphériques USB, ça ne serait pas de refus!

Et bien voila !! Tu vois, c'etait pas dur...Ollivier a écrit :... une librairie sur la manipulation des périphériques USB, ça ne serait pas de refus!
Code : Tout sélectionner
Declare addlist(list idlist(),var.s)
NewList MaListe()
AddElement(MaListe())
MaListe() = 10
addlist(Maliste(),"1,2,42,13,21,420,24,3,1") ; AddList 1, 2, 42, 13, 21, 420, 24, 3, 1
; verification
ForEach Maliste()
debug Maliste()
Next
Procedure Addlist(list idlist(),var.s)
;by Zorro
For i=1 to countstring(var.s,",")
AddElement(idlist())
idlist()=val(stringfield(var.s,i,","))
Next i
EndProcedure
RegisterFontFile() sert à cela, non ?SPH a écrit :- Pouvoir utiliser une police de caracteres installée dans le meme repertoire que l'EXE PB.
Oui ça sert à ça et existe depuis la version 5.50.Torp a écrit :RegisterFontFile() sert à cela, non ?
Code : Tout sélectionner
If RegisterFontFile(GetTemporaryDirectory() + "ascii.ttf") ; We have to register it before to use it
LoadFont(0, "ascii", 12) ; Now we can load the font, the operating system knows it
SetGadgetFont(0, FontID(0))
...
Si tu pouvais mettre en tête de sujet les différentes demandes, et les classer en groupe faisables/pas faisables. Parce que certaines demandes, on peut le faire soi-même assez facilement en cross-platform.SPH a écrit :Et bien voila !! Tu vois, c'etait pas dur...
Zorro a écrit :pour le addlist on peut faire ainsi , certes c'est un poil plus compliquer dans la syntaxe , mais ça marche
Code : Tout sélectionner
Declare addlist(list idlist(),var.s)
NewList MaListe()
AddElement(MaListe())
MaListe() = 10
addlist(Maliste(),"1,2,42,13,21,420,24,3,1") ; AddList 1, 2, 42, 13, 21, 420, 24, 3, 1
; verification
ForEach Maliste()
debug Maliste()
Next
Procedure Addlist(list idlist(),var.s)
;by Zorro
For i=1 to countstring(var.s,",")
AddElement(idlist())
idlist()=val(stringfield(var.s,i,","))
Next i
EndProcedure
Code : Tout sélectionner
Declare AjouterElementTableau(Array idTableau(1),var.s)
Global Dim MonTableau(0)
MonTableau(0) = 10
AjouterElementTableau(MonTableau(),"1,2,42,13,21,420,24,3,1")
; vérification
For i = 0 To ArraySize(MonTableau())
Debug MonTableau(i)
Next
Procedure AjouterElementTableau(Array idTableau(1),var.s)
For i=1 To CountString(var.s,",") + 1
ReDim MonTableau(i)
MonTableau(i) = Val(StringField(var.s,i,","))
Next i
EndProcedure
Je suis content car en effet, ca marche ! Merci FredTorp a écrit :RegisterFontFile() sert à cela, non ?SPH a écrit :- Pouvoir utiliser une police de caracteres installée dans le meme repertoire que l'EXE PB.
Je + oieAr-S a écrit :Pouvoir redimensionner via redim les 2 dimensions dans un tableau à 2 dimension..