WALL STREET V6 MISE À JOUR ET REFONTE
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
1 août 2008 à 16:46
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 - 5 août 2008 à 00:51
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 - 5 août 2008 à 00:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47467-wall-street-v6-mise-a-jour-et-refonte
https://codes-sources.commentcamarche.net/source/47467-wall-street-v6-mise-a-jour-et-refonte
5 août 2008 à 00:51
les habitudes sont mauvaises conseillères
4 août 2008 à 21:16
12. Faire du VB.NET c'est s'habituer à changer, pour les futurs changements de VB.NET...
Amicalement,
Us.
4 août 2008 à 12:18
4 août 2008 à 11:57
pour les autres je ne les approuve pas tous
ps : je n'ai pas regardé la source
4 août 2008 à 11:32
8. Retrouver le plaisir d'être perdu dans l'interface,
9. Retrouver le plaisir de rien comprendre aux messages d'erreurs.
Exemple : Cette source ! Quand je la lance, j'obtiens ce message : "Une exception de première chance de type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll"
10. Avoir une interface plus optimiste que jamais. Un message d'erreur n'est pas un truc sans appel, du style : "Invalid machin...", non c'est une "première chance"... J'adore. Attention la prochaine fois !
Du reste, les cotations restent à zéro ?...
Amicalement,
Us.
4 août 2008 à 03:20
Entre parenthèses, je planche, à dessein, sur les modifications suggérées, mais j'ai eu des surprises ent mid et .substring ...
3 août 2008 à 23:00
... et pis je re-poste ...
3 août 2008 à 22:47
on boucle sur chaque caractère pour trouver ">" ?
il faut utiliser .indexof
pareil pour mid, utiliser .substring
ailleurs pareil pour les fonctions comme trim format ucase etc..., c'est du VB6 çà, pas du dotnet. il faut décocher la compatibilité dans les options du projet
3 août 2008 à 22:39
il n'y a que les gens qui ne font rien qui ne font pas d'erreur
si tu compares les lignes avec ton code tu verras vite ou j'ai fait des manipulations
bonne soirée
3 août 2008 à 22:21
3 août 2008 à 22:17
'
'/* "impression" de la table devises (DISPLAYABLE) renseignée avec les taux... */
'/* le fichier s'agrandira au fur et à mesure */
'/* ce n'est qu'au lancement de l'appli que celui-ci est mis à Zéro */
'/* on peut aussi le supprimer manuellement */
'
Dim I As Integer
Dim LOG_FILE_NO As Integer = FreeFile()
'
FileOpen(LOG_FILE_NO, RATES_FILE, OpenMode.Append, OpenAccess.Write)
'
PrintLine(LOG_FILE_NO, UCase(X_LOCA) & " " & X_DATE & " - " & X_TIME)
PrintLine(LOG_FILE_NO, StrDup(85, "-"))
PrintLine(LOG_FILE_NO, "CODE " & ("DEVISE".PadRight(32, " ")), "DEV PER EUR".PadLeft(14, " "), "EUR PER DEV".PadLeft(14, " "))
PrintLine(LOG_FILE_NO, StrDup(85, "-"))
'
For I = 0 To IDX_RATES
'
With TBL_RATES(I)
PrintLine(LOG_FILE_NO, .DV_CODE & " " & .DV_LIBL.PadRight(32, " "), Format(.DV_DEV_PER_EUR, "#####0.00000").PadLeft(14, " "), Format((.DV_EUR_PER_DEV / 100000), "#####0.00000").PadLeft(14, " "))
End With
'
Next
'
PrintLine(LOG_FILE_NO, StrDup(85, "="))
'
FileClose(LOG_FILE_NO)
'
End Sub
3 août 2008 à 22:15
'
'/* génération du message pour l'affichage déroulant */
'
Dim I As Integer
'
'/* note : les caractères minuscules sont affectés à d'autres glyphes (cf table jointe) */
TMP_MSG = "lll " & UCase(X_LOCA) & " " & X_DATE & " - " & X_TIME & " nnn "
'
For I = 0 To IDX_RATES
'
With TBL_RATES(I)
'
TMP_MSG &= " t " & .DV_CODE & " " & Trim(Format((.DV_DEV_PER_EUR / 100000), "#########0.00000")) & "/€"
'
End With
'
Next
'
TMP_MSG &= "hhh "
'
End Sub
'
3 août 2008 à 22:14
'/* extraction du second taux depuis l'item "devise" extrait */
'Exemple : reçu ---> " Dollar américain</td><td align="center">0,64210</td><td align="center">1,55739"
'Exemple : retour -> "••••1.55739"
'
Dim I As Integer
Dim V, W, X As String
'
For I = S.Length To 1 Step -1
If Mid(S, I, 1) = ">" Then
V = Mid(S, I + 1)
V = V.Replace(",", ".")
' W = Format(Val(V) * 100000, "####000000")
' W = W.PadLeft(10, " ")
' X = Mid(W, 1, 5) & "." & Mid(W, 6)
Return V
End If
Next
'
Return "ERROR !"
'
End Function
3 août 2008 à 22:13
'/* extraction du premier taux depuis l'item "devise" extrait */
'Exemple : reçu ---> " Dollar américain</td><td align="center">0,64210</td><td align="center">1,55739"
'Exemple : retour -> "••••0.64210"
'
Dim Z_BAL As String = "align=" & QOT & "center" & QOT & ">"
Dim P As Integer
Dim V, W, X As String
'
P = InStr(S, Z_BAL)
If P > 0 Then
V = Mid(S, P + Z_BAL.Length)
P = InStr(V, "</td>")
V = Mid(V, 1, P - 1)
V = V.Replace(",", ".")
' W = Format(Val(V) * 100000, "####000000")
' W = W.PadLeft(10, " ")
' X = Mid(W, 1, 5) & "." & Mid(W, 6)
Return V
Else
Return "ERROR !"
End If
'
End Function
3 août 2008 à 21:08
C'est vers où ?
3 août 2008 à 12:54
j'ai pas vraiment compris pourquoi mais dans ton code les données sont passées à la fonction format plusieurs fois avant l'affichage,
j'ai suprimé quelques lignes ,j'en ai modifié d'autres et maintenant ça fonctionne impecablement
3 août 2008 à 11:32
vb3
lol
3 août 2008 à 10:39
mais n'est il pas possible d'utiliser le framework 2 avec vb7
perso ça m'arrive d'utiliser le framework 3 avec vb8
sinon essaie Microsoft.VisualBasic.Devices.Audio.Play
ça devrait fonctionner en vb7
vb6 plus élégant , bof, il y a des vieilles dames élégantes :))
3 août 2008 à 08:37
3 août 2008 à 05:05
My.Computer.Audio.Play(WRK_SND, AudioPlayMode.Background)
pas en VB7
(à moins que j'aie loupé un imports quelconque....)
3 août 2008 à 04:51
2 août 2008 à 19:08
les bonnes raisons pour passer à .net
1 vb6 n'est plus supporté par microsoft
2 les programmes fait en vb.net tournent en 64 bits
3 d'ici quelques années ça m'étonneraient que microsoft continue a
faire des version 32bits de windows
4 il faut aller de l'avant : vive le progrès
5 zut je sais plus :)
( aidez moi c'est urgent)
2 août 2008 à 18:55
ok presque kif kif. m'enfin à tout réduire çà va finir à "regarde System()" ^^
2 août 2008 à 17:43
System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator.ToString() ', System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberGroupSeparator.ToString() ' .
bonjour chez vous
2 août 2008 à 17:06
le point est le séparateur décimal dans l'IDE mais aucun rapport non plus avec le système régional
pour lire ce séparateur, il faut regarder du côté de la classe culture
2 août 2008 à 16:07
moi je n'utilise jamais de parrametres régionnaux , mais il y a moyen de forcer le truc avec system.globalization
sinon le plus simple c'est de faire comme vb formatter les nombres avec un point comme décimale et pas de séparateur de milliers
apres pour l'affichage tu peux en faire ce que tu veux
2 août 2008 à 15:49
rien de bien méchant, toujours des problèmes de type (pas de personne...)
à part instr où il m'a rajouté un argument sans que je lui aie rien demandé...
donc, recompilé et pas de problème.
Ça pourrait venir de paramètres régionaux ou qq chose comme ça ?
(rien à dire pour le sound, c'est ok)
2 août 2008 à 15:48
j'ai toujours le même résultat je te laisse faire et si parfois tu cherches une fonction en net le moyen le plus intuitif pour la trouver , c'est
l'explorateur d'objets ( object browser)
2 août 2008 à 15:33
je vais essayer ça...
En vb 2005 (Express) je suis novice;
effectivement, avec option strict ON, il m'en balance 30...
... va falloir que je bricole ...
sinon, avec l'option par défaut ("personnalisé" je crois), c'est OK...
2 août 2008 à 15:21
en .net il y a plus simple :
My.Computer.Audio.Play("sound.wav", AudioPlayMode.Background)
2 août 2008 à 15:18
inplicit conversion
c'est pas normal que d'une version à l'autre il y a autant de difference
2 août 2008 à 15:15
2 août 2008 à 14:58
Curieux, j'ai re-downloadé mon post dans un emplacement différent et j'ai recompilé l'appli, et je n'ai pas ce problème, j'ai efectivement 1 dollar et des brouettes pour 1 euro...
C'est écrit avec VB7, je n'ai pas essayé en VB 2005 Express, peut-être y a-t-il là une bizarrerie...
Je regarde ça et agis en conséquence, (c'est pas une machine qui va me ... non mais !!!)
8-P
2 août 2008 à 14:46
et ça fonctionne , mais l'information est elle bien formatée ou faut il le configurer ??
USD ($)155691,00000 /EURO??? c'est quoi
ne serait ce pas plutot 1,55691 /1 Euro???
n'y aurait il pas un problème d'affichage ou de calcul ???
je dois dire que si tu trouves un banquier te donnant 155691$ pour 1 euro il fera faillite assez rapidement
heu si c'est moi qui n'aie rien compris fais le moi savoir
2 août 2008 à 14:26
2 août 2008 à 14:04
Normal, ça ne passe qu'à partir de 1024 x nnnn; le problème se trouve en ligne 725 et suivantes : en 800, COPYRIGHT_TEXT ne doit pas excéder 25 caractères;
il faut remplacer la séquence
I = (CTL_CTR - 26) \ 2
'
'/* cadrage centré du copyright text */
COPYRIGHT_TEXT = (StrDup(I, "n") & .....
par
COPYRIGHT_TEXT = "XYZ" '(25 caractères maxi en 800 x nnn
I = (CTL_CTR - COPYRIGHT_TEXT.Length) \ 2
'
'/* cadrage centré du copyright text */
COPYRIGHT_TEXT = (StrDup(I, "n") & COPYRIGHT_TEXT).PadRight(CTL_CTR, "l")
et ça passe ...
je fais la mise à jour du zip
a+
2 août 2008 à 09:52
2 août 2008 à 09:28
1 août 2008 à 22:00
Tu as quoi comme résolution d'écran ?
1 août 2008 à 16:46
System.ArgumentException was unhandled
Message="L'argument 'Number' doit être supérieur ou égal à zéro."
Source="Microsoft.VisualBasic"
StackTrace:
à Microsoft.VisualBasic.Strings.StrDup(Int32 Number, String Character)
à WallStreet.FRM_WALLSTREET.CREATE_FORM_CONTROLS()
à WallStreet.FRM_WALLSTREET.INITIALIZE()
à WallStreet.FRM_WALLSTREET.FRM_WALLSTREET_Load(Object sender, EventArgs e)
à System.Windows.Forms.Form.OnLoad(EventArgs e)
à System.Windows.Forms.Form.OnCreateControl()
à System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
à System.Windows.Forms.Control.CreateControl()
à System.Windows.Forms.Control.WmShowWindow(Message& m)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.ScrollableControl.WndProc(Message& m)
à System.Windows.Forms.ContainerControl.WndProc(Message& m)
à System.Windows.Forms.Form.WmShowWindow(Message& m)
à System.Windows.Forms.Form.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
à System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow)
à System.Windows.Forms.Control.SetVisibleCore(Boolean value)
à System.Windows.Forms.Form.SetVisibleCore(Boolean value)
à System.Windows.Forms.Control.set_Visible(Boolean value)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
à System.Windows.Forms.Application.Run(Form mainForm)
à WallStreet.FRM_WALLSTREET.Main()
à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading.ThreadHelper.ThreadStart()