WALL STREET V6 MISE À JOUR ET REFONTE

Commentaire de gillardg le 01/08/2008 16:46:23

au démmarrage de l'appli j'ai ce message

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()

Commentaire de gillardg le 02/08/2008 09:28:20

800 x 600

Commentaire de Blodox le 02/08/2008 14:04:24

GILLARDG :
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+

Commentaire de gillardg le 02/08/2008 14:46:23

j'ai corrigé comme indiqué ici^^    .....
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

Commentaire de gillardg le 02/08/2008 15:15:58

mdr j'ai pas regardé le code je vais voir aussi =)

Commentaire de gillardg le 02/08/2008 15:21:17

mais franchement je ne comprends pas pourquoi tu t'obstines à vouloir utiliser PlaySound Lib "winmm.dll"
en .net il y a plus simple :
        My.Computer.Audio.Play("sound.wav", AudioPlayMode.Background)

Commentaire de gillardg le 02/08/2008 15:48:47

j'ai éssayé de bricoler mais ....
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)

Commentaire de gillardg le 02/08/2008 16:07:50

possible mais en interne vb traite les nombres avec un point comme décimale .
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

Commentaire de gillardg le 02/08/2008 17:43:33

tu te met au .net PCPT ?  
      System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator.ToString() '= ,        System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberGroupSeparator.ToString() ' = .



bonjour chez vous

Commentaire de gillardg le 02/08/2008 19:08:43

faut t'y mettre chaque fois que je vois une de tes sources je fais un gros juron parce que c'est du vb6.

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)

Commentaire de Blodox le 03/08/2008 05:05:50

... au fait :
My.Computer.Audio.Play(WRK_SND, AudioPlayMode.Background)

pas en VB7
(à moins que j'aie loupé un imports quelconque....)

Commentaire de gillardg le 03/08/2008 10:39:07

ah vb7 non il y a beaucoup de nouvelle fonctions dans le framework 2

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  :))

Commentaire de gillardg le 03/08/2008 12:54:16

j'ai trouvé ce qui ne fonctionnait pas ,
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

Commentaire de gillardg le 03/08/2008 22:13:36

Private Function GetRate1(ByVal S As String) As String
        '/* 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

Commentaire de gillardg le 03/08/2008 22:15:20

  Private Sub LOAD_MSG()
        '
        '/* 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
    '

Commentaire de Blodox le 03/08/2008 22:21:17

OK, je teste chez moi (j'ai bien du faire ça pour une bonne raison... je vais trouver l'expli (s'il en est une, sinon faut que je prenne des vacances passque j'm'ai embrouillé qq part) faut que je me relise ...¥¤$...)

Commentaire de PCPT le 03/08/2008 22:47:25 administrateur CS

c'est quoi cette fonction GetRate2 ?
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

Commentaire de Blodox le 04/08/2008 03:20:19

PS: PCKC-> "décocher la compatibilité dans les options du projet" , c'est où ça ?
Entre parenthèses, je planche, à dessein, sur les modifications suggérées, mais j'ai eu des surprises ent mid et .substring ...

Commentaire de PCPT le 04/08/2008 11:57:23 administrateur CS

sur vos arguments de 1 à 10, seuls les 8 et 9 pourraient m'amuser ^^
pour les autres je ne les approuve pas tous

ps : je n'ai pas regardé la source

Commentaire de us_30 le 04/08/2008 21:16:54

Hum... les points 3,4 et 11, sont des équivalents. C'est donc l'idée clé : Le futur, Le progrès... et au vu de ce merveilleux avenir que nous réserve Microsoft, je rajouterais encore un point :

12. Faire du VB.NET c'est s'habituer à changer, pour les futurs changements de VB.NET...

Amicalement,
Us.