Daten aus dem serial port direkt in Excel tabelle

[Andy (Gast)]

Hallo Leute,

ich habe ein Problem..... :))

Ich habe mir einen ADXL202 Beschleunigungssensor eingelesen und er gibt 
mir dan sugzesiv die zeiten aus. Jetzt da ich die in einer Array matrix 
gespeichert habe muss ich die mit dem Hyperterminal einlesen und dann 
vom Hyperterminal in einer Textdatei aufzeichnen, die Datei dann in 
Excel implemetieren und aus dem Diagramm machen. Meine Frage ist jetzt, 
ob jemand ne Idee hat wie ich das machen kann das meine Daten direkt in 
eine Excel tabelle gelanden oder direkt in ein Diagramm (noch besser) 
damit ich eine automatische Abarbeitung realisiere.

Ich habe einen 80C535 µC und Arbeite mit dem µVision 2 Paket von Keil.

Wenn jemand mir helfen kann danke ich schon im voraus....

Andy

[Logasta (Gast)]

Die Daten sendest du ja anscheinend jetzt schon über einen UART an den 
PC. Dann kannst du dir in Excel mit VBA ein Makro / Programm (wie man 
das nennen möchte) schreiben, das die Daten direkt in eine Tabelle 
einliest. Über VBA hast du Zugriff auf die serielle Schnittstelle (war 
jedenfalls bei VBA 6 so, danach nix mehr damit gemacht)

[pumpkin (Gast)]

oder du nimmst LabVIEW. ist eh eleganter.

pumpkin

[Andy (Gast)]

Leider habe ich biss jetzt noch nie mit Makros gearbeitet, könntest du 
mir vieleicht ein Beispiel geben?? Oder ein fertiges Programm ??

[Logasta (Gast)]

Ist ne ewigkeit her, das ich mit VBA was gemacht habe. War noch VBA 6, 
jetzt ist da ja VBA.net drin. Kannst du denn was Basic bzw. Visual 
Basic? Denn dann sollte es eigentlich relativ einfach sein.

[Axel R. (Gast)]

Beitrag "Re: µC zu Excel"
anmelden ->SuFu!

[Sonic (Gast)]

>oder du nimmst LabVIEW. ist eh eleganter.

Ist auch zwischen 1249 und 2449 € elegant!

Du wirst doch keine 'Sicherungskopie' haben ?? ;-)

[Sonic (Gast)]

Ups, Zahlendreher!

Ist auch zwischen 1249 und 4249 € elegant!

[Tom (Gast)]

Ich weiß, deine Frage war ganz speziell auf excel ausgerichtet und nicht 
nach Alternativen, dennoch würde ich dir Matlab vorschlagen, wenn du 
darauf Zugriff hast (Student, Uni, FH,...)

Gruß
Tom

[Axel R. (Gast)]

Beitrag "Re: Daten aus dem serial port direkt in Excel tabelle"

Da sich der Threadöffner nicht mehr meldet, hat sichs wohl erledigt.
Einen noch eineindeutigeren Link hatte ich den Tag leider nicht zur 
Hand. Tut mir leid.

AxelR.

[Peter (Gast)]

Excel mit VBA Makros geht ganz gut um mit der UART zu arbeiten.

Die Com-Schnitstelle kannst Du mit einem Commandshell Aufruf 
konfigurieren, zum Beispiel:

RetVal = Shell("mode.com com1 baud=" + br$ + " parity=n data=8 stop=1 
to=on xon=on dtr=on rts=on")

Dann kannst kannst Du die Schnitstelle öffnen, lesen und schreiben, wie 
auf irgend eine andere Datei, nur statt des Dateinamen verwendest Du die 
entsprechende Schnittstellenbezeichnung, zB "Com1", "Com2" oder "LPT" 
etc...

In VBA könnte das in etwa so aussehen:

Sub Send_and_Read()
  '--------------------------------------------------------
  cmnd$ = "Hello World"        'A string to send
  '--------------------------------------------------------
  Open "COM1" For Binary Access Read Write As #1
  cmnd$ = cmnd$ + Chr(13)      'add [CR] to command string
  Put #1, , cmnd$              'write string to interface
  '--------------------------------------------------------
  answer = ""                  'clear response string
  char = Input(1, #1)          'get first character
  While (answer <> Chr(13))    'loop until [CR]
    If (char > Chr(31)) Then
      answer = answer + char   'add, if printable char
    Else
      ' Do what ever you like
    End If
  Wend
  Close #1
  '--------------------------------------------------------
  Cells(1, 1) = answer        'put response in cell("A1")
End Sub

[Peter (Gast)]

Ups, da hatte es noch Fehler, u.a. hab vergessen den nächsten (bzw die 
nächsten chars) zu lesen:

Sub Send_and_Read()
  '--------------------------------------------------------
  cmnd$ = "Hello World"        'A string to send
  '--------------------------------------------------------
  Open "COM1" For Binary Access Read Write As #1
  cmnd$ = cmnd$ + Chr(13)      'add [CR] to command string
  Put #1, , cmnd$              'write string to interface
  '--------------------------------------------------------
  answer = ""                  'clear response string
  char = Input(1, #1)          'get first character
  While (char <> Chr(13))      'loop until [CR]
    If (char > Chr(31)) Then
      answer = answer + char   'add, if printable char
    Else
      ' Do what ever you like
    End If
    char = Input(1, #1)        'get the next character
  Wend
  Close #1
  '--------------------------------------------------------
  Cells(1, 1) = answer         'put response in cell("A1")
End Sub

[Super (Gast)]

7 Jahre alt, und immer noch super. So einfach.

Das funktioniert bei mir mit Windows 7 und einem alten Excel-Version.

    sendVar$ = Worksheets("Sheet1").Range("C26") + Chr(13)
    Open "COM1:19200,N,8,1" For Binary Access Read Write As #1 'Open the com port
    Put #1, , sendVar$ 'write string to interface
    '--------------------------------------------------------
    answer = "" 'clear response string
    char = "" 'clear character string
    While (char <> Chr(13))      'loop until [CR]
        char = Input(1, #1)             'get character
        If (char > Chr(31)) Then
            answer = answer + char   'add, if printable char
            'Worksheets("Sheet1").Range("C29") = answer 'OPTIONAL watch cell fill up until carraige return
        End If
    Wend
    Close #1
    '--------------------------------------------------------
    Worksheets("Sheet1").Range("C27") = answer 'put response in cell

[Oliver R. (orb)]

Super schrieb:
> 7 Jahre alt, und immer noch super

Wenn Du schon erkennst, daß das Thema uralt ist, warum buddelst Du es 
dann wieder aus?

Bist Du auf die Gravedigger-Award scharf?

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Oliver R. schrieb:
> Super schrieb:
>> 7 Jahre alt, und immer noch super
> Wenn Du schon erkennst, daß das Thema uralt ist, warum buddelst Du es
> dann wieder aus?
Ich würde sagen, dass es hier sogar sinnvoll ist, einen einzigen 
"RS232-Excel" Thread zu haben. Aber jetzt hat der Thread einen leichten 
Trend nach OT...

[ICH (Gast)]

Danke für die Hilfe

[Wolf (Gast)]

So was habe ich auch gesucht.

Ist nicht OT.

Aber wie kann ich diese Zeilen in EXCEL integrieren?

Gibt's dazu auch irgendwo eine Anleitung?

Danke

W.