www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

Programiranje v bascom avr
Pojdi na stran Prejšnja  1, 2, 3 ... 30, 31, 32 ... 36, 37, 38  Naslednja
 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Pet Sep 26, 2014 11:20 am    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
oobuco
Član
Član



Pridružen-a: Pon 25 Avg 2014 11:00
Prispevkov: 206
Aktiv.: 1.76
Kraj: Šentvid pri Stični

PrispevekObjavljeno: Pet Sep 26, 2014 11:26 am    Naslov sporočila:   Odgovori s citatom

V prvem mora biti Inmsg točno enak stringu RING

v drugem pa mora inmsg vsebovati substring RING
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Pet Sep 26, 2014 11:27 am    Naslov sporočila:   Odgovori s citatom

hvala.
Imaš mogoče kakšno idejo zakaj mi primer 2 ne deluje? Preko uart namreč dobim samo ukaz RING
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
oobuco
Član
Član



Pridružen-a: Pon 25 Avg 2014 11:00
Prispevkov: 206
Aktiv.: 1.76
Kraj: Šentvid pri Stični

PrispevekObjavljeno: Pet Sep 26, 2014 11:34 am    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Čet Okt 30, 2014 7:50 pm    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
red_mamba
Član
Član



Pridružen-a: Ned 20 Feb 2005 17:56
Prispevkov: 1486
Aktiv.: 6.69
Kraj: Yogyakarta

PrispevekObjavljeno: Čet Okt 30, 2014 8:02 pm    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
protoncek
Član
Član



Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 45.83
Kraj: Mengeš

PrispevekObjavljeno: Čet Okt 30, 2014 8:12 pm    Naslov sporočila:   Odgovori s citatom

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
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Pet Okt 31, 2014 5:40 pm    Naslov sporočila:   Odgovori s citatom

hvala Smile

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 Brick wall

Če pa naredim v zanki še zanko za vhode mi vhodi delujejo vendar mi ostalo v glavni zanki ne deluje Brick wall
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
simeon
Član
Član



Pridružen-a: Pon 21 Maj 2007 21:55
Prispevkov: 118
Aktiv.: 0.58
Kraj: Šentjernej

PrispevekObjavljeno: Pet Okt 31, 2014 7:08 pm    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
tiger
Član
Član



Pridružen-a: Čet 05 Feb 2004 0:22
Prispevkov: 1138
Aktiv.: 5.12
Kraj: Škofja Loka

PrispevekObjavljeno: Ned Nov 02, 2014 12:42 pm    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
protoncek
Član
Član



Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 45.83
Kraj: Mengeš

PrispevekObjavljeno: Ned Nov 02, 2014 2:28 pm    Naslov sporočila:   Odgovori s citatom

Fusebite si nastavil na zunanji kvarc? Zdajle se ne spomnim natanko, a se mi zdi da je to treba nastavit...
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Sob Nov 15, 2014 11:20 am    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
tiger
Član
Član



Pridružen-a: Čet 05 Feb 2004 0:22
Prispevkov: 1138
Aktiv.: 5.12
Kraj: Škofja Loka

PrispevekObjavljeno: Sob Nov 15, 2014 11:47 am    Naslov sporočila:   Odgovori s citatom

Manjka ti zaključek ( End If ) prvega If stavka.

LP
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
mato1111
Član
Član



Pridružen-a: Pet 28 Dec 2012 14:42
Prispevkov: 611
Aktiv.: 4.46
Kraj: Vrhnika

PrispevekObjavljeno: Sob Nov 15, 2014 11:51 am    Naslov sporočila:   Odgovori s citatom

hvala, pozabil sem skopirat tu notri Mr. Green
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
igo
Član
Član



Pridružen-a: Sre 11 Okt 2006 19:11
Prispevkov: 3638
Aktiv.: 17.11

PrispevekObjavljeno: Sob Nov 15, 2014 1:48 pm    Naslov sporočila:   Odgovori s citatom

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
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Pojdi na stran Prejšnja  1, 2, 3 ... 30, 31, 32 ... 36, 37, 38  Naslednja
Stran 31 od 38

 
Pojdi na:  
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: 48 dni


Powered by phpBB © 2001, 2005 phpBB Group