MON PREMMIER PROGRAMME SANS AIDE EN VB6 "UN COVERTISSEUR ? -> F"
DrAzZiK69
Messages postés117Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 8 décembre 2003
-
19 juin 2003 à 08:40
DrAzZiK69
Messages postés117Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 8 décembre 2003
-
20 juin 2003 à 20:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
DrAzZiK69
Messages postés117Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 8 décembre 2003 20 juin 2003 à 20:16
PS: merci à fond à SamuelCadieux pacque franchement ca m'encourage !!!!
TROP COOOL ^^ [ Zétes tous trop cool aussi zinkiétez po ^^ ]
DrAzZiK69
Messages postés117Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 8 décembre 2003 20 juin 2003 à 20:06
houla les gars !! ca ffé 2 jours ke j'ai VB6 mdr c mon premier premier programme alors si vous m'embrouillez mdr ^^ je pige ke dal à cke vs dites, jvé dabord apprendre dans un tuto, aprés j'appliquerai pacque si je copi votre texte brut ca ffé con.. bon oki jvé gerer la gestion des erreurs ^^
PS: et pis crossblade je m'en fout kyé plein de prog comme moi je développe un nouvo truc pr convertir pas mal de devises.. et pis.. c mon premier prog ^^
Bon merci pour vos magnifiques commentaires !! Trop cool j'adore que vous y jetez un coup d'oeil ^^
----------
Bye All !
vr3h
Messages postés164Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention 9 octobre 2006 20 juin 2003 à 12:45
pour ca il suffit de donner des noms clairement explicites contenant eventuellement un préfix qui permet l'identifaction facile de la classe
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 20 juin 2003 à 08:58
ou aussi T_Convertir, B_Go, L_Euro... les normes c a nous de les choisir lorsqu'on proggramme, pour que ce soit plus simple a comprendre pour tout lecteur de ce programme
Gael26
Messages postés5Date d'inscriptionmercredi 28 mai 2003StatutMembreDernière intervention23 juin 2003 20 juin 2003 à 08:53
Il existe quelques normes pour nommés ses objets (texte,bouton..)
Text = txtConvertir par exemple
Button = btnGo
Label = lblEuro ...
SamuelCadieux
Messages postés31Date d'inscriptiondimanche 8 septembre 2002StatutMembreDernière intervention20 juin 2003 20 juin 2003 à 00:36
10/10 c du génie!
vr3h
Messages postés164Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention 9 octobre 2006 19 juin 2003 à 17:09
ne pas mettre 50 fois le meme type de source, c ca kil fo... pr montrer une chose simple, pas de pb peut y avoir 2 ou 3 sources a la rigueur, mais c vrai kapres c saoulant. exemple : laffichage "a la Matrix" tt lem onde a voulu essayer de realiser cet effet et c clair kil en fallait 1 ou 2 pour ca, mais pas 50 non plus...
Arecibo
Messages postés124Date d'inscriptionjeudi 13 juin 2002StatutMembreDernière intervention30 juillet 2003 19 juin 2003 à 16:37
Moi je suis pas d'accord. VbFrance est fait pour héberger des sources de tous niveaux, pas seulements les programmes avec 56 000 lignes de codes et 50 options, il faut de tout. De plus je suis sur que cette source va en aider certains qui débutent.
Si les admins ne voulaint pas de cette source il l'auraient déja virée !!!
Mais bon, c'est vrai qu'il ne faut pas en mettre trop.
cs_iubito
Messages postés629Date d'inscriptionmercredi 3 juillet 2002StatutMembreDernière intervention 9 octobre 2006 19 juin 2003 à 16:11
hé bein drazzik t'en a eu d commentaires ! estime-toi heureux pour un débutant d'avoir autant de commentaires sur un convertisseur euro-franc. C généralement le 1er programme k'on fé pour voir si on arrive à manipuler 2-3 trucs, mais imagines, si tout le monde poste sa source ki fait un "Hello World"... ça va devenir rabajoie lol donc le convertisseur c très bien pour débuter, mais il vaut mieux éviter de les mettres sur codes-soruces. Encore tu as eu de la chance parce qu'ils t'on filé des astuces et tout lol :-D
vr3h
Messages postés164Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention 9 octobre 2006 19 juin 2003 à 13:53
Pas mal pour un prog sans aide...
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
vr3h
Messages postés164Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention 9 octobre 2006 19 juin 2003 à 13:53
Pas mal pour un prog sans aide...
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
vr3h
Messages postés164Date d'inscriptionjeudi 6 mars 2003StatutMembreDernière intervention 9 octobre 2006 19 juin 2003 à 13:52
Pas mal pour un prog sans aide...
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
pi7438
Messages postés94Date d'inscriptionvendredi 14 juin 2002StatutMembreDernière intervention16 avril 2004 19 juin 2003 à 13:07
moi je trouve ca pas mal pour un premier programme sans aide.
8/10
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 19 juin 2003 à 11:56
ya aussi un truc pas mal, et simple a comprendre c ca :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If instr("0123456789,.",chr$(keyascii))=0 and keyascii<>8 Then
KeyAscii = 0
End If
End Sub
en fait la chaine "0123456789,." sera les caracteres autorisés... c assez explicite, mais fo que seulement peu de caractere soient autorisés pour que ca serve ;-)
bon ben voila DrAzZiK69 ta plus qu'a faire les modifs sur ton programme ;-) on ta maché le travail ! lol
A++ tous
cs_holy
Messages postés23Date d'inscriptionmardi 23 avril 2002StatutMembreDernière intervention27 juin 2003 19 juin 2003 à 11:45
tant k'a faire n'imbriquons pas les if inutilement ;)
Private Sub Text1_KeyPress(KeyAscii As Integer)
'si le code de la touche est <> de 8 (backspace) et k'il n'est pas compris entre 47 et 57 (chiffres de 0 a 9)
If KeyAscii <> 8 and (KeyAscii < 47 Or KeyAscii > 57) Then
'alors considérer ke aucune touche pressée
KeyAscii = 0
End If
End Sub
cs_bibiou
Messages postés15Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention25 février 2004 19 juin 2003 à 11:44
ta certainement raison !
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 19 juin 2003 à 11:39
la meilleur façon d'apprendre c de le faire soit meme... sinon on applique mais on pige kedal
cs_bibiou
Messages postés15Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention25 février 2004 19 juin 2003 à 11:34
oué mais bon si il débute il faut lui donner des exemples
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 19 juin 2003 à 11:31
ben vi mais si tu le laisse po chercher un peu il progressera pas...
cs_bibiou
Messages postés15Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention25 février 2004 19 juin 2003 à 11:25
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If (KeyAscii < 47 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End If
End Sub
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 19 juin 2003 à 11:14
ha oué, pour annuler un caractere non voulu, tu met KeyAscii=0, comme ca ca fé comme si t'avé pas tapé de caracteres
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 19 juin 2003 à 11:06
comme l'a dit holy, l'important dans les programmes, c la gestion des erreurs... alors le plus simple, tu part du fait ke ton utilisateur de base est un neuneu ki va cliquer partout, et tu corrige les eventuelles erreurs... bon sinon pour l'arranger un peu tu peux filtrer les caracteres tapé dans tes zones de texte pour qu'on ne puisse rentrer ke des chiffres... pour ca, ya une sub, TextX_KeyPress(KeyAscii as integer...)
le programme rentre dans cette sub a chaque fois qu'un caractere va etre inscrit dans la zone... le code ascii de ce caractere (cf MSDN pour connaitre l'ascii) est contenu dans la variable KeyAscii... le truc bien c que si dans cette sub tu modifie le code, ca modifiera le caractere tapé... exemple si tu met dans cette sub KeyAscii=asc("*"), alors a chaque fois que tu taperas quelque chose, ca marquera une etoile... attention, le texte retenu ne sera pluq ce que tu as tapé mais une liste d'etoiles !!!
bref pour ton programme, il faut limiter les caracteres aux nombres, a la virgule, et au point (tu peux faire que quand on tape l'un ca marque l'autre pour formaliser) et SURTOUT le caractere BACKSPACE, pour effacer en cas de correction !! on y pense pas toujours...
je te laisse trouver ce bout de code un peu simple... en cas de problemes ecris moi !
A++ bonne continuation !!!
(et si tu peux ecrit un titre précis, pour qu'on sache quest-ce que c quand on lit ta source...)
cs_holy
Messages postés23Date d'inscriptionmardi 23 avril 2002StatutMembreDernière intervention27 juin 2003 19 juin 2003 à 09:00
faute de frappe:
if text1 = <> and text2 <> "" then
devient
if text1 = <> "" and text2 <> "" then
désolé ^^;
cs_holy
Messages postés23Date d'inscriptionmardi 23 avril 2002StatutMembreDernière intervention27 juin 2003 19 juin 2003 à 08:59
Ne laisse pas les noms par défaut aux controles (label1, text1...)
Dans une petite appli ce n'est ps génant, mais quand tu commences a avoir une 10 aine de controles ca peut vite devenir le foutoir...
Et pense a toutes les eventualits: si on clicke sur convert alors qu'aucun des 2 champs n'est rempli, paf erreur... rajoute une condition du type
if text1 = <> and text2 <> "" then
'effectuer la conversion en verifiant le sens
endif
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 19 juin 2003 à 08:54
vu le nombre de programme comme le tient et vu la facilité (même pour un débutant) pour faire ce type de prog, alors je ne donnerais pas de note mais continu et fais par exemple une version qui peut convertir dans d'autres devises et pas que dans le sens franc<->devise ou devise<->franc....
DrAzZiK69
Messages postés117Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 8 décembre 2003 19 juin 2003 à 08:40
20 juin 2003 à 20:16
TROP COOOL ^^ [ Zétes tous trop cool aussi zinkiétez po ^^ ]
20 juin 2003 à 20:06
PS: et pis crossblade je m'en fout kyé plein de prog comme moi je développe un nouvo truc pr convertir pas mal de devises.. et pis.. c mon premier prog ^^
Bon merci pour vos magnifiques commentaires !! Trop cool j'adore que vous y jetez un coup d'oeil ^^
----------
Bye All !
20 juin 2003 à 12:45
20 juin 2003 à 08:58
20 juin 2003 à 08:53
Text = txtConvertir par exemple
Button = btnGo
Label = lblEuro ...
20 juin 2003 à 00:36
19 juin 2003 à 17:09
19 juin 2003 à 16:37
Si les admins ne voulaint pas de cette source il l'auraient déja virée !!!
Mais bon, c'est vrai qu'il ne faut pas en mettre trop.
19 juin 2003 à 16:11
19 juin 2003 à 13:53
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
19 juin 2003 à 13:53
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
19 juin 2003 à 13:52
Maintenant si tu debutes en VB, un chti conseil, defini toi des objectifs clair et precis (tas pa forcément besoin decrire tout, tout peut etre ds ta tete), et ensuite lance toi dans le code en sachant exactement ce ke tu fais et pkoi tu le fais. Une autre petite chose, va souvent faire un tour dans l'explorateur d'objet (F2 sous VB6 et Ctrl+Alt+J sous VB.Net). tu y trouveras sans doute beaucoup d'info et d'astuces ;-)
sinon pr le code en lui mm, je met 8/10 pr un petit projet réalisé sans aide :-)
19 juin 2003 à 13:07
8/10
19 juin 2003 à 11:56
Private Sub Text1_KeyPress(KeyAscii As Integer)
If instr("0123456789,.",chr$(keyascii))=0 and keyascii<>8 Then
KeyAscii = 0
End If
End Sub
en fait la chaine "0123456789,." sera les caracteres autorisés... c assez explicite, mais fo que seulement peu de caractere soient autorisés pour que ca serve ;-)
bon ben voila DrAzZiK69 ta plus qu'a faire les modifs sur ton programme ;-) on ta maché le travail ! lol
A++ tous
19 juin 2003 à 11:45
Private Sub Text1_KeyPress(KeyAscii As Integer)
'si le code de la touche est <> de 8 (backspace) et k'il n'est pas compris entre 47 et 57 (chiffres de 0 a 9)
If KeyAscii <> 8 and (KeyAscii < 47 Or KeyAscii > 57) Then
'alors considérer ke aucune touche pressée
KeyAscii = 0
End If
End Sub
19 juin 2003 à 11:44
19 juin 2003 à 11:39
19 juin 2003 à 11:34
19 juin 2003 à 11:31
19 juin 2003 à 11:25
If KeyAscii <> 8 Then
If (KeyAscii < 47 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End If
End Sub
19 juin 2003 à 11:14
19 juin 2003 à 11:06
le programme rentre dans cette sub a chaque fois qu'un caractere va etre inscrit dans la zone... le code ascii de ce caractere (cf MSDN pour connaitre l'ascii) est contenu dans la variable KeyAscii... le truc bien c que si dans cette sub tu modifie le code, ca modifiera le caractere tapé... exemple si tu met dans cette sub KeyAscii=asc("*"), alors a chaque fois que tu taperas quelque chose, ca marquera une etoile... attention, le texte retenu ne sera pluq ce que tu as tapé mais une liste d'etoiles !!!
bref pour ton programme, il faut limiter les caracteres aux nombres, a la virgule, et au point (tu peux faire que quand on tape l'un ca marque l'autre pour formaliser) et SURTOUT le caractere BACKSPACE, pour effacer en cas de correction !! on y pense pas toujours...
je te laisse trouver ce bout de code un peu simple... en cas de problemes ecris moi !
A++ bonne continuation !!!
(et si tu peux ecrit un titre précis, pour qu'on sache quest-ce que c quand on lit ta source...)
19 juin 2003 à 09:00
if text1 = <> and text2 <> "" then
devient
if text1 = <> "" and text2 <> "" then
désolé ^^;
19 juin 2003 à 08:59
Dans une petite appli ce n'est ps génant, mais quand tu commences a avoir une 10 aine de controles ca peut vite devenir le foutoir...
Et pense a toutes les eventualits: si on clicke sur convert alors qu'aucun des 2 champs n'est rempli, paf erreur... rajoute une condition du type
if text1 = <> and text2 <> "" then
'effectuer la conversion en verifiant le sens
endif
19 juin 2003 à 08:54
19 juin 2003 à 08:40