Outil de mesure surface

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 080 fois - Téléchargée 39 fois

Contenu du snippet

petit outil de mesure mesurer la surface d'un carré , rectangle , cercle je veut preciser que je suis au debut ce sont mes premier code alors bien sur le niveau de difficulté va augmenter avec le temps faut débuter par quelque chosse merci.

Source / Exemple :


Private Sub Cmdeffacer_Click()
txtcoté = ""
txtlargeur = ""
txtlongeur = ""
txtrayon = ""
txtsurfacecarré = ""
txtsurfacerectangle = ""
txtsurfacecercle = ""
End Sub

Private Sub cmdfin_Click()
MsgBox "merci au revoir", vbInformation
End
End Sub

Private Sub cmdsurfacecarré_Click()
txtsurfacecarré = Val(txtcoté) * Val(txtcoté)
End Sub

Private Sub cmdsurfacecercle_Click()
txtsurfacecercle = Val(txtrayon) * (txtrayon)
End Sub

Private Sub cmdsurfacerectangle_Click()
txtsurfacerectangle = Val(txtlongeur) * (txtlargeur)
End Sub

Private Sub Form_Load()

End Sub

A voir également

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.