Ich bin Anfänger und habe eine Frage:
Ich möchte Messdaten von einem AtMega32 via RS232 auf einen PC übertragen und da als File abspeichern. Oder ev. via ein Programm vom PC aus aus dem AtMega rausholen (I2C EEPROM).
Leider habe ich nirgends gefunden wie das geht. Kann mir jemand helfen?
Besten Dank Robert
hey!
wie =[Cassiopeia]=-schon sagt ein kleines prog schreiben ich habe das ganzte mit einem makro unter exel gemacht.
der mir die daten aus der UART raus holt nach dem ich ihn einen string gesendet habe wie zb "daten" holt er die gespeicherten daten aus dem eeprom ab.
Wer Rechtschreibfehler findet, darf sie behalten.
hmmmm also ich will mir auch ein proggie schreiben was hin- und herkommuniziert ...
zwar über rs485 aber ist ja nicht anders... mit nem atmel hab ichs schon hinbekommen mit den geräten die ich habe daten zu entlocken ...
und über hyperterminal gehts auch .... jetz soll ne pc software her
was nehm ich für nen compiler ??? hab noch visual basic 6 rumliegen ... noch nie benutzt ...
ich habe es mit visual basic gemacht und in excel eingefühgt als makro war am einfachsten ist gibt es sehr gutte beschreibungen im netz kannd direckt die RS232 ansprechen mit der rs485 habe ich keien arnung ist die am pc????
Wer Rechtschreibfehler findet, darf sie behalten.
hast nen quellcode da?
würd mich sehr interessieren.
der rs485 setzt das serielle signal auf ne zweidraht-leitung und dann wieder zurück.
werd mal virtual basic installieren ...
hey!
ja logen das die rs485 nicht masse bezogen ist dachte nur dein rechner hat gleich so eine schnitstelle drin!
so hir ne einfache geschichte mit dem modem in VB z.b. in excel alt+f11 den code rein schreiben! vertig ist das makro dann kannst noch rein schreiben das er automartisch beim öfnen der datei das markro starten soll uns schohn sendet er nen befel an deinen µc und der schickt dir dann deine daten in die tabelle.
hir noch mal die web seite!Code:Public Function Read(ByVal ReadSize As Integer) As Integer Dim iReadChars, iResult As Integer If ReadSize = 0 Then ReadSize = 512 'wenn keine Bytes zu lesen Standard Size If hCOMM = -1 Then Throw New ApplicationException("Der Port ist nicht geöffnet") Else Try 'abholen ReDim bytRecvBufARR(ReadSize - 1) iResult = ReadFile(hCOMM, bytRecvBufARR, ReadSize, iReadChars, 0) If iResult = 0 Then 'Lese Fehler Else Return (iReadChars)'Anzahl Zeichen gelesen End If Catch Ex As Exception 'Execption End Try End If End Function
http://www.devtrain.de/news.aspx?artnr=713
Wer Rechtschreibfehler findet, darf sie behalten.
Lesezeichen