Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

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

Ce site au démarrage

begin process at 2012 02 16 08:20:50

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CALCULETTE POUR PROGRAMMEUR

Information sur la source

Note :
Aucune note

Catégorie :Maths Classé sous :Calculette, Mémoire-ASCII, Mémoire-Hexadécimal Niveau :Débutant Date de création :05/11/2008 Vu / téléchargé :3 704 / 482

Auteur : Galactus13

Ecrire un message privé

Site perso

Ce membre participe au partage de revenus publicitaires

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Calculatrice et des petites fonctions bien pratique tel que faire du copier/coller de code ASCII ou HEX. pour des programmeur débutant comme moi !
C'est ma première source, alors soyez indulgent, je suis timide ...

Source

Option Explicit
Dim Test
Dim Opérande, Mémoire, X, TextFormat, BTPoint
Dim DEC_Width_Plus, DEC_Width_Moins
Dim ValeurBTDécimale, CDE
Private Sub Bt0_Click()
Test = Test + "0"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt1_Click()
Test = Test + "1"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt2_Click()
Test = Test + "2"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt3_Click()
Test = Test + "3"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt4_Click()
Test = Test + "4"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt5_Click()
Test = Test + "5"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt6_Click()
Test = Test + "6"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt7_Click()
Test = Test + "7"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt8_Click()
Test = Test + "8"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub Bt9_Click()
Test = Test + "9"
TxtEdit2 = Test
TxtEdit3 = 0
End Sub
Private Sub BtAide_Click()
MsgBox ("Désoler, pas d'aide disponible ! Dépendant de MenuRtf ")
End Sub
Private Sub BtAlphabet_Click(Index As Integer)
Dim A, B, X, T1, T2
A = BtAlphabet(Index).Caption
Text4 = BtAlphabet(Index).Caption
B = Asc(A)
X = Hex(B)
T1 = "CDE1() =" + Chr(34) + BtAlphabet(Index).Caption + Chr(34) + ": "
T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
Text1.Text = T1 + T2
Text2.Text = "chr(" + Str(B) + ")"
CDE = "\'" + X
End Sub
Private Sub BtClear_Click()
TxtEdit1 = 0
TxtEdit2 = 0
TxtEdit3 = 0
TxtEdit4 = ""
Test = ""
Opérande = ""
BTPoint = True
Mémoire = 0
End Sub
Private Sub BtDécimal_Click()
MenuDécimal.Visible = True
Me.Caption = " Fonctions pour programmeur"
End Sub
Private Sub BtDivise_Click()
On Error GoTo ErreurTrouver
If Opérande = "" Then
TxtEdit1 = TxtEdit2: Opérande = "/"
TxtEdit3 = 0
Else
TxtEdit3 = Val(TxtEdit1) / Val(TxtEdit2)
End If
Test = "": TxtEdit4 = " / ": TxtEdit2 = 0: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtEgale_Click()
Dim Calc
If Opérande = "+" Then TxtEdit3 = Val(TxtEdit1) + Val(TxtEdit2): Calc = 1
If Opérande = "X" Then TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2): Calc = 1
If Opérande = "/" Then TxtEdit3 = Val(TxtEdit1) / Val(TxtEdit2): Calc = 1
If Opérande = "-" Then TxtEdit3 = Val(TxtEdit1) - Val(TxtEdit2): Calc = 1
If Calc = 1 Then
TxtEdit5 = TxtEdit4
TxtEdit4 = " = "
End If
Test = "": Opérande = "": BTPoint = True
End Sub
Private Sub BTEsc_Click()
Unload Me
End Sub
Private Sub BtLog_Click()
On Error GoTo ErreurTrouver
Opérande = "Log"
TxtEdit1 = 0
TxtEdit3 = 0
TxtEdit3 = Log(Val(TxtEdit2))
Test = "": TxtEdit4 = "log": TextFormat = 1: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtMoins_Click()
If Opérande = "" Then
TxtEdit1 = TxtEdit2: Opérande = "-"
TxtEdit3 = 0
Else
TxtEdit3 = Val(TxtEdit1) - Val(TxtEdit2)
End If
Test = "": TxtEdit4 = " - ": TxtEdit2 = 0: BTPoint = True
End Sub
Private Sub BtMultiple_Click()
If Opérande = "" Then
TxtEdit1 = TxtEdit2: TxtEdit3 = 0
ElseIf Opérande = "Pi" Then
TxtEdit1 = TxtEdit2: TxtEdit3 = 0
TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2): TextFormat = 1
Else
TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2)
End If
Test = "": TxtEdit4 = " X ": Opérande = "X": TxtEdit2 = 0: BTPoint = True
End Sub
Private Sub BtPi_Click()
TxtEdit2 = "3.1415926535897932384626433832795"
Test = ""
TextFormat = 1
Opérande = "Pi"
BTPoint = True
End Sub
Private Sub BtPlus_Click()
If Opérande = "" Then
TxtEdit1 = TxtEdit2: Opérande = "+"
TxtEdit3 = 0
Else
TxtEdit3 = Val(TxtEdit1) + Val(TxtEdit2)
End If
Test = "": TxtEdit4 = " + ": TxtEdit2 = 0
BTPoint = True
End Sub
Private Sub BtPourcent_Click()
Opérande = "%"
X = Val(TxtEdit1) * Val(TxtEdit2)
TxtEdit3 = X / 100
Test = "": TxtEdit4 = "%": BTPoint = True
End Sub
Private Sub BtRacineCarré_Click()
On Error GoTo ErreurTrouver
Opérande = "RaCarré"
TxtEdit1 = 0
TxtEdit3 = 0
TxtEdit3 = Sqr(TxtEdit2)
Test = "": TxtEdit4 = "RC": TextFormat = 1: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtRnd_Click()
Randomize
X = Int((Rnd) * 1000)
TxtEdit3 = X
TxtEdit1 = 0
TxtEdit2 = 0
TextFormat = 1
BTPoint = True
End Sub
Private Sub BtSecante_Click()
On Error GoTo ErreurTrouver
Opérande = "Cos"
TxtEdit1 = 0
TxtEdit3 = 0
TxtEdit3 = Cos(Val(TxtEdit2))
Test = "": TxtEdit4 = "cos": TextFormat = 1: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtSinus_Click()
On Error GoTo ErreurTrouver
Opérande = "Sin"
TxtEdit3 = Sin(Val(TxtEdit2))
TxtEdit1 = 0: Test = "": TxtEdit4 = "sin": TextFormat = 1: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtTan_Click()
On Error GoTo ErreurTrouver
Opérande = "Tan"
TxtEdit1 = 0
TxtEdit3 = 0
TxtEdit3 = Tan(Val(TxtEdit2))
Test = "": TxtEdit4 = "tan": TextFormat = 1: BTPoint = True
ErreurTrouver:
End Sub
Private Sub BtVirgule_Click()
If BTPoint = False Then Exit Sub
Test = Test + "."
TxtEdit2 = Test
BTPoint = False
End Sub
Private Sub Command1_Click()
Menu.ActiveForm.ActiveControl.SelText = Text4.Text
End Sub
Private Sub Command2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub
Private Sub Command3_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Command4_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command5_Click()
Clipboard.Clear
Clipboard.SetText Text2.Text
End Sub
Private Sub Command6_Click()
Menu.ActiveForm.ActiveControl.SelText = CDE
End Sub
Private Sub Command7_Click()
MenuDécimal.Visible = False
Me.Caption = " Calculatrice active ..."
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
Opérande = "": Test = "": Mémoire = ""
TxtEdit1.Text = 0
TxtEdit2.Text = 0
TxtEdit3.Text = 0
BTPoint = True
ValeurBTDécimale = False
DEC_Width_Moins = Width
DEC_Width_Plus = Width * 2
On Error GoTo ErrorTrouver
'Menu.ActiveForm.ActiveControl.SelText = Text4.Text
'Menu.ActiveForm.ActiveControl.SelText = CDE
ErrorTrouver:
Command1.Enabled = False
Command6.Enabled = False
Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
Test = ""
End Sub
Private Sub Text3_Change()
If Len(Text3) > 2 Then Text3 = ""
Dim A, B, X, T1, T2
If Len(Text3) > 0 Then
A = Text3: B = Asc(A): X = Hex(B)
T1 = "CDE1() =" + Chr(34) + Text3 + Chr(34) + ": "
T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
Text1.Text = T1 + T2
Text2.Text = "chr(" + Str(B) + ")"
End If
End Sub
Private Sub Text5_Change()
If Len(Text5) > 1 Then Text3 = ""
Dim A, B, X, T1, T2
If Len(Text5) > 0 Then
A = Text5: B = Asc(A): X = Hex(B)
T1 = "CDE1() =" + Chr(34) + Text5 + Chr(34) + ": "
T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
Text1.Text = T1 + T2
Text2.Text = "chr(" + Str(B) + ")"
End If
End Sub
Private Sub TxtEdit1_Change()
TxtEdit1 = Format(TxtEdit1, "### ### ### ### ##0.00#")
End Sub
Private Sub TxtEdit2_Change()
Dim Y, X, Z
If TextFormat = 1 Then
TxtEdit2 = Format(TxtEdit2, "### ### ### ### ##0.00# ###")
ElseIf InStr(Test, ".") > 0 Then
X = InStr(Test, "."): Y = Len(Test): Z = X + 1
If (X + 1) = Y Then TxtEdit2 = Test
If (X + 1) > Y Then TxtEdit2 = Format(TxtEdit2, "### ### ### ### ##0.00# ###")
Else
TxtEdit2 = Format(TxtEdit2, "###0.00")
End If
TextFormat = 0
End Sub
Private Sub Txtedit3_Change()
If TextFormat = 1 Then
TxtEdit3 = Format(TxtEdit3, "### ### ### ### ### ##0.00#")
Else
TxtEdit3 = Format(TxtEdit3, "### ### ### ### ### ##0.00#")
End If
TextFormat = 0
End Sub

Option Explicit
Dim Test
Dim Opérande, Mémoire, X, TextFormat, BTPoint
Dim DEC_Width_Plus, DEC_Width_Moins
Dim ValeurBTDécimale, CDE

Private Sub Bt0_Click()
Test = Test + "0"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt1_Click()

Test = Test + "1"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt2_Click()
Test = Test + "2"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt3_Click()

Test = Test + "3"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt4_Click()
Test = Test + "4"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt5_Click()
Test = Test + "5"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt6_Click()
Test = Test + "6"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt7_Click()
Test = Test + "7"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub


Private Sub Bt8_Click()
Test = Test + "8"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub Bt9_Click()
Test = Test + "9"
TxtEdit2 = Test
TxtEdit3 = 0

End Sub

Private Sub BtAide_Click()

MsgBox ("Désoler, pas d'aide disponible ! Dépendant de MenuRtf ")

End Sub

Private Sub BtAlphabet_Click(Index As Integer)
Dim A, B, X, T1, T2
A = BtAlphabet(Index).Caption
Text4 = BtAlphabet(Index).Caption
    B = Asc(A)
        X = Hex(B)
            T1 = "CDE1() =" + Chr(34) + BtAlphabet(Index).Caption + Chr(34) + ": "
            T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
Text1.Text = T1 + T2
Text2.Text = "chr(" + Str(B) + ")"
CDE = "\'" + X

End Sub

Private Sub BtClear_Click()

TxtEdit1 = 0
TxtEdit2 = 0
TxtEdit3 = 0
TxtEdit4 = ""

Test = ""
Opérande = ""
BTPoint = True

Mémoire = 0

End Sub

Private Sub BtDécimal_Click()

    MenuDécimal.Visible = True
Me.Caption = "          Fonctions pour programmeur"

End Sub

Private Sub BtDivise_Click()
On Error GoTo ErreurTrouver
If Opérande = "" Then
    TxtEdit1 = TxtEdit2: Opérande = "/"
    TxtEdit3 = 0
    Else
    TxtEdit3 = Val(TxtEdit1) / Val(TxtEdit2)
    End If

Test = "": TxtEdit4 = " / ": TxtEdit2 = 0: BTPoint = True

ErreurTrouver:

End Sub

Private Sub BtEgale_Click()
Dim Calc

If Opérande = "+" Then TxtEdit3 = Val(TxtEdit1) + Val(TxtEdit2): Calc = 1
If Opérande = "X" Then TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2): Calc = 1
If Opérande = "/" Then TxtEdit3 = Val(TxtEdit1) / Val(TxtEdit2): Calc = 1
If Opérande = "-" Then TxtEdit3 = Val(TxtEdit1) - Val(TxtEdit2): Calc = 1
    
If Calc = 1 Then
    TxtEdit5 = TxtEdit4
        TxtEdit4 = " = "
            End If
        
        
Test = "": Opérande = "": BTPoint = True

End Sub

Private Sub BTEsc_Click()

Unload Me

End Sub

Private Sub BtLog_Click()
On Error GoTo ErreurTrouver

    Opérande = "Log"
    TxtEdit1 = 0
    TxtEdit3 = 0
    TxtEdit3 = Log(Val(TxtEdit2))

Test = "": TxtEdit4 = "log": TextFormat = 1: BTPoint = True

ErreurTrouver:
End Sub

Private Sub BtMoins_Click()

If Opérande = "" Then
    TxtEdit1 = TxtEdit2: Opérande = "-"
    TxtEdit3 = 0
    Else
    TxtEdit3 = Val(TxtEdit1) - Val(TxtEdit2)
    End If

Test = "": TxtEdit4 = " - ": TxtEdit2 = 0: BTPoint = True

End Sub

Private Sub BtMultiple_Click()
If Opérande = "" Then
    TxtEdit1 = TxtEdit2: TxtEdit3 = 0
    ElseIf Opérande = "Pi" Then
    TxtEdit1 = TxtEdit2: TxtEdit3 = 0
    TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2): TextFormat = 1
    Else
    TxtEdit3 = Val(TxtEdit1) * Val(TxtEdit2)
    End If

Test = "": TxtEdit4 = " X ": Opérande = "X": TxtEdit2 = 0: BTPoint = True

End Sub

Private Sub BtPi_Click()
TxtEdit2 = "3.1415926535897932384626433832795"
Test = ""
TextFormat = 1
Opérande = "Pi"
BTPoint = True

End Sub

Private Sub BtPlus_Click()

If Opérande = "" Then
    TxtEdit1 = TxtEdit2: Opérande = "+"
    TxtEdit3 = 0
    Else
    TxtEdit3 = Val(TxtEdit1) + Val(TxtEdit2)
    End If

Test = "": TxtEdit4 = " + ": TxtEdit2 = 0
BTPoint = True

End Sub

Private Sub BtPourcent_Click()
Opérande = "%"
    X = Val(TxtEdit1) * Val(TxtEdit2)
    TxtEdit3 = X / 100

Test = "": TxtEdit4 = "%": BTPoint = True

End Sub

Private Sub BtRacineCarré_Click()
On Error GoTo ErreurTrouver
    Opérande = "RaCarré"
    TxtEdit1 = 0
    TxtEdit3 = 0
    TxtEdit3 = Sqr(TxtEdit2)

Test = "": TxtEdit4 = "RC": TextFormat = 1: BTPoint = True

ErreurTrouver:

End Sub

Private Sub BtRnd_Click()
Randomize
X = Int((Rnd) * 1000)
TxtEdit3 = X
TxtEdit1 = 0
TxtEdit2 = 0
TextFormat = 1
BTPoint = True

End Sub

Private Sub BtSecante_Click()
On Error GoTo ErreurTrouver
    Opérande = "Cos"
    TxtEdit1 = 0
    TxtEdit3 = 0
    TxtEdit3 = Cos(Val(TxtEdit2))

Test = "": TxtEdit4 = "cos": TextFormat = 1: BTPoint = True

ErreurTrouver:

End Sub

Private Sub BtSinus_Click()
On Error GoTo ErreurTrouver
    Opérande = "Sin"
    TxtEdit3 = Sin(Val(TxtEdit2))
    
TxtEdit1 = 0: Test = "": TxtEdit4 = "sin": TextFormat = 1: BTPoint = True


ErreurTrouver:

End Sub

Private Sub BtTan_Click()
On Error GoTo ErreurTrouver
    Opérande = "Tan"
    TxtEdit1 = 0
    TxtEdit3 = 0
    TxtEdit3 = Tan(Val(TxtEdit2))

Test = "": TxtEdit4 = "tan": TextFormat = 1: BTPoint = True

ErreurTrouver:

End Sub

Private Sub BtVirgule_Click()
    If BTPoint = False Then Exit Sub
    Test = Test + "."
    TxtEdit2 = Test
    BTPoint = False
End Sub

Private Sub Command1_Click()

Menu.ActiveForm.ActiveControl.SelText = Text4.Text

End Sub

Private Sub Command2_Click()
Frame1.Visible = False
Frame2.Visible = True

End Sub

Private Sub Command3_Click()
Frame1.Visible = True
Frame2.Visible = False

End Sub

Private Sub Command4_Click()
Clipboard.Clear
 Clipboard.SetText Text1.Text

End Sub

Private Sub Command5_Click()
Clipboard.Clear
 Clipboard.SetText Text2.Text

End Sub

Private Sub Command6_Click()
Menu.ActiveForm.ActiveControl.SelText = CDE

End Sub

Private Sub Command7_Click()
MenuDécimal.Visible = False
Me.Caption = "          Calculatrice active ..."

End Sub

Private Sub Form_Load()
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2

Opérande = "": Test = "": Mémoire = ""

TxtEdit1.Text = 0
TxtEdit2.Text = 0
TxtEdit3.Text = 0

BTPoint = True
ValeurBTDécimale = False

DEC_Width_Moins = Width
DEC_Width_Plus = Width * 2

On Error GoTo ErrorTrouver

'Menu.ActiveForm.ActiveControl.SelText = Text4.Text
'Menu.ActiveForm.ActiveControl.SelText = CDE

ErrorTrouver:
Command1.Enabled = False
Command6.Enabled = False
Exit Sub

End Sub

Private Sub Form_Unload(Cancel As Integer)
Test = ""

End Sub

Private Sub Text3_Change()
If Len(Text3) > 2 Then Text3 = ""

Dim A, B, X, T1, T2
If Len(Text3) > 0 Then
    A = Text3:    B = Asc(A): X = Hex(B)
        T1 = "CDE1() =" + Chr(34) + Text3 + Chr(34) + ": "
        T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
        Text1.Text = T1 + T2
        Text2.Text = "chr(" + Str(B) + ")"
        
        End If

End Sub

Private Sub Text5_Change()
If Len(Text5) > 1 Then Text3 = ""

Dim A, B, X, T1, T2
If Len(Text5) > 0 Then
    A = Text5:    B = Asc(A): X = Hex(B)
        T1 = "CDE1() =" + Chr(34) + Text5 + Chr(34) + ": "
        T2 = "CDE2() =" + Chr(34) + "\'" + X + Chr(34)
        Text1.Text = T1 + T2
        Text2.Text = "chr(" + Str(B) + ")"
        
        End If

End Sub

Private Sub TxtEdit1_Change()
TxtEdit1 = Format(TxtEdit1, "### ### ### ### ##0.00#")

End Sub

Private Sub TxtEdit2_Change()
Dim Y, X, Z
If TextFormat = 1 Then
    TxtEdit2 = Format(TxtEdit2, "### ### ### ### ##0.00# ###")
    ElseIf InStr(Test, ".") > 0 Then
    X = InStr(Test, "."): Y = Len(Test): Z = X + 1
    If (X + 1) = Y Then TxtEdit2 = Test
    If (X + 1) > Y Then TxtEdit2 = Format(TxtEdit2, "### ### ### ### ##0.00# ###")
    Else
        TxtEdit2 = Format(TxtEdit2, "###0.00")
    End If

TextFormat = 0
   
End Sub

Private Sub Txtedit3_Change()

If TextFormat = 1 Then
    TxtEdit3 = Format(TxtEdit3, "### ### ### ### ### ##0.00#")
    Else
    TxtEdit3 = Format(TxtEdit3, "### ### ### ### ### ##0.00#")
    End If
    
TextFormat = 0
    
End Sub

Conclusion

Vous aurez fais mieux j'en suis sur mais bon, faut bien un début à tout ! Critique accepté !

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Calculette
- Calc.frm 120 225 octets
- Calc.frx1 295 732 octets
- CALCUL~1.vbw 43 octets
- Calculatrice.vbp 940 octets

Télécharger le zip

Sources du même auteur

FONCTIONS PRATIQUE POUR LISTVIEW

TÉLÉCHARGEMENT POUR MISE À JOUR ET VOIR LA PROGRESSION

GESTIONNAIRE ASSISTANT PROJET VBP BAS

JOUJOU POUR LES ACCROS À OGAME !

VEROUX PC AVEC API

Toutes les sources de Galactus13

Sources de la même categorie

CONVERTISSEUR HEXAVIGÉSIMAL par shaeks

CRYPTOGRAPHIE AFFINE par Tigrou66

SCANNER FLEX par lajouad

EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge

SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5

Toutes les sources de la catégorie Maths

Sources en rapport avec celle ci

CALCULATRICE VBSCRIPT par nathansecret

UNE VRAIE CALCULATRICE : ÉCRITURE 2D : ON MARQUE LA LIGNE EN... par neamar

CALCULATRICE STÉGANOGRAPHIQUE par Christ_OFF

CALC'BOOL LA CALCULETTE BOOLÉENNE par dheroux

COMPOSANT TEXTE AVEC CALCULATRICE INTEGREE par VBsat62fr

Commentaires et avis

Commentaire de PCPT le 05/11/2008 18:01:12 administrateur CS

salut,

regarde vite à quoi servent les groupes de contrôles (tu l'as fait pour BtAlphabet, pourquoi pas pour BtX), et essaye de respecter les types (string, long, ...), avec les fonctions de conversions les concernant

ps : me semblait que la charte indique "halte aux calculatrices", non?

Commentaire de Galactus13 le 05/11/2008 18:08:01

<<< Me semblait que la charte indique "halte aux calculatrices", non?>>>
Désoler, pour celà, avais pas vue!
Ceci dit, j'avais besoin de montrer que mes connaissances sont petite et que des petits coups de mains sont fortement apprécié !!
En outre, maintenant je commence a faire des choses plus sérieuses mais je fais de grosses erreurs, je maitrise pas encore toute les capacitées de VB !
Merci d'avoir pris la peine de lire mon truc qui est bien plus qu'une calculette !!! "non, mais !" hihihi !

Commentaire de PCPT le 05/11/2008 18:37:28 administrateur CS

vi j'ai bien vu, çà ne la rend pas unique ^^

il faut penser à vérifier l'existant avant de poster
(indiqué au même endoit que "les calculatrices etc... seront systématiquement supprimées")

les lignes 7 à 78 se remplacent par :
# Private Sub Bt_Click(Index as Integer)
#   TxtEdit2.Text = Bt(Index).Caption
#   TxtEdit3.Text = "0"
# End Sub

on concatène 2 chaînes avec "&", pas "+"

on déclare et type ses variables
# Dim A, B, X, T1, T2
ici est ailleurs, TOUT est Variant !

on nomme ses contrôles
# Command1.Enabled = False
# Command6.Enabled = False
quoi est quoi à la relecture?

on choisi sa langue, dev français, dev anglais, mais pas les 2
# ErrorTrouver:
encore moins dans un même mot :)

on respecte une saisie
#  TxtEdit3 = 0
#  TxtEdit3.Text = 0
.Text étant la valeur par défaut, on peut se passer de le spécifier (même si pour une question de lisibilité, il vaut mieux éviter), mais il faut garder la même logique partout

on respecte les types
# TxtEdit3 = Tan(Val(TxtEdit2))
TxtEdit3(.Text) attend une STRING, ce que ne renvoie pas TAN. un CSTR est nécessaire, même si VB n'est pas tatillon

de préférence on évite les accents
# Dim Opérande, Mémoire

on utilise pas les variables comme des fourre-tout
# Opérande = "+"
# Opérande = "Log"
une opérande est une opérande
même si LOG COS TAN etc... peuvent être utilisés de la même manière, tu devrais créer une autre variable pour ces fonctions

etc...

ces remarques allant dans le sens de ta demande "des petits coups de mains sont fortement apprécié", aucunement pour de rabaisser ou autre

bon courage ;)

Commentaire de joebarteamv le 05/11/2008 22:54:20

interfarce est sympa mais la verification de base ; celle de diviser 1 par 0 provoque une erreur!!!

Commentaire de Galactus13 le 06/11/2008 00:30:38

PCPT -> Génial ! J'avoue ...
les lignes 7 à 78 se remplacent par :
# Private Sub Bt_Click(Index as Integer)
# TxtEdit2.Text = Bt(Index).Caption
# TxtEdit3.Text = "0"
# End Sub
J'avais pas penser a faire les groupes de contrôles pour sa ! j'avais peur de provoquer un conflit et comme c'était mon premier programme je n'ai plus oser y toucher, pour me reste, je vais faire attention et aussi faire des anotation car je m'aperçois que sa manque !!!
Sa fait plaisir de voir que même un "bleu" en la matière est considéré et une "remarque" ou une "critique" est toujours un acqui donc, encore merci !

joebarteamv -> heu, j'ai omis on error goto ...
Comme j'avais fait ce programme pour les codes Héxa et ASCii, je n'ai pas fait de test sur la calculette ! merci pour le compliment de l'interface !
Yves

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Aide pour la realisation d'une calculette [ par KaiserGringos ] Bonjour !Je debute en programmation et on m'as demander de realiser une calculatrice convertisseur d'euro a l'ecole. Voila mon probleme, j'aimerais sa Calculette à devis a partir de tableau excel [ par Include06 ] Salut à tous !J'ai cherché dans les codes sources mais je n'ai pas vraiment trouvé ce que je souhaite... Je m'interesse beaucoup à l'informatique mais Bouton enfoncé [ par chris81 ] bonjour,dans la calculette de xp qd on clique sur 2 du pave numerique le bouton 2 de la calculette s'enfonce, savez vous comment je peux faire pour fa pour créer une calculette [ par bcze91 ] qui a le code visual basic pour une calculatrice Concerne partie du code d'un exemple (Vb Calculette) [ par fiskobel ] Bonjour à tous, je suis nouveau et je débite avec VB.NETVoici un bout de code que je n'arrive à saisir. Qq'un peut-iléclairer ma lantere ? Voici le c Calculette [ par lcastell ] Bonjour,Es-t'il possible d'ajouter sous forme de bouton une calculette sur une Form.Merci. boutons de calculette... [ par chaudier37 ] Bonjourje travaille dans excel.j'ai fait une sorte de calculette des boutons de 1 à 10. et je dois repeter la même procédure pour chaque bouton. je vo Affichage des opérations sur calculette (encore!!) (type TI) [ par Nehmo57 ] Ban voila j'ai une calculatrice à faire (encore une!! Il faut bien commencer...) et vu que j'y trouve du plaisir j'essaye de personnaliser/améliorer l [BAR]Bug calculette windows! [ par darkteam ] J'ai découvert un bug avec la calculette windows marche sur tous les versions ^^ Faites donc la racine de 4 puis soustrayez 2 Et on obtient? -8,1648

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLEME PROCEDURE FERMETURE FORM par Renfield

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par Renfield

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par LeFoureur

RE : BLOCAGE DE MON PROGRAMME par ucfoutu

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System