Calculsurfacecercle

Commenter

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.
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.