Extensible
Cliquer sur le bouton
au dessus de ce widget,
ceci rend les pages Extensibles,
très utile pour
les écrans de petites tailles
Rechercher
 
 

Résultats par :
 

 


Rechercher Recherche avancée

Derniers sujets
» Problème de redirection
Sam 29 Avr 2017 - 19:28 par picpus

» Message d'avertissement
Ven 10 Mar 2017 - 8:31 par migau

» [Résolu]Site qui ne s'ouvre pas !
Jeu 23 Fév 2017 - 20:11 par gigi

» Mise à jour cumulative Windows 10
Sam 28 Jan 2017 - 9:39 par migau

» Installer java 32 et 64 bits
Lun 23 Jan 2017 - 14:14 par migau

» Année_2017
Dim 1 Jan 2017 - 10:57 par chrisnvdia

» le 18 Décembre, c'était l'Anniv de Richard49
Ven 30 Déc 2016 - 19:22 par Richard49

» 28 Décembre : nous fêtons hackinginterdit
Jeu 29 Déc 2016 - 8:38 par migau

» Salut tout le monde
Lun 12 Déc 2016 - 11:15 par les iles

Partenaires
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

[ Voir toute la liste ]


Le record du nombre d'utilisateurs en ligne est de 11 le Sam 30 Jan 2016 - 15:24

Calculatrice

Voir le sujet précédent Voir le sujet suivant Aller en bas

Calculatrice

Message par migau le Mar 24 Mai 2016 - 22:59

Calculatrice


Textbox1 et Texbox2 verrouillées pour Tabuler que des nombres
Activation de la touche retour Arrière
Textbox3 verrouillée en écriture.







Code:

Public Class Form1
    ' calculatrice avec les  4 opérations

    ' permet de tabuler que des chifres

    Dim DesNumeros() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' curseur directement dans la 1ere TextBox
        TextBox1.Focus()
        TextBox1.Select()
    End Sub

 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "Addition"
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = "Soustraction"
        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "Multiplication"
        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.Text = "Division"
        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        'linklabel pour fermer l'application
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click

        ' remettre à zéro bouton Reset

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        Label1.Text = ("")

    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        ' voir la variable DesNumeros
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If

    End Sub

    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If
    End Sub

  
End Class


Vous pouvez télécharger l'application Ici......

_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

Re: Calculatrice

Message par migau le Mer 25 Mai 2016 - 23:05

Amélioration du code


les textbox1 et textbox2 reçoivent désormais des nombres avec décimales
aussi bien la virgule ou le point comme séparateur de décimales.
le résultat en Textbox3, la décimale est ramenée à  2 chiffres après la virgule.
le curseur par défaut au centre de la textbox1

message d'erreur si un nombre n'est pas tabulé en textbox1 ou textbox2.



Code:

Public Class Form1
    ' calculatrice avec les  4 opérations

    ' permet de tabuler que des chifres

    Dim DesNumeros() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ",", "."}

    Dim aNumber As Double


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' curseur directement dans la 1ere TextBox
        TextBox1.Focus()
        TextBox1.Select()
    End Sub

 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Addition"
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
            If Double.TryParse(TextBox3.Text, aNumber) Then
                TextBox3.Text = String.Format("{0:n2}", aNumber)
            Else
                'there is not a number in TextBox1
                'put code here to handle
            End If
        End If
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Soustraction"
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
            If Double.TryParse(TextBox3.Text, aNumber) Then
                TextBox3.Text = String.Format("{0:n2}", aNumber)
            Else
                'there is not a number in TextBox1
                'put code here to handle
            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Multiplication"
            TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
            If Double.TryParse(TextBox3.Text, aNumber) Then
                TextBox3.Text = String.Format("{0:n2}", aNumber)
            Else
                'there is not a number in TextBox1
                'put code here to handle
            End If
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Division"
            TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)


            If Double.TryParse(TextBox3.Text, aNumber) Then
                TextBox3.Text = String.Format("{0:n2}", aNumber)
            Else
                'there is not a number in TextBox1
                'put code here to handle
            End If
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        'linklabel pour fermer l'application
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click

        ' remettre à zéro bouton Reset

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        Label1.Text = ("")

    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        ' voir la variable DesNumeros
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If


    End Sub

    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If
    End Sub

  
End Class


Télécharger l'Application Ici.....

_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

Re: Calculatrice

Message par migau le Jeu 26 Mai 2016 - 21:28

Choisir le nombre de Décimales


Le nombre de Décimales est de deux par défaut, choisir le nombre de décimales avant d'effectuer l'opération



Code:

Public Class Form1
    ' calculatrice avec les  4 opérations

    ' permet de tabuler que des chifres

    Dim DesNumeros() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ",", "."}

    Dim aNumber As Double


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' curseur directement dans la 1ere TextBox
        TextBox1.Focus()
        TextBox1.Select()
        RadioButton1.Checked = True

    End Sub

 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Addition"
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        End If

        If RadioButton1.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n2}", aNumber)

        ElseIf RadioButton2.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n3}", aNumber)

        ElseIf RadioButton3.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n4}", aNumber)
        End If



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Soustraction"
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        End If

        If RadioButton1.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n2}", aNumber)

        ElseIf RadioButton2.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n3}", aNumber)

        ElseIf RadioButton3.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n4}", aNumber)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Multiplication"
            TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
        End If

        If RadioButton1.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n2}", aNumber)

        ElseIf RadioButton2.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n3}", aNumber)

        ElseIf RadioButton3.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n4}", aNumber)
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Données erronées", vbCritical, "Erreur de Tabulation")
        Else
            Label1.Text = "Division"
            TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
        End If

        If RadioButton1.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n2}", aNumber)

        ElseIf RadioButton2.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n3}", aNumber)

        ElseIf RadioButton3.Checked = True Then
            Double.TryParse(TextBox3.Text, aNumber)
            TextBox3.Text = String.Format("{0:n4}", aNumber)
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        'linklabel pour fermer l'application
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click

        ' remettre à zéro bouton Reset

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        Label1.Text = ("")

    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        ' voir la variable DesNumeros
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If


    End Sub

    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress

        ' permet de tabuler que des chiffres et utiliser le retout arrière
        If Not DesNumeros.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
            MsgBox("Veuillez entrer que des nombres", vbCritical, "erreur de frappe")
        End If
    End Sub

  
End Class

Télécharger l'application ici......

_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

Re: Calculatrice

Message par jaja2 le Ven 27 Mai 2016 - 8:22

Hello,

j'ai pris !

Merci migau et bonne journée

_________________
Bonjour  Invité  je te vois Laughing

avatar
jaja2
Modérateur
Modérateur

Messages : 420
Date d'inscription : 04/08/2015
Age : 77
Localisation : le Biterrois/Hérault

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Calculatrice

Message par migau le Ven 27 Mai 2016 - 8:28

hello

tu veux que je te personnalise la calculatrice en y mettant ton avatar à la place du mien

_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

Re: Calculatrice

Message par migau le Ven 27 Mai 2016 - 12:46

la spéciale jaja

à Télécharger ici


_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

Re: Calculatrice

Message par jaja2 le Ven 27 Mai 2016 - 19:58


Tu es Fantastique !!!

Merci migau

_________________
Bonjour  Invité  je te vois Laughing

avatar
jaja2
Modérateur
Modérateur

Messages : 420
Date d'inscription : 04/08/2015
Age : 77
Localisation : le Biterrois/Hérault

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Calculatrice

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum