Mindiell
Messages postés558Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention 5 septembre 20071 25 oct. 2004 à 16:41
Euh, dragon, le jour ou le taux franc/euro change, appelle moi, ca m'interesse :D
Pour info, c'est bloqué et ca ne changera plus jamais pour la simple raison que le franc n'existe plus ;)
blob73
Messages postés55Date d'inscriptiondimanche 15 août 2004StatutMembreDernière intervention20 juin 2005 25 oct. 2004 à 15:28
Salut!! moi je driat juste que qaund tu fais un copier coller si tu pouvais nous epargner le code generer par windows ce serais deja ca de gagné
c'est a dire tout ca !!!
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend WithEvents Text1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Text2 As System.Windows.Forms.TextBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Text3 As System.Windows.Forms.TextBox
Friend WithEvents Text4 As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Clear As System.Windows.Forms.Button
Friend WithEvents Quitter As System.Windows.Forms.Button
Friend WithEvents FrAEuro As System.Windows.Forms.Button
Friend WithEvents Soustraire As System.Windows.Forms.Button
Friend WithEvents Additionner As System.Windows.Forms.Button
Friend WithEvents Multiplier As System.Windows.Forms.Button
Friend WithEvents Diviser As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.FrAEuro = New System.Windows.Forms.Button
Me.Text1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Text2 = New System.Windows.Forms.TextBox
Me.Button2 = New System.Windows.Forms.Button
Me.Clear = New System.Windows.Forms.Button
Me.Quitter = New System.Windows.Forms.Button
Me.Soustraire = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.Additionner = New System.Windows.Forms.Button
Me.Label4 = New System.Windows.Forms.Label
Me.Text3 = New System.Windows.Forms.TextBox
Me.Text4 = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Multiplier = New System.Windows.Forms.Button
Me.Diviser = New System.Windows.Forms.Button
Me.Label7 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'FrAEuro
'
Me.FrAEuro.BackColor = System.Drawing.Color.Gainsboro
Me.FrAEuro.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.FrAEuro.Location = New System.Drawing.Point(192, 40)
Me.FrAEuro.Name = "FrAEuro"
Me.FrAEuro.Size = New System.Drawing.Size(104, 32)
Me.FrAEuro.TabIndex = 1
Me.FrAEuro.Text = "&Franc à euro"
'
'Text1
'
Me.Text1.Location = New System.Drawing.Point(64, 48)
Me.Text1.Name = "Text1"
Me.Text1.Size = New System.Drawing.Size(120, 20)
Me.Text1.TabIndex = 2
Me.Text1.Text = ""
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.LightGray
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(8, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Francs"
'
'Label2
'
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(16, 104)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 24)
Me.Label2.TabIndex = 4
Me.Label2.Text = "€uro"
'
'Text2
'
Me.Text2.Location = New System.Drawing.Point(64, 104)
Me.Text2.Name = "Text2"
Me.Text2.Size = New System.Drawing.Size(120, 20)
Me.Text2.TabIndex = 5
Me.Text2.Text = ""
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Gainsboro
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button2.Location = New System.Drawing.Point(192, 96)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(104, 32)
Me.Button2.TabIndex = 6
Me.Button2.Text = "&Euro à franc"
'
'Clear
'
Me.Clear.BackColor = System.Drawing.Color.Silver
Me.Clear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Clear.Location = New System.Drawing.Point(24, 152)
Me.Clear.Name = "Clear"
Me.Clear.Size = New System.Drawing.Size(104, 32)
Me.Clear.TabIndex = 7
Me.Clear.Text = "&Clear"
'
'Quitter
'
Me.Quitter.BackColor = System.Drawing.Color.Silver
Me.Quitter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Quitter.Location = New System.Drawing.Point(176, 152)
Me.Quitter.Name = "Quitter"
Me.Quitter.Size = New System.Drawing.Size(104, 32)
Me.Quitter.TabIndex = 8
Me.Quitter.Text = "&Quitter"
'
'Soustraire
'
Me.Soustraire.BackColor = System.Drawing.Color.Gainsboro
Me.Soustraire.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Soustraire.Location = New System.Drawing.Point(488, 8)
Me.Soustraire.Name = "Soustraire"
Me.Soustraire.Size = New System.Drawing.Size(72, 32)
Me.Soustraire.TabIndex = 9
Me.Soustraire.Text = "-"
'
'Label3
'
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Label3.Location = New System.Drawing.Point(344, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(112, 40)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Résultat"
'
'Additionner
'
Me.Additionner.BackColor = System.Drawing.Color.Gainsboro
Me.Additionner.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Additionner.Location = New System.Drawing.Point(488, 56)
Me.Additionner.Name = "Additionner"
Me.Additionner.Size = New System.Drawing.Size(72, 32)
Me.Additionner.TabIndex = 11
Me.Additionner.Text = "+"
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.DimGray
Me.Label4.Location = New System.Drawing.Point(304, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(16, 176)
Me.Label4.TabIndex = 12
'
'Text3
'
Me.Text3.Location = New System.Drawing.Point(336, 88)
Me.Text3.Name = "Text3"
Me.Text3.Size = New System.Drawing.Size(120, 20)
Me.Text3.TabIndex = 13
Me.Text3.Text = ""
'
'Text4
'
Me.Text4.Location = New System.Drawing.Point(336, 152)
Me.Text4.Name = "Text4"
Me.Text4.Size = New System.Drawing.Size(120, 20)
Me.Text4.TabIndex = 14
Me.Text4.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(336, 56)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(120, 24)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Entrez ici votre 1er chiffre"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(336, 120)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(120, 24)
Me.Label6.TabIndex = 16
Me.Label6.Text = "Entrez ici votre 2e chiffre"
'
'Multiplier
'
Me.Multiplier.BackColor = System.Drawing.Color.Gainsboro
Me.Multiplier.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Multiplier.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Multiplier.Location = New System.Drawing.Point(488, 104)
Me.Multiplier.Name = "Multiplier"
Me.Multiplier.Size = New System.Drawing.Size(72, 32)
Me.Multiplier.TabIndex = 17
Me.Multiplier.Text = "*"
'
'Diviser
'
Me.Diviser.BackColor = System.Drawing.Color.Gainsboro
Me.Diviser.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Diviser.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Diviser.Location = New System.Drawing.Point(488, 152)
Me.Diviser.Name = "Diviser"
Me.Diviser.Size = New System.Drawing.Size(72, 32)
Me.Diviser.TabIndex = 18
Me.Diviser.Text = "/"
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Silver
Me.Label7.ForeColor = System.Drawing.Color.DimGray
Me.Label7.Location = New System.Drawing.Point(88, 8)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(72, 32)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Franc/€uro"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.LightGray
Me.ClientSize = New System.Drawing.Size(576, 198)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Diviser)
Me.Controls.Add(Me.Multiplier)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Text4)
Me.Controls.Add(Me.Text3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Additionner)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Soustraire)
Me.Controls.Add(Me.Quitter)
Me.Controls.Add(Me.Clear)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Text2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Text1)
Me.Controls.Add(Me.FrAEuro)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Convertisseur/Calculette"
Me.ResumeLayout(False)
End Sub
#End Region
ce qui ferais que ton code serais deja plus lisible et plus intéréssant mais c'est bien comme même et effectivement meme si yen a deja plein je trouve un peu degueulasse de te deboiter la tête pour une source (bon c'est vrai que tu le met toi même il faut pas mettre de calculette) mais vu que tu commence je trouve dur de t'allumer alors qu'on devrais t'encourager a produire d'autre sources ya certainement mille et une facon de faire une calculatrice convertisseur je pense que c'est a chacun de trouver la sienne en tou cas c'est un bon debut continu (mais pas dans les calculettes lol :))
Blob 73
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 25 oct. 2004 à 15:28
au moins, faite une connection vers un site d,une banque pour aller cherche le bon taux là, ça serait la moindre des choses de tuojours avoir le bon taux et qu,il soit pas hardcoder
Nix a raison et tord en même temps. Le monde est tannée des convertisseur, un bout de temps, il y en avait 2 par jours, minimum.
par contre, un convertisseur est toujours le bienvenu, s'il améliore dequoi. Connection a un site d,une banque, convertie n,importe quel somme de monnais en une autre somme en allant chercher le bon taux de conversion, ...
Il y a pleins de chose intéressante a faire, mais svp, arrêter de faire un convertisseur qui prend un textbox, multiplie par une constante pis donne le résultat dans un 2e textbox. là c'est plus que débutant et en plus, c,est de la très mauvaise programmation, puisque le taux change avec le temps, donc il va faloir aller changer el taux dans le code a chaque fois.
quand une donner est dynamique, faut toujours avoir la bonne valeur, même dans 10 ans. Au pire, changer l'addresse pour faire la mise a jour, masi cette addresse devrais être externe, genre un fichier xml par exemple
Nix
Messages postés831Date d'inscriptionsamedi 15 mai 1999StatutMembreDernière intervention18 juillet 2009 25 oct. 2004 à 12:13
1) merci de changer le titre de cette source
2) le taux de conversion franc/euro est faux, ce n'est pas 6.56 mais 6.55957 (ce qui sur des grosses sommes change tout !)
3) Faut arrêter de poster des convertisseurs euros, c'est pourtant clairement écrit dans le fomulaire de post. Je ne suis pas contre les "petites sources" j'ai mainte fois expliqué mon point de vue la dessus mais là faut arrêter sinon je vais changer le nom du site pour convertisseureurofrance.com...
Sirocooo
Messages postés412Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention 7 avril 20081 25 oct. 2004 à 09:30
Merde au calculatrice... ca fait au moins la 2000 ème source ici.
Mais tout le monde sait faire des calculettes même les débutants, la preuve... alors STOP... Faites des choses plus utiles...
D'ailleurs, personne ne se sert d'une calculette écran.
Alors encore une fois STOP... Arretez de poluer ce site magnifique.
jotrash
Messages postés373Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention19 juin 2007 25 oct. 2004 à 09:20
par contre javoue que la source est vraiment bien commente ce qui est tres appreciable !
jotrash
Messages postés373Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention19 juin 2007 25 oct. 2004 à 09:19
perso je trouve ce code pas mal complique compare a certains sur le site... je pense que jaurais ete assez perdu si javais du commence par ce type de calculette .... enfin voila cest po pour te dessendre que je dis ca hein ^^
D'abort merci d'avoir pris la peine de la faire.
Une calculette est très didactique pour commencé.
En ce qui me concerne, j'ai l'intention de me mettre à VisualBasic.net initiation. J'ai vais donc commencer avec cette calculette.
Merci encore.
djmcg
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 24 oct. 2004 à 19:54
Si tu pouvais changer le titre de la source ce serais deja bien
@+
Ef_iu_cy_kay_ii_ar
Messages postés2Date d'inscriptionlundi 13 septembre 2004StatutMembreDernière intervention24 octobre 2004 24 oct. 2004 à 18:05
Ok, mais les tutos sur les calculatrices ou convertisseur sont trop durs à comprendre, je trouve, pour un très débutant...
Mais tu penses quoi de ce code ?
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 24 oct. 2004 à 17:27
Où as-tu vu qu'il était interdit de poster une calculatrice ?
On ne va pas te trucider pour çà. C'est juste une source un peu ... euh .. trop commune.
25 oct. 2004 à 16:41
Pour info, c'est bloqué et ca ne changera plus jamais pour la simple raison que le franc n'existe plus ;)
25 oct. 2004 à 15:28
c'est a dire tout ca !!!
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend WithEvents Text1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Text2 As System.Windows.Forms.TextBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Text3 As System.Windows.Forms.TextBox
Friend WithEvents Text4 As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Clear As System.Windows.Forms.Button
Friend WithEvents Quitter As System.Windows.Forms.Button
Friend WithEvents FrAEuro As System.Windows.Forms.Button
Friend WithEvents Soustraire As System.Windows.Forms.Button
Friend WithEvents Additionner As System.Windows.Forms.Button
Friend WithEvents Multiplier As System.Windows.Forms.Button
Friend WithEvents Diviser As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.FrAEuro = New System.Windows.Forms.Button
Me.Text1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Text2 = New System.Windows.Forms.TextBox
Me.Button2 = New System.Windows.Forms.Button
Me.Clear = New System.Windows.Forms.Button
Me.Quitter = New System.Windows.Forms.Button
Me.Soustraire = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.Additionner = New System.Windows.Forms.Button
Me.Label4 = New System.Windows.Forms.Label
Me.Text3 = New System.Windows.Forms.TextBox
Me.Text4 = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Multiplier = New System.Windows.Forms.Button
Me.Diviser = New System.Windows.Forms.Button
Me.Label7 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'FrAEuro
'
Me.FrAEuro.BackColor = System.Drawing.Color.Gainsboro
Me.FrAEuro.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.FrAEuro.Location = New System.Drawing.Point(192, 40)
Me.FrAEuro.Name = "FrAEuro"
Me.FrAEuro.Size = New System.Drawing.Size(104, 32)
Me.FrAEuro.TabIndex = 1
Me.FrAEuro.Text = "&Franc à euro"
'
'Text1
'
Me.Text1.Location = New System.Drawing.Point(64, 48)
Me.Text1.Name = "Text1"
Me.Text1.Size = New System.Drawing.Size(120, 20)
Me.Text1.TabIndex = 2
Me.Text1.Text = ""
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.LightGray
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(8, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Francs"
'
'Label2
'
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(16, 104)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 24)
Me.Label2.TabIndex = 4
Me.Label2.Text = "€uro"
'
'Text2
'
Me.Text2.Location = New System.Drawing.Point(64, 104)
Me.Text2.Name = "Text2"
Me.Text2.Size = New System.Drawing.Size(120, 20)
Me.Text2.TabIndex = 5
Me.Text2.Text = ""
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Gainsboro
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button2.Location = New System.Drawing.Point(192, 96)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(104, 32)
Me.Button2.TabIndex = 6
Me.Button2.Text = "&Euro à franc"
'
'Clear
'
Me.Clear.BackColor = System.Drawing.Color.Silver
Me.Clear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Clear.Location = New System.Drawing.Point(24, 152)
Me.Clear.Name = "Clear"
Me.Clear.Size = New System.Drawing.Size(104, 32)
Me.Clear.TabIndex = 7
Me.Clear.Text = "&Clear"
'
'Quitter
'
Me.Quitter.BackColor = System.Drawing.Color.Silver
Me.Quitter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Quitter.Location = New System.Drawing.Point(176, 152)
Me.Quitter.Name = "Quitter"
Me.Quitter.Size = New System.Drawing.Size(104, 32)
Me.Quitter.TabIndex = 8
Me.Quitter.Text = "&Quitter"
'
'Soustraire
'
Me.Soustraire.BackColor = System.Drawing.Color.Gainsboro
Me.Soustraire.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Soustraire.Location = New System.Drawing.Point(488, 8)
Me.Soustraire.Name = "Soustraire"
Me.Soustraire.Size = New System.Drawing.Size(72, 32)
Me.Soustraire.TabIndex = 9
Me.Soustraire.Text = "-"
'
'Label3
'
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Label3.Location = New System.Drawing.Point(344, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(112, 40)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Résultat"
'
'Additionner
'
Me.Additionner.BackColor = System.Drawing.Color.Gainsboro
Me.Additionner.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Additionner.Location = New System.Drawing.Point(488, 56)
Me.Additionner.Name = "Additionner"
Me.Additionner.Size = New System.Drawing.Size(72, 32)
Me.Additionner.TabIndex = 11
Me.Additionner.Text = "+"
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.DimGray
Me.Label4.Location = New System.Drawing.Point(304, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(16, 176)
Me.Label4.TabIndex = 12
'
'Text3
'
Me.Text3.Location = New System.Drawing.Point(336, 88)
Me.Text3.Name = "Text3"
Me.Text3.Size = New System.Drawing.Size(120, 20)
Me.Text3.TabIndex = 13
Me.Text3.Text = ""
'
'Text4
'
Me.Text4.Location = New System.Drawing.Point(336, 152)
Me.Text4.Name = "Text4"
Me.Text4.Size = New System.Drawing.Size(120, 20)
Me.Text4.TabIndex = 14
Me.Text4.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(336, 56)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(120, 24)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Entrez ici votre 1er chiffre"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(336, 120)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(120, 24)
Me.Label6.TabIndex = 16
Me.Label6.Text = "Entrez ici votre 2e chiffre"
'
'Multiplier
'
Me.Multiplier.BackColor = System.Drawing.Color.Gainsboro
Me.Multiplier.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Multiplier.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Multiplier.Location = New System.Drawing.Point(488, 104)
Me.Multiplier.Name = "Multiplier"
Me.Multiplier.Size = New System.Drawing.Size(72, 32)
Me.Multiplier.TabIndex = 17
Me.Multiplier.Text = "*"
'
'Diviser
'
Me.Diviser.BackColor = System.Drawing.Color.Gainsboro
Me.Diviser.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Diviser.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Diviser.Location = New System.Drawing.Point(488, 152)
Me.Diviser.Name = "Diviser"
Me.Diviser.Size = New System.Drawing.Size(72, 32)
Me.Diviser.TabIndex = 18
Me.Diviser.Text = "/"
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Silver
Me.Label7.ForeColor = System.Drawing.Color.DimGray
Me.Label7.Location = New System.Drawing.Point(88, 8)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(72, 32)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Franc/€uro"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.LightGray
Me.ClientSize = New System.Drawing.Size(576, 198)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Diviser)
Me.Controls.Add(Me.Multiplier)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Text4)
Me.Controls.Add(Me.Text3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Additionner)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Soustraire)
Me.Controls.Add(Me.Quitter)
Me.Controls.Add(Me.Clear)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Text2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Text1)
Me.Controls.Add(Me.FrAEuro)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Convertisseur/Calculette"
Me.ResumeLayout(False)
End Sub
#End Region
ce qui ferais que ton code serais deja plus lisible et plus intéréssant mais c'est bien comme même et effectivement meme si yen a deja plein je trouve un peu degueulasse de te deboiter la tête pour une source (bon c'est vrai que tu le met toi même il faut pas mettre de calculette) mais vu que tu commence je trouve dur de t'allumer alors qu'on devrais t'encourager a produire d'autre sources ya certainement mille et une facon de faire une calculatrice convertisseur je pense que c'est a chacun de trouver la sienne en tou cas c'est un bon debut continu (mais pas dans les calculettes lol :))
Blob 73
25 oct. 2004 à 15:28
Nix a raison et tord en même temps. Le monde est tannée des convertisseur, un bout de temps, il y en avait 2 par jours, minimum.
par contre, un convertisseur est toujours le bienvenu, s'il améliore dequoi. Connection a un site d,une banque, convertie n,importe quel somme de monnais en une autre somme en allant chercher le bon taux de conversion, ...
Il y a pleins de chose intéressante a faire, mais svp, arrêter de faire un convertisseur qui prend un textbox, multiplie par une constante pis donne le résultat dans un 2e textbox. là c'est plus que débutant et en plus, c,est de la très mauvaise programmation, puisque le taux change avec le temps, donc il va faloir aller changer el taux dans le code a chaque fois.
quand une donner est dynamique, faut toujours avoir la bonne valeur, même dans 10 ans. Au pire, changer l'addresse pour faire la mise a jour, masi cette addresse devrais être externe, genre un fichier xml par exemple
25 oct. 2004 à 12:13
2) le taux de conversion franc/euro est faux, ce n'est pas 6.56 mais 6.55957 (ce qui sur des grosses sommes change tout !)
3) Faut arrêter de poster des convertisseurs euros, c'est pourtant clairement écrit dans le fomulaire de post. Je ne suis pas contre les "petites sources" j'ai mainte fois expliqué mon point de vue la dessus mais là faut arrêter sinon je vais changer le nom du site pour convertisseureurofrance.com...
25 oct. 2004 à 09:30
Mais tout le monde sait faire des calculettes même les débutants, la preuve... alors STOP... Faites des choses plus utiles...
D'ailleurs, personne ne se sert d'une calculette écran.
Alors encore une fois STOP... Arretez de poluer ce site magnifique.
25 oct. 2004 à 09:20
25 oct. 2004 à 09:19
25 oct. 2004 à 05:04
Une calculette est très didactique pour commencé.
En ce qui me concerne, j'ai l'intention de me mettre à VisualBasic.net initiation. J'ai vais donc commencer avec cette calculette.
Merci encore.
djmcg
24 oct. 2004 à 19:54
@+
24 oct. 2004 à 18:05
Mais tu penses quoi de ce code ?
24 oct. 2004 à 17:27
On ne va pas te trucider pour çà. C'est juste une source un peu ... euh .. trop commune.