[Erklärung?]Variable auf Änderung prüfen

DannyDee · 14. August 2013, 16:18

Halli-Hallö'chen Leute,

Ich hab ein Problem. Und zwar lese ich in meinem Projekt momentan alle 50ms per Timer den Status eines Schalters aus. Das permanente Auslesen möchte ich beibehalten ,jedoch möchte ich ,dass nur bei Änderung der Variable ein Counter as Integer +1 gezählt wird.
Diesbezüglich habe ich ein wenig rumgegooglet und folgendes gefunden :

Spoiler anzeigen

Ich habe diesen Code Testweise in eine Testform eingebettet und es mal ausprobiert, jedoch wird dort das Event ja durch Button_click ausgelöst und nicht weil sich die Variable ändert.

Ich wollte euch deswegen Fragen ob ihr mir diese Funktion/diesen Code mal genauer erklären könnt ,damit ich dahitner steige was dort genau vorgeht.
Wäre super nett. Ich will diesen Code nur verstehen. Mir wäre es schon eine Hilfe wenn ihr mir sagt, ob dieser Code im Prinzip das ist ,was ich für meien Umstände brauche.

Mit freundlichen Grüßen ,
Danny der Dee

xtts02 · 14. August 2013, 16:27

Dafür gibt es ein Interface

sonne75 · 14. August 2013, 16:28

Beim Setzen (Set) der Variable wird ein Event ausgelöst, egal, ob der Wert sich geändert hat oder nicht.

Ich finde das Ganze für dein Vorhaben viel zu kompliziert. Wieso googelst du nach Lösungen und denkst nicht selbst nach?

Du willst einen neuen Wert mit dem vorherigen vergleichen und bei Änderung einen Counter erhöhen.
Dann speichere dir doch jedes Mal den alten Wert separat ab und vergleiche ihn mit dem neuen. Bei Änderung erhöhst du den Counter.

VB.NET-Quellcode

Dim old_var As .... 'was auch immer der Typ ist
Dim counter As Integer
Sub ..Timer-Event..
var=GetSchalterStatus()
If old_var<>var Then counter=counter+1
old_var=var

EaranMaleasi · 14. August 2013, 16:35

Wovon reden wir hier? einen Schalter als Control? oder i-was externes?

DannyDee · 14. August 2013, 16:40

sonne75 schrieb:

Ich finde das Ganze für dein Vorhaben viel zu kompliziert. Wieso googelst du nach Lösungen und denkst nicht selbst nach?

Du willst einen neuen Wert mit dem vorherigen vergleichen und bei Änderung einen Counter erhöhen.
Dann speichere dir doch jedes Mal den alten Wert separat ab und vergleiche ihn mit dem neuen. Bei Änderung erhöhst du den Counter.

A: weil ich nach reiflichem Überlegen nicht darauf kam.
B: so hatte ich es dann auch versucht zu lösen ,doch ich bleibe gerade irgendwie mit den Gedanken in einer Sackgasse stecken.

EaranMaleasi schrieb:

Wovon reden wir hier? einen Schalter als Control? oder i-was externes?

Etwas externes.

Falls Interesse besteht hier eine Beschreibung meines Projektes :

Spoiler anzeigen

Als Projekt habe ich einen Inkremental-Drehgeber selbst gebaut und durch 2 Näherungssensoren realisiert. Diese kann ich durch ein firmeninternes Bussystem auslesen. Um die Drehrichtung zu bestimme muss ich die Flankenposition der beiden Sensoren vergleichen.
Dies war soweit kein Problem.
Dann sollte das Projekt in sofern erweitert werden ,dass ich eine Flankenanzeige der Sensoren je nach Drehrichtung habe, welche die 90° Phasenverschiebung anzeigt.
Gesagt ,getan.
Nun bin ich dabei einen Frequenzmesser zu implementieren. Dessen Grundfunktion klappt auch super, nur bei zu hohem hz-Wert "verschluckt" er sich und gibt falsche Rückgabewerte (z.B.: Linkslauf obwohl er nach Rechts gedreht wird). Bei hz-Werten bis 10hz klappt das ohne Probleme.
Dementsprechend schätze ich liegt es entweder am Auslesen der Sensoren oder an der Performance.

Hier der Quellcode des gesamten Projektes :

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports FirmacXP.BusPort
Imports FirmaXP.BusFunctions
Public Class Main
Private DT As DataTable 'Datentabelle zum Anzeigen der Feldmodule(Firmenintern)
Dim sekcounter As Double 'Sekundenzähler für Frequenzberechnung
Dim Pulscounter As Integer 'Zähler der Pulse für Sensor A
Dim Frequenz As Double 'Ergebnis der Frequenzberechnung
Dim Rechtslauf As Boolean 'Rückgabewert für den Rechtslauf
Dim Linkslauf As Boolean 'Rückgabewert für den Linkslauf
Dim Aold As Boolean 'vergleichswert für Sensor A
Dim A As Boolean 'Status Sensor A
Dim B As Boolean 'Status Sensor B
Dim max As Integer = 120 'Maximum Lautstärke
Dim mini As Integer = 0 'Minimum Lautstärke
'Datentabelle initialisieren
Private Sub init()
DT = New DataTable
With DT
.Columns.Add("Name")
.Columns.Add("KurzAdr")
.Columns.Add("TypNR")
.Columns.Add("LangAdr")
End With
With Me.DataGridView1
.DataSource = DT
.AllowUserToAddRows = False
.ReadOnly = True
.RowHeadersVisible = False
End With
End Sub
'Datentabelle füllen
Private Sub fillDT()
DT.Rows.Clear()
Dim devices As List(Of FirmaXP.Device) = FirmaXP.BusFunctions.devScan()
If devices Is Nothing Then Exit Sub
Dim dr As DataRow
For Each d As FirmaXP.Device In devices
dr = DT.NewRow
dr("Name") = d.DevName
dr("TypNR") = d.TypeNr
dr("LangAdr") = d.LongAdr
dr("KurzAdr") = d.ShortAdr
DT.Rows.Add(dr)
Next
End Sub
'Module im Bussystem suchen
Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
init()
fillDT()
End Sub
'Aktivierung/Deaktivierung des Timers zum Auslesen des Registers (Gegenseitige Verriegelung)
Private Sub cmd_lesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_lesen.Click
Timer_sek.Enabled = Not Timer_sek.Enabled
If timer_lesen.Enabled = False Then
cmd_dia.Enabled = True
cmd_lesen.Text = "Bestimmung beenden."
tb_shadr.ReadOnly = True
tb_reg.ReadOnly = True
timer_lesen.Enabled = True
Else
cmd_dia.Enabled = False
cmd_lesen.Text = "Drehrichtung bestimmen."
tb_shadr.ReadOnly = False
tb_reg.ReadOnly = False
timer_lesen.Enabled = False
End If
End Sub
'Timer zum auslesen und Umsetzen des Codes in eine Anzeige der einzelnen Flanken
Private Sub timer_lesen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_lesen.Tick
Select Case readReg(CInt(tb_shadr.Text), CInt(tb_reg.Text))
Case 1536
A = False
B = False
Case 1537
A = True
B = False
Case 1538
A = False
B = True
Case 1539
A = True
B = True
End Select
If A <> Aold Then
Pulscounter += 1
End If
tb_flanke()
Aold = A
PictureBox1.Invalidate()
PictureBox2.Invalidate()
End Sub
'Weißt den Textboxen den Wert der dazu gehörigen Variable zu.
Public Sub tb_flanke()
tb_flankea.Text = CStr(A)
tb_flankeb.Text = CStr(B)
End Sub
'Ruft die Sub ChecksensorA auf ,sobald ein neuer Wert eingetragen wird
Private Sub tb_flankea_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_flankea.TextChanged 'Richtungserkennung Flanke A / Lautstärkenanzeige-Update
ChecksensorA()
End Sub
'Ruft die Sub ChecksensorB auf ,sobald ein neuer Wert eingetragen wird
Private Sub tb_flankeb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_flankeb.TextChanged 'Richtungserkennung Flanke B / Lautstärkenanzeige-Update
ChecksensorB()
End Sub
'Füllt je nach Begebenheit die UI für A mit Rückgabewerten
Private Sub ChecksensorA() 'Überprüft die Drehrichtung anhand der Sensorstellung des Sensors A
If A > B AndAlso TextBox1.TextLength < max Then
tb_drehrichtung.Text = "Drehrichtung : Mit dem Uhrzeigersinn."
TextBox1.Text = TextBox1.Text + "||| "
Rechtslauf = True
Linkslauf = False
ElseIf A = B AndAlso TextBox1.TextLength > mini Then
tb_drehrichtung.Text = "Drehrichtung : Gegen den Uhrzeigersinn."
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 4, 4)
Linkslauf = True
Rechtslauf = False
End If
End Sub
'Füllt je nach Begebenheit die UI für B mit Rückgabewerten
Private Sub ChecksensorB() 'Überprüft die Drehrichtung anhand der Sensorstellung des Sensors B
If B > A AndAlso TextBox1.TextLength > mini Then
tb_drehrichtung.Text = "Drehrichtung : Gegen den Uhrzeigersinn."
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 4, 4)
Linkslauf = True
Rechtslauf = False
ElseIf B = A AndAlso TextBox1.TextLength < max Then
tb_drehrichtung.Text = "Drehrichtung : Mit dem Uhrzeigersinn."
TextBox1.Text = TextBox1.Text + "||| "
Rechtslauf = True
Linkslauf = False
End If
End Sub
'Zeichnet je nach Drehrichtung die Flankenposition für A
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim Points As New List(Of Point)
If Rechtslauf = False AndAlso Linkslauf = False Then
Points.Add(New Point(0, 75))
Points.Add(New Point(400, 75))
End If
If Rechtslauf = True Then
Points.Add(New Point(0, 75))
Points.Add(New Point(50, 75))
Points.Add(New Point(50, 25))
Points.Add(New Point(100, 25))
Points.Add(New Point(100, 75))
Points.Add(New Point(150, 75))
Points.Add(New Point(150, 25))
Points.Add(New Point(200, 25))
Points.Add(New Point(200, 75))
Points.Add(New Point(250, 75))
Points.Add(New Point(250, 25))
Points.Add(New Point(300, 25))
Points.Add(New Point(300, 75))
ElseIf Linkslauf = True Then
Points.Add(New Point(0, 75))
Points.Add(New Point(75, 75))
Points.Add(New Point(75, 25))
Points.Add(New Point(125, 25))
Points.Add(New Point(125, 75))
Points.Add(New Point(175, 75))
Points.Add(New Point(175, 25))
Points.Add(New Point(225, 25))
Points.Add(New Point(225, 75))
Points.Add(New Point(275, 75))
Points.Add(New Point(275, 25))
Points.Add(New Point(300, 25))
End If
Dim PointArray() As Point = Points.ToArray
'Zeichnen
Draw(e.Graphics, PointArray)
End Sub
'Zeichnet je nach Drehrichtung die Flankenposition für B
Private Sub PictureBox2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
Dim Points As New List(Of Point)
If Rechtslauf = False AndAlso Linkslauf = False Then
Points.Add(New Point(0, 75))
Points.Add(New Point(400, 75))
End If
If Rechtslauf = True Then
Points.Add(New Point(0, 75))
Points.Add(New Point(75, 75))
Points.Add(New Point(75, 25))
Points.Add(New Point(125, 25))
Points.Add(New Point(125, 75))
Points.Add(New Point(175, 75))
Points.Add(New Point(175, 25))
Points.Add(New Point(225, 25))
Points.Add(New Point(225, 75))
Points.Add(New Point(275, 75))
Points.Add(New Point(275, 25))
Points.Add(New Point(300, 25))
ElseIf Linkslauf = True Then
Points.Add(New Point(0, 75))
Points.Add(New Point(50, 75))
Points.Add(New Point(50, 25))
Points.Add(New Point(100, 25))
Points.Add(New Point(100, 75))
Points.Add(New Point(150, 75))
Points.Add(New Point(150, 25))
Points.Add(New Point(200, 25))
Points.Add(New Point(200, 75))
Points.Add(New Point(250, 75))
Points.Add(New Point(250, 25))
Points.Add(New Point(300, 25))
Points.Add(New Point(300, 75))
End If
Dim PointArray() As Point = Points.ToArray
'Zeichnen
Draw(e.Graphics, PointArray)
End Sub
'Zeichnungssub
Sub Draw(ByVal Gra As Graphics, ByVal points() As Point)
Dim Pen As New Pen(Color.Black, 5)
With Gra
.Clear(Color.White)
.DrawLines(Pen, points)
End With
End Sub
'Timer für die Frequenzmessung/berechnung
Private Sub Timer_sek_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_sek.Tick
If sekcounter < 10 Then
sekcounter += 1
Else
Frequenz = (Pulscounter / sekcounter) / 2
tb_frequenz.Text = "Die durchschnittliche Frequenz beträgt " & CStr(Frequenz) & "hz."
Pulscounter = 0
sekcounter = 0
End If
End Sub
End Class

Ich bin für jede Verbesserung offen , sofern sie mir auch ausreichend erklärt wird. (Newbie, undso).
Vor allem bei Performance-Vorschlägen bin ich super dankbar.

Zum Thema oben :
Ließe sich der Code oben , in sofern verändern ,dass er das Ereignis bei Änderung der Variable ausführt?

sonne75 · 14. August 2013, 16:53

DannyDee schrieb:

Ließe sich der Code oben , in sofern verändern ,dass er das Ereignis bei Änderung der Variable ausführt?

Dann schau in den Link von Post 2, da ist es mit zig Zeilen Code gelöst.Und im Endeffekt wird im Kern genau das Gleiche gemacht: die alte Variable mit der neuen verglichen.

Warum passen dir die paar Zeilen meines Codes nicht?

FreakJNS · 14. August 2013, 17:10

Mir gefällt der Code da garnicht (der von DannyDee). Du vermischst Daten und GUI - das sehe ich daran, dass du iwelche Werte aus den Textboxen puhlst xD Objektorientiert programmiert sieht anders aus...

Du sagst, bis 10Hz läuft es problemlos und deine Abtastrate liegt bei 20Hz (=> 50ms Timer-Tick). Kann es nicht sein, dass bei höheren Drehgeschwindigkeiten ein Sensor-High genau zwischen zwei Messzeitpunkten liegt und darum nicht erkannt wird? Oder das ein High nur so kurz andauert, dass es deswegen 'verschluckt' wird?

Dann ist es die Frage, wo du nachbessern musst:
a) Softwareseitig => höheres Abfrageintervall ist das einzige was mir einfällt..
b) Hardwareseitig => mehr Sensoren? andere Sensoren? weitere Hardware, welche die Daten für die Software aufbereitet?

DannyDee · 15. August 2013, 10:05

FreakJNS schrieb:

das sehe ich daran, dass du iwelche Werte aus den Textboxen puhlst xD Objektorientiert programmiert sieht anders aus...

Dürfte ich dich bitten die Stelle zu zitieren? Denn ich finde bei bestem Willen ,nicht eine Stelle an dem ich mir Daten aus den Textboxen "puhle". Ich ändere lediglich den Text der Textbox je nach Lage der Rückgabewerte ändere.
Oder meinst du die TextChanged-Events damit?

FreakJNS schrieb:

Kann es nicht sein, dass bei höheren Drehgeschwindigkeiten ein Sensor-High genau zwischen zwei Messzeitpunkten liegt und darum nicht erkannt wird? Oder das ein High nur so kurz andauert, dass es deswegen 'verschluckt' wird?

Das ist ein Gedanke den ich bisher noch nciht weiter verfolgt hatte. Das werde ich auf jeden Fall mal durchprobieren.

FreakJNS schrieb:

b) Hardwareseitig => mehr Sensoren? andere Sensoren? weitere Hardware, welche die Daten für die Software aufbereitet?

Das ganze funktioniert mit nur 2 Sensoren, da diese mit 90° Phasenverschiebung die Signale senden. Dadurch lässt sich anhand des Musters festlegen in welche Richtung der "Regler" gedreht wird.

Die Sensoren sollten gut sein , die schalten mit bis zu 1khz.

Und das mit der Hardware ,die die Daten aufbereitet , da sehe ich (in meinem Aufbau) vllt die große Schwachstelle. Denn ich gehe vom Schaltsignal ,auf Relais ,darüber auf direkte Eingänge eines der Firmenmodule ,und diese schicken es über Bus an einen Busverteiler ,welcher wiederum auf ein Bus-to-USB Interface schickt ,von dem cih es letztendlich auslese. Ich könnte mir gut vorstellen ,dass diese "riesige" Distanz dafür verantwortlich sien könnte ,dass es eben nur bis ca 10-15 hz sauber arbeitet.

Nun wie gesagt , ich werde es mal versuchen mit dem Abfrageintervall.

Und bezüglich meines Codes. Wenn er dir nciht gefällt , gehe ich davon aus ,dass er unsauber ist. Richtig? Falls ja würde ich mcih freuen ,wenn Hilfestellungen und Tipps gegeben werden die etwas konkreter sind als "gefällt mir nicht , objektorientiert sieht anders aus".

@sonne75 Doch doch, habe es ja auch ähnlich implementiert. Ich wollte nur wissen ,ob der Code oben anpassbar gewesen wäre. (btw den Link habe ich mir angesehen. Werde es demnächst noch genauer studieren.)
MfG Danny Dee

sonne75 · 15. August 2013, 10:09

DannyDee schrieb:

Ich wollte nur wissen ,ob der Code oben anpassbar gewesen wäre.

Du könntest bei "Set" auch den alten Wert überprüfen (den vorher abspeichern) und den Event erst bei Änderung auslösen.

DannyDee · 15. August 2013, 10:20

Okey. Werde ich bei Gelegenheit mal versuchen.

ErfinderDesRades · 15. August 2013, 10:35

DannyDee schrieb:

Ließe sich der Code oben , in sofern verändern ,dass er das Ereignis bei Änderung der Variable ausführt?

Also der gezeigte Code besteht ja aus 2 Klassen:

einmal ein Form, zu Testzwecken.
dass da der code fragwürdig ist, scheint mir keine Totsünde.
zum anneren die myVar-Klasse
Die finde ich nun sehr nah an durchaus gängigen Vorgehensweisen - noch bischen weiter gedacht, und sie würde sogar Databinding unterstützen.
Schon das Anliegen "Ein Ereignis feuern, wenn sich der Wert effektiv ändert" ist genau das Grundprinzip Databinding - nur halt die selbst erfundene Implementierung erreicht nicht ganz den Standard.
Das meinte vmtl. xtts02 mit seiner Bemerkung, dasses dafür ein Interface gebe - nämlich für Databinding gibts ein Interface.

Also Standard-Mäßig sähe es so aus:

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private WithEvents test As New myVar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test.Variable = CInt(TextBox1.Text)
End Sub
Private Sub test_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles test.PropertyChanged
'hier könnte auch je nach e.PropertyName getestet unterschiedlich reagiert werden
MessageBox.Show(test.Variable.ToString)
End Sub
End Class
Public Class myVar : Implements INotifyPropertyChanged
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Private _Variable As Integer
Public Property Variable() As Integer
Get
Variable = _Variable
End Get
Set(ByVal value As Integer)
If _Variable = value Then Return
_Variable = value
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Variable"))
End Set
End Property
End Class

Aber auch ohne den Databinding-Pattern zu unterstützen (der dir vmtl. garnet bekannt ist - du hast da das Rad neu erfunden) ist deine Implementation ganz ganz nah an standardmäßigen Vorgehensweisen, etwa:

VB.NET-Quellcode

Public Class Form1
Private WithEvents test As New myVar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test.Variable = CInt(TextBox1.Text)
End Sub
Private Sub VariableChanged(sender As System.Object, ByVal e As System.EventArgs) Handles test.VariableChanged
MessageBox.Show(test.Variable.ToString)
End Sub
End Class
Public Class myVar
Private _Variable As Integer
Public Event VariableChanged As EventHandler
Public Property Variable() As Integer
Get
Variable = _Variable
End Get
Set(ByVal value As Integer)
If _Variable = value Then Return
_Variable = value
RaiseEvent VariableChanged(Me, EventArgs.Empty)
End Set
End Property
End Class

(und in WinForms würde sogar das Databinding unterstützen - gugge auch Alles über Events)

Also imo ist der Code für einen Anfänger, der dieses Buch lesen (hingegen das Galileio-Openbook ist Mist) noch nicht gelesen hat, aussergewöhnlich gut.
Insbesondere, dass die Neu-Erfindung des Rades "Databinding" garnet schlecht getroffen ist.

Zu Performance-Fragen: An diesem Muster liegts nicht, wenns Performance-Probleme gibt - das sollte hinreichend schnell sein.

DannyDee · 15. August 2013, 11:30

ErfinderDesRades schrieb:

Also imo ist der Code für einen Anfänger, der dieses Buch lesen (hingegen das Galileio-Openbook ist Mist) noch nicht gelesen hat, aussergewöhnlich gut.

Danke, sowas hört man gern.

So wie du es erklärst ist es für mich auch recht verständlich. Ich werde mich an das Thema mal weiter rantasten. Und mit Databinding hast du mir ein gutes Stichwort gegeben. Bisher kannte ich das nicht (Da vor ca 10 Tagen erst aktiv angefangen mit Programmierung) und werde es mir mal etwas genauer anschauen.

Vielleicht kannst du mir bei folgendem Problem auch eine Hilfestellung geben:
(Da für das Hauptthema nicht zwingend relevant hier im Expander, bei Interesse reinschauen)

Spoiler anzeigen

Sobald ich neue Ergebnisse habe ,was Databinding und das Vergleichen angeht, werde ich mich melden.

MfG Danny Dee

ErfinderDesRades · 15. August 2013, 12:15

also zum DrehgeberLeser im allgemeinen: Da stimme ich FreakJNS zu - dassis grauselig, was du da anstellst mitte Textboxen. Textboxen sind für textuelle Interaktion mittm User da, und du mißbrauchst die iwie als Event-Erzeuger.
Dabei kannst du doch inzwischen Events selbst erzeugen (klasse myVar) - da brauchste nicht Textboxen für zu mißbrauchen.

Jo, zu deim Drehgeberleser erstmal konzipieren, insbesondere Begriffe schaffen.
Habe mit "DrehgeberLeser" schomal angefangen, dabei habichmir gedacht, du willst etwas auslesen, iwas mit einem Drehgeber, wassich nicht verstanden hab, denn die Rede ist ja ausschließlich von Sensoren, also Input-Elemente, da weiß ich nicht, was daran "DrehGeber" ist, es ist doch eher ein "DrehNehmen" - egal.

Der Drehgeberleser wird regelmäßig geupdatet mit den neuesten Positionen der Sensoren.

Das verstehe ich schon wieder nicht: Muß man da wirklich mit einem Timer die Sensor-Positionen abrufen? Vorstellbar (bzw. bei Drehzahlmessung glaub üblich) wären doch aktive Sensoren, die einen Output genau dann generieren, wenn ein Messpunkt vorbei-rotiert.

Hmm - eigentlich kann man hier schon nicht mehr weitermachen, ehe diese Frage eindeutig beantwortet ist.
Weil diese Alternativen führen auf unterschiedliche Architekturen hin.

egal, mal angenommen, es wäre so, und man müsste wirklich mit Timer die SensorPositionen abfragen.
Aus den SensorPositionen kann der Drehgeberleser Drehrichtung und Frequenz berechnen, oder?

Womit die Architektur doch eiglich klar ist:
Schaff eine Klasse Drehgeberleser (oder finde einen passenderen Namen dafür), und gib ihr die Properties Forward As Boolean und Frequency As Double
Gib ihr ausserdem eine Sub Update(pos1, pos2), in der vorgenannte Properties neu bestimmt werden.
Vermutlich nützlich wäre nun, den Databinding-Pattern für die beiden Properties zu implementieren, und sich dabei haarklein ans vorgeführte Schema halten.

FreakJNS · 15. August 2013, 13:03

Nachdem ich das Bild gesehen habe bin ich ja überzeugt, dass Fehler aufgrund der viel zu niedrigen Messfrequenz kommen (Timer mit 50ms Intervall = 20Hz). Dreht sich das Rad mit 10Hz ist jede Messfläche (10 Stück an der Zahl, jede macht eine 0 oder eine 1) nur 10ms 'sichtbar'. Für eine anständige Messung brauchst du doch sicher jedes mögliche High/Low eines Sensors (und damit ein Timerintervall von 10ms um bei 10Hz Drehfrequenz richtig arbeiten zu können)?

(Bitte verbessert mich, kann auch sein, dass es 'anders' funktioniert xD)

RodFromGermany · 15. August 2013, 13:12

@FreakJNS:: Da gebe ich Dir vollkommen Recht.
@DannyDee:: Drehzahlgeber werden üblicherweise an einer Zählerkarte (Hardware) betrieben, damit ist gesichert, dass kein Impuls verlorengeht.
Windows ist nun mal kein Echtzeit-Betriebssystem, da kann wer weiß was passieren.

DannyDee · 15. August 2013, 13:23

ErfinderDesRades schrieb:

Textboxen sind für textuelle Interaktion mittm User da, und du mißbrauchst die iwie als Event-Erzeuger.
Dabei kannst du doch inzwischen Events selbst erzeugen (klasse myVar) - da brauchste nicht Textboxen für zu mißbrauchen.

Die Sache mit den Textboxen hatte ich ja erklärt. Mir fehlt eben noch die Erfahrung und das Wissen um das auf Anhieb perfekt umzusetzen. Deswegen wende ich mich ja in diesem Forum unter "Grundlagen" an erfahrenere Leute , um Erklärungen etc zu erhaschen.
Der Grund weswegen ich es über die Textboxen gemacht hatte, war lediglich weil ich die hier besprochene Methode Variablen zu überprüfen noch nicht verstanden hatte.

ErfinderDesRades schrieb:

Habe mit "DrehgeberLeser" schomal angefangen, dabei habichmir gedacht, du willst etwas auslesen, iwas mit einem Drehgeber, wassich nicht verstanden hab, denn die Rede ist ja ausschließlich von Sensoren, also Input-Elemente, da weiß ich nicht, was daran "DrehGeber" ist, es ist doch eher ein "DrehNehmen" - egal.

Der gesamte Aufbau ist vom Prinzip her ein "Inkremental Drehgeber". Deswegen blieb ich bei diesem Namen.

ErfinderDesRades schrieb:

Das verstehe ich schon wieder nicht: Muß man da wirklich mit einem Timer die Sensor-Positionen abrufen? Vorstellbar (bzw. bei Drehzahlmessung glaub üblich) wären doch aktive Sensoren, die einen Output genau dann generieren, wenn ein Messpunkt vorbei-rotiert.

Leider ja ,denn die Positionen der Sensoren lese ich über ein firmeninternes Bussystem aus, welches aus Einzelmodulen besteht ,welche verschiedenste Aufgaben haben. Also habe ich mir ein Modul zum erkennen von Schaltstellungen rausgesucht und dort die Sensoren angeklemmt. Diese Module warten auf Befehle von Master(PC bzw das Programm), sprich ich muss ihm sagen "ModulAuslesen" und daraufhin bekomme ich einen Wert als Feedback (Oben 1536/1537/1538/1539) für jede mögliche Stellungskombination der beiden Sensoren.

Zwischenfrage : Könnte ich diesen Befehl "ModulAuslesen" eventuell ohne Timer immer wieder neu aufrufen lassen? Eventuell über einen Thread? Ich dachte da an eine Art rekursives Aufrufen. (Werde mich mal schlau lesen).

RodFromGermany schrieb:

@DannyDee:: Drehzahlgeber werden üblicherweise an einer Zählerkarte (Hardware) betrieben, damit ist gesichert, dass kein Impuls verlorengeht.
Windows ist nun mal kein Echtzeit-Betriebssystem, da kann wer weiß was passieren.

Ich verstehe. An sich ist mein Ziel ja erreicht, wie schnell es ausliest und reagiert ist erstmal Nebensache ,da dieser Aufbau in der Praxis keine Anwendung finden wird. Dies ist rein praktisches Lernen für meine Ausbildung. Aber da mich der Ehrgeiz gepackt hat , will ich das Programm so flüssig und zuverlässig wie möglich machen.
Diesbezüglich frage ich hier ja auch nach anderen Methoden udn Varianten um den Code stabiler zu machen.
Denn die Grundfunktion bringt das Programm. (Es tut was es soll, aber eben vom Code her weder schön ,noch stabil)

FreakJNS schrieb:

Nachdem ich das Bild gesehen habe bin ich ja überzeugt, dass Fehler aufgrund der viel zu niedrigen Messfrequenz kommen (Timer mit 50ms Intervall = 20Hz). Dreht sich das Rad mit 10Hz ist jede Messfläche (10 Stück an der Zahl, jede macht eine 0 oder eine 1) nur 10ms 'sichtbar'. Für eine anständige Messung brauchst du doch sicher jedes mögliche High/Low eines Sensors (und damit ein Timerintervall von 10ms um bei 10Hz Drehfrequenz richtig arbeiten zu können)?

An sich hast du da Recht , stimmt. Habe den Intervall auch schon zu 10ms geändert ,jedoch bringt es nicht viel.(Da wahrscheinlich die Ausführung durch die "Nicht-Trennung" von Daten und UI unzuverlässig ist?)
Die "Drehscheibe" hat 12 Messflächen (6x1 & 6x0).

Wie dem auch sei, ich werde mich jetzt erstmal dran machen ,die Text_Changed rauszuschmeißen und das ganze durch die myVar-Klasse zu ersetzen.
Danach werde ich mich an die Sache mit dem Auslesen des Drehgebers ran machen, und versuchen es durch einen Thread (rekursiv?) zu ersetzen. Vielleicht erreiche ich dann eine höhere Lesgeschwindigkeit.

ErfinderDesRades · 15. August 2013, 20:27

paar punkte: vmtl. weißt du nicht, was Rekursion ist, jdfs. hat Rekursion bei dieser Problemstellung nix verloren.

schneller getacktete Timer als 10ms sind problematisch, also für deine Übungen mach erstmal mit langsameren Werten, aber dasses funzt.
Hab mir die Drehgeberei jetzt mal angeguckt, für mich sieht das sehr danach aus, dass ein Drehgeber bei Bewegung aktiv ein Signal ausgibt. Was dann auf eine Architektur ohne Timer hinausliefe.

Insgesamt nennt man sowas polling, wenn andauernd aktuelle Werte abgefragt werden, und das ist sehr unschön, da es kontinuirlich CPU-Leistung zieht, und damit letztendlich den ganzen Rechner verlangsamt.

Wesentlich sinniger wäre die Architektur für aktive Sensoren, aber du sagst ja, die seien unverrückbar passiv, was mit iwelchen Bussen zu tun hat.

genau.
Setze das mit deiner Klasse um, aber nenn die um Himmelswillen nicht "myVar".

DannyDee · 16. August 2013, 08:29

ErfinderDesRades schrieb:

schneller getacktete Timer als 10ms sind problematisch, also für deine Übungen mach erstmal mit langsameren Werten, aber dasses funzt.

Habe das Bussystem mal beobachtet , dun es scheint ,dass Systemabhängig keine schnellere Frequenz als 20hz erreicht werden können. Dementsprechend würde ich dein Tiemr auf 20ms einstellen.

ErfinderDesRades schrieb:

Wesentlich sinniger wäre die Architektur für aktive Sensoren, aber du sagst ja, die seien unverrückbar passiv, was mit iwelchen Bussen zu tun hat.

Wenn das möglich wäre , hätte ich es schon umgesetzt, doch leider mit diesem Aufbau nciht möglich.

ErfinderDesRades schrieb:

Setze das mit deiner Klasse um, aber nenn die um Himmelswillen nicht "myVar".

Hatte ich nicht vor

Programm ist soweit umgeschrieben , und muss jetzt nur noch verfeinert werden.
Ich verabschiede mich damit erstmal und schreie.
CLOSED!

(Btw thanks für die Hilfe)

RodFromGermany · 16. August 2013, 08:33

DannyDee schrieb:

keine schnellere Frequenz als 20hz erreicht werden können. Dementsprechend würde ich dein Tiemr auf 20ms einstellen.

20 Hz <==> 50 ms

DannyDee · 16. August 2013, 10:07

RodFromGermany schrieb:

20 Hz <==> 50 ms

Ist mir klar , aber shisha ist shisha ,mon ami.

[Erklärung?]Variable auf Änderung prüfen

[Erklärung?]Variable auf Änderung prüfen

VB.NET-Quellcode

VB.NET-Quellcode

sonne75 schrieb:

EaranMaleasi schrieb:

VB.NET-Quellcode

DannyDee schrieb:

FreakJNS schrieb:

FreakJNS schrieb:

FreakJNS schrieb:

DannyDee schrieb:

DannyDee schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

RodFromGermany schrieb:

FreakJNS schrieb:

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

DannyDee schrieb:

RodFromGermany schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben