www.elektronik.si

protoncek · Objavljeno: Sob Mar 31, 2012 1:30 pm Naslov sporočila:

itak...
to so itak padalci, ki imajo povečini tam 5 do 10 postov, potem pa izginejo...

tiger · Objavljeno: Sob Apr 07, 2012 12:01 pm Naslov sporočila:

Pozdravljeni

Na AtMegi162 hočem v Bascomu uporabit oba USARTa. Prvi mi deluje, drugi ne.
V prilogi koda za drugi USART.
Prosim za pomoč.

LP

vilko · Objavljeno: Sob Apr 07, 2012 12:43 pm Naslov sporočila:

ne morem odpreti rar datotek

start · Objavljeno: Sob Apr 07, 2012 12:54 pm Naslov sporočila:

Nisem odpiral a sklepam, da bo treba koncico .rar izbrisati in pustiti samo.bas.

S53DZ · Objavljeno: Sob Apr 07, 2012 12:58 pm Naslov sporočila:

Ne, to je stisnjen arhiv. Noter je ena datoteka .bas. Res pa ima dvojno .bas končnico.

vilko · Objavljeno: Sob Apr 07, 2012 12:59 pm Naslov sporočila:

S53DZ · Objavljeno: Sob Apr 07, 2012 1:02 pm Naslov sporočila:

gor imaš zipano verzijo. Nasvet: dobi si 7z program za arhiviranje.

tiger · Objavljeno: Sob Apr 07, 2012 1:04 pm Naslov sporočila:

Pozdravljeni

Bom poenostavil

'--------------------------------------------------------------------------------------
$regfile = "m162def.dat" ' specify the used micro
$crystal = 7372800
$hwstack = 42 ' default use 42 for the hardware stack
$swstack = 40 ' default use 40 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
Config Lcd = 20 * 4 '20 x 4 LCD display

Send Alias Portc.0 'TX RS485
Config Pinc.0 = Output
Set Send
Waitms 100
Send = 0

Cls
Lcd "RS485"

Dim Polje_sp(14) As Byte 'sprejem podatkov
Dim Cmd As Byte
Dim I As Byte
Dim Prx As Byte
Dim Mp As Bit
Dim Mp2 As Bit

'////////////////////////////////////////////////////////////
'On Urxc Rec_isr 'define serial receive ISR
On Urxc1 Rec_isr 'enable receive isr
'Enable Urxc
Enable Urxc1
Enable Interrupts 'enable interrupts to occur
'////////////////////////////////////////////////////////////
Do
If Mp2 = 1 Then
Locate 2 , 1
For I = 1 To 7
Lcd Polje_sp(i) ; " ";
Next I
Locate 3 , 1
For I = 8 To 13
Lcd Polje_sp(i) ; " ";
Next I
Mp2 = 0
End If
Loop
'//////////////////////////////////////////////////////////
Rec_isr:
'Cmd = Inkey() 'CMD DATA
Cmd = Inkey(2)
If Cmd = 2 Then 'start byte=2
Set Mp 'omogoči sprejemanje paketa
Prx = 1
End If
If Mp = 1 Then 'mp
Polje_sp(prx) = Cmd
Incr Prx
End If
If Prx = 13 Then '
Reset Mp
Set Mp2 'bit sprejetega paketa
End If
Return
'///////////////////////////////////////////////////////

LP

vilko · Objavljeno: Sob Apr 07, 2012 1:13 pm Naslov sporočila:

sem že unzipal .zip file
trenutno nimam časa, bom pogledal tekom dneva.

Jaz imam delujoč program, ki z enim uartom komunicira z rs485, z drugim g GSM modulom, BOm potegnil iz tistega ven bistveno,

potrpljenje

S53DZ · Objavljeno: Sob Apr 07, 2012 1:26 pm Naslov sporočila:

@tiger: Zakaj že daljši listingi niso primerni za neposredno objavo na forumih? In zakaj že obstojajo shareware oz. freeware programi za stiskanje?

Vlado · Objavljeno: Sob Apr 07, 2012 1:31 pm Naslov sporočila:

V programu manjka konfiguracija hitrosti komunikacije, $Baud in $baud1.
V Help-u poglej Config COM1.
LP

vilko · Objavljeno: Sob Apr 07, 2012 1:39 pm Naslov sporočila:

Torej, v mojem programu ja uart0 definiran in bran tako:

tiger · Objavljeno: Sob Apr 07, 2012 1:55 pm Naslov sporočila:

Hvala Vilko, program že deluje.

V programu sem spremenil INKEY(2) v UDR1 in deluje.
Očitno je potrebno, da bere direktno iz registra.

LP

vilko · Objavljeno: Sob Apr 07, 2012 2:12 pm Naslov sporočila:

Vesel sem, da sem bil v pomoč.

Pobesneli · Objavljeno: Ned Apr 08, 2012 7:31 pm Naslov sporočila:

Tudi jaz neki ustvarjam z bascom danes, muči me pa timer. [slovenščina je zame španska vas] z senzorjem merim temperaturo, program pa se mi osvežuje prehitro. Želel bi da se mi zadeva osvežuje na par sekund. Po branju literature naj bi mi s tem pomagal Timer, vendar ga ne morem razumeti. a mi lahko kdo pomaga?

A mi timer pomagal tudi pri utripanju besedila na grafičnem lcdju?

Drugi problem z utripanjem besedila mi ni sedaj pomembem, rad bi razumel timer