Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Leçon Pour Créer Une Calculatrice Sur Visual Basic 6 !

 

40 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Leçon Pour Créer Une Calculatrice Sur Visual Basic 6 !

Prévenir les modérateurs en cas d'abus 
X-ReDoUaNe
x-redouane
  1. Posté le 03/07/2008 à 22:28:46  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir !
Cette Leçon est pour crée une petite calculatrice a l'aide du language de programmation visual basic version 6:
1- On Ouvre le programme
2- On Clique Sur ' Nouveau Projet '
3- Puis On entre le code suource suivant ( Copier - Coller )

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Dim chaine As String 'Variable qui permet de prendre le nombre saisi sous forme de chaine de caractére
  2. Dim nb1 As Double 'Variable qui sert à faire les opérations
  3. Dim a As Integer 'Variable pour connaitre l'operateur
  4. 'a=0 pour l'addition
  5. 'a=1 pour la division
  6. 'a=2 pour la multiplication
  7. 'a=4 pour la soustraction
  8.  
  9. Private Sub cmd0_Click()
  10. chaine = chaine + "0"
  11. Text1.Text = chaine
  12. End Sub
  13.  
  14. Private Sub cmd1_Click()
  15. chaine = chaine + "1"
  16. Text1.Text = chaine
  17. End Sub
  18.  
  19. Private Sub cmd2_Click()
  20. chaine = chaine + "2"
  21. Text1.Text = chaine
  22. End Sub
  23.  
  24. Private Sub cmd3_Click()
  25. chaine = chaine + "3"
  26. Text1.Text = chaine
  27. End Sub
  28.  
  29. Private Sub cmd4_Click()
  30. chaine = chaine + "4"
  31. Text1.Text = chaine
  32. End Sub
  33.  
  34. Private Sub cmd5_Click()
  35. chaine = chaine + "5"
  36. Text1.Text = chaine
  37. End Sub
  38.  
  39. Private Sub cmd6_Click()
  40. chaine = chaine + "6"
  41. Text1.Text = chaine
  42. End Sub
  43.  
  44. Private Sub cmd7_Click()
  45. chaine = chaine + "7"
  46. Text1.Text = chaine
  47. End Sub
  48.  
  49. Private Sub cmd8_Click()
  50. chaine = chaine + "8"
  51. Text1.Text = chaine
  52. End Sub
  53.  
  54. Private Sub cmd9_Click()
  55. chaine = chaine + "9"
  56. Text1.Text = chaine
  57. End Sub
  58.  
  59. Private Sub cmdadd_Click()
  60. nb1 = nb1 + Val(chaine)
  61. Text1.Text = nb1
  62. a = 0
  63. chaine = ""
  64. cmdvirgule.Enabled = True
  65. End Sub
  66.  
  67. Private Sub cmdcee_Click()
  68. chaine = ""
  69. cmdvirgule.Enabled = True
  70. Text1.Text = "0"
  71. End Sub
  72.  
  73. Private Sub cmddiv_Click()
  74. If nb1 = 0 Then
  75. nb1 = Val(chaine) 'val convertit une chaine de caractéres en nombre
  76. Else
  77. nb1 = nb1 / Val(chaine)
  78. End If
  79. Text1.Text = nb1
  80. a = 1
  81. chaine = ""
  82. cmdvirgule.Enabled = True
  83. End Sub
  84.  
  85. Private Sub cmdegale_Click()
  86. If a = 0 Then
  87. nb1 = nb1 + Val(chaine)
  88. End If
  89. If a = 1 Then
  90. nb1 = nb1 / Val(chaine)
  91. End If
  92. If a = 2 Then
  93. nb1 = nb1 * Val(chaine)
  94. End If
  95. If a = 3 Then
  96. nb1 = nb1 - Val(chaine)
  97. End If
  98. Text1.Text = nb1
  99. nb1 = 0
  100. chaine = ""
  101. cmdvirgule.Enabled = True
  102. End Sub
  103.  
  104. Private Sub cmdfois_Click()
  105. If nb1 = 0 Then
  106. nb1 = Val(chaine)
  107. Else
  108. nb1 = nb1 * Val(chaine)
  109. End If
  110. Text1.Text = nb1
  111. a = 2
  112. chaine = ""
  113. cmdvirgule.Enabled = True
  114. End Sub
  115.  
  116. Private Sub cmdoff_Click()
  117. End
  118. End Sub
  119.  
  120. Private Sub cmdsoust_Click()
  121. a = 3
  122. If nb1 = 0 Then
  123. nb1 = Val(chaine)
  124. Else
  125. nb1 = nb1 - Val(chaine)
  126. End If
  127. Text1.Text = nb1
  128. chaine = ""
  129. cmdvirgule.Enabled = True
  130. End Sub
  131.  
  132. Private Sub cmdsqr_Click()
  133. nb1 = Sqr(Val(chaine))
  134. Text1.Text = nb1
  135. End Sub
  136.  
  137. Private Sub cmdvirgule_Click()
  138. chaine = chaine + "."
  139. Text1.Text = chaine
  140. cmdvirgule.Enabled = False
  141. End Sub
  142.  
  143. Private Sub Form_Load()
  144. chaine = ""
  145. nb1 = 0
  146. nb2 = 0
  147. Text1.Text = "0"
  148. End Sub

Merci Pour Avoir Lu Mon Sujet, A une prochaine rencontre !

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 12/02/2016 à 20:43:52
kalucrete
  1. Posté le 31/10/2010 à 22:34:07  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Je suis un vieux professeur de 60 ans et j'ai commencé à apprendre Visual Basic.  Comme je ne connais rien à la programmation, la calculatrice s'avère un défi de taille. Mais quand je regarde la façon dont tu as monté le tout, je te lève mon chapeau: Bravo. Je vais essayer maintenant d'y ajouter des fonctions trigonométriques, les carrés, les racines... Je te félicite et te remercie grandement.


 edit modérateur: Ne postez pas votre email sur des forums publiques, elle pourrait être récupérée pour vous envoyer du spam :jap:

(Publicité)
bobcpt
  1. Posté le 11/02/2016 à 20:24:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir, j'en avais besoin pour mon logiciel, personnel, vous m'avez plus qu'aidé, merci beaucoup. Cordialement. Pierre. :wahoo:

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 12/02/2016 à 18:44:06  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

un autre programme avec sa calculette
http://www.cjoint.com/c/FBmrPX​zPZe1

 :hello:
Message cité 1 fois

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
bobcpt
  1. Posté le 13/02/2016 à 14:15:59  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

bonjour,

un autre programme avec sa calculette
http://www.cjoint.com/c/FBmrPX​zPZe1

 :hello:
Afficher plus
Afficher moins

Bonjour, merci pour ce nouveau post, vous êtes très sympathique :love: , cordialement.

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Comment créer un moteur de recherche professionnel ? aide pour crer un expl calculatrice en php
Créer un nouveau langage de programmation ? Tuto Visual Basic 2005 Express Edition
comment créer une banniere? Cachez votre ip au yeux du monde entier(lecon faite par moi)
logiciel pour creer un monde virtuel  
Plus de sujets relatifs à : Leçon Pour Créer Une Calculatrice Sur Visual Basic 6 !

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
visualiser ma bd 0
visualiser ma bd 1
formule contact help !!!! 2
formulaire/ affichage d'une même page x fois 0
probléme redirection url 1