RKS+CAN Adapter für CAN-Bus Sniffing
CAN-Interface
Info und Bestellung
CANhack.de - CAN Hardware, CAN Software, CAN Protokolle - Das CAN-Bus Forum.

VB Programm Drehzahlsimulation Fehler


FehlerdatenbankSuchen  LesezeichenLesezeichen  Garage - FahrzeugeGarage  InfoFAQ, Impressum & Datenschutz
RSS-NewsfeedRSS-Newsfeed  RegistrierenRegistrieren  LoginLogin
 
Neues Thema beginnen   Auf Beitrag antworten      Weitergeben, Thema teilen   Lesezeichen setzen   Druckansicht    CANhack.de - Übersicht » CANhack.de CAN-USB System: RKS+CAN Vorheriges Thema anzeigen :: Nächstes Thema anzeigen
Autor Nachricht
dunt
Hacker
Hacker


CAN Hacker seit: 06.11.2015
Beiträge: 11
Karma: +0 / -0   Danke, gefällt mir!


Premium Support

Beitrag19-11-2015, 19:04    Titel: VB Programm Drehzahlsimulation Fehler Antworten mit Zitat

Hallo wollte mir ein kleines VB .NET Programm schreiben das die Drehzahl Bei NEC 24c32/64 VDO Tachos simuliert. Also Passat 3c, Golf 6 T5.2 Tachos usw.

Es funktioniert aber leider nur 4-5 sec. lang dann passiert nichts mehr! Die LED blinkt dann rot/grün. Wahrscheinlich habe ich einen Fehler im Programm. Hat jemand Erfahrung damit?


mein Code:
Code:

Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel
Public Class Form1
    Dim myPort As Array
    Dim valuehex As String
    Dim x280 As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myPort = IO.Ports.SerialPort.GetPortNames() 'Array mit den COM Ports füllen
        ComboBox1.Items.AddRange(myPort) 'Array in Combo Box laden
        Timer1.Start() 'timer 1 Starten
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'open Button
        Try
            SerialPort1.PortName = ComboBox1.SelectedItem
            SerialPort1.Open() 'Serial Port 1 öffnen
            Button2.Enabled = True
            Button1.Enabled = False
            SerialPort1.Write("S6" & vbCr) 'RKS CAN auf 500hBit/s
        Catch ex As Exception
            MsgBox("Bitte COM-Port auswählen!")
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'close Button
        Timer1.Stop()
        SerialPort1.Write("C" & vbCr) 'CAN Channal schliesen
        SerialPort1.Close()
        Button1.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If SerialPort1.IsOpen Then 'abfragen ob Serial Port geöffnet ist
            If TrackBar1.Value > 0 Then
                'Trackbar Value in drehzahl umrechnen
                valuehex = Hex(TrackBar1.Value * 4)
                If valuehex.Length = 1 Then
                    valuehex = "000" & valuehex
                ElseIf valuehex.Length = 2 Then
                    valuehex = "00" & valuehex
                ElseIf valuehex.Length = 3 Then
                    valuehex = "0" & valuehex
                End If

                x280 = "t28080000" & Mid(valuehex, 3, 4) & Mid(valuehex, 1, 2) & "00000000" 'komplette Can Message zusammenbauen

                'CAN Message senden
                SerialPort1.Write("O" & vbCr)
                Threading.Thread.Sleep(5)
                SerialPort1.Write(x280 & vbCr)
                Threading.Thread.Sleep(5)
                SerialPort1.Write("C" & vbCr)

                Label3.Text = TrackBar1.Value & " U/min"
            End If
        End If
    End Sub

End Class


Zuletzt bearbeitet am 19-11-2015, 19:12, insgesamt 3-mal bearbeitet.
Nach oben
CAN Hacker - Profil anzeigen Private Nachricht senden Gehe in Dein Profil um mehr über die Verlinkung Deiner Webseite zu erfahren.  
CAN-Diagnose
Administrator
Administrator
Avatar-CAN-Diagnose

CAN Hacker seit: 07.06.2011
Beiträge: 392
Karma: +15 / -0   Danke, gefällt mir!
Wohnort: Ländle



Beitrag20-11-2015, 13:31    Titel: VB Programm Drehzahlsimulation Fehler Antworten mit Zitat

Hi,

Dein Fehler liegt vermutlich in...

Code:

SerialPort1.Write("O" & vbCr)
Threading.Thread.Sleep(5)
SerialPort1.Write(x280 & vbCr)
Threading.Thread.Sleep(5)
SerialPort1.Write("C" & vbCr)


Grund: Leider wertest Du nicht die Rückgabecodes der Open/Close/Send Befehle aus. Das Öffnen und Schliessen der CAN Schnittstelle kann etwas dauern.
Vermutlich kommt bei dem ganzen Öffnen/Schliessen irgendwann ein Betriebsstatus, wo offen ist und nochmal geöffnet werden soll etc. und ab da passiert nur noch Unsinn.

Richtige Vorgehensweise wäre:
- Open (O), nachdem am CAN die richtige Bitrate eingestellt wurde.
- Danach nur CAN Nachrichten senden/empfangen.
- Wenn sich Dein Programm beendet oder andere Parameter eingestellt werden sollen, vorher CAN schliessen (C) und kurz warten.

Mein Vorschlag wäre folgendes,

Ersetze
Code:
SerialPort1.Write("S6" & vbCr) 'RKS CAN auf 500hBit/s

durch
Code:

SerialPort1.Write("C" & vbCr)
Threading.Thread.Sleep(50)
SerialPort1.Write("S6" & vbCr) 'RKS CAN auf 500kBit/s
SerialPort1.Write("O" & vbCr)


Ersetze
Code:

'CAN Message senden
SerialPort1.Write("O" & vbCr)
Threading.Thread.Sleep(5)
SerialPort1.Write(x280 & vbCr)
Threading.Thread.Sleep(5)
SerialPort1.Write("C" & vbCr)

durch
Code:

'CAN Message senden
SerialPort1.Write(x280 & vbCr)


Viele Grüße, Rainer
Dipl.-Ing. (FH) Rainer Kaufmann - Kaufmann Automotive GmbH
CAN-Bus Interface kaufen: CAN auf USB, CANhack.de CAN-Interface


Zuletzt bearbeitet am 21-11-2015, 11:27, insgesamt 10-mal bearbeitet.
Nach oben
CAN Hacker - Profil anzeigen Private Nachricht senden Website dieses Benutzers besuchen  
CAN-Diagnose
Administrator
Administrator
Avatar-CAN-Diagnose

CAN Hacker seit: 07.06.2011
Beiträge: 392
Karma: +15 / -0   Danke, gefällt mir!
Wohnort: Ländle



Beitrag21-11-2015, 11:26    Titel: VB Programm Drehzahlsimulation Fehler Antworten mit Zitat

Lieber Leser, Du hast keine ausreichenden Rechte um weiter zu lesen, bitte melde Dich an.
Dipl.-Ing. (FH) Rainer Kaufmann - Kaufmann Automotive GmbH
CAN-Bus Interface kaufen: CAN auf USB, CANhack.de CAN-Interface


Zuletzt bearbeitet am 21-11-2015, 11:27, insgesamt 1-mal bearbeitet.
Nach oben
CAN Hacker - Profil anzeigen Private Nachricht senden Website dieses Benutzers besuchen  

Bewertungen - VB Programm Drehzahlsimulation Fehler

Durchschnittsbewertung: 0,00 - schlechteste Bewertung: 0 - beste Bewertung: 0 - Anzahl der Bewertungen: 0 - Bewertungen ansehen

Danke sagen Du bist nicht dazu autorisiert dieses Thema zu bewerten.
Neues Thema beginnen   Auf Beitrag antworten      Weitergeben, Thema teilen   Lesezeichen setzen   Druckansicht    CANhack.de - Übersicht » CANhack.de CAN-USB System: RKS+CAN Seite 1 von 1
Ähnliche Fachartikel und Themen
Thema Community Bereich
Keine neuen Beiträge Can-Bus Fehler eliminieren CAN-Bus Allgemein
Keine neuen Beiträge C220 CDI Sportcoupé SRS Fehler Fahrzeugspezifische Hardware und Pinbelegungen
Keine neuen Beiträge CAN-BUS Fehler? Bitte helft mir :(( Innenraum- / Komfort CAN
Keine neuen Beiträge Fehler bei Treiberinstallation Win7 gelöst CANhack.de CAN-USB System: RKS+CAN
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst Deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst Deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum herunterladen.