0/5 (3 avis)
Vue 2 537 fois - Téléchargée 345 fois
Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) End Sub Private Sub Command11_Click() Text3 = (Val(Text1) * Val(Text2)) / 2 End Sub Private Sub Command12_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command13_Click() Text3 = Val(Text1) * Val(Text1) End Sub Private Sub Command2_Click() Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command3_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command4_Click() On Error Resume Next Text3 = Val(Text1) / Val(Text2) End Sub Private Sub Command5_Click() Text3 = Val(Text1) * Val(Text1) End Sub Private Sub Command6_Click() pi = 3.14 Text3 = Val(Text1) * pi End Sub Private Sub Command7_Click() Text3 = "SpeedyCalculs v1.0 by Sniperman113 :p" End Sub Private Sub Command8_Click() pi = 3.141592 / 180 Text3 = Cos(Val(Text1) * pi) End Sub Private Sub Command9_Click() pi = 3.141592 / 180 Text3 = Sin(Val(Text1) * pi) End Sub Private Sub Command10_Click() pi = 3.141592 / 180 Text3 = Tan(Val(Text1) * pi) End Sub 'Il y a une suite a ce code pour les skins mais si vous ne prenez pas le zip ça ne sert a rien a part a faire des erreurs
1 janv. 2004 à 09:11
vise mon site:
http://www.fildomen.fr.tc
31 déc. 2003 à 13:05
29 déc. 2003 à 20:56
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.