Sprachausgabe von Analogwerten

Seiten (8): « Erste < Vorherige 4 5 6 7 [8] Letzte »

Baumstrukturmodus | Brettstrukturmodus

Sprachausgabe von Analogwerten

Verfasser Nachricht

AVRNix
Administrator

Beiträge: 1.538
Gruppe: Administrators
Registriert seit: Dec 2007
Status: Offline
Bewertung: 0

Beitrag: #71

RE: Sprachausgabe von Analogwerten

ALso vielleicht solltest du nach dem Empfnag

dinable Urxc schreiben bevor du auf das LCD schreibst, du unterbindest damit einen Interrupt.

Gruss
-----------------------------
AVRNix - http://www.comwebnet.de
Administrator
-----------------------------

10.07.2010 13:23

Diese Nachricht in einer Antwort zitieren

Veryoldman
Member

Beiträge: 52
Gruppe: Registered
Registriert seit: May 2010
Status: Offline
Bewertung: 0

Beitrag: #72

RE: Sprachausgabe von Analogwerten

Hallo AVRNix,

Du meinst doch 'Disable Urcx' oder? Ich hab das mal ausprobiert und bekomme jedesmal die Fehlermeldung 'Unknown Interrupt source'. Die Displayroutine ist als Unterroutine Angelegt und wenn die Anzeige auf dem Display erfolgt, sollte die Anweisung 'Disable Urcx' erfolgen. Dann ist ja das Problem, dass man den Interrupt ja wieder aktivieren muss um eine weitere Anzeige zu bekommen. Das hab ich versucht, in der Do Loop Schleife einzugeben 'If S = Asc( "D:\>cr" then' usw. Enable Urcx' 'End if'. Das funktioniert also so nicht.

Gruß
Klaus

11.07.2010 18:04

AVRNix
Administrator

Beiträge: 1.538
Gruppe: Administrators
Registriert seit: Dec 2007
Status: Offline
Bewertung: 0

Beitrag: #73

RE: Sprachausgabe von Analogwerten

Ja das meine ich
Disable Urcx
dann Ausgabe auf LCD
Enable Urcx

oder

Springe eine Unterroutine die alle Zeichen bis CR einliest und dann zurück springt. LCD Ausgabe und weiter.

ggf taugt deine Routine nicht soviel, keine Ahnung.
Diese Routine steht auch im Sample Verzeichnis im Bascom.

So Ähnlich wie hier:

Code:

Declare Sub Getline(s As String)

Declare Sub Flushbuf()

Dim Sret As String * 66 , Stemp As String * 6 

do

Getline Sret ' lese von der Seriellen Schnittstelle

Lcd Sret     ' Ausgabe auf LCD

Wait 5

Flushbuf     ' Freigabe

Cls

..

..

..

loop

Sub Getline(s As String)

  S = ""

  Do

    B = Inkey()

    Select Case B

       Case 0                                               'nothing

       Case 13                                              ' we do not need this one

       Case 10                                              ': If S <> "" Then Exit Do                    ' if we have received something

       Case Else

         S = S + Chr(b) ' Empfangener String

'  Wann soll aus der Routine rausgesprungen werden, oder was anderes '   gemacht werden.

        If S = "> " Then Exit Do             

        If Right(s , 2) = "OK" Then Exit Do

        If S = "OK" Then Exit Do

    End Select

  Loop

End Sub

'flush input buffer

Sub Flushbuf()

  Waitms 100                                                'give some time to get data if it is there

  Do

    B = Inkey()                                             ' flush buffer

  Loop Until B = 0

End Sub

Gruss
-----------------------------
AVRNix - http://www.comwebnet.de
Administrator
-----------------------------

Dieser Beitrag wurde zuletzt bearbeitet: 11.07.2010 19:43 von AVRNix.

11.07.2010 19:33

AVRNix
Administrator

Beiträge: 1.538
Gruppe: Administrators
Registriert seit: Dec 2007
Status: Offline
Bewertung: 0

Beitrag: #74

RE: Sprachausgabe von Analogwerten

Veryoldman schrieb:

Hallo AVRNix,

einzugeben 'If S = Asc( "D:\>cr" then' usw. Enable Urcx' 'End if'. Das funktioniert also so nicht.

Gruß
Klaus

Das geht auch nicht ASC ist ein zeichen nicht ein String!
Das musst du dann einzeln machen !

Gruss
-----------------------------
AVRNix - http://www.comwebnet.de
Administrator
-----------------------------

11.07.2010 19:49

Veryoldman
Member

Beiträge: 52
Gruppe: Registered
Registriert seit: May 2010
Status: Offline
Bewertung: 0

Beitrag: #75

RE: Sprachausgabe von Analogwerten

Hallo AVRNix,

Mhmmmm! Muss ich wohl noch mal ran.

Gruß
Klaus

12.07.2010 22:53

Seiten (8): « Erste < Vorherige 4 5 6 7 [8] Letzte »

« Ein Thema zurück | Ein Thema vor »

Druckversion anzeigen
Thema einem Freund senden
Thema abonnieren | Thema zu den Favoriten hinzufügen

Gehe zu Forum: