Divers problèmes...
davidguillon
Messages postés
81
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
15 septembre 2009
-
10 mai 2006 à 21:16
davidguillon Messages postés 81 Date d'inscription lundi 9 août 2004 Statut Membre Dernière intervention 15 septembre 2009 - 10 mai 2006 à 23:28
davidguillon Messages postés 81 Date d'inscription lundi 9 août 2004 Statut Membre Dernière intervention 15 septembre 2009 - 10 mai 2006 à 23:28
4 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
10 mai 2006 à 22:11
10 mai 2006 à 22:11
Salut,
1)
passe par une zone intermédiaire en Integer
Dim NumEleve As Integer
NumEleve = Val(TxtNumEleve.Text )
if NumEleve = 0 then Exit Sub
nombre d'enregistrement du fichier = Filelen("C:\eleve.txt") \ Len(SaveEleve)
if NumEleve > nombre d'enregistrement du fichier then Exit Sub
qu'est ce que c'est que cette Recherche alors qu'il y a accès direct ??????
j'aime pas trop While Not EOF(1) sur un fichier Random
Get 1, NumEleve, SaveEleve
2)
suppression impossible sur un fichier Random.
met un code de suppression dans l'enregistrement, 0=actif, 1=supprimé par exemple, qui sera testé à la lecture,
à la place du numéro d'élève qui fait double emploi, donc inutile ...
3)
pas trop compris, met la Date en String
dateexam As String
Daniel
1)
passe par une zone intermédiaire en Integer
Dim NumEleve As Integer
NumEleve = Val(TxtNumEleve.Text )
if NumEleve = 0 then Exit Sub
nombre d'enregistrement du fichier = Filelen("C:\eleve.txt") \ Len(SaveEleve)
if NumEleve > nombre d'enregistrement du fichier then Exit Sub
qu'est ce que c'est que cette Recherche alors qu'il y a accès direct ??????
j'aime pas trop While Not EOF(1) sur un fichier Random
Get 1, NumEleve, SaveEleve
2)
suppression impossible sur un fichier Random.
met un code de suppression dans l'enregistrement, 0=actif, 1=supprimé par exemple, qui sera testé à la lecture,
à la place du numéro d'élève qui fait double emploi, donc inutile ...
3)
pas trop compris, met la Date en String
dateexam As String
Daniel
davidguillon
Messages postés
81
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
15 septembre 2009
10 mai 2006 à 22:35
10 mai 2006 à 22:35
Oula m'en veux pas, mais je débute en VB... Et à chaque fois qu'on me propose une manière bien différente de celle que j'ai un peu l'habitude d'itiliser, je suis perdu...
Pour ta première solution :
Dim NumEleve As Integer
NumEleve = Val(TxtNumEleve.Text )
if NumEleve = 0 then Exit Sub
Je ne comprend pas vu que NumEleve est déclaré dans mon module (non?)
Et je ne vois pas trop où mettre les deux lignes suivantes...............
Je peux juste confirmer que je peux enlever le while et que ça ne change rien
Deuxième solution: Promis, pas de mauvaise fois... je ne vois pas où je dois faire cela... Je ne comprend pas vu que je ne sais pas où l'intégrer...
Troisième solution: J'ai la possibilité de mettre ça en Integer c'est sur mais on m'a montré un outil un peu plus joli qui développe un calendrier ( et pour avoir ce composant il faut "l'importer, il s'apelle Microsoft Windows Common Controls 2 6.0 ou la version 3 6.0). Donc DTPicker est le nom du composant mais aussi le nom de la déclaration que la date doit prendre.... d'après ce que j'ai compris... Mais bon, je l'ai peut être mal fait ...
Merci beaucoup de prendre du temps pour moi ;)
David
Pour ta première solution :
Dim NumEleve As Integer
NumEleve = Val(TxtNumEleve.Text )
if NumEleve = 0 then Exit Sub
Je ne comprend pas vu que NumEleve est déclaré dans mon module (non?)
Et je ne vois pas trop où mettre les deux lignes suivantes...............
Je peux juste confirmer que je peux enlever le while et que ça ne change rien
Deuxième solution: Promis, pas de mauvaise fois... je ne vois pas où je dois faire cela... Je ne comprend pas vu que je ne sais pas où l'intégrer...
Troisième solution: J'ai la possibilité de mettre ça en Integer c'est sur mais on m'a montré un outil un peu plus joli qui développe un calendrier ( et pour avoir ce composant il faut "l'importer, il s'apelle Microsoft Windows Common Controls 2 6.0 ou la version 3 6.0). Donc DTPicker est le nom du composant mais aussi le nom de la déclaration que la date doit prendre.... d'après ce que j'ai compris... Mais bon, je l'ai peut être mal fait ...
Merci beaucoup de prendre du temps pour moi ;)
David
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
10 mai 2006 à 23:14
10 mai 2006 à 23:14
Salut,
je vais essayer d'expliquer un peu plus, t'inquiètes pas c'est pas trop dur
TxtNumEleve.Text, je suppose que c'est un TextBox, donc une String, et quand c'est pas numérique, forcément ça plante.
il faudrait mieux tester la saisie, pour être sùur qu'on a bien du numérique, voir TextBox Numérique ...
il reste le cas où TxtNumeleve.Text = ""
on peut le tester avec If TxtNumeleve.Text = "" Then ...
NumEleve est un numérique, il peut être déclaré dans un module si utilisé plusieur foisNumEleve Val(TxtNumEleve.Text ) va donner zéro si TxtNumeleve.Text "", ou même si TxtNumeleve.Text
n'est pas numérique, donc pas de plantage ...
après l'open tu peux savoir le nombre d'enregistrements
Open "C:\eleve.txt" For Random As #1 Len = Len(SaveEleve)
NombreEnregistrement = Lof(1) \ Len(SaveEleve)
ce qui permet de savoir que NumEleve ne dépasse pas le nombre d'enregistrements.
à partir de là, on sait que l'enregistrement existe, entre 1 et NomberEnregistrement,
il peut être encore supprimé (code suppression = 1)
comme le numéro d'éleve est la clef, on a accès direct:
Get #1, NumEleve , SaveEleve
et tester si CodeSuppression = 1 Then ... Elève n'existe pas ...
la boucle While/Wend est donc bien inutile, sinon quel est l'avantage d'avoir un accès Random ?
autre chose:
mettre le code dans la Sub TxtNumEleve_Change, c'est pas une très
bonne idée, soit il faut mettre un bouton, ou alors tester la touche
Enter, sinon à chaque changement, relecture du fichier, etc ...
vaut mieux attendre la fin de la saisie non ?
c'est DTPicker qui n'est pas accepté, parce que c'est pas un type de donnée
il reste le choix entre String, Date ou Double
l'avantage du String c'est que ce sera lisible, par contre Date et Double seront en binaire
dateexam As String*10
dateexam = DTPicker.Value
Daniel
je vais essayer d'expliquer un peu plus, t'inquiètes pas c'est pas trop dur
TxtNumEleve.Text, je suppose que c'est un TextBox, donc une String, et quand c'est pas numérique, forcément ça plante.
il faudrait mieux tester la saisie, pour être sùur qu'on a bien du numérique, voir TextBox Numérique ...
il reste le cas où TxtNumeleve.Text = ""
on peut le tester avec If TxtNumeleve.Text = "" Then ...
NumEleve est un numérique, il peut être déclaré dans un module si utilisé plusieur foisNumEleve Val(TxtNumEleve.Text ) va donner zéro si TxtNumeleve.Text "", ou même si TxtNumeleve.Text
n'est pas numérique, donc pas de plantage ...
après l'open tu peux savoir le nombre d'enregistrements
Open "C:\eleve.txt" For Random As #1 Len = Len(SaveEleve)
NombreEnregistrement = Lof(1) \ Len(SaveEleve)
ce qui permet de savoir que NumEleve ne dépasse pas le nombre d'enregistrements.
à partir de là, on sait que l'enregistrement existe, entre 1 et NomberEnregistrement,
il peut être encore supprimé (code suppression = 1)
comme le numéro d'éleve est la clef, on a accès direct:
Get #1, NumEleve , SaveEleve
et tester si CodeSuppression = 1 Then ... Elève n'existe pas ...
la boucle While/Wend est donc bien inutile, sinon quel est l'avantage d'avoir un accès Random ?
autre chose:
mettre le code dans la Sub TxtNumEleve_Change, c'est pas une très
bonne idée, soit il faut mettre un bouton, ou alors tester la touche
Enter, sinon à chaque changement, relecture du fichier, etc ...
vaut mieux attendre la fin de la saisie non ?
c'est DTPicker qui n'est pas accepté, parce que c'est pas un type de donnée
il reste le choix entre String, Date ou Double
l'avantage du String c'est que ce sera lisible, par contre Date et Double seront en binaire
dateexam As String*10
dateexam = DTPicker.Value
Daniel
davidguillon
Messages postés
81
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
15 septembre 2009
10 mai 2006 à 23:28
10 mai 2006 à 23:28
Merci pour ta réponse. Je vais travailler ta réponse demain avec un copain.
De toute façon il faut que je termine ce projet rapidement donc ta réponse ne restera pas... sans réponse :)
Merci encore et bonne nuit :)
David
De toute façon il faut que je termine ce projet rapidement donc ta réponse ne restera pas... sans réponse :)
Merci encore et bonne nuit :)
David
