Programm läuft nicht auf anderen Rechner

Feet · 19. September 2010, 13:03

Hallo liebe Gemeinde,

ich habe ein kleines Programm zusammengestückelt mit Microsoft Visual Basic 2010.
Auf den 2 Rechnern ( Windows Vista und XP) wo ich Visual Basic installiert habe läuft mein Programm auch und es macht genau das was es soll.
Jetzt möchte ich es aber auf einen anderen Rechner( Windows Vista ) laufen lassen ohne Visual Basic zu installieren.

Dabei bekomme ich immer eine Fehlermeldung das mein Programm nicht mehr Funktioniert. Jedoch kommt die Meldung direkt nach dem Doppelklick auf die *.exe Datei. Ich sehe nicht mal das Fenster in dem mein Programm ausgeführt wird, sondern es kommt nur diese Fehlermeldung. Das neuste .Net Framework habe ich natülich auf den Rechner aufgespielt.

Kann mir einer einen Tipp geben woran es liegen kann, muss ich noch irgendwelche Bibo´s mit kopieren oder sollten die Programme eigentlich lauffähig sein???

MFG Feet.

Kangaroo · 19. September 2010, 13:09

Feet schrieb:

mit Microsoft Visual Basic 2010

Auch wenn es Semantik ist: die IDE heisst Visual Studio 2010, die dort benutzte Visual Basic Version ist VB 9. Diese muss/kann man auch nicht auf einem anderen Rechner installieren.

Feet schrieb:

Dabei bekomme ich immer eine Fehlermeldung das mein Programm nicht mehr Funktioniert

Dann solltest Du mal einen Screenshot von dieser Fehlermeldung einblenden, denn die wird schon etwas mehr aussagen als das das Programm "nicht funktioniert".

Feet schrieb:

muss ich noch irgendwelche Bibo´s mit kopieren

Wenn Du damit Bibliotheken/Libraries meinst: es muss auf jeden Fal die richtige Framework-Version installiert sein, und nicht nur die neueste (FW 4.0). Ansonsten können auch je nach Deinem Programm andere Libraries fehlen, aber darüber gibt die Fehlermeldung Aufschluss.

paulkoch95 · 19. September 2010, 13:19

Oder es kann sein das du in deinem "Zusammengestückelten" Programm irgendeine .dll bneutzt hat die für die Aszführung verantwortlich/wichtig ist.
Ich schliesse mich ausserdem meinem vorredner, denn du solltest unbedingt ein Bild von der Fehlermldung posten!

mfg paulkoch95

Feet · 19. September 2010, 13:28

Ok, ich mach ein Bildchen und poste dieses dann. Muss erst zu dem anderen Rechner fahren um das Bild zu machen.

Kangaroo · 19. September 2010, 13:29

Feet schrieb:

Muss erst zu dem anderen Rechner fahren um das Bild zu machen

... oder lass Dir diesen Text vorlesen und poste ihn dann dem Wortlaut nach.

Feet · 19. September 2010, 16:16

So hier die Bilder. Das Oberste ist die Meldung die sofort nach dem Starten des Programms erscheint.
Die untere Meldung kommt nach ein paar Sekunden...

bilder-space.de/show_img_test.…-1284905654.jpg&size=view

Feet · 19. September 2010, 18:05

Ich habe hier nochmal den Quelltext eventuell sieht ja der Eine oder Andere was.

VB.NET-Quellcode

Option Explicit On
Imports System.Threading
Imports System.IO.Ports.SerialPort
Public Class Form1
Dim len_txt As Integer 'Textlänge
Dim _Loop As Byte 'Loop_Flag
' Dim zeile As Integer
Dim Text1 As String
Dim Text2 As String
Dim text3 As String
Dim max_kanal As Integer
Dim pos1 As Integer
Dim count As Integer
Dim wait_time As Integer
Private WeiterGehts As Boolean = False
Private ms As Integer
Dim r As String
Dim chan_nr As Integer
Dim Mod_nr As Integer
Dim buf As Byte()
Dim returnStr As String = ""
Dim aa As Integer
Dim bb As Integer
Private Property Wert As Integer
Private Property Size_ As Integer
Function ReceiveSerialData() As String
Try
SerialPort1.ReadTimeout = 100
Dim Incoming As String = ""
Incoming = SerialPort1.ReadByte()
returnStr = Incoming
Catch ex As TimeoutException
returnStr = ""
Finally
End Try
Return returnStr
End Function
<Runtime.InteropServices.DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As Int32) As Short
End Function
Public Sub Wartezeit(ByVal Millisekunden As Integer)
ms = Millisekunden '* 10
WeiterGehts = False
Dim T As Thread = New Thread(AddressOf Warten)
T.Start()
Do
Application.DoEvents()
Loop Until WeiterGehts = True
End Sub
'Hier wartet das Programm
Private Sub Warten()
Thread.Sleep(ms)
WeiterGehts = True
End Sub
'Exit
Private Sub Ende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ende.Click
SerialPort1.Close()
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
len_txt = 0
_Loop = 0
max_kanal = 8
wait_time = 300
Size_ = 64
pos1 = 0
'**************************** SCAN FOR COM PORTS *******************************
Dim port As String
Dim ports As String()
ports = IO.Ports.SerialPort.GetPortNames() 'Ports des Rechners ermitteln
For Each port In ports
Try
With SerialPort1
.PortName = port
.ReadTimeout = Int32.Parse(10) 'ReadTimeout in ms
.Open()
End With
Catch es As Exception
Finally
If SerialPort1.IsOpen = True Then
ComboBox1.Items.Add(port)
End If
SerialPort1.Close()
End Try
Next port
'*******************************************************************************
End Sub
Private Sub Button_GO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_GO.Click
Dim old As String
'max_kanal = RTB1.Lines(0).Length
RTB1.SelectAll()
RTB1.SelectionColor = Color.Green
RTB1.SelectionFont = New Font("Arial", 8) ' Markieren der Zeilen
If SerialPort1.IsOpen = False Then
MsgBox("Select Com Port First!", vbInformation, "Com ERROR")
Else
SerialPort1.Write(New Byte() {175, 254}, 0, 2) ' Reset Modul
Do
ReceiveSerialData()
Application.DoEvents()
Loop Until returnStr = "66"
'Wartezeit(1)
'SerialPort1.Write(New Byte() {254}, 0, 1) '
len_txt = RTB1.Lines.Length 'Anzahl der Zeilen bestimmen
If len_txt = 0 Then MsgBox("Keine Daten" & Chr(13) & "Was soll ich machen?", vbCritical, "ERROR")
'For pos0 = 1 To max_kanal ' von 1 bis max. Kanäle
'Text1 = Mid$(RTB1.Lines(0), pos0, 1)
'Text = Mid$(RTB1.Lines(Zeilennummer), Position, Anzahl
'If Text1 = 1 Then TextBox1.Text = pos0 'hier die Printausgabe
'If Text1 = 1 Then SerialPort1.Write(Chr(pos0))
'Wartezeit(wait_time)
'Next
old = "0"
For i = 1 To max_kanal
old = old & "0"
Next
len_txt = len_txt - 1
Do
text3 = Mid$(RTB1.Lines(len_txt), 1, 1)
If text3 = "" Then len_txt = len_txt - 1
Loop Until text3 = "0" Or "1"
Do
For zeile = 0 To len_txt '- 1 ' so oft wie es Zeilen in der Textbox gibt
'RTB1.SelectionCharOffset
RTB1.ScrollToCaret()
RTB1.Select(RTB1.GetFirstCharIndexFromLine(zeile), RTB1.Lines(zeile).Length) ' aktuelle zeile = rot
RTB1.SelectionColor = Color.Red
If zeile = 0 Then
RTB1.Select(RTB1.GetFirstCharIndexFromLine(len_txt), RTB1.Lines(len_txt).Length)
RTB1.SelectionColor = Color.Green
Else
RTB1.Select(RTB1.GetFirstCharIndexFromLine(zeile - 1), RTB1.Lines(zeile - 1).Length)
RTB1.SelectionColor = Color.Green
End If
For ii = 1 To max_kanal ' so oft wie es Zeichen in der Textbox gibt
pos1 = ii
Text1 = Mid$(old, pos1, 1)
Text2 = Mid$(RTB1.Lines(zeile), pos1, 1)
'festlegen des Moduls
If pos1 > 112 Then Mod_nr = 78
If pos1 <= 112 Then Mod_nr = 76
If pos1 <= 96 Then Mod_nr = 74
If pos1 <= 80 Then Mod_nr = 72
If pos1 <= 64 Then Mod_nr = 70
If pos1 <= 48 Then Mod_nr = 68
If pos1 <= 32 Then Mod_nr = 66
If pos1 <= 16 Then Mod_nr = 64
If Text1 <> Text2 Then
If Mod_nr = 64 Then chan_nr = pos1
If Mod_nr = 66 Then chan_nr = pos1 - 16
If Mod_nr = 68 Then chan_nr = pos1 - 32
If Mod_nr = 70 Then chan_nr = pos1 - 48
If Mod_nr = 72 Then chan_nr = pos1 - 64
If Mod_nr = 74 Then chan_nr = pos1 - 80
If Mod_nr = 76 Then chan_nr = pos1 - 96
If Mod_nr = 78 Then chan_nr = pos1 - 112
If Text2 = "1" Then SerialPort1.Write(New Byte() {Mod_nr, chan_nr}, 0, 2)
count = chan_nr + 16
If Text2 = "0" Then SerialPort1.Write(New Byte() {Mod_nr, count}, 0, 2)
For h As Integer = 0 To 100000
Next
'Do
'ReceiveSerialData()
'Application.DoEvents()
'Loop Until returnStr = "65"
End If
Next
old = RTB1.Lines(zeile)
Wartezeit(wait_time) ' Wechselgeschwindigkeit zwischen 2 Zeilen
Next
Loop Until _Loop = 0
End If
End Sub
Private Sub Button_Loop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Loop.Click
If Button_Loop.Text = "Stop" Then
Button_Loop.Text = "Loop"
_Loop = 0
Else
Button_Loop.Text = "Stop"
_Loop = 1
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
SerialPort1.Close()
SerialPort1.BaudRate = 115200
SerialPort1.PortName = ComboBox1.Text
SerialPort1.Open()
If SerialPort1.IsOpen Then
ComboBox1.BackColor = Color.Green
Else
ComboBox1.BackColor = Color.Red
MsgBox("Can't open selected COM Port." & Chr(13) & "Try another one.", vbCritical, "ERROR Open Com")
End If
End Sub
Private Sub speed_plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles speed_plus.Click
wait_time = wait_time + 10
If wait_time > 10000 Then wait_time = 10000
TextBox2.Text = wait_time
Wartezeit(50)
End Sub
Private Sub speed_minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles speed_minus.Click
' If wait_time > 20 Then
wait_time = wait_time - 10
' Else
' wait_time = wait_time - 1
' End If
If wait_time = 90 Then wait_time = 100
TextBox2.Text = wait_time
Wartezeit(50)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
wait_time = TextBox2.Text
If wait_time = 0 Then wait_time = 1
If wait_time > 10000 Then wait_time = 10000
TextBox2.Text = wait_time
Wartezeit(1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
max_kanal = max_kanal + 8
If max_kanal > 128 Then max_kanal = 128
'TextBox1.Text = max_kanal
Label3.Text = max_kanal
Size_ = Size_ + 56 '(max_kanal * 8) - 8
If Size_ > 896 Then Size_ = 896
RTB1.Size = New Size(Size_, 220)
Wartezeit(50)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
max_kanal = max_kanal - 8
If max_kanal < 8 Then max_kanal = 8
'TextBox1.Text = max_kanal
Label3.Text = max_kanal
Size_ = Size_ - 56 '(max_kanal * 8) - 8
If Size_ < 64 Then Size_ = 64
RTB1.Size = New Size(Size_, 220)
Wartezeit(50)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If SerialPort1.IsOpen Then
SerialPort1.Write(New Byte() {175}, 0, 1)
SerialPort1.Write(New Byte() {254}, 0, 1)
Wartezeit(1)
Else
MsgBox("Select Com Port First!", vbInformation, "Com ERROR")
End If
End Sub
Private Sub RTB1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTB1.MouseLeave
RTB1.SelectAll()
RTB1.SelectionColor = Color.Green
RTB1.SelectionFont = New Font("Arial", 8) ' Markieren der Zeilen
End Sub
End Class

singu · 19. September 2010, 18:08

Mit welchem .NET Framework entwickelst du?

Feet · 19. September 2010, 18:16

Version 4.0.30319

Gelöschter Benutzer · 19. September 2010, 18:25

Dann könnte es sein, dass dein anderer Rechner dieses Framework nicht hat.

singu · 19. September 2010, 18:31

Welches Windows läuft auf dem PC auf dem dein Programm nicht geht?

Feet · 19. September 2010, 18:33

Naja, hatte zuerst keine Framework drauf, jedoch kommt dann die Meldung dass die und die Version des .Net Framework benötigt wird und das man diese vom Hersteller bekommt

Nach dem installieren kommt die oben genannte Fehlermeldung.

Mhh ich hab keine Ahnung warum es klemmt.

singu · 19. September 2010, 19:52

Soviel ich weiß gibt es in dem Fenster ein Button namens Details anzeigen, poste mal die Infos die dort drin stehen

Feet · 19. September 2010, 21:09

Gibt es nicht.

guckst du hier: bilder-space.de/bilder/add09d-1284905654.jpg

Das ist alles was an Meldung kommt.

Kulki-See · 19. September 2010, 21:10

Vielleicht hast du nicht genau dieselbe Version auf den beiden Rechner, es wahrscheinlich genau DIE sien mit der du auch entwickelt hast. 8-)

Kangaroo · 19. September 2010, 21:21

Feet schrieb:

Version 4.0.30319

Setze doch Dein verwendetes Framework auf 2.0 herab, das sollte mittlerweile auf jedem Windows Rechner installiert sein. Oder gibt es einen Grund der dagegen spricht ?

Zu den Fehlermeldungen: die sind nun wirklich absolut nutzlos - Microsoft wie wir es kennen und (nicht) lieben ...

Edit: mal geschaut ob eventuell in der Ereignisanzeige des anderen Rechners mehr drinsteht ? (Man darf ja mal hoffen)

Feet · 20. September 2010, 13:50

Ich habe nochmal probiert und gemacht, jedoch ohne Erfolg.
Habe das Zielframework auf 2.0 geschraubt und es kommt immer noch ein Fehler beim ausführen.

Wie gesagt, auf 2 Rechner läuft es jedoch ist auf diesen auch Visual Basic drauf.

Windows XP zeigt etwas mehr Fehler an als Vista

Feuergott · 11. März 2012, 19:21

HUHU

mal ne frage kennt einer mitlerweile hier ne antwort oder weis wo man diese findet??

Programm läuft nicht auf anderen Rechner

Programm läuft nicht auf anderen Rechner

Feet schrieb:

Feet schrieb:

Feet schrieb:

Feet schrieb:

VB.NET-Quellcode

Feet schrieb:

Für die nachwelt

Ähnliche Themen

2 Benutzer haben hier geschrieben