MON PREMMIER PROGRAMME SANS AIDE EN VB6 "UN COVERTISSEUR ? -> F"
DrAzZiK69
Messages postés
117
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 décembre 2003
-
19 juin 2003 à 08:40
DrAzZiK69 Messages postés 117 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 8 décembre 2003 - 20 juin 2003 à 20:16
DrAzZiK69 Messages postés 117 Date d'inscription lundi 17 mars 2003 Statut Membre Derniè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.
https://codes-sources.commentcamarche.net/source/7497-mon-premmier-programme-sans-aide-en-vb6-un-covertisseur-gt-f
https://codes-sources.commentcamarche.net/source/7497-mon-premmier-programme-sans-aide-en-vb6-un-covertisseur-gt-f
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