Soros port (rs232)

Sanci

Igen.. csak én nem nagyon értek a nyelvükön.
Bár a minta progit elkűldeném, abból csak megértenék.
Illetve el is elküldöm. Majd meglátjuk mit reagálnak rá.

Ez a LIB-es dolog érdekes.

Csak ott meg ugye ASM kellene. Én azt nem nagyon tudom még sajnos.

Azért kipróbálom más verzióval is.. csak az a fránya kódméret..

Sanci

Háát így sem eszi.

Dim Com1setup As String * 20
Com1setup = "comd.0:19200,8,n,1"
Open Com1setup For Output As #1
Print #1 , "hello"
Close #1

end

nobody_hun

herc kolléga nagyjából már leírta:

Kód: Egész kijelölése

Rem Lezárni a nyitott soros portot
Close #1

Rem I értéke alapján bekonfiguráljuk a Com1-et
Select Case I
   Case 1 
   Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

   Case 2
   Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

   Case 3
   Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

End Select

Rem Újra megnyitni a soros portot
Open "com1:" For Binary As #1

[/code]

Szoftveres sorosport vagy hardveres kell? mert elég rendesen keveredik már.....

Sanci

Szoftveres.
Port A0 - A7 -ig 8 db soros kimenet.
Az alábbi kódot a bascom elfogadja. A Gondom viszont hogy Com5 és fölfele már nem használható .

$regfile "m32def.dat"
$crystal = 11059200

Dim I As Byte
I = 1

Open "comd.0:19200,8,n,1" For Output As #7
Print #7 , "hello"

Rem Lezárni a nyitott soros portot
Close #7
Rem I értéke alapján bekonfiguráljuk a Com1-et

Select Case I
Case 1 : Config Com7 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Case 2 : Config Com7 = 4800 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Case 3 : Config Com7 = 300 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

End Select

Rem Újra megnyitni a soros portot
Open "com1:" For Binary As #7
Print #7 , "talán most"

Kód: Egész kijelölése

$regfile "m32def.dat" 
$crystal = 11059200 


Dim I As Byte 
I = 1 


Open "comd.0:19200,8,n,1" For Output As #7 
Print #7 , "hello" 


Rem Lezárni a nyitott soros portot 
Close #7 
Rem I értéke alapján bekonfiguráljuk a Com1-et 

Select Case I 
Case 1 : Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 

Case 2 : Config Com1 = 4800 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 

Case 3 : Config Com1 = 300 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 

End Select 

Rem Újra megnyitni a soros portot 
Open "com1:" For Binary As #7 
Print #7 , "talán most"

Config COM1, nem COM7!

Megoldottam:
Nem a legszebb, de működik:)

Kód: Egész kijelölése

$regfile "m32def.dat"
$crystal = 11059200
Declare Sub Com1print(byval A As String)
Declare Sub Com2print(byval A As String)
Dim A As String * 20

Dim I As Byte
I = 1


Open "comd.0:19200,8,n,1" For Output As #7
Print #7 , "hello"
Rem Lezárni a nyitott soros portot
Close #7

Rem I értéke alapján bekonfiguráljuk és írunk a Com1-re!
If I = 1 Then Call Com1print( "mitirki")
If I = 2 Then Call Com2print( "mitirki")
'Select Case I
'Case 1 : Call Com1()
'Case 2 : Call Com2()
'Case 3 : Call Com3()
'End Select
'csak írkálunk a COM1re:
call com1print("ezaz!")
Rem Újra megnyitni a soros portot
Open "com1:" For Binary As #7
Print #7 , "talán most"
Close #7
End


Sub Com1print(a)
Open "comd.0:19200,8,n,1" For Output As #7
Print #7 , A
Close #7
Print
End Sub

Sub Com2print(a)
Open "comd.0:9600,8,n,1" For Output As #7
Print #7 , A
Close #7
Print
End Sub

Sanci

Nagyom köszönöm!
Kipróbálom.

Sanci

Háát nem megy nálam.
"mitirki" sem jelenik meg, helyette soremelés kocsi vissza.
Azaz "print" tartalom nélül.

Sanci

Dim A As String * 20

A = "com1:9600,7,n,2"

Fociklus:
Do

If A = "com1:9600,7,n,2" Then Gosub Com196007n2 'itt nem ok.
If A = "com1:9600,7,n,1" Then Gosub Com196007n1
Waitms 200
Loop

Com196007n1:
Open "coma.0:9600,7,n,1" For Output As #1
Print #1 , "proba 1"
Close #1
Return

Eddig végrehajtja, innentől nem.

Com196007n2:
Open "coma.0:9600,7,n,1" For Output As #1
Print #1 , "proba 2"
Close #1
Return

End

Más variáció:

$sim
Dim A As Byte
A = 2

Fociklus:
Select Case A
Case 1 : Open "coma.0:9600,7,n,1" For Output As #1
Print #1 , "select 1"
Close #1

Case 2 : Open "coma.0:9600,8,o,1" For Output As #1
Print #1 , "select 2"
Close #1

Case Else : Nop
End Select
Waitms 200
Goto Fociklus

ITT a CASE 2: részt elvileg végrehajtja, ám a valóságban nem küldi ki az adatokat a #1 -en.

Sanci

Lehet hülye 5let de: Van e arra mód hogy az EEprom-ba utasításokat tároljak, majd onnan csak a szükségeset bányásszam ki?
elvileg akkor a programba nem fordítaná be..

Sanci

Lehet hülye 5let de: Van e arra mód hogy az EEprom-ba utasításokat tároljak, majd onnan csak a szükségeset bányásszam ki?
elvileg akkor a programba nem fordítaná be..

Nem, nincsen......
EEPROM adathalmaz.....

Az utasítás meg amúgy is csak ASM lenne, nem BASCOM alapú....

Multiplex megoldás?
http://www.vimms.org/multiplex/layout.pdf

Sanci

Igen, már filóztam rajta.

Bár az is megfordult a fejembe hogy Mega128. ott elvileg a 4 Hw Uart-ot tudom konfigolni, majd nyitok 4 SW-t mellé.
Igaz akkor a 4 SW az fix marad, de a 4 HW elvileg már konfigolható kedvem szerint.

A végleges kódméret abba már biztosan bele is férne.

Az MCS-nek elküldtem a külömböző megoldások változatát... Hátha..

A multiplexeres módszerhez van szerencsére itthon cd 4051,4052,4053 is. Beatankoltam szerencsére nem nagy tétel. (Kb.50 Ft.)

M1280 - 4
M2560 -4
M640 - 4

Az M128 csak 2 UART-ot tartalmaz!