Calculatrice

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

avatar
migau
Administrateur
Administrateur
Messages : 2542
Points : 9274
Réputation : 5133
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Messagemigau le Mer 16 Nov - 15:47

  • 18px
  • 24px


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


Dernière édition par migau le Sam 17 Déc - 14:27, édité 1 fois


★·.·´¯`·.·★migau★·.·´¯`·.·★
               

Le Forum

   
   

Facebook

   
   
           

la chaine youtube

   
   
avatar
jaja3

Messages : 3171
Points : 9610
Réputation : 5431
Date d'inscription : 22/10/2016
Age : 78
Localisation : Occitanie : Hérault
Voir le profil de l'utilisateur

Messagejaja3 le Ven 18 Nov - 13:03

  • 18px
  • 24px
Merci !


★·.·´¯`·.·★jaja★·.·´¯`·.·★

Le Forum

Facebook


la chaine youtube


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

Message personnel aux visiteurs

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

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