UART Funktioniert nicht wenn PWM Aktiv ist (Bascom)

Hi Du,
ohne jetzt wirklich den ganzen Code durchdacht zu haben fällt mir auf,
dass die Ausdrucksform
'Ausgabe über 
UART##############################################################
If Zeit = 20 Then

sowieso zu einem Problem führen wird, weil es ja nur ausgefürt wird wenn 
exact 20 bestehen. Sollte dein programm also irgendwie länger brauchen 
ist vielleicht schon 21 erreicht und du wartest bis zum nächsten 
Overflow der Var.

versuch mal:
'Ausgabe über 
UART##############################################################
If Zeit >= 20 Then

Gruss Klaus

Habe nur mal kurz durchgescrollt.
Mir fällt auf das bei 'Lüfterreglen' 2x 5 Sekunden gewartet wird, sehr 
ungünstig da dann die Programmschleife nur 1x in 10Sek durchlaufen wird.
Weiter ungünstig sind die Berechnungen mit Singlevariablen, ist bei 
Bascom grottenlahm, speicherintensiv und in fast allen Fällen, so auch 
hier, unnötig.
Bei der UART-Ausgabe sind auch wieder völlig unnötige Waitbefehle und 
auch wieder 2 Kommarechnungen. Da das aber Wordvariablen in der Rechnung 
sind geht das in die Hose.

Bisher habe ich es immer geschaft Gleitkommarechnungen zu vermeiden. Für 
die Datenanzeige lässt sich das Komma gut nachträglich einfügen wenn man 
den Umweg über Stringvariablen nimmt, ist auf jeden Fall weniger ZEit 
und Speicherintensiv.

Steffen Warzecha schrieb:
> Bisher habe ich es immer geschaft Gleitkommarechnungen zu vermeiden. Für
> die Datenanzeige lässt sich das Komma gut nachträglich einfügen wenn man
> den Umweg über Stringvariablen nimmt, ist auf jeden Fall weniger ZEit
> und Speicherintensiv.

Da hast du meines Erachtens nach auch einen der Nägel auf den Kopf 
getroffen.
Als ich vor Jahren mal mit uC anfing habe ich auch "single" geschworen.
Als dann die Unzulänglickeiten hervortraten ging ich auf "Double" was 
wieder neue Probleme erzeugte.

Im Finale schaffe ich nun alles mit Integer (oder long) Arithmetik.
Leider ist das Gehirn so aufgebaut dass man gerne Kommastellen sehen 
möchte um dem Ergebnis mehr zu trauen.

wenn man es jedoch mit dem taschenrechner mal rückwärts rechnet erkenn 
man dann sehr leicht warum die Ergebnisse nicht den erwartungen 
entsprechen.

Ich erinnere mich gerne an den Hype mit den Apfelmännchen, der in den 
1980gern gab. Da waren komplizierte Formeln in der CT mit Realteil und 
Imaginäranteil drinne. Jeder hat das dann programmiert und tatsächlich 
kam ein solches Apfelmännlein heraus. Als ich das alte pascal-Programm 
vor ein paar Jahren mal wieder herausgekramt hatte und die Formel 
einfach duch
die Formel :
 dim differenz as whatever
x=10
do
y=x / 3
z = y * 3
differenz = z-x
loop until differenz has overflow

.. und siehe da, es ist das gleiche Apfelmännchen.
Vielleicht nicht so bunt aber es geht schon.

das Apfelmännchen ist also keine geheime Information sondern eher der 
Bereich der möglichen Rundungsfehler den man vermeiden sollte.

Gruss Klaus

Klaus De lisson schrieb:
> versuch mal:
> 'Ausgabe über
> UART##############################################################
> If Zeit >= 20 Then

das hat geholfen DANKE

Hab da noch ne andere Frage.
Und zwar übertrage ich ja Daten über den Serialport vom AVR zum PC.
Drehzahlen Temperaturen und PWM-stufe siehe Bild.
PWM-Stufe in ProgressBar 1 und 2 (die oberen 2)
der Rest ist eigentlich zu erkennen auf dem Bild.
Um die Reinfolge der Daten zu gewährleisten musste ich wie folgt 
vorgehen.

Bascom Code:

1

 Print "98765"

2

3

   Waitms 50

4

5

   Print Rpm1_str

6

7

   Waitms 50

8

9

   Print Rpm2_str

10

11

   Waitms 50

12

13

   Print Pwm01

14

15

   Waitms 50

16

17

   Print Pwm02

18

19

   Waitms 50

20

21

   Print Temp1_str

22

23

   Waitms 50

24

25

   Print Temp2_str

VB2010 Code:

1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

2

        Try

3

            comein = SerialPort1.ReadLine

4

            Me.Invoke(New EventHandler(AddressOf auswertung))

5

        Catch ex As Exception

6

7

        End Try

8

9

    End Sub

10

11

    Private Sub auswertung()

12

        If a = 0 Then

13

14

            If comein = "98765" Then                 'Prüfnummer 98765

15

                a = 1

16

            Else

17

                a = 0

18

            End If

19

20

        ElseIf a = 1 Then

21

            a = 2

22

23

            Label1.Text = "FAN CPU:  " & comein & " RPM"

24

25

        ElseIf a = 2 Then

26

            a = 3

27

28

            Label2.Text = "FAN Umgebung:  " & comein & " RPM"

29

30

        ElseIf a = 3 Then

31

            a = 4

32

33

            If comein > 100 Then

34

                comein = 100

35

            ElseIf comein < 0 Then

36

                comein = 0

37

            End If

38

39

            ProgressBar1.Value = comein

40

            Label5.Text = "PWM " & comein

41

42

        ElseIf a = 4 Then

43

            a = 5

44

45

            If comein > 100 Then

46

                comein = 100

47

            ElseIf comein < 0 Then

48

                comein = 0

49

            End If

50

51

            ProgressBar2.Value = comein

52

            Label6.Text = "PWM " & comein

53

54

55

        ElseIf a = 5 Then

56

            a = 6

57

58

            Label7.Text = comein

59

            comein = comein / 10

60

            Label3.Text = "Temperatur CPU:  " & comein & "°C"

61

62

            If comein >= 100 Then

63

                comein = 100

64

            ElseIf comein <= 0 Then

65

                comein = 0

66

            End If

67

68

            ProgressBar3.Value = comein

69

70

        ElseIf a = 6 Then

71

            a = 0

72

73

            Label8.Text = comein

74

            comein = comein / 10

75

            Label4.Text = "Temperatur Umgebung:  " & comein & "°C"

76

77

            If comein >= 100 Then

78

                comein = 100

79

            ElseIf comein <= 0 Then

80

                comein = 0

81

            End If

82

83

            ProgressBar4.Value = comein

84

85

        End If

86

87

    End Sub

Jetzt haut das aber nicht hin so wie ich es will.
Ich bekomme manchmal komische Werte angezeigt und manchmal auch die 
Prüfnummer in der Temperatur angezeigt.

Wo liegt mein Problem hier oder wie kann man das anders machen??

hallo Autor: Peter K. (pker) ,

ich hab wirklich nicht die Lust deinen VB Code zu lesen und diesen noch 
verstehen zu wollen. Allerdings erinnere ich mich dass ich diese Dinge 
auch schon mal gemacht habe (allerdings verwende ich Vbasic 2006 ohne 
den .net Syntax)

selbst bei Vb6 ist es so, dass sich Probleme bei der sychronisation 
einstellen wenn man viele Print-Befehle hintereinander absetzt zumal 
eben VB und Windows nicht gerade ein Echtzeit-system ist.
wenn du jedoch im AVR zunächst eine String mit bekannter Länge bildest 
wird es besser.
z.B.

Dim sendstring as String * 200
*****  hier hast du also einen String mit 200 zeichen
Print sendstring
******  sendet 200 Zeichen am Stück
dim rpm1string as string * 5 (für word variablen oder *3 für byte)
rpm1string = str(rpm1wert)


nun müssen wir überlegen was wir senden.
Da könnte man z.B. sagen das der Präfix eines Eintrages immer 4 zeichen 
lang ist (also immer die gleiche Länge)

sendstring="Rpm1"+ rpm1string+ "Rpm2"+rpm2str"

dann bekommst du auf dem PC eine einzige Sendung mit dem kompletten 
Telegramm

Nun wollen wir das Telegramm auch wieder zerlegen und fügen ein 
Trennzeichen ein. Dies könnte z.B. ein Semikolon sein
Der Sendstring wäre dann:

sendstring="Rpm1"+ rpm1string+ ";" +"Rpm2"+rpm2str"
abgeschlossen wird der String mit VBLF und VBCR

nun kannst du im VB (und da hast du viel mehr rechenleistung) den String 
wieder zerpflücken.
Du triigerst den VB Empfang mit dem VBLF und VBCR und prüfst die länge 
des String. Stimmt die Länge nicht hast du Fehlerhaften Empfang gehabt.
Simmt die Länge kannstt du in VB mit instring das Ganze wieder zerlegen.

Ich hoffe du verstehst das soweit.

Gruss Klaus

p.s.
wenn dein uC keinen Quarz verwendet sondern den internen RC wird es noch 
schwieriger zu synchen.

Klaus De lisson schrieb:
> Ich hoffe du verstehst das soweit.

Das Prinzip leuchtet mir ein!

Nur an der Umsetzung habert es noch.


Ich habe jetzt 6 werte in Strings umgewandelt mit "string=str(wert)".
Die Strings haben alle 5 Stellen (string * 5).
Habe alle Strings zusammen gefügt mit 
"ausgabe_string=string1+string2..." und in einen Ausgabe String 
geschrieben (dieser hat 50 Stellen (ausgabe_string * 50)).
Jetzt gebe ich mit "Print ausgabe_string" die Werte aus.

Laut deiner Aussage müssten jetzt 50 Zeichen Übertragen werden.
die ersten 30 mit meinen werten.

Soweit Korrekt?

Ich nehme mal an das nicht genutzte Zeichen in einem Terminal nicht 
angezeigt werden aber trotzdem übertragen werden.
Dann Würde soweit auch alles hin hauen.



Klaus De lisson schrieb:
> nun kannst du im VB (und da hast du viel mehr rechenleistung) den String
> wieder zerpflücken.
> Du triigerst den VB Empfang mit dem VBLF und VBCR und prüfst die länge
> des String. Stimmt die Länge nicht hast du Fehlerhaften Empfang gehabt.

Da bin ich etwas unerfahren und habe keine Ahnung wie ich das machen 
soll.

> Simmt die Länge kannstt du in VB mit instring das Ganze wieder zerlegen.

Da Bräuchte ich auch etwas Hilfe.

Peter K. schrieb:
> Laut deiner Aussage müssten jetzt 50 Zeichen Übertragen werden.
> die ersten 30 mit meinen werten.
>
> Soweit Korrekt?

Nein!
(ausgabe_string * 50) bedeutet ja nur das dein "Ausgabeeimer" das 
Fassungsvermögen von 50 hat. wenn du aber nur 30 in dem Eimer füllst 
kommen auch nur 30 heraus. Zusätzlich aber durch den Printbefehl noch 
<CR> und ein <LF> angehängt. (siehe chr(10) und chr (13))

Beim Enpfang musst du halt in VB proggen das ein CR und/oder ein LF das 
Ende einer Übertragung ist. Dann musst du den Empfangsstring bereinigen 
indem du am Ende 1 oder 2 Zeichen abschneiden um die CR und LF sofern 
vorhanden zu entfernen.

String = left(string, len(string-2))  z.b.

dann schneidest du den rest wieder in Stücke so dass deine 
Ursprungsstrings wieder entstehen.

z.B
string1 = mid(empfangsstring,1,5)
string2 = mid(empfangsstring,6,5)
u.s.w.

bitte nagel mich nicht auf die Syntax fest da ich ja sowieso ne andere 
VB Version habe.

Ich schätze aber, das du mit dem Begriffen sehr gut goolen kannst.

Gruss Klaus

ps.:
lad dir mal HTERM runter und schau dir dann an was du empfängst bevor du 
in VB anfängst zu proggen