Реализация меню на LCD - Страница 2 - Форум Picbasic.ru
Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 2 из 2«12
Модератор форума: ivan_fd 
Форум Picbasic.ru » Программирование МК » PicBasicPro » Реализация меню на LCD (Pic16f877 + LCD 2x16)
Реализация меню на LCD
chiper Дата: Сб, 20.11.2010, 01:35  |                                                                                                                Сообщение # 16
Группа: Проверенные
Ранг:  Продвинутый
Сообщений: 108
Репутация: 4   ±
Замечания:   ±
На сайте с 14.07.2010

Статус: Offline

действительно.... только у них это не реализовано на микроконтроллере wink

Ех.. в этом есть что то обидное... уже не в 1 раз додумываюсь до того, что уже до меня придумали на западе.... sad
Конечно у моей конструкции чуть иная спецификация... но принцип работы "гелиостата" идентичен....

Кст. я закончил проект и дописал окончательно прогу, если кому то интересно, то могу разместить проект в статьях после нового года когда время будет свободное...

Вот доарботал кусок отвечающий за работу гелиостата. Даже маленько облегчил программу

Code
if on_geleostat = 1 Then  

          pot 4,250,b1
          pot 5,250,b0                     
          pot 7,250,b11   
          pot 6,250,b00      
           
          if b1  - b0  <= 100 then portc.4 = 0 : portc.5 = 0               
          if b11 - b00 <= 100 then portc.6 = 0 : portc.7 = 0   
          if b0  - b1  <= 100 then portc.4 = 0 : portc.5 = 0               
          if b00 - b11 <= 100 then portc.6 = 0 : portc.7 = 0  

          if b0 > b1 then                     
            c0 = b0 - b1                     
              if c0 > 150 then                     
                 portc.4 = 1                     
                 portc.5 = 0     
              else  
                 portc.4 = 0                      
                 portc.5 = 0  
              endif  
          endif  
           
                    

          if b00 > b11 then                      
            c00 = b00 - b11                      
              if c00 > 150 then                       
                 portc.6 = 1                     
                 portc.7 = 0     
              else  
                 portc.7 = 0                     
                 portc.6 = 0  
              endif  
          endif  
            

          if b0 < b1 then    
              c0 = b1 - b0     
              if c0 > 150 then  
                portc.5 = 1     
                portc.4 = 0   
              else  
                portc.4 = 0  
                portc.5 = 0  
              endif  
           endif   
         
          if b00 < b11 then    
              c00 = b11 - b00     
              if c00 > 150 then  
                portc.7 = 1     
                portc.6 = 0   
              else  
                portc.6 = 0  
                portc.7 = 0  
              endif  
          endif  
           
            
  endif
  goto ifbuttonmenu


Как бы ты хорошо не паял, твой девайс на микроконтроллере без прошивки будет просто куском железа.
Сообщение отредактировал chiper - Сб, 20.11.2010, 01:50
ЯНДЕКС Дата: 20.11.2010
DNM Дата: Вт, 04.10.2011, 23:31  |                                                                                                                Сообщение # 17
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

Pause 500 ' Wait for LCD to startup
Lcdout $fe, 1 ' Clear LCD screen
Lcdout " *** RunTime ***"
loop:
if portb.4 = 1 then goto clock1
pause 5
if portb.5 = 1 then goto a1
pause 5
if portb.6 = 1 then goto a2
pause 5
goto loop
'--------------------------------------------------------------------
a1:
if portb.5 = 1 then RTCHour=RTCHour+1
'if portb.6 = 1 then RTCHour=RTCHour-1
if RTCHour>24 then RTCHour=0
if RTCHour<0 then RTCHour=0
Lcdout $fe, 1 ' Clear LCD screen
Lcdout "RTCHour:", dec2 RTCHour
Pause 500 ' Wait .5 second
if portb.4 = 1 then goto a2 'переход на минуты
pause 5
goto a1
'--------------------------------------------------------------------
a2:
if portb.5 = 1 then RTCMin=RTCMin+1
'if portb.6 = 1 then RTCMin=RTCMin-1
if RTCMin>60 then RTCMin=0
if RTCMin<0 then RTCMin=0
Lcdout $fe, 1
Lcdout "RTCMin:", dec2 RTCMin
Pause 500 ' Wait .5 second
if portb.4 = 1 then goto a3 'переход на секунды
goto a2
'--------------------------------------------------------------------
a3:
if portb.5 = 1 then RTCSec=RTCSec+1
'if portb.6 = 1 then RTCSec=RTCSec-1
if RTCSec>60 then RTCSec=0
if RTCSec<0 then RTCSec=0
Lcdout $fe, 1 ' Clear LCD screen
Lcdout "RTCSec:", dec2 RTCSec
Pause 500
if portb.4 = 1 then goto a4 'переход на установку года
goto a3
'--------------------------------------------------------------------
a4:
if portb.5 = 1 then RTCYear=RTCYear+1
'if portb.6 = 1 then RTCYear=RTCYear-1
if RTCYear>99 then RTCYear=0
if RTCYear<0 then RTCYear=0
Lcdout $fe, 1 ' Clear LCD screen
Lcdout "RTCYear:", dec2 RTCYear
Pause 500
if portb.4 = 1 then goto a5 'переход на установку месяца
goto a4
'--------------------------------------------------------------------
a5:
if portb.5 = 1 then RTCMonth=RTCMonth+1
'if portb.6 = 1 then RTCMonth=RTCMonth-1
if RTCMonth>12 then RTCMonth=1
if RTCMonth<1 then RTCMonth=1
Lcdout $fe, 1 ' Clear LCD screen
Lcdout "RTCMonth:", dec2 RTCMonth
Pause 500
if portb.4 = 1 then goto a6 'переход на установку дня
goto a5
'--------------------------------------------------------------------
a6:
if portb.5 = 1 then RTCDate=RTCDate+1
'if portb.6 = 1 then RTCDate=RTCDate-1
if RTCDate>31 then RTCDate=1
if RTCYear<1 then RTCYear=1
Lcdout $fe, 1 ' Clear LCD screen
Lcdout "RTCDate:", dec2 RTCDate
Pause 500
if portb.4 = 1 then goto clock 'переход на установку часов
goto a6
'--------------------------------------------------------------------
Форум Picbasic.ru » Программирование МК » PicBasicPro » Реализация меню на LCD (Pic16f877 + LCD 2x16)
Страница 2 из 2«12
Поиск: