ok here it is i want to escape and go sub from this loop but seems that nothing is working for me!!!
Code:main: Clear ' ocisti sve varijable Low PORTD.0 ' usli smo u mod za prikaz poruke a=14 k=120 j=0 leddata[0-13] = $00 ' varijabla ledadta od 0 do 13 je 00 For b = 0 To 11 ' moguci broj slova u poruci For i = 0 To 4 c=i+a 'povecaj a=14-19; a=20-24; a=26-30 itd... d=i+j+k 'povecaj j=120-124; a=126-130; a=131-135 itd... leddata [c]= ERead d 'filuj ledadtu od 14 do max broja slova za prikaz iz eeproma pocevsi od 120 pa nadalje DelayUS 20 Next leddata [a+5]=ERead 119 'upisi prazanu kolonu izmedju slova a=a+6 j=j+6 Next For scroll = 0 To c ' skrolaj poruku c zadnji leddata For scan = 0 To 35 PORTC.1 = 1 'reseting 4017 PORTC.1 =0 For kolona = 0 To 14 'broj kolona PORTC.0 = 1 'clock 4017 PORTC.0 =0 PORTB = leddata[kolona] DelayUS 250 PORTB=0 Next Next For brojac = 0 To (c-1) leddata[brojac]=leddata[brojac+1]' pomjeri za jedan Next Next GoTo main End




Bookmarks