Comment etre sur qu'un programme marchera sur un autre poste ?

**Selve** · 20/01/2013, 17h52

Bonjour a tous !

J'ai fait un logiciel pour apprendre le comptage de carte au blackjack qui fonctionne bien

sur mon poste ( Windows 7 )
Mais quand je l'installe sur un poste windows xp ca ne marche pas : le programme s'installe et télécharge le framework4 automatiquement mais plante a l'éxécution

J'ai ça comme message :

Qui peux m'aider ??

**wallace1** · 20/01/2013, 19h45

Perso je te recommande l installation d une machine virtuelle sous XP afin de deboguer depuis ton EDI . Moi j utilise vmware avec le plugin qui permet de deboguer dans une VM ainsi j obtiens des applis fonctionnelles sous different noyau ou differents OS.

Si tu ne connais pas la virtualisation ou si ta config pc ne te le permet pas alors il faudra envisager autre chose......

Cdt shp

**Pol63** · 20/01/2013, 19h56

ca plante direct au démarrage (veut surement dire qu'un truc manque) ou un peu après (souvent un bug dans le code) ?

**Selve** · 21/01/2013, 10h43

Merci pour vos réponses !
Malheureusement, je ne vois pas pourquoi je devrais créer une machine virtuelle alors que j'en ai un vraie.
Pour le bug dans mon programme , c'est bien possible mais il fonctionne bien sur mon windows 7 et pas sur mon windows XP (SP3).
Mon but étant de le distribuer, je ne peux pas savoir s'il va marcher sur d'autres machines et de ce fait me bloque pour réaliser d'autres programmes sous .net, mais ça me chagrine de rester sous vb6 (ce programme en vb6 fonctionne sur toutes les machines)

**Pol63** · 21/01/2013, 10h59

Envoyé par Selve

Malheureusement, je ne vois pas pourquoi je devrais créer une machine virtuelle alors que j'en ai un vraie.

toutes les réponses ici ne sont pas forcément correctes ou applicables à tous ^^
l'idée de départ est bonne c'est de débugger le programme via visual studio

Envoyé par Selve

Pour le bug dans mon programme , c'est bien possible mais il fonctionne bien sur mon windows 7 et pas sur mon windows XP (SP3).
Mon but étant de le distribuer, je ne peux pas savoir s'il va marcher sur d'autres machines et de ce fait me bloque pour réaliser d'autres programmes sous .net, mais ça me chagrine de rester sous vb6 (ce programme en vb6 fonctionne sur toutes les machines)

le problème n'est pas là
pour qu'un programme vb6 fonctionne il faut que le runtime et les dll nécessaires soient présents sur la machine
c'est pareil pour .net, il faut le bon framework et les dll tierces le cas échéant.
il est possible de faire un setup qui contient le framework qu'on vise
le framework 4 fonctionne sur win xp sp3
après comme sous vb6 on peut faire des bugs dans le code, et un bug peut parfois faire que le programme marche sur un pc et pas un autre (les conversions numériques utilisent les paramètres régionaux de windows)

en résumé ce qu'il te faut c'est logger les erreurs de ton programme pour les analyser
les try catch permet d'intercepter les erreurs (il en faut quasiment partout), après tu peux t'envoyer les détails par mail et faire des mises à jour
c'est comme ca que fonctionnent la plupart les applis y compris sur les app store, il y a des mises à jour correctives au fur et à mesure que les bugs sont découverts ...
il faut aussi que tu testes ton programmes sur les différents os et hors visual studio pour vérifier le comportement (c'ests pour ca qu'il parlait de machine virtuel, ca permet d'avoir plusieurs pc en un et avec des os différents)

**Selve** · 21/01/2013, 14h36

@Pol63 :

Merci pour la réponse , mais j'ai déjà essayé sur virtualbox et le probleme est identique. Sur Ma machine XP réelle ( mon portable ) le framework4 est installé.La question est comment puis déboguer un programme qui ne démarre pas sur une machine Le code n'est pas très compliqué et il marche sur ma machine windows 7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
Imports VBCards
 
Public Class Form1
    Private Structure UneCarte
        Dim Couleur() As Integer
        Dim Hauteur() As Integer
        Dim Valeur As Integer
    End Structure
    Private Compte As Integer
    Dim Cartes(52) As UneCarte
    Dim MonCompte, Carte(), Erreurs As Integer
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Pique ,Carreau,Trefle,Coeur
        NumericUpDown_nbrJeux.Value = My.Settings.NbrJeux
        ReDim Carte((NumericUpDown_nbrJeux.Value * 52) - 1)
        NumericUpDown_cartesmax.Value = My.Settings.Max_Cartes
        ComboBox2.Text = My.Settings.Systeme
        If ComboBox2.Text = "K-O" Then
            MonCompte = -4 * NumericUpDown_nbrJeux.Value
        End If
        DeclareValeurs()
        InitCartes()
        lblValeurCarte.Text = "0"
        lblMoncompte.Text = MonCompte.ToString
        lblCompte.Text = Compte.ToString
        DisableBouton()
    End Sub
 
    Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown_nbrJeux.ValueChanged
        ReDim Carte(NumericUpDown_nbrJeux.Value * 52 - 1)
        InitCartes()
        lblValeurCarte.Text = "0" 'Valeur
        lblMoncompte.Text = "0" ' MonCompte
        lblCartesRestantes.Text = ListBox1.Items.Count.ToString ' Cartes restantes
        DisableBouton()
        InitCompte()
    End Sub
 
    Private Sub DeclareValeurs()
        Dim i As Integer
        For i = 2 To 6
            Cartes(i).Valeur = 1
            Cartes(i + 13).Valeur = 1
            Cartes(i + 26).Valeur = 1
            Cartes(i + 39).Valeur = 1
        Next
        For i = 10 To 13
            Cartes(i).Valeur = -1
            Cartes(i + 13).Valeur = -1
            Cartes(i + 26).Valeur = -1
            Cartes(i + 39).Valeur = -1
        Next
        Cartes(1).Valeur = -1
        Cartes(14).Valeur = -1
        Cartes(27).Valeur = -1
        Cartes(40).Valeur = -1
        For i = 7 To 9
            Cartes(i).Valeur = 0
            Cartes(i + 13).Valeur = 0
            Cartes(i + 26).Valeur = 0
            Cartes(i + 39).Valeur = 0
        Next
        If ComboBox2.Text = "K-O" Then
            Cartes(7).Valeur = 1
            Cartes(20).Valeur = 1
            Cartes(33).Valeur = 1
            Cartes(46).Valeur = 1
        End If
    End Sub
 
    Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
        Efface()
        Dim i, Nbrdecartes As Integer
        Dim k As New Random       
        i = Val(sender.text)
        MonCompte += i
        If lblValeurCarte.Text <> sender.Text Then
            Timer1.Stop()
            MsgBox("Erreur")
            Erreurs += 1
        End If
        If ListBox1.Items.Count = 0 Then
            Timer1.Stop()
            MsgBox("Vous avez fait " & Erreurs & " erreur(s)")
            DisableBouton()
            Exit Sub
        End If
        Nbrdecartes = k.Next(NumericUpDown_cartesmax.Value) + 1
        i = TireCarte(Nbrdecartes)
        lblMoncompte.Text = MonCompte.ToString
        lblCartesRestantes.Text = ListBox1.Items.Count.ToString
        lblValeurCarte.Text = i.ToString ' Nbrdecartes.ToString
        lblCompte.Text = Compte.ToString     
    End Sub
 
    Private Sub btnMelange_Click(sender As System.Object, e As System.EventArgs) Handles btnMelange.Click
        Dim NbrdeCartes As Integer
        Dim k As New Random
        lblTimes.Text = "0"
        Timer1.Start()
        Efface()
        InitCartes()
        EnableBouton()
        'Button10.Text = "Melange"
        If ComboBox2.Text = "K-O" Then
            Compte = -4 * NumericUpDown_nbrJeux.Value
        Else : MonCompte = 0
        End If
        MonCompte = Compte
        NbrdeCartes = k.Next(NumericUpDown_cartesmax.Value) + 1
        MonCompte = TireCarte(NbrdeCartes)
        lblValeurCarte.Text = MonCompte.ToString  ' Cartes(NumericUpDown_cartesmax.Value).Valeur
        lblCompte.Text = Compte.ToString
        lblCartesRestantes.Text = ListBox1.Items.Count.ToString
    End Sub
 
#Region "Pocedures finies"
    Private Sub InitCartes()
        Dim i, j As Integer
        ListBox1.Items.Clear()
        For i = 1 To NumericUpDown_nbrJeux.Value * 52
            j = i Mod 52
            If j = 0 Then j = 52
            ListBox1.Items.Add(j.ToString)
        Next
        If ComboBox2.Text = "K-O" Then
            MonCompte = -4 * NumericUpDown_nbrJeux.Value
            Compte = MonCompte
        End If
        Erreurs = 0
    End Sub
 
    Private Sub Efface()
        PictureBox1.Image = Nothing
        PictureBox2.Image = Nothing
        PictureBox3.Image = Nothing
        PictureBox4.Image = Nothing
    End Sub
 
 
    Private Sub EnableBouton()
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        Button8.Enabled = True
        Button9.Enabled = True
    End Sub
 
    Private Sub DisableBouton()
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        Button8.Enabled = False
        Button9.Enabled = False
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        InitCompte()
        DisableBouton()
        DeclareValeurs()
    End Sub
 
    Private Sub InitCompte()
        Efface()
        InitCartes()
        btnMelange.Text = "Melange"
        If ComboBox2.Text = "K-O" Then
            MonCompte = -4 * NumericUpDown_nbrJeux.Value
        Else : MonCompte = 0
        End If
        lblMoncompte.Text = MonCompte.ToString
    End Sub
 
    Private Sub Form1_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        My.Settings.Max_Cartes = NumericUpDown_cartesmax.Value
        My.Settings.NbrJeux = NumericUpDown_nbrJeux.Value
        My.Settings.Systeme = ComboBox2.Text
    End Sub
#End Region
 
    Private Function TireCarte(ByVal Nbrdecartes As Integer)
        Dim Rdn As New Random
        Dim I, J As Integer
        Select Case Nbrdecartes
            Case 1
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox1.Image = AxDeck1.Picture
 
            Case 2
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox1.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox2.Image = AxDeck1.Picture
 
            Case 3
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox1.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox2.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox3.Image = AxDeck1.Picture
            Case 4
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox1.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox2.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    ' DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox3.Image = AxDeck1.Picture
 
                If ListBox1.Items.Count = 0 Then
                    'DisableBouton()
                    Return I
                    Exit Function
                End If
                J = Rdn.Next(ListBox1.Items.Count)
                AxDeck1.ChangeCard = ListBox1.Items.Item(J)
                ListBox1.Items.RemoveAt(J)
                I += Cartes(AxDeck1.ChangeCard).Valeur
                PictureBox4.Image = AxDeck1.Picture
        End Select
        Return I
    End Function
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Temps As Integer
        Temps = CInt(lblTimes.Text)
        Temps += 1
        lblTimes.Text = Temps.ToString
    End Sub
End Class

**Pol63** · 21/01/2013, 14h47

à vu de nez tu utilises un activeX dans ton programme
outre le fait que c'est une mauvaise idée, il faut qu'il soit installé et registré sur les machines

**Selve** · 21/01/2013, 15h13

Les fichiers livrés sont là

Le fichier interop.vbcards.dll est dans le dans le kit extension de vb2010

**Pol63** · 21/01/2013, 15h20

tente un regsvr32 "le chemin de vbcards.dll" et relances le programme pour voir s'il y a du mieux ...

**Selve** · 21/01/2013, 19h23

Je vais le chercher où ce vbcards.dll ?

Je ne le trouve pas nulle part

J'ai vbcards.ocx sur mes 2 ordinateurs

et pourquoi n'est t'il pas dans l'installation ?

**Pol63** · 21/01/2013, 21h24

essaye le regsvr32 "le chemin de l'ocx" alors

**Selve** · 22/01/2013, 11h35

Bonjour
Ce fichier est déjà enregistré vu qu'il fonctionne en vb6
Dans la liste des fichiers déployés j'ai les fichiers "AxInterop.VBCards.dll.deploy" et "Interop.VBCards.dll.deploy"

Je crois que ça ne doit pas etre compatible Windows XP

De toute façon si on veut distribuer un programme il faut que l'installation soit automatique

**Bluedeep** · 22/01/2013, 12h34

Les postes W7 et XP sont tous les deux des machines en 32 Bits ?

Sinon, comme mentionné déjà, c'est une mauvaise idée d'utiliser un ActiveX.

**Selve** · 22/01/2013, 17h33

Oui les 2 sont 32 bits

Je l'ai trouvée dans le kit de développement de vb2010

**Bluedeep** · 22/01/2013, 17h48

Envoyé par Selve

Oui les 2 sont 32 bits

Je l'ai trouvée dans le kit de développement de vb2010

Et si depuis 7, tu lances l'exécution en mode de compatibilité XP, ça donne quoi ?

Si ca marche, c'est que c'est un problème sur ta machine XP (ActiveX ou autre chose).
Si ca ne marche pas, c'est que c'est un problème avec ton application (utilisation d'une feature inexistante en XP).

Envoyé par Selve

Je n'ai pas accès à tes liens depuis mon bureau. Ils sont refusés par le proxy.

**Selve** · 22/01/2013, 18h12

C'est sur XP que ca ne va pas

**Bluedeep** · 22/01/2013, 18h13

Envoyé par Selve

C'est sur XP que ca ne va pas

Tu as essayé la manip que je te préconise ? ta réponse imprécise laisse le doute.

**Selve** · 22/01/2013, 18h36

Quand c'est installé sur mon poste windows 7, je n'ai qu'un raccourci sur le bureau

Type de fichier :Référence de l'application ClickOnce (.appref-ms) et pas d'option d'éxécution en mode admin
Description : Blackjack_Trainer

**genesys** · 23/01/2013, 14h43

la version du framework sous lequel tu as développé ton code n'est pas forcément installée sur tous les systèmes d'exploitation
Windows 7 : .net 3.5
Vista : 2.0 et 3.0
XP : niet
il faut juste installer le redist du framework utlilsé
http://en.wikipedia.org/wiki/Microsoft_.NET#Versions

**genesys** · 23/01/2013, 14h51

un article qui pourrait t'aider
http://www.codeproject.com/Articles/...T-Framework-ve

Comment etre sur qu'un programme marchera sur un autre poste ?

VB.NET

Discussions similaires

Partager

Partager