AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 01:06:19
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : System.Math.Round [ Divers / Débutants ] (Sipat)

samedi 10 février 2007 à 11:18:16 | System.Math.Round

Sipat

Bonjour,
Pouvez-vous me dire la correspondance avec :

'Text2.Text = Round((Text4.Text / TVA), 3) ' en VB6 ne fonctionne plus
 Text2.Text = CStr(System.Math.Round(CDbl(Text4.Text) / TVA, 3)) ' en VB.NET 2003

Il n'y a encore pas plus leger que :
Text2.Text = System.Math.Round(Text4.Text / TVA, 3) fontionne en VB.NET 2003
Text6.Text = Text4.Text - Text2.Text  'VB6 fonctionne
'Text6.Text = CStr(CDbl(Text4.Text) - CDbl(Text2.Text)) ' VB.NET 2003

Est-ce qu'il faut que je laisse CStr et CDbl pour un souci de compatibilité ou je peux les enlever vu que le calcule en VB6 ne les utilisé pas? et qu'il n'y a pas d'erreur si je les enlève en VB.NET 2003.
Merci.


samedi 10 février 2007 à 12:35:50 | Re : System.Math.Round

Willi

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Salut,
A toi de voir System.Math.round mais il est préférable d'ajouter l'instruction "Option Strict On" et faire ces convertions soit même.

Je te conseille de faire la conversion en type numérique avec Convert.ToDouble
=> Math.Round(Convert.ToDouble(Text4.Text) / TVA,3)
samedi 10 février 2007 à 13:53:49 | Re : System.Math.Round

Sipat
Bonjour Willi,
Je viens de  mettre l'instruction Option Strict sur ON  et de remettre comme VB.NET 2003 avait inscrit exp:

Text2.Text =

CStr(System.Math.Round(CDbl(Text4.Text) / TVA, 3))
Text6.Text = CStr(CDbl(Text4.Text) - CDbl(Text2.Text))
Text8.Text = CStr((CDbl(Text2.Text) - CDbl(Text1.Text)) / CDbl(Text4.Text) * 100)
Text7.Text = CStr(CDbl(Text2.Text) - CDbl(Text1.Text))
Text5.Text = CStr(CDbl(Text4.Text) / CDbl(Text1.Text))
J'espére avoir bien compris ce que tu voulais dire.
Merci.


Cette discussion est classé dans : text, system, text2, round, text4

Répondre à ce message

Sujets en rapport avec ce message

Après la virgule [ par zelze ] J'ai un truc du genre :text4.text = text1.text * text2.text / text3.texttext4 affiche le calcul entre text1, text2 et text3 mais j'ai un ptobleme il n Pouvez-vous me donner quelques conseilles et exemples [ par Sipat ] Bon dimanche à tous,j'aimerai pouvoir saisir dans les différents textbox en  temps réelJ'y suis arrivé avec TextBox1(PAHT)  TextBox2(PVHT)   TextBox4( Problèm de Directions ... [ par MaxSoldier ] En fait, je crée un shell qui n'en est pas un en fait mais seulement un "subsystem" en ligne de commande.J'ai crée une fonction Dir qui est censsé mon glisser deplacer d'une listbox vers textbox [ par hy_honey ] bonjour a tousje suis en vb.net et je bloc depuid quelque jour , j'ai essayer de codé un drap and drop d'une liste box vers un text box c'est a dire q pb de remplissage de table [ par mikoteam ] bonjour tlm encore moi et pour un moment je pense :)voila mon souci je n arrive pas a trouver l erreur (je debute) je voudrais remplir ma table fourni Winsock qui reçoit seulement 1 octet ??? [ par doggy ] Salut !Bon ben voilà, je sais pas trop ce qu'il se passe, mais mon contrôle winsock ne veut pas recevoir plus d'1 octet ...Apres quelques tests, j'ai associer un combo à un bouton pour calculer [ par kaleyire ] je repose ma question avec mon code:-Dans ma liste il ya les valeus suivantes : ufr,pup et ufd .-Mon interface à les contrôles suivants:Un combo, quat **RECHERCHE SUR ADODC ** [ par Heny ] Salut a tousJe cherche un code pour mon application qui consiste a faire des recherche par intervalle c.a.d entre deux valeurs que je fais entre par d ** RECHERCHE SUR UN BD ACCESS ** [ par Heny ] Salut a tousJe cherche un code pour mon application qui consiste a faire des recherche par intervalle c.a.d entre deux valeurs que je fais entre par d pb de champ dans une requette [ par elodie1511 ] voilà, quand j'execute ma requete, il ne recupere pas les champs text1.text et text2.text:r = 1 rs.MoveFirst SQL = "insert into hommes(nomhomme,pren


Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.