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 

Bascom!?

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Osnove programiranja AVR-jev
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
fluffy111
Član
Član



Pridružen-a: Sob 13 Dec 2008 21:44
Prispevkov: 351
Aktiv.: 1.88
Kraj: Ptuj
PrispevekObjavljeno: Sre Feb 16, 2011 2:02 pm    Naslov sporočila:  Bascom!? Odgovori s citatom
Pozdravljeni!

Imam težavo v Bascomu. Programiram Attiny2313. Oziroma bi ga programiral, če bi lahko program prevedel.
Težava je naslednja:
Ko zaženem prevajalnik kode, mi izpiše napako, da v vrstici 0 (Line: 0) IF THEN expected in hkrati v vrstici 0 END IF expected. Z dvoklikom mi ne označi ničesar.
V nekem drugem programu je podobno. Tam izpiše Line: 6 LOOP expected. Kode napak se ujemajo z kodami napak v Help-u.
Naj še povem, da sem lahko prevajal programe še pred kratkim.

Vsaka pomoč bi mi prišla prav.

Lp, fluffy
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
protoncek
Član
Član



Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 45.61
Kraj: Mengeš
PrispevekObjavljeno: Sre Feb 16, 2011 2:16 pm    Naslov sporočila:   Odgovori s citatom
če bi pripel kodo, potem bi marsikdo lahko pomagal. Takole pa dvomim da kdo lahko. Nekaj ti manjka, to je jasno.
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
fluffy111
Član
Član



Pridružen-a: Sob 13 Dec 2008 21:44
Prispevkov: 351
Aktiv.: 1.88
Kraj: Ptuj
PrispevekObjavljeno: Sre Feb 16, 2011 4:25 pm    Naslov sporočila:   Odgovori s citatom
Koda:
$crystal = 4000000
$regfile = "attiny2313.dat"
$prog &HFF , &HDC , &HDF , &H00                             'zunanji oscilator
'$prog &HFF , &HC2 , &HDF , &H00                            'notranji oscilator

Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2

Tipka1 Alias Pind.3
Tipka2 Alias Pind.4
Tipka3 Alias Pind.5

Tuljava1 Alias Portb.4
Tuljava2 Alias Portb.3
Tuljava3 Alias Portb.1
Tuljava4 Alias Portb.0
Vklop1 Alias Portb.5
Vklop2 Alias Portb.2

Config Portd = &B000111
Config Portb = Output

Portd = &B111000
Portb = 0

'Enable Interrupts
'Enable Timer0
'Config Timer0 = Timer , Prescale = 1
'On Timer0 Prekinitev


'---GLAVNI PROGRAM--------------------------------------------------------------
Dim I As Long
Dim Levo As Byte
Dim Desno As Byte
Dim Tipka_sr As Byte
Dim Cas As Integer


Tipka_sr = 0
I = 0
Levo = 0
Desno = 0
Cas = 10


Do

If Tipka2 = 1 Then
  Waitms 2000
  If Tipka2 = 1 Then Incr Tipka_sr
  Reset Led2
End If

If Tipka_sr = 1 Then

If Tipka1 = 1 Then
 If Desno = 0 Then
  While Tipka_sr = 1
   While Levo <= 3
    Waitms 1500
     If Tipka1 = 1 Then
      Incr Levo
      Reset Led1
      Waitms 100
      Set Led1
   Wend
   If Tipka2 = 1 Then Incr Tipka_sr
  Wend
  End If
End If

If Tipka3 = 1 Then
 If Levo = 0 Then
  While Tipka_sr = 1
   While Desno <= 3
    Waitms 1500
     If Tipka3 = 1 Then
       Incr Desno
       Reset Led3
       Waitms 100
       Set Led3

    Wend
    If Tipka2 = 1 Then Incr Tipka_sr
   Wend
 End If
End If

While Tipka_sr = 1
  Start Timer0
  If Levo = 1 Then Gosub Valovno_levo
  If Levo = 2 Then Gosub Polnokoracno_levo
  If Levo = 3 Then Gosub Polkoracno_levo
  If Desno = 1 Then Gosub Valovno_desno
  If Desno = 2 Then Gosub Polnokoracno_desno
  If Desno = 3 Then Gosub Polkoracno_desno
  If Tipka2 = 1 Then
    Tipka_sr = 0
'   Stop Timer0
'    Reset Timer0
  End If
Wend


Loop


Podprogramov še nimam. Gre za učni model uniolarnega koračnega motorja.

Ko preverjam kodo ali prevajam, mi v vrstici za napake izpiše:
Koda:
Error 7  Line:0   IF THEN expected [277] , in File:
Error 123  Line:0   END IF expected , in File:


Lp
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
protoncek
Član
Član



Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 45.61
Kraj: Mengeš
PrispevekObjavljeno: Sre Feb 16, 2011 4:33 pm    Naslov sporočila:   Odgovori s citatom
Manjka ti en ENDIF - takoj za prvim if-endif stavkom imaš naslednji IF (If Tipka_sr = 1 Then)---in vrsto if-ov za njim - na koncu preštej, eden manjka.
IF stavke raje zamikaj v levo, tako se ti ne bo zgodilo da pozabiš endif - nekatere si zamikal, nekaj pa ne...se pa tudi zgodi da je napaka ravno zaradi tega ker ni zamaknjeo.
Bascom dostikrat v sporočilu napake ne pove (ali pa narobe) v KATERI vrstici je napaka, jo moraš sam najti.
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
strobos
Član
Član



Pridružen-a: Sre 24 Sep 2003 12:19
Prispevkov: 726
Aktiv.: 3.25
Kraj: Brežice
PrispevekObjavljeno: Sre Feb 16, 2011 4:35 pm    Naslov sporočila:   Odgovori s citatom
Takoj za "Do" ti v vgnezdenem if stavku manjka end if.

Edit: prepočasen

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



Pridružen-a: Sob 13 Dec 2008 21:44
Prispevkov: 351
Aktiv.: 1.88
Kraj: Ptuj
PrispevekObjavljeno: Sre Feb 16, 2011 5:09 pm    Naslov sporočila:   Odgovori s citatom
Uff.. d'oh! Spregledal! Hvala za namig.

Lp
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Osnove programiranja AVR-jev Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
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: 79 dni


Powered by phpBB © 2001, 2005 phpBB Group