PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : serout will nicht!



Ayse2001
18.10.2004, 03:20
Hallo,
ich versuche eine 90S8515 zu programieren. Ich möchte damit HEX dateien empfangen und senden. Und dabei möchte ich das port B.6 benutzen. Für Rx wie Tx.

Eigentlich hatte ich es schonmal gemacht und es hatte auch funktioniert, jedoch nachdem ich meine PC neu aufsetzen musste will es nicht mehr. Oder ich vergesse etwas an dem Code.



$crystal = 3532976
$regfile = "8515def.dat"

Dim Gon1 As Byte , Say1 As Integer


Restore Atr
For Say1 = 1 To 13
Read Gon1
Serout Gon1 , 1 , B , 6 , 9600 , 1 , 8 , 2
Next Say1

End

Atr:
Data &H3B , &H78 , &H11 , &H00 , &H00 , &H54 , &HC4 , &H02 , &H07 , &H8F , &HF1 , &H90 , &H00

Es soll bei einem reset diesen hex 'ATR' versenden.

Ich benutze dafür STK500

RCO
18.10.2004, 10:21
Hast du schonmal das PRog aus dem Help-File ausprobiert?

Das weicht in sachen Pariety-Bit und Stopbit etc. schon voneinander ab, aber das hängt ja von deinem Terminal-prog ab.


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

'tip : Also look at OPEN and CLOSE

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

'tell the compiler which chip we use
$regfile = "2313def.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

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

Ayse2001
18.10.2004, 22:33
Das habe ich auch versucht. Leider auch keine reaktion am B6.

Gibt es vielleicht andere methoden einen HEX zu empfangen und zu senden? Oder kann es auch am einstellung an der Bascom sein.

RCO
09.02.2005, 21:27
Ich weiß nciht, ob es noch wen juckt, mich gerade ja! ;-)
Schau mla unter Helpfile nach "Open", da findet man nen software UART.

Das Beispiel oben läuft bei mir nicht, ich verstehe aber auch nicht warum:


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


port so PORTA.0 and PORTA.1 are used

meint!?

MFG Moritz

11.03.2005, 09:34
Hallo

ich hänge gerade an dem gleichen Problem!!!

Hat jemand mittlerweile eine Lösung gefunden ???

mfg

SMILEY

PicNick
11.03.2005, 16:07
@Ayse2001: Du verwendest EVEN Parity und 2 Stopp-Bits. Hat das einen bestimmten Grund und weiß das auch dein Terminal ?