Calculatrice a un numeros .... :)

Télécharger le projet
Commenter

Description

Et oui je c ... c cheap mais c mon premier prog en VB qui vaut la penne d'être montrer .. je commence a programmer . Alors j'aprecirais beaucoup si quelquun pourais m'aider a rendre le programme plus fonctionel, comme pouvoir metre plus qu'un chifre a la fois :)

Merci de votre aide !

JPV

Source / Exemple : 


Dim sngtotal As Single
Dim stroper As String
Dim sngvaleur As Single
Dim sngpremier As Single
Dim sngdeuxieme As Single
Dim intoperation As Integer

Private Sub Command1_Click()
Text1.Text = 3
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command10_Click()
Text1.Text = 7
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command11_Click()
stroper = "multi"
End Sub

Private Sub Command12_Click()
stroper = "moin"
End Sub

Private Sub Command13_Click()
stroper = "plus"
End Sub

Private Sub Command14_Click()
Label1.Caption = sngpremier
End Sub

Private Sub Command15_Click()
Label2.Caption = sngdeuxieme
End Sub
' Remise a zero de toute les variable en appuyant sur C
Private Sub Command16_Click()
Text1.Text = 0
sngpremier = 0
sngdeuxieme = 0
sngtotal = 0
stroper = ""
sngvaleur = 0
End Sub

Private Sub Command17_Click()
stroper = "diviser"
End Sub

Private Sub Command18_Click()
Label3.Caption = sngvaleur
End Sub

Private Sub Command2_Click()
Text1.Text = 8
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command3_Click()
Text1.Text = 5
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command4_Click()
Text1.Text = 2
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub
'Operation faite l'orsque on appui sur égale
Private Sub Command5_Click()
Select Case (stroper)
Case "plus"
sngtotal = sngpremier + sngdeuxieme
Text1.Text = sngtotal

Case "moin"
sngtotal = sngpremier - sngdeuxieme
Text1.Text = sngtotal

Case "multi"
sngtotal = sngpremier * sngdeuxieme
Text1.Text = sngtotal

Case "diviser"
sngtotal = sngpremier / sngdeuxieme
Text1.Text = sngtotal
End Select
sngvaleur = 0
End Sub

Private Sub Command6_Click()
Text1.Text = 6
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command7_Click()
Text1.Text = 9
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command8_Click()
Text1.Text = 1
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Command9_Click()
Text1.Text = 4
Call assign(sngpremier, sngdeuxieme)
sngvaleur = 1
End Sub

Private Sub Form_Load()

sngpremier = 0
sngdeuxieme = 0
sngvaleur = 0

End Sub
'Operation faite chaque fois que l'ont appui sur un numero
Private Sub assign(sngpremier As Single, sngdeuxieme As Single)

If sngvaleur = 1 And sngpremier >= 1 Then
  sngdeuxieme = Text1.Text
  
Else: sngpremier = Text1.Text

End If

End Sub

Conclusion :


Alors ceux qui veulent maider je les remercie !

P.S. Je c que c surment mal coder mais c pour sa que je poste la source .. c pour me faire aider ! :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.