|
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Pet Sep 26, 2014 11:20 am Naslov sporočila: |
|
|
Mi lahko kdo prosim pojasni razliko med primerom 1 in primerom 2. Prvi mi deluje drugi pa ne vendar v obeh primerih iščem RING. Drugi primer je iz MCS spletne strani
Inmsg je kar prejmem preko UART
Primer 1:
Koda: |
If Inmsg = "RING" Then
Print "ATH"
Rele1 = 0
Wait 5
Rele1 = 1
End if |
Primer2:
Koda: |
I = Instr(inmsg , "RING") ' look for CLIP
If I > 0 Then 'found it
Print "ATH"
Rele1 = 0
Wait 5
Rele1 = 1
End If |
|
|
Nazaj na vrh |
|
|
oobuco Član
Pridružen-a: Pon 25 Avg 2014 11:00 Prispevkov: 206 Aktiv.: 1.76 Kraj: Šentvid pri Stični
|
Objavljeno: Pet Sep 26, 2014 11:26 am Naslov sporočila: |
|
|
V prvem mora biti Inmsg točno enak stringu RING
v drugem pa mora inmsg vsebovati substring RING |
|
Nazaj na vrh |
|
|
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Pet Sep 26, 2014 11:27 am Naslov sporočila: |
|
|
hvala.
Imaš mogoče kakšno idejo zakaj mi primer 2 ne deluje? Preko uart namreč dobim samo ukaz RING |
|
Nazaj na vrh |
|
|
oobuco Član
Pridružen-a: Pon 25 Avg 2014 11:00 Prispevkov: 206 Aktiv.: 1.76 Kraj: Šentvid pri Stični
|
Objavljeno: Pet Sep 26, 2014 11:34 am Naslov sporočila: |
|
|
Res že dolgo nisem delal v Bacomu in nisem prepričan v par stvari.
Ali je Inmsg zanesljivo ista spremenljivka kot inmsg, mogoče je case sensitive.
Ali je index prvega znaka zanesljivo 1 in 0 pomeni nisem našel ali je mogoče index prvega znaka 0 pa -1 pomeni nisem našel, ker potem bi moralo biti I>=0 ali pa I<>-1. |
|
Nazaj na vrh |
|
|
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Čet Okt 30, 2014 7:50 pm Naslov sporočila: |
|
|
Mi lahko kdo prosim malo pomaga pri uporabi ADC-ja? Imam Mega8
Rad bi meril napetost do 12,5V (DC)
Vem da moram uporabiti napetostni delilnik iz 12,5V na 5V
Ne vem pa kaj moram uporabiti v programu kot REFERENCE |
|
Nazaj na vrh |
|
|
red_mamba Član
Pridružen-a: Ned 20 Feb 2005 17:56 Prispevkov: 1486 Aktiv.: 6.69 Kraj: Yogyakarta
|
Objavljeno: Čet Okt 30, 2014 8:02 pm Naslov sporočila: |
|
|
mato1111 je napisal/a: |
Mi lahko kdo prosim malo pomaga pri uporabi ADC-ja? Imam Mega8
Rad bi meril napetost do 12,5V (DC)
Vem da moram uporabiti napetostni delilnik iz 12,5V na 5V
Ne vem pa kaj moram uporabiti v programu kot REFERENCE |
ce delis napetost z 4 ti bo predstavljalo 20V na vhodu full scale ce bo referenca 5V.
ce lahko nastavis referenco recimo 4V bo 16V na vhodu full scale.... _________________ Bad things happen to good people all the time for no reason!
Blog |
|
Nazaj na vrh |
|
|
protoncek Član
Pridružen-a: Sre 31 Jan 2007 9:41 Prispevkov: 9573 Aktiv.: 45.82 Kraj: Mengeš
|
Objavljeno: Čet Okt 30, 2014 8:12 pm Naslov sporočila: |
|
|
Mega8 ima notranjo refernco 2.56V ali pa zunanjo, ki jo lahko pripelješ na aref pin. Najenostavneje pa je če izbereš avcc in je kot referenca napajanje čipa. Seveda moraš pri tem imeti čimbolj stabilno 5V napajanje. Torej pri config daj reference = Avcc, pa napetostni delilnik. Če ga boš izračunal tako, da bo vrednost 1000enaka 5V, bo to kar OK. Jaz ponavadi za take stvari dam kar multiturn trimer, s katerim nastavim delilnik. |
|
Nazaj na vrh |
|
|
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Pet Okt 31, 2014 5:40 pm Naslov sporočila: |
|
|
hvala
Rabim kak namig...
V Glavni prog. zanki sem dodal kontrolo vhodov. Na vhodu je stalno "brika" ko pa se razklene mi štarta podprogram. Narejeno je tako, da mi podprogram štarta samo 1x
ss3 je staro stanje vhoda
Koda: |
If Vhod3 = 1 And Ss3 = 0 Then
Alarm_sprozen
Ss3 = 1
End If
If Vhod3 = 0 And Ss3 = 1 Then
Ss3 = 0
End If
|
Imam problem da mi ne deluje
Če pa naredim v zanki še zanko za vhode mi vhodi delujejo vendar mi ostalo v glavni zanki ne deluje |
|
Nazaj na vrh |
|
|
simeon Član
Pridružen-a: Pon 21 Maj 2007 21:55 Prispevkov: 118 Aktiv.: 0.57 Kraj: Šentjernej
|
Objavljeno: Pet Okt 31, 2014 7:08 pm Naslov sporočila: |
|
|
Kaj pa da bi naredil prekinitev ob 0? Potem bi v prekinitvenem programu zapisal samo en if stavek.
Koda: |
If Ss3 = 0 Then
Alarm_sprozen
Ss3 = 1
End If |
_________________ Sej bo bolš! |
|
Nazaj na vrh |
|
|
tiger Član
Pridružen-a: Čet 05 Feb 2004 0:22 Prispevkov: 1138 Aktiv.: 5.12 Kraj: Škofja Loka
|
Objavljeno: Ned Nov 02, 2014 12:42 pm Naslov sporočila: |
|
|
Raziskujem xmego, ko hočem uporabit zunanji quartz mi ne dela xmega.
Takole imam nastavitve za quartz, prosim, kaj sem spregledal?
$regfile = "xm128a3def.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 64
$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014
Config Portf = Output
Config Osc = Disabled , Extosc = Enabled , Range = 12mhz_16mhz '32MHz
Config Sysclock = External , Prescalea = 1 , Prescalebc = 1_1
Config Com1 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM1:" For Binary As #1 |
|
Nazaj na vrh |
|
|
protoncek Član
Pridružen-a: Sre 31 Jan 2007 9:41 Prispevkov: 9573 Aktiv.: 45.82 Kraj: Mengeš
|
Objavljeno: Ned Nov 02, 2014 2:28 pm Naslov sporočila: |
|
|
Fusebite si nastavil na zunanji kvarc? Zdajle se ne spomnim natanko, a se mi zdi da je to treba nastavit... |
|
Nazaj na vrh |
|
|
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Sob Nov 15, 2014 11:20 am Naslov sporočila: |
|
|
Mi lahko kdo pomaga kaj delam narobe?
Ko se vhod1 prvič sklene mi mora poslati sms. Potem se lahko še 240x sklene vendar mi nebi smel poslati sms-a. Vhod se bo sklenil vsako minuto vendar nočem da mi pošilja sms vsako minuto, ampak enkrat na 240 ciklov.
Sedaj pa mi pošlje sms vsakič ko se vhod sklene
Koda: |
If Vhod1 = 1 And Ss1 = 0 Then
Stetje
Ss1 = 1
Elseif Vhod1 = 0 And Ss1 = 1 Then
Ss1 = 0
End if
Sub Stetje
Incr A
If A = 1 Then
Num2 = Pass_stored
Msg = "240x sklenjeno"
Send_sms
Elseif A = 240 Then
A = 0
End If
End Sub
|
Nazadnje urejal/a mato1111 Sob Nov 15, 2014 11:48 am; skupaj popravljeno 1 krat |
|
Nazaj na vrh |
|
|
tiger Član
Pridružen-a: Čet 05 Feb 2004 0:22 Prispevkov: 1138 Aktiv.: 5.12 Kraj: Škofja Loka
|
Objavljeno: Sob Nov 15, 2014 11:47 am Naslov sporočila: |
|
|
Manjka ti zaključek ( End If ) prvega If stavka.
LP |
|
Nazaj na vrh |
|
|
mato1111 Član
Pridružen-a: Pet 28 Dec 2012 14:42 Prispevkov: 611 Aktiv.: 4.46 Kraj: Vrhnika
|
Objavljeno: Sob Nov 15, 2014 11:51 am Naslov sporočila: |
|
|
hvala, pozabil sem skopirat tu notri |
|
Nazaj na vrh |
|
|
igo Član
Pridružen-a: Sre 11 Okt 2006 19:11 Prispevkov: 3638 Aktiv.: 17.11
|
Objavljeno: Sob Nov 15, 2014 1:48 pm Naslov sporočila: |
|
|
Oba "Elseif" nadomesti samo z "If". Seveda mora imeti tudi vsak svoj "End if".
Dodano:
Če sporočilo "240x sklenjeno" pomeni, da se mora prvi sms poslati šele po 240 impulzih, prestavi pošiljanje v tisti pogoj:
if A=240 then
pošiljanje sms-a
A=0
end if
Trenutno je narejeno tako, da se sms pošlje že ob prvem impulzu, naslednji sms pa po 240 impulzih. _________________ Teoretično je praksa posledica teorije, praktično je pa ravno obratno. (igo 2001)
LP, Igor |
|
Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu Ne, ne moreš odgovarjati na teme v tem forumu Ne, ne moreš urejati svojih prispevkov v tem forumu Ne, ne moreš brisati svojih prispevkov v tem forumu Ne ne moreš glasovati v anketi v tem forumu Ne, ne moreš pripeti datotek v tem forumu Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 49 dni
Powered by phpBB © 2001, 2005 phpBB Group
|