C'EST UNE PETITE CALCULATRICE JE SUIS DÉBUTANT ALORS NE RIEZ PAS!!!!

Bricomix Messages postés 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 février 2005 - 19 mars 2004 à 21:49
Arnor2000 Messages postés 32 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 24 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.

https://codes-sources.commentcamarche.net/source/21341-c-est-une-petite-calculatrice-je-suis-debutant-alors-ne-riez-pas

Arnor2000 Messages postés 32 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 24 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és 32 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 24 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és 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 22 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és 222 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 30 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és 222 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 30 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és 175 Date d'inscription lundi 16 décembre 2002 Statut Membre Derniè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és 20 Date d'inscription jeudi 15 janvier 2004 Statut Membre Derniè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és 20 Date d'inscription jeudi 15 janvier 2004 Statut Membre Derniè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és 34 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 10 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és 340 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 14 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 ;)

En tout cas 10 / 10
Rejoignez-nous