CodeS-SourceS Files, Base de données des Zip de CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

Trouver un fichier de code source :

Version Française -

English Version

Accueil >

Calculatrice moustakim mustapha/Calculatrice/Form1.vb

CALCULATRICE

Calculatrice moustakim mustapha/Calculatrice/Form1.vb

Informations sur ce code source

Cliquez pour voir la capture en taille normale

Code Source	CALCULATRICE
Auteur	m22001111
Fichier	Calculatrice moustakim mustapha/Calculatrice/Form1.vb en Visual Basic, VB6, VB.NET, VB 2005, VB
Publié le	15/07/2012

bonjour, c'est une calculatrice programmé par le langage vb.net pour les débutants

Fichier : Calculatrice moustakim mustapha/Calculatrice/Form1.vb

Nombre de lignes : 649 lignes

Version C# disponible !

Afficher ce fichier en plein écran

Public Class Form1
    Dim check As Boolean
    Dim virgule As Boolean
    Dim temp As Single
    Dim exposant As Single
    Dim operateur As String
    Dim bin As String
    Dim eng As Double
    Dim n As Double

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "0"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "0"
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "1"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "1"
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "2"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "2"
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "3"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "3"
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "4"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "4"
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "5"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "5"
        End If
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "6"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "6"
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "7"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "7"
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "8"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "8"
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "9"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "9"
        End If
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        operateur = "/"
        temp = TextBox1.Text
        check = True
        virgule = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        operateur = "*"
        temp = TextBox1.Text
        check = True
        virgule = False
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        operateur = "+"
        temp = TextBox1.Text
        check = True
        virgule = False
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        operateur = "-"
        temp = TextBox1.Text
        check = True
        virgule = False
    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
        Select Case operateur
            Case "+"
                TextBox1.Text = Val(TextBox1.Text) + Val(temp)
                check = True
                virgule = False
            Case "-"
                TextBox1.Text = Val(temp) - Val(TextBox1.Text)
                check = True
                virgule = False
            Case "*"
                TextBox1.Text = Val(TextBox1.Text) * Val(temp)
                check = True
                virgule = False
            Case "/"
                If TextBox1.Text <> 0 Then
                    TextBox1.Text = Val(temp) / Val(TextBox1.Text)
                    check = True
                    virgule = False
                Else
                    MsgBox("error")
                End If
            Case "^"
                TextBox1.Text = Math.Pow(temp, TextBox1.Text)
                check = True
                virgule = False
            Case "e"
                TextBox1.Text = Math.Pow(exposant, TextBox1.Text)
                check = True
                virgule = False
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "0"
        check = True
        virgule = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Strings.Len(TextBox1.Text) <> 1 Then
            TextBox1.Text = Strings.Left(TextBox1.Text, Strings.Len(TextBox1.Text) - 1)
        Else
            TextBox1.Text = "0"
            check = True
            virgule = False
        End If
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If virgule = False And TextBox1.Text <> "" And Strings.Len(TextBox1.Text) <> 0 Then
            TextBox1.Text = TextBox1.Text + ","
            virgule = True
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Strings.Left(TextBox1.Text, 1) <> "-" Then
            TextBox1.Text = "-" + TextBox1.Text
        Else
            TextBox1.Text = Strings.Right(TextBox1.Text, Strings.Len(TextBox1.Text) - 1)
        End If
    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Cos(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "G" Then
            TextBox1.Text = Math.Cos(Val(TextBox1.Text) / 0.9)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Cos(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Sin(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Sin(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Tan(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Tan(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Cosh(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Cosh(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Sinh(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Sinh(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        If ToolStripSplitButton1.Text = "R" Then
            TextBox1.Text = Math.Tanh(TextBox1.Text)
        End If
        If ToolStripSplitButton1.Text = "D" Then
            TextBox1.Text = Math.Tanh(Val(TextBox1.Text) / 57.29577951)
        End If
        check = True
        virgule = False
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        TextBox1.Text = Math.Exp(TextBox1.Text)
        check = True
        virgule = False
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        TextBox1.Text = Math.Log10(TextBox1.Text)
        check = True
        virgule = False
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        TextBox1.Text = Math.Log(TextBox1.Text)
        check = True
        virgule = False
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        TextBox1.Text = Math.Pow(TextBox1.Text, 2)
        check = True
        virgule = False
    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        TextBox1.Text = Math.Pow(TextBox1.Text, 3)
        check = True
        virgule = False
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        exposant = TextBox1.Text
        operateur = "e"
        check = True
        virgule = False
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        TextBox1.Text = Math.PI
    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        TextBox1.Text = Math.Pow(TextBox1.Text, -1)
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        TextBox1.Text = Math.Pow(10, TextBox1.Text)
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        TextBox1.Text = 1 / TextBox1.Text
    End Sub

    Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
        If eng = 0 Then
            Label4.Text = "M"
            eng = TextBox1.Text
        Else
            eng = eng + TextBox1.Text
        End If
        check = True
        virgule = False
    End Sub

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        End
    End Sub

    Private Sub StandardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StandardToolStripMenuItem.Click
        If StandardToolStripMenuItem.Checked = True Then
            SientifiqueToolStripMenuItem.Checked = False
            StandardToolStripMenuItem.Checked = True
            GroupBox1.Hide()
            Button14.Enabled = True
            Button15.Enabled = True
            Button44.Enabled = True
            Button6.Enabled = True
            Button47.Hide()
            ToolStripSplitButton1.Visible = False
            Button45.Enabled = True
            Button43.Enabled = True
            Button32.Enabled = True
            Button30.Enabled = True
            Button11.Enabled = True
            GroupBox2.Hide()
            SientifiqueToolStripMenuItem.Enabled = True
            ToolStripButton2.Enabled = True
            ToolStripMenuItem1.Checked = False
            Me.AutoSize = True
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GroupBox1.Hide()
        GroupBox2.Hide()
        Button47.Hide()
        TextBox1.Text = "0"
        ToolStripSplitButton1.Text = "D"
        ToolStripSplitButton1.Visible = False
        check = True
        virgule = False
    End Sub

    Private Sub SientifiqueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SientifiqueToolStripMenuItem.Click
        GroupBox1.Show()
    
        Me.AutoSize = True
        StandardToolStripMenuItem.Checked = False
        ToolStripSplitButton1.Visible = True
    End Sub
    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        TextBox1.Text = Math.Sqrt(TextBox1.Text)
    End Sub
    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        
        n = 1
        For i = 1 To Val(TextBox1.Text)
            n = n * i
        Next
        TextBox1.Text = n
        check = True
        virgule = False
    End Sub

    Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
        TextBox1.Text = temp * TextBox1.Text * 0.01
        check = True
        virgule = False

    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        TextBox1.Text = Int(TextBox1.Text)
        check = True
        virgule = False
    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        TextBox1.Text = eng
        check = True
        virgule = False
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        SientifiqueToolStripMenuItem.Checked = False
        StandardToolStripMenuItem.Checked = True
        GroupBox1.Hide()
        Button14.Enabled = True
        Button15.Enabled = True
        Button44.Enabled = True
        Button6.Enabled = True
        Button45.Enabled = True
        Button43.Enabled = True
        Button32.Enabled = True
        Button30.Enabled = True
        ToolStripSplitButton1.Visible = False
        Button47.Hide()
        Button11.Enabled = True
        GroupBox2.Hide()
        SientifiqueToolStripMenuItem.Enabled = True
        ToolStripButton2.Enabled = True
        ToolStripMenuItem1.Checked = False
        StandardToolStripMenuItem.Checked = True
        Me.AutoSize = True
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        StandardToolStripMenuItem.Checked = False
        SientifiqueToolStripMenuItem.Checked = True
        ToolStripSplitButton1.Visible = True
        GroupBox1.Show()
       
        Me.AutoSize = True
    End Sub

    Private Sub ResultatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResultatsToolStripMenuItem.Click
        If ResultatsToolStripMenuItem.Checked = False Then
            ToolStrip1.Hide()

        Else
            ToolStrip1.Show()
        End If
    End Sub

    Private Sub ToolStripSplitButton1_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
        eng = 0
        Label4.Text = ""
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        If eng = 0 Then
            Label4.Text = "M"
            eng = TextBox1.Text
        Else
            eng = eng - TextBox1.Text
        End If
        check = True
        virgule = False
    End Sub

    Private Sub APropotToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles APropotToolStripMenuItem1.Click
        Form3.Show()
    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "A"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "A"
        End If
    End Sub

    Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "B"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "B"
        End If
    End Sub

    Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "C"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "C"
        End If
    End Sub

    Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "D"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "D"
        End If
    End Sub

    Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "E"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "E"
        End If
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If check = True Then
            TextBox1.Text = ""
            TextBox1.Text = TextBox1.Text + "F"
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "F"
        End If
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TextBox1.SelectedText = True
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

        If ToolStripMenuItem1.Checked = True Then
            Button14.Enabled = False
            Button15.Enabled = False
            Button44.Enabled = False
            Button6.Enabled = False
            Button11.Enabled = False
            Button45.Enabled = False
            Button43.Enabled = False
            Button32.Enabled = False
            Button30.Enabled = False
            RadioButton3.Checked = True
            Button47.Show()
            GroupBox2.Show()
            SientifiqueToolStripMenuItem.Checked = False
            StandardToolStripMenuItem.Checked = True
            GroupBox1.Hide()
            Me.AutoSize = True
            SientifiqueToolStripMenuItem.Enabled = False
            ToolStripButton2.Enabled = False
        Else
            Button14.Enabled = True
            Button15.Enabled = True
            Button44.Enabled = True
            Button6.Enabled = True
            Button47.Hide()
            Button11.Enabled = True
            GroupBox2.Hide()
            SientifiqueToolStripMenuItem.Enabled = True
            ToolStripButton2.Enabled = True
        End If

    End Sub

    Private Sub Button47_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
        If RadioButton1.Checked = True Then
            TextBox1.Text = Oct(TextBox1.Text)
        ElseIf RadioButton3.Checked = True Then
            temp = TextBox1.Text
            TextBox1.Text = ""
            While Int(temp) <> 0
                temp = Int(temp) / 2
                If temp = Int(temp) Then
                    TextBox1.Text = "0" + TextBox1.Text
                Else
                    TextBox1.Text = "1" + TextBox1.Text
                End If
            End While
        ElseIf RadioButton2.checked = True Then
            TextBox1.Text = Hex(TextBox1.Text)
        End If
        check = True
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Button14.Enabled = False
        Button15.Enabled = False
        Button44.Enabled = False
        ToolStripSplitButton1.Visible = False
        Button6.Enabled = False
        Button11.Enabled = False
        Button45.Enabled = False
        Button43.Enabled = False
        Button32.Enabled = False
        Button30.Enabled = False
        RadioButton3.Checked = True
        Button47.Show()
        GroupBox2.Show()
        SientifiqueToolStripMenuItem.Checked = False
        StandardToolStripMenuItem.Checked = True
        GroupBox1.Hide()
        Me.AutoSize = True
        SientifiqueToolStripMenuItem.Enabled = False
        ToolStripButton2.Enabled = False
        ToolStripMenuItem1.Checked = True
        StandardToolStripMenuItem.Checked = False
    End Sub

    Private Sub ToolStripComboBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripSplitButton1_ButtonClick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripSplitButton1.ButtonClick

    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        If ToolStripMenuItem4.Checked = True Then
            ToolStripMenuItem5.Checked = False
            ToolStripSplitButton1.Text = "D"
        Else
            ToolStripSplitButton1.Text = "R"
            ToolStripMenuItem5.Checked = True
        End If
    End Sub

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        If ToolStripMenuItem5.Checked = True Then
            ToolStripMenuItem4.Checked = False
            ToolStripSplitButton1.Text = "R"
        Else
            ToolStripSplitButton1.Text = "D"
            ToolStripMenuItem4.Checked = True
        End If
    End Sub
End Class

Liste des fichiers du ZIP

Fichier	Taille
Calculatrice moustakim mustapha/Calculatrice.sln	933 o
Calculatrice moustakim mustapha/Calculatrice.suo	17 Ko
Calculatrice moustakim mustapha/Calculatrice/bin/Debug/Calculatrice.vshost.exe.manifest	490 o
Calculatrice moustakim mustapha/Calculatrice/bin/Debug/Calculatrice.xml	765 o
Calculatrice moustakim mustapha/Calculatrice/Calculatrice.vbproj	7,28 Ko
Calculatrice moustakim mustapha/Calculatrice/Calculatrice.vbproj.user	545 o
Calculatrice moustakim mustapha/Calculatrice/Form1.Designer.vb	45,04 Ko
Calculatrice moustakim mustapha/Calculatrice/Form1.resx	10,74 Ko
Calculatrice moustakim mustapha/Calculatrice/Form1.vb	23,31 Ko
Calculatrice moustakim mustapha/Calculatrice/Form3.Designer.vb	4,82 Ko
Calculatrice moustakim mustapha/Calculatrice/Form3.resx	5,68 Ko
Calculatrice moustakim mustapha/Calculatrice/Form3.vb	179 o
Calculatrice moustakim mustapha/Calculatrice/My Project/Application.Designer.vb	1,48 Ko
Calculatrice moustakim mustapha/Calculatrice/My Project/Application.myapp	510 o
Calculatrice moustakim mustapha/Calculatrice/My Project/AssemblyInfo.vb	1,25 Ko
Calculatrice moustakim mustapha/Calculatrice/My Project/Resources.Designer.vb	3,2 Ko
Calculatrice moustakim mustapha/Calculatrice/My Project/Resources.resx	6,07 Ko
Calculatrice moustakim mustapha/Calculatrice/My Project/Settings.Designer.vb	2,97 Ko
Calculatrice moustakim mustapha/Calculatrice/My Project/Settings.settings	279 o
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.Form1.resources	3,7 Ko
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.Form3.resources	180 o
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.Resources.resources	11,43 Ko
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.vbproj.FileListAbsolute.txt	2,86 Ko
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.vbproj.GenerateResource.Cache	1010 o
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/Calculatrice.xml	765 o
Calculatrice moustakim mustapha/Calculatrice/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll	7,5 Ko
Calculatrice moustakim mustapha/Calculatrice/obj/Release/TempPE/My Project.Resources.Designer.vb.dll	7,5 Ko
Calculatrice moustakim mustapha/Calculatrice/Resources/calculatrice1.jpg	10,88 Ko
Calculatrice moustakim mustapha/Thumbs.db	5 Ko

Pour télécharger le zip au complet, veuillez vous rendre sur cette page :
Télécharger CALCULATRICE

Sources du même auteur ayant un ZIP

Calculatrice heure
c'est un script en javascript pour afficher l'heure qui s'actualise chaque seconde est aussi une simple calculatrice en utilisant des image...
Langage : Javascript / Ajax / DHTML, publié le 08/11/2011 par m22001111
Copier du texte
c'est un script avec javascript pour copier de texte située dans un textarea sans la selectionne ou cliquer sur copier
Langage : Javascript / Ajax / DHTML, publié le 01/11/2011 par m22001111
Course_moustakim
c'est un jeu de course realiser par dev c++ tres amusant. il est adresseé au debutants,2 jours pour le realiser. amuser vous!
Langage : C / C++ / C++.NET, publié le 11/04/2011 par m22001111

Voir la suite...

Sources du même langage comportant un zip

Autocad vba fibres epissures
Bonjour, Ce code vous permettra de réaliser des connexions entre des fibres de différentes couleurs. mon site : http://vbacool.jimdo.co...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 22/05/2013 par beaubeau21
Creer et connecter une base access sous windows 8
Ce programme s'adresse à tous ceux qui comme moi ont vu leur application qui fonctionnait sous XP, devenue obsolète sous Windows 7 et 8. Par...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 22/05/2013 par Le Pivert
Excel impression par lot
Bonjour, Grâce à ce module, vous pourrez lancer des impressions d'un répertoire complet contenant des fichiers Excel sans avoir à ouvrir o...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 20/05/2013 par beaubeau21
Excel suppression par lot d'une feuille
Bonjour, Grâce à ce code vous pourrez supprimer la 2eme feuille de tous les fichiers Excel d'un répertoire sélectionné. mon site : http...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 20/05/2013 par beaubeau21
Personnalisation du ruban sous excel 2007 - 2 eme version
Enfin voilà , chose promise voici donc un classeur excel qui assemble les fichiers customUI et rels et qui permet d'y ajouter directement se...
Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 19/05/2013 par warlok2008

Voir la suite...

Derniers codes sources...

Autocad vba fibres epissures par beaubeau21
Creer et connecter une base access sous windows 8 par Le Pivert
Formulaire html + fichier jsp et le bean par amatoLahIbtissam
Calcul de déflexion entre arc et corde par Averell
Excel impression par lot par beaubeau21
Excel suppression par lot d'une feuille par beaubeau21
Personnalisation du ruban sous excel 2007 - 2 e... par warlok2008

Logiciels à télécharger...

Easy-Planning (4.5.0.11)
Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté aux petites et moyennes entreprises(PME). Easy-Planning permet la création de plannings prévisionnels, p...
CVEasy (3.1.0.51)
PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante. PHMSD-CVEasy vous assistera pour la rédaction de votre CV, le CV de vos amis ou de membres de votre famille, m...
LettresFaciles 2011 (8.6.0.31)
LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son interface simple d'utilisation mais suffisamment complète vous permettra de créer une multitude de lettres....

Sondage...

voter aux sondages de ce site, cliquez ici

Le top des photos

Développement réalisé par Nicolas SOREL (Nix) et Emmanuel (EBArtSoft) avec l'aide de Cyril DURAND, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,88 sec

Visual Basic

CALCULATRICE

Calculatrice moustakim mustapha/Calculatrice/Form1.vb

CALCULATRICE

Calculatrice moustakim mustapha/Calculatrice/Form1.vb

Informations sur ce code source

Fichier : Calculatrice moustakim mustapha/Calculatrice/Form1.vb

Liste des fichiers du ZIP

Sources du même auteur ayant un ZIP

Sources du même langage comportant un zip

Derniers codes sources...

Guide achat

Logiciels à télécharger...

Sondage...

Le top des photos