C un simple programme que g fait pour apprendre VB6 car ca fait 6 mois que j'apprend,je fais aussi des programmes de math mais bon comme je ne connais pas encore bien VB et que j'apprends avec les sources de ce site.
Merci de m'aider et d'être indulgent envers moi
MERCI ENCORE
enfin voila le code dans le fichier ZIP
Source / Exemple :
Private Sub cmdExit_Click()
Unload Me
End
End Sub
Private Sub cmdEffacer_Click()
Text1.Text = "" 'efface :-)
Text2.Text = ""
End Sub
Private Sub cmdInverse_Click()
Text3.Text = Round(1 / Text3.Text, 14) 'pour calculé l'inverse du taux
End Sub
Private Sub Form_Load()
Text3.Text = 40.3399
Option1.Value = True
End Sub
Private Sub mnuAbout_Click()
Unload Me
frmAbout.Show
End Sub
Private Sub mnuExit_Click()
Unload Me
End
End Sub
Private Sub Text3_Change()
Text3.Text = Round(Text3.Text, 14) 'juste pour ne pas avoir des exposants négatifs
End Sub
Private Sub Timer1_Timer()
If Text3.Text <> "" Then 'si on ne met rien dans le text pour éviter des erreurs
If Option1.Value = True And Text1.Text <> "" Then
Text2.Text = Round(Text1.Text * Text3.Text, 2) 'pour ne pas avoir de très grande virgule
End If
If Text1.Text = "" Then
Text2.Text = ""
End If
End If
End Sub
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.