C'EST UNE PETITE CALCULATRICE JE SUIS DÉBUTANT ALORS NE RIEZ PAS!!!!
Bricomix
Messages postés340Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention14 février 2005
-
19 mars 2004 à 21:49
Arnor2000
Messages postés32Date d'inscriptionmercredi 17 mars 2004StatutMembreDernière intervention24 novembre 2004
-
7 mai 2004 à 01:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Arnor2000
Messages postés32Date d'inscriptionmercredi 17 mars 2004StatutMembreDernière intervention24 novembre 2004 7 mai 2004 à 01:31
Oups dsl j'avais pas vu que tu avais déjà résolu le problème !
Arnor2000
Messages postés32Date d'inscriptionmercredi 17 mars 2004StatutMembreDernière intervention24 novembre 2004 7 mai 2004 à 01:25
Salut, moi aussi je débute !
pour ce qui est du point on peut utiliser très simplement la fonction Replace.
Pour ton cas tu fais :
txt1 = Replace(txt1, ".", ",")
et pareil pour ton Txt2
Voila c'est règlé !
tomitom07
Messages postés16Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention22 janvier 2006 23 avril 2004 à 17:10
bon merci pour tout vos message sympa et sinon comment on fait pour gerer les points
merci encore
@+
tomitom07
DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008 22 mars 2004 à 18:27
oups. j'ai honte :
Private Sub cmdadd_Click()
if isnumeric(txt1)=false or isnumeric(txt2)=false then 'Vérifie
Txtresult = "remplissez bien toutes les cases" 'ERREUR
else
Txtresult = val(txt1) + val(txt2)'ADITIONNE
end if
end sub
Meme pas UNE VARIABLE
DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008 22 mars 2004 à 18:24
Numéro 1- Utilise pas double car c'est un type de variable très lourd.
Numéro 2- Pour déclarer des variables, tu peux faire ça :
Dim txt0 As Double, txt3 As Double, txtresulta As Double
c bien mieux
Numéro 3- Je ferai ça pour le ADD
Private Sub cmdadd_Click()
dim Txtresult as string 'Le résultat final
if isnumeric(txt1)=false or isnumeric(txt2)=false then 'Vérifie
Txtresult = "remplissez bien toutes les cases" 'ERREUR
else
Txtresult = val(txt1) + val(txt2)'ADITIONNE
end if
end sub
Numéro 4- C'est à peu près la même chose pour toute les autres fonction : TROP DE VARIABLES ET PAS OPTIMISÉ
Mais je trouve que c'est pas pire pour un débutant
cs_Fripouil
Messages postés175Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 8 mai 2017 22 mars 2004 à 15:06
Trés cool et entre débutant on se comprend lol
Bonne continuation.
cs_DiaKt
Messages postés20Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention 7 janvier 2005 20 mars 2004 à 02:21
mmmhhhhhh j'ai oublié : je te met 8/10 car tu aurais pu gérer les points (.) au lieu d'indiquer qu'il faut mettre uniquement une virgule(,) wala ++ DiaKt
cs_DiaKt
Messages postés20Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention 7 janvier 2005 20 mars 2004 à 02:19
mwè pa mal lol tu sais je suis passé par la moi ossi mdr je ne sais pas depuis quand tu a commencé le vb donc je ne peut pa dire si c'est bien ou pas pour ton niveau mais d'apres moi tu a du commencer le vb il y a a peine 1 mois je me trompe ? ++ DiaKt
cs_Kernox
Messages postés34Date d'inscriptionsamedi 5 avril 2003StatutMembreDernière intervention10 juillet 2005 19 mars 2004 à 22:57
c'est la premiere fois que je vois une calculatrice de ce genre je trouve l'idee original ! Continu comme ça !
Bricomix
Messages postés340Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention14 février 2005 19 mars 2004 à 21:49
Tu sais tout le monde est passé par ce stade :)
Et ce n'est pas nul du tout ;) L'apprentissage passe par ça ;)
7 mai 2004 à 01:31
7 mai 2004 à 01:25
pour ce qui est du point on peut utiliser très simplement la fonction Replace.
Pour ton cas tu fais :
txt1 = Replace(txt1, ".", ",")
et pareil pour ton Txt2
Voila c'est règlé !
23 avril 2004 à 17:10
merci encore
@+
tomitom07
22 mars 2004 à 18:27
Private Sub cmdadd_Click()
if isnumeric(txt1)=false or isnumeric(txt2)=false then 'Vérifie
Txtresult = "remplissez bien toutes les cases" 'ERREUR
else
Txtresult = val(txt1) + val(txt2)'ADITIONNE
end if
end sub
Meme pas UNE VARIABLE
22 mars 2004 à 18:24
Numéro 2- Pour déclarer des variables, tu peux faire ça :
Dim txt0 As Double, txt3 As Double, txtresulta As Double
c bien mieux
Numéro 3- Je ferai ça pour le ADD
Private Sub cmdadd_Click()
dim Txtresult as string 'Le résultat final
if isnumeric(txt1)=false or isnumeric(txt2)=false then 'Vérifie
Txtresult = "remplissez bien toutes les cases" 'ERREUR
else
Txtresult = val(txt1) + val(txt2)'ADITIONNE
end if
end sub
Numéro 4- C'est à peu près la même chose pour toute les autres fonction : TROP DE VARIABLES ET PAS OPTIMISÉ
Mais je trouve que c'est pas pire pour un débutant
22 mars 2004 à 15:06
Bonne continuation.
20 mars 2004 à 02:21
20 mars 2004 à 02:19
19 mars 2004 à 22:57
19 mars 2004 à 21:49
Et ce n'est pas nul du tout ;) L'apprentissage passe par ça ;)
En tout cas 10 / 10