PureBasic

Bonjour ! Voilà mes réponses... à ARS

; Version 1 : sans structure
NewList Compteur.i()
Debug " Mise en liste des valeurs "
For i= 0 To 4
AddElement(Compteur())
Compteur()=i
Debug "Index : " + ListIndex(Compteur())
Debug "Valeur : " + Compteur()
Next
Debug "---------------"
Debug "..ForEach ...

Bonjour à tous.

Voilà une de mes trouvailles : un choix à partir de constantes chaines...


#Ouvrir$ = "&Ouvrir"
#Enregistrer$ = "Enregistrer"
#Quitter$ = "Quitter"
#Couper$ = "Couper"
#Coller$ = "Coller"
#Copier$ = "Copier"
#Aide$ = "Aide"

#Win_Principale = 10

Enumeration
#Ouvrir
#Enregistrer ...

Bonjour.

Voici une possible solution : #PB_Shortcut_Execute

ou encore une autre associée à EventwParam() : #VK_RETURN


@+

@jbernard13 : salut !
fais plûtot ceci :
@+

@KCC
Resultat = FileSize(NomFichier$)
Resultat donne la longueur du fichier en octets.
Tu as déjà vu un fichier de longueur négative

@ KCC
Dans aide PB :
Resultat = FileSize(NomFichier$)
Tu ne donne pas le nom du fichier...
S'il y a une autre explication je suis preneur.


@+

Vu dans Code Archiv...

; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=1676&highlight=
; Author: NicTheQuick (updated for PB 4.00 by Andre)
; Date: 15. July 2003
; OS: Windows
; Demo: Yes


; Example for using LinkedLists in LinkedLists



; Beispiel zur Verwendung von ...

bonjour. j'ai testé ce bout de code ches moi fonctionne avec jaPBe

NewList maliste.l()
For i=1 To 75000
AddElement(maliste())
maliste()=i
Next
ForEach maliste()
Debug maliste()
Next
ClearList(maliste())
Debug maliste() ; message : the linked list doesn't have a current element

Windows XP sp2 ...

Bonjour à tous.
Je poste ci-dessous ce qu'il y a dans le titre. Cela peut servir également aux tableaux mais aussi à fusionner 1 liste et 1 tableau ou à trouver l'intersection vers 1 autre liste.
FUSION :

; fusion de 2 listes triées vers une liste

#FinListe = "ZZZZ"

NewList ListeOne.s()
NewList ...

Bonjour à tous.

@mytic

Je crois que la boucle for...next n'accepte que des integer
On peut faire aussi avec While...Wend :

Fanator

@Flype
@Ollivier


J'avais fini par trouver les floats à propos de Pow() dans l'aide, mais vous avez trouvé la réponse.
C'est bien mon bout de programme qui était bogué pas PureBasic.
Je vous remercie tous les 2 pour vous être pencher sur mon problème.


Bonne soirée à tous !

@Flype :
Je ne suis pas tout à fait d'accord.
Pow(2,31)-1=2147483647 valeur maxi pour un long : valeur correcte
Pow(2,63)-1 doit être égal à 9223372036854775807 valeur maxi pour un quad.
Pow(2,63)-1= $7FFF FFFF FFFF FFFF, il suffit de controler avec la calculatrice de windows ou autre.
Donc je pense ...

Bonjour à tous.
Je poste mon bout de programme, il y a peut-être un bug.
Version PureBasic utilisée : V4.10 béta 2
Peut-être me suis-je trompé, si quelqu'un peut y regarder...


Dim tab(64)
b.q=9223372036854770 ; cette valeur passe
; b.q=9223372036854771 ; tout ce qui est supérieur à la valeur ...

@Dobro : j'ai effectivement la version 4.02 de PB, je n'ai plus qu'à télécharger la version 4.10 beta 2
Merci pour la réponse


Fanator

Bonjour à tous.
J'ai un problème avec BinQ(). Le bit 32 est égal à 0 alors qu'il devrait être à 1. Voici le code : a.q = %0000000000000000000000000000000000000000000000000000000000000001
a$ = RSet(BinQ(a),64,"0")
Debug a
Debug a$

chaine$ = ""
For k = 0 To 63
Select k
Case 0
b.q = a
b$ = RSet ...