MLX90614 seriell ansteuern

[andreasrohe]

... die reden immer von BASIC Stamp, was ist das denn für ein "Dialekt" wenn das wie bayrisch und hochdeutsch ist dann wundert mich garnix, nein Scherz bei Seite.
Es ist mir vollkommen unverständlich wie ich das Dingen über den Syntax SERIN (BASCOM) oder, hab ich mir auch mal "reingezogen", 1WWRITE/1WREAD (BASCOM) ansprechen soll.

[Richard]

... die reden immer von BASIC Stamp, was ist das denn für ein "Dialekt" wenn das wie bayrisch und hochdeutsch ist dann wundert mich garnix, nein Scherz bei Seite.
Es ist mir vollkommen unverständlich wie ich das Dingen über den Syntax SERIN (BASCOM) oder, hab ich mir auch mal "reingezogen", 1WWRITE/1WREAD (BASCOM) ansprechen soll.

G*******

Das ist einfach ein anderer Basic Dialeckt Dem mußt Du umprokeln.

Bascom:


Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 1

Input#1,..............Hier jetzt die nötigen Parameter

Serout S , 0 , D , 1 , Mybaud , 0 , 8 , 1

Print#1,............Hier jetzt die nötigen Parameter

Bascom Hilfe "open"..serin,serout beschreibt das ganz gut.

Damit mußt Du dann etwas herumspielen, müglich
das der erste Parameter 0, weg muß dann halt "!xyz",xx,yy....

Gruß Richard

[Richard]

Im simulator eben getestet,...Print "0,"!TEMz",$5A,$07 " ....
klapptt auf die Klammern achten. Am besten die ganzen
befehle in strings mit passenden namen ablegen.

Gruß Richard

[andreasrohe]

Hallo Richard,
wie konntest Du das simulieren?, habe es nicht auf die Kette bekommen.
Ich möchte das Modul über den PINB.5 ansteuern BAUD19200, was ist zu tun?

VD und vG Andreas

[Richard]

Moin.

'----------------------------------------------------------------------
'                         serin_out.bas
'                    (c) 2002-2005 MCS Electronics
' demonstration of DYNAMIC software UART
'----------------------------------------------------------------------

'tip : Also look at OPEN and CLOSE

'tell the compiler which XTAL was used
$crystal = 8000000

'tell the compiler which chip we use
$regfile = "m48def.dat"

'some variables we will use
Dim S As String * 10
Dim Mybaud As Long
'when you pass the baud rate with a variable, make sure you dimesion it as a LONG

Ucsr0b = 0                                                  ' DISABLE HW UART

Mybaud = 19200
Do
  'first get some data
  Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 1
  'now send it
  Serout S , 0 , D , 1 , Mybaud , 0 , 8 , 1
  '                                                     ^ 1 stop bit
  '                                                   ^---- 8 data bits
  '                                              ^------ even parity (0=N, 1 = E, 2=O)
  '                                   ^-------------- baud rate
  '                          ^-------------------- pin number
  '                    ^----------------------- port so PORTA.0 and PORTA.1 are used
  '                ^--------------------------- for strings pass 0
  '           ^-------------------------------- variable
  Wait 1
Loop
End

'because the baud rate is passed with a variable in theis example, you could change it under user control
'for example check some DIP switches and change the variable mybaud

Bascom Beispiel, den Port,pin mußt Du ändern. Den Prosszor Typ
und die Frequenz sowie die Baudrate auch.

Gruß Richard