Calculsurfacecercle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 399 fois - Téléchargée 19 fois

Contenu du snippet

CalculSurfaceCercle est une petite application qui calcul la surface d'un
cercle j'ai initié grace au tutorial du site du Zéro et le tutorial Visual basic expres 2010.

Source / Exemple :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Verification() Then
            Me.LBL_CSC.Text = "la surfaceCercle est :" & Calcul(Me.TXT_RAYON1.Text, Me.TXT_RAYON2.Text, Me.TXT_PI.Text) & " ?"
        Else
            Me.LBL_ERR.Visible = True
        End If
    End Sub
    Function Verification() As Boolean
        Dim Bon As Boolean = True
        If Me.TXT_RAYON1 Is Nothing Or Not IsNumeric(Me.TXT_RAYON1.Text) Then
            Bon = False
        End If
        If Me.TXT_RAYON2 Is Nothing Or Not IsNumeric(Me.TXT_RAYON2.Text) Then

            Bon = False
        End If
        If Me.TXT_PI Is Nothing Or Not IsNumeric(Me.TXT_PI.Text) Then

            Bon = False

        End If
        Return Bon

    End Function
    Function Calcul(ByVal Rayon1 As Double, ByVal Rayon2 As Double, ByVal Pi As Double)
        Dim SurfacaCercle As Double

        SurfacaCercle = Rayon1 * Rayon2 * Pi

        Return SurfacaCercle
    End Function
End Class

Conclusion :


c'est ma premiére participation uniquemenet a titre de loisir
et aussi pour decouvrir l'informatique et apprendre VB.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
28
Date d'inscription
mercredi 1 décembre 2010
Statut
Membre
Dernière intervention
18 novembre 2012

Ok c'est du vbs mais jai créer aussi un programe sur le meme principe avec visual_studio_2010 par contre pour l'instant ceci reste une demo car je n'ai pas tout terminer toutes les formes et en plus ji ai rajouter un petit module de conversion des unitées car jme suis aperçue que le pc rend les calcules en "Cm" et moi je les voulais en "mm" ainsi que en "m", en plus il y a kelke délire comme la transparence du programe et d'autre truc, le seul problème qui se pose maintenant c'est que je ne sais pas comment faire pour balancer mon programe sur le net et surtout comment puis-je faire pour le mettre en vente, mais si quelqu'un a une astuce pour moi sa serrais sympa car j'ai une marmitte a faire tourner et sans emploi c'est pas top.
Messages postés
28
Date d'inscription
mercredi 1 décembre 2010
Statut
Membre
Dernière intervention
18 novembre 2012

salut GHUYSMAN est bonne année,
Euh j'ai pas compris:
Il vient d'inventer le cercle avec des rayons de longueurs différentes ...
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
@castou60 : Ce que tu proposes c'est du VBS mais tu as fondamentalement raison.
Il vient d'inventer le cercle avec des rayons de longueurs différentes ...
Messages postés
28
Date d'inscription
mercredi 1 décembre 2010
Statut
Membre
Dernière intervention
18 novembre 2012

Si sa interesse quelqu'un j'ai créer un script sous (VBS factory) permettant de calculer certaine forme géometrique comme le cylindre droit ou tronquer,tonneau,tore,polygone etc..., ont peu calculer soit le perimetre la surface ou bien encore le volume quand cela est possible, si quelqu'un a besoin sa peut etre interressant, perso moi jai fait cela car jai un pote qui est une quiche en géométrie, si ça vous dit contacter moi a:
castou60@gmail.com
Messages postés
28
Date d'inscription
mercredi 1 décembre 2010
Statut
Membre
Dernière intervention
18 novembre 2012

Salut,
Pour commencer bonne année a tous.

je viens de tomber sur ton truc et franchement ya plus simple quand on sait que la formule de calcule est: S= pi x r²

voici ske moi je ferrais:
---------------------------------------------------------------------------------------------
dim surface,pi,diam,ray,raycarrer
pi=4*Atn(1)
diam=inputbox("Entrer le diametre du cercle","Calcule de la surface d'un cercle")&diam
ray=(diam/2)
raycarrer=(ray*ray)
surface=(pi*raycarrer)
surface=fix(surface)
wscript.echo("la surface de ton cercle est de ")&surface, ("Cm²")
---------------------------------------------------------------------------------------------
Et si tu veux tous les chiffres après la virgule tu retire la ligne juste au dessus de wscript.echo .

Voila c'est simple et facile à comprendre @+.
Afficher les 9 commentaires

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.