Utilisateur anonyme
-
21 juin 2006 à 16:43
Utilisateur anonyme -
21 juin 2006 à 21:21
Bonjour a tous,
j'ai mon jeu qui fonctionne, et a la fin de la partie, il y a un score, j'aimerais enregistrer celui-ci, il s'agit d'un pong, donc le score est en 2 partie nbr joueur et nbr ordinateur
voilou mon code
Private Sub Command1_Click()
Dim intFNum As Integer
Dim intVal As Integer
intFNum = FreeFile
'les scores de l'ordinateur et le mien (qui vont entre 0 et 10)
contenu = frmPLAY.P1Nbr.Caption
contenu2 = frmPLAY.P2Nbr.Caption
' adresse du fichier a enregistrer
chemin = "c:\text.txt"
'ouverture du fichier
Open chemin For Append As #intFNum
' enregistrement du texte
Print #intFNum, contenu, contenu2
'Fermeture du fichier
Close intFNum
End Sub
J'ouvre mon fichier text.txt, il a enregistrer en effet, sur la meme ligne avec un gors espace entre les score (genre 3tabulations)
10 5
3 10
...
De la j'aimerais lire ce fichier avec tous les scores qu'il contient (on va dire qu'il contient 10lignes)
Private Sub Command2_Click()
Dim intCtr As Integer
Dim intVal As Integer
Dim intFNum As Integer
intFNum = FreeFile
chemin = "c:\text.txt"
Open chemin For Input As #intFNum
Input #intFNum, intVal, intCtr
MsgBox (intVal)
MsgBox (intCtr)
Close #intFNum
MsgBox ("Le fichier text.txt est maintenant fermé")
End Sub
Mon probleme, je ne peux lire que les score de la ligne 1 dans ma msgbox, j'aimerais, dans une frm bien faite avec des textbox, afficher les 10lignes et les 2scores de chaque ligne), afficher les scores quoi je vois pas pourquoi je complique
si vous pouviez me guider, et au passage, pour ne pas bourrer mon fichier, j'aimerais qu'il n'enregistre que 10scores, le 11eme remplacera le 1er, etc
et NON ce n'est pas un devoir d'un eleve qui a la flemme de le faire, je demande une aide c'est tout, les réponses toutes faite oui mais avec des commantaire que je puisse dechiffrer et apprendre
merci d'avance
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 21 juin 2006 à 18:15
Re,
'Option Explicit : Force la déclaration explicite de toutes les variables dans un script
Option Explicit
'Dim : Déclare des variables et alloue l'espace de stockage
Dim Fso, File, Resultat
'Fso : Pour programmer avec le modèle d'objet FileSystemObject (FSO)
'Utilisez la méthode CreateObject pour créer un objet FileSystemObject Set Fso = CreateObject("Scripting.FileSystemObject")
'Const : Déclare des constantes destinées à remplacer des valeurs littérales. Const ForReading 1, ForWriting 2, ForAppending
'Set : Affecte une référence d'objet à une variable ou à une propriété, ou associe une
'référence de procédure à un événement
'OpenTextFile : Ouvre un fichier spécifié et renvoie un objet TextStream qui peut être utilisé
'pour lire, écrire et effectuer des ajouts au fichier.
Set File = Fso.OpenTextFile("c:\test.txt", ForReading)
'ReadAll : Lit la totalité d'un fichier TextStream et renvoie la chaîne de caractères obtenue.
Resultat = File.ReadAll
'Ferme un fichier TextStream ouvert.
File.Close
'Affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton
'et renvoie une valeur indiquant le bouton choisi par l'utilisateur
MsgBox Resultat
'Libération des variables.
Set File = Nothing
Set Fso = Nothing
jean-marc
La bible du VBS est SCRIPT56.
Ne pas oublier de valider si réponse(s) satisfaisante(s).
merci Jean-marc, ca marche nikel, et je viens de voir l'activeX dans la MSDN qui permetter de le faire
(mais pourrais tu expliquer un peu ton code quand meme...STP)
encore merci
Et sinon, j'ai un petit probleme, j'ai un bouton "SCORES" qui m'affiche les scores ( et la j'ai le code ci-dessus), mais lorsqu'il s'agit de ma premiere partie, le fichier texte des scores n'exsite pas encore ! et de la il me met donc une erreur car il ne peut pas lire : "File Not Found"
et lorsque je fais avant le code, pour creer le fichier: Open c:\text.txt For Append As #freefile, erreur également
Je pense qu'il doit y avoir une ligne toute simple pour creer un fichier .Txt la ou je le veux ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 21 juin 2006 à 20:43
Re-bonsoir,
Pour la lecture et l'affichage d'un tout petit fichier, l'utlisation de FSO peut simplifier un script VB6.
VB6 a les possibilités de tester la (et non) présence d'un fichier.
Ne scriptant pas en VB (dixit ma fiche), je ne sait pas si l'utilisation de VBs occasionne + de cpu.
Vu ta demande, les réponses vont affluées.
Je ne veux pas faire l'apologie de VBS, WMI, WSH et autres !!!!