Program Menüsü olan yazılım örneği

[POWER]

yine aynı.isis dosyasını ve pbp dosyasını ayrı ayrı sıkıştırmadan yüklemeyi denesen.

[elektro77]

DEFINE OSC 20
@ DEVICE pic16F877
@ DEVICE pic16F877, WDT_ON
@ DEVICE pic16F877, PWRT_ON
@ DEVICE pic16F877, PROTECT_OFF
@ DEVICE pic16F877, XT_OSC
'#Config
' __config _BODEN_OFF  & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _XT_OSC
' #Endconfig

TRISA=%00111111
TRISB=%00000001
TRISC=%01110000
TRISD=%00000000
TRISE=%00000000
PORTA=0
PORTB=0
PORTC=0
PORTD=0
PORTE=0

DEFINE LCD_DREG		PORTB	
DEFINE LCD_DBIT		4		
DEFINE LCD_RSREG	PORTB	
DEFINE LCD_RSBIT	2	
DEFINE LCD_EREG		PORTB	
DEFINE LCD_EBIT		3		
DEFINE LCD_BITS		4	
DEFINE LCD_LINES	4
ADCON1 = 7      
'---------------------------değişkenler-----------------------------------------
LEDSYC VAR BYTE
ASAGIGIT VAR BYTE
DMX VAR WORD
say var BYTE 56
EKLE VAR BYTE
dmxsyc var BYTE
GECIKME VAR BYTE
Z vAR word
LAMP VAR BIT
AYR      VAR    BIT
AYAR     VAR    BYTE
SYC      VAR    BYTE
SAYAC    VAR    BYTE
MENU     VAR   PORTA.0
YUKARI   VAR   PORTA.1
ASAGI    VAR   PORTA.2
enter    var   porta.4
SYMBOL BUZER=PORTE.0
SYMBOL LAMBA=PORTD.0
SYMBOL REDLEDD=PORTD.1
SYMBOL GREENLEDD=PORTD.2
SYMBOL BLUELEDD=PORTD.3
SYMBOL WHITELEDD=PORTD.4
SYMBOL PANLED=PORTD.5
'***********************BASLANGIÇTA EPROM OKUMA BOLUMU************************ *0
lcdout $fe,1
pause 200

GOSUB EPROMOKU''''epromu burada okur ve ekrana yazar

BASLANGIC:
SYC=0

'*****************************BASLA*********************************************BASLA
BASLA: 
GOSUB EKRAN1  
    IF MENU=1 THEN  GOTO AYAR_MENUSU
goto BASLA       
'***********************************EKRAN1*************************************1
EKRAN1:       
lcdout $FE,$80, "    menulu deneme   "
lcdout $FE,$C0,	"       yazılımı     "
lcdout $FE,$94, "     umit gungor    "
LCDOUT $FE,$D4, "DMX:",# DMX,"       " 
RETURN
'*********************************AYAR_MENUSU***********************************2
AYAR_MENUSU:
GOSUB BIP
WHILE enter=1:WEND
GOSUB TEMIZLE
SYC=0

AYARLAR:
IF YUKARI=1 THEN 
GOSUB BIP
WHILE YUKARI=1:WEND
SYC=SYC-1
IF SYC=255 THEN SYC=4
ENDIF

IF ASAGI=1 THEN
GOSUB BIP
WHILE ASAGI=1:WEND
SYC=SYC+1
  IF SYC=5 THEN SYC=0
ENDIF

goto DURUM
GOTO AYARLAR
'*********************************ANA_MENU_SAYFASI******************************3   
DURUM:

SELECT CASE SYC

CASE 0
lcdout $fe,$80,"DMX ADRES>>>>>>>>"
lcdout $fe,$c0,"LAMP CONTROL     "
lcdout $fe,$94,"LED CONTROL      "  
LCDOUT $FE,$D4,"PAN/TILT         "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
GOTO DMXADRES
ENDIF 

CASE 1
lcdout $fe,$80,"DMX ADRES        "
lcdout $fe,$c0,"LAMP CONTROL>>>  "
lcdout $fe,$94,"LED CONTROL      "  
LCDOUT $FE,$D4,"PAN/TILT         "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
GOTO LAMBAKONT
ENDIF

CASE 2
lcdout $fe,$80,"DMX ADRES        "
lcdout $fe,$c0,"LAMP CONTROL     "
lcdout $fe,$94,"LED CONTROL>>>>  "  
LCDOUT $FE,$D4,"PAN/TILT         "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
GOTO LEDKONTROL
ENDIF 

CASE 3
lcdout $fe,$80,"DMX ADRES         "
lcdout $fe,$c0,"LAMP CONTROL      "
lcdout $fe,$94,"LED CONTROL       "  
LCDOUT $FE,$D4,"PAN/TILT>>>>>>>   "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
GOTO PAN 
ENDIF 
'
'
'buralara daha çok menü ana başlıkları eklenecek.
'
'
CASE 4
lcdout $fe,$80,"EXIT>>>>>>>>>>   "
lcdout $fe,$c0,"                 "
lcdout $fe,$94,"                 "  
LCDOUT $FE,$D4,"                 "  
IF enter=1 THEN BASLA
END SELECT
goto AYARLAR
'********************************OK İBARESİ KOMUTU******************************4  
 
AYARLANDI:
       IF enter=1 then AYARLANDI
       lcdout $fe,1
       LCDOUT $FE,$C0,"      ...OK...      " 
       GOSUB BIPBIP
       'SYC=0
       PAUSE 800
       GOSUB TEMIZLE
       GOTO DURUM
'******************************LAMBA KONTROL SAYFASI****************************5
LAMBAKONT:'lamba aç kapa işlemleri başı
WHILE ENTER=1:WEND
GOSUB TEMIZLE

LAMBAYARI:
lcdout $FE,$80,"LAMP SELECT "
lcdout $FE,$94,"ON     "
lcdout $FE,$D4,"OFF    "
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$94,"ON>>>>>>>>   "
lcdout $FE,$D4,"OFF          "
LAMBA=1
ENDIF
 

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$94,"ON           "
lcdout $FE,$D4,"OFF>>>>>>>   "
LAMBA=0
ENDIF


IF ENTER=1 THEN AYARLANDI
GOTO LAMBAYARI              
'***********************DMX ADRES AYAR SAYFASI**********************************6
DMXADRES:
WHILE ENTER=1:WEND
GOSUB TEMIZLE
lcdout $FE,$80, "DMX SELECT"
DMX_AYAR: 'dmx adresini değiştirme işlemleri
GOSUB DMX_EKRAN

DMX_ARTIRMA:
IF YUKARI=1 THEN
   GOSUB DMX_EKRAN
   EKLE=1:SAY=0
   WHILE YUKARI=1
     SAY=SAY+1
     IF SAY=11 THEN EKLE=10
     DMX=DMX+EKLE
     GOSUB DELAY
     IF DMX>511 THEN dmx=1 
     GOSUB DMX_EKRAN
   WEND
 ENDIF 
 IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF     
'--------------------------
DMX_EKSILTME:
IF ASAGI=1 THEN
  SAY=0:EKLE=1
  GOSUB DMX_EKRAN
  WHILE ASAGI=1
    SAY=SAY+1
    IF SAY=11 THEN EKLE=10
    DMX=DMX-EKLE
    GOSUB DELAY
    IF DMX>65500 THEN 
      DMX=511:EKLE=1:SAY=0
    ENDIF  
    GOSUB DMX_EKRAN
  WEND
 ENDIF      
IF ENTER=1 THEN AYARLANDI 'dmx adresini değiştirme işlemleri sonu
GOTO DMX_AYAR

'*********************LEDLERİN KONTROLUNE GİRİŞ SAYFASI*************************7
LEDKONTROL:'RGBW LED aç kapa işlemleri başı
WHILE ENTER=1:WEND
GOSUB TEMIZLE
LEDSYC=0

LEDKONTROLSAYACI:
IF YUKARI=1 THEN 
GOSUB BIP
WHILE YUKARI=1:WEND
LEDSYC=LEDSYC-1
  IF LEDSYC=255 THEN LEDSYC=3
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

IF ASAGI=1 THEN
GOSUB BIP
WHILE ASAGI=1:WEND
LEDSYC=LEDSYC+1
IF LEDSYC=4 THEN LEDSYC=0
ENDIF
goto LEDDURUM
GOTO LEDKONTROLSAYACI
'-------------------LEDSYC YE GÖRE KONTROL EDİLECEK LEDİN SEÇİMİ SAYFASI-------
LEDDURUM:
SELECT CASE LEDSYC

CASE 0
lcdout $fe,$80,"RED LED>>>>>>   "
lcdout $fe,$c0,"GREEN LED       "
lcdout $fe,$94,"BLUE LED        "  
LCDOUT $FE,$D4,"WHiTE LED       "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
goto REDLED 
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

CASE 1
lcdout $fe,$80,"RED LED         "
lcdout $fe,$c0,"GREEN LED>>>>>> "
lcdout $fe,$94,"BLUE LED        "  
LCDOUT $FE,$D4,"WHiTE LED       "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP 
GOTO GREENLED 
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

CASE 2
lcdout $fe,$80,"RED LED         "
lcdout $fe,$c0,"GREEN LED       "
lcdout $fe,$94,"BLUE LED>>>>>>> "  
LCDOUT $FE,$D4,"WHiTE LED       "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP
GOTO BLUELED
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF 

CASE 3
lcdout $fe,$80,"RED LED         "
lcdout $fe,$c0,"GREEN LED       "
lcdout $fe,$94,"BLUE LED        "  
LCDOUT $FE,$D4,"WHiTE LED>>>>>> "
IF ENTER=1 then 
WHILE ENTER=1:WEND
GOSUB BIP
GOTO WHITELED
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

END SELECT
GOTO LEDKONTROLSAYACI

'------------------SEÇİLEN LEDİN KONTROLU SAYFASI------------------
REDLED:
'----------------RED LEDİN KONTROLU SAYFASI----------
WHILE ENTER=1:WEND
GOSUB TEMIZLE

REDLED_MENU:
lcdout $FE,$80,"RED LED SELECT "
lcdout $FE,$94,"ON     "
lcdout $FE,$D4,"OFF    "
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO LEDDURUM
ENDIF 

IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$94,"ON>>>>>>>>   "
lcdout $FE,$D4,"OFF          "
REDLEDD=1
ENDIF

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$94,"ON           "
lcdout $FE,$D4,"OFF>>>>>>>   "
REDLEDD=0
ENDIF
IF ENTER=1 THEN AYARLANDI
GOTO REDLED_MENU
'--------------------GREEN LEDİN KONTROLU SAYFASI----------------
GREENLED:
WHILE ENTER=1:WEND
GOSUB TEMIZLE

GREENLED_MENU:
lcdout $FE,$80,"GREEN LED SELECT "
lcdout $FE,$94,"ON     "
lcdout $FE,$D4,"OFF    "
IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$94,"ON>>>>>>>>   "
lcdout $FE,$D4,"OFF          "
GREENLEDD=1
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO LEDDURUM
ENDIF

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$94,"ON           "
lcdout $FE,$D4,"OFF>>>>>>>   "
GREENLEDD=0
ENDIF
IF ENTER=1 THEN AYARLANDI
GOTO GREENLED_MENU
'-----------------BLUE LEDİN KONTROLU SAYFASI------------------
BLUELED:
WHILE ENTER=1:WEND
GOSUB TEMIZLE

BLUELED_MENU:
lcdout $FE,$80,"BLUE LED SELECT "
lcdout $FE,$94,"ON     "
lcdout $FE,$D4,"OFF    "
IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$94,"ON>>>>>>>>   "
lcdout $FE,$D4,"OFF          "
BLUELEDD=1
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO LEDDURUM
ENDIF

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$94,"ON           "
lcdout $FE,$D4,"OFF>>>>>>>   "
BLUELEDD=0
ENDIF
IF ENTER=1 THEN AYARLANDI
GOTO BLUELED_MENU
'-----------------WHITE LEDİN KONTROLU SAYFASI--------------
WHITELED:
WHILE ENTER=1:WEND
GOSUB TEMIZLE

WHITELED_MENU:
lcdout $FE,$80,"WHiTE LED SELECT "
lcdout $FE,$94,"ON     "
lcdout $FE,$D4,"OFF    "
IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$94,"ON>>>>>>>>   "
lcdout $FE,$D4,"OFF          "
WHITELEDD=1
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO LEDDURUM
ENDIF

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$94,"ON           "
lcdout $FE,$D4,"OFF>>>>>>>   "
WHITELEDD=0
ENDIF
IF ENTER=1 THEN AYARLANDI
GOTO WHITELED_MENU
'**************************PAN KONTROLU SAYFASI*********************************8

PAN:
WHILE ENTER=1:WEND
GOSUB TEMIZLE

PANKONTROL:
lcdout $FE,$80,"PAN SELECT "
lcdout $FE,$94,"INVERT     "
lcdout $FE,$D4,"NONINVERT  "
IF YUKARI=1 THEN
WHILE YUKARI=1:WEND
lcdout $FE,$D4,"INVERT            " 
lcdout $FE,$94,"NONINVERT>>>>>>>> "
PANLED=1
ENDIF
IF MENU=1 THEN'Burada hiç bir işlem yapılmadan çıkılmak istenirse menuye basılır
WHILE MENU=1:WEND
GOTO durum
ENDIF

IF ASAGI=1 THEN 
WHILE ASAGI=1:WEND
lcdout $FE,$D4,"INVERT>>>>>>>>>>>>"
lcdout $FE,$94,"NONINVERT         "
PANLED=0
ENDIF
IF ENTER=1 THEN AYARLANDI
GOTO PANKONTROL
'
'buralara daha çok menü ana başlık araları eklenecek
'
'
'
'
'
'
GOTO AYAR_MENUSU
'***************************KONTROLLERİN BİTİŞİ ÇİZGİSİ*************************9
'---------------------RETURN DÖNÜŞLÜ ALT DÖNGÜ BAŞLANGIÇLARI--------------------
DELAY:
 for z=0 to 20000  'yaklaşık 50ms gecikme yaratır. Hatta birazda fazlasını yaratır.
   PAUSEUS 1
 next
 return
'-------------------------------------------------------

DMX_EKRAN:
lcdout $FE,$D4, "DMX:",# DMX,"         "
RETURN
'------------------------------------------------------- 
DELAY1:
SAY=0
for z=0 to 3000   'Z DEĞİŞKEN TANIMI WORD
next
return'---------DMX ARTIRMA VE AZALTMA TUSUNA UZUN BASMA İŞLEMLERİ SONU---------
'------------------------------------------------------------------------------

EPROMOKU:
RETURN
'-------------------------------------------------------
BIP:
    HIGH buzer   
 pause 50
     LOW buzer  
  RETURN
BIPBIP:
     HIGH buzer   
    PAUSE 50
      LOW buzer 
    PAUSE 100
     HIGH BUZER
    PAUSE 50
      LOW BUZER 
RETURN  
'--------------------------------------------------------
TEMIZLE:
        lcdout $fe,1
RETURN     


END
'birinci satır, $80-$81-$82-$83-$84-$85-$86-$87-$88-$89-$8A-$8B-$8C-$8D-$8E-$8F-$90-$91-$92-$93 
'ikinci satır,  $C0-$C1-$C2-$C3-$C4-$C5-$C6-$C7-$C8-$C9-$CA-$CB-$CC-$CD-$CE-$CF-$D0-$D1-$D2-$D3   
'Üçüncü satır,  $94-$95-$96-$97-$98-$99-$9A-$9B-$9C-$9D-$9E-$9F-$A0-$A1-$A2-$A3-$A4-$A5-$A6-$A7 
'Dördüncü satır,$D4-$D5-$D6-$D7-$D8-$D9-$DA-$DB-$DC-$DD-$DE-$DF-$E0-$E1-$E2-$E3-$E4-$E5-$E6-$E7    
     
     
     
     
     









































'     ümit güngör

[Maxim]

boşuna uğraşıyorsunuz olay sizdeki winrar versiyonunun eski olmasından kaynaklanıyor
winrar 5 yükleyin açarsınız.

[elektro77]

BENDEKİ 5.6

[elektro77]

mesala bu programda dmx adres kısmını ve ledlerin son konumunu hafızada nasıl tutucaz arkadaşlar yardımcı olabilecek varmı.
cihaz her açılıp kapandığında en son konumundan açılacak. klasik eprom okuma yani.
ben neyi nerde okuyup yazacağımı bir türlü bilemedim.
o nedenle bir yerden başlayamıyorum. Bilmediğim için aklımda hiç bir şey oluşmuyor.
yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

[elektro77]

ete hocam:
dahili eprom yazıp okuma ile ilgili ders verebilirmisiniz.

[POWER]

WRITE  1 , değişken
READ  1 , değişken
şeklinde yazma ve okuma yapabilirsin.senin proğramda,  SYMBOL PANLED=PORTD.5 şeklinde bir tanımlama var.bu ledin durumunu eproma yazmak istersek
WRITE 1 , PANLED
okumak içinde READ 1 , PANLED yeterli olacaktır.

[ete]

Dahili eprom ile ilgili bilgiler ders notlarında var aslında. Ders-9 a bakın lütfen.
Buraya da bazı eklemeler yapayım yinede.
Dahili eprom flash tipi bir hafızadır. Genelde 256 byte uzunluktadır. İşlemci tipine göre daha az veya daha fazla hafıza olabiliyor.
Dahili eprom iki şekilde kullanılabiliyor. Birinci şekilde işlemci programlanırken default bazı bilgilerin bu hafızaya kayıt edilmesi şeklinde oluyor.
DATA @Adres,BILGI    şeklinde bir formatı var. Örnek vereyim 10 nolu eprom adresine 127 bilgisini yazmak ve bu işi işlemci programlanırken otomatik yapmak için DATA @10,127  şeklinde bir komutu programın başlarında bir yere koyarsanız bu komut birkereliğine işlemci programlanırken icra edilir.

İkinci kullanım şekli programın çalışması esnasında dahili eproma yazma ve okuma yapmak amacı ile kullanılan şekildir.
WRITE Adres,BILGI   örnek verelim Epromun 20 nolu adresine 100 bilgisini yazalım  WRITE 20,100 :pause 10  şeklinde yapıyoruz. 10 ms lik pause bilgisi yazma işleminin bu kadar süre alması nedeni ile koyulmalıdır. Bu süreden daha kısa bir sürede yeniden yazma emri gelirse yazma işlemi gerçekleşemez.
Birden fazla bilgiyi tek seferde de yazmak mümkündür.
WRITE Adres,Bilgi1,Bilgi2,Bilgi3,Bilgi4,Bilgi5... :Pause 10 şeklinde de kullanmak mümkün.
Buraya kadar verdiğimiz bilgilerde yazılacak bilgi daima Byte büyüklüğünde oldu. Buda gösteriyorki eprom hafıza büyüklüğü Byte alacak kadardır. Aynı hafızaya WORD (2 byte) yazamazsınız. Word büyüklüğündeki değişken 2 ayrı byte şeklinde eproma yazılmalıdır. Böylece Word değişkeni eprom hafızasında 2 byte lık yer kaplayacaktır. Örnek verelim. WRITE 20, Bilgi.Byte1 , Bilgi.Byte0 :Pause 10
şeklinde olabileceği gibi Byte0 ve Byte1 yer de değiştirebilir. Ama hangi sırada yazılmış ise o sırada da okunmalıdır.
Okuma yapmak için ise READ komutunu kullanıyoruz. Formatı yne benzer şekilde READ Adres,BILGI şeklindedir. Okuma işleminde gecikme verilmesi gerekmez. Birden fazla bilgi peş peşe okunabilir. READ Adres,Bilgi1,Bilgi2,Bilgi3... şeklinde okuma şekli kullanılabilir.
Word tipi bilgi de yazma sırasına uygun şekilde okunmalıdır. READ 20,Bilgi.Byte1,BILGI.Byte0 şeklinde
Hepsi bu kadar.
Ete

[elektro77]

peki bu
wrıte 20 ibaresindeki 20 rakamı en fazla kaç olabiliyor.

[ete]

Epromda ortalama 256 hafıza (0-255) olduğunu belirtmiştim. Bu durumda en fazla oraya 255 yazabilirsin. Ama kullandığın işlemcinin data sheet'ine bakıp eprom hafızasının ne kadar byte olduğunu anlayıp ona göre maksimum değeri tespit etmende yarar görüyorum. Ben genel bilgi olarak 256 verdim. Çoğu işlemcide böyle ama bazı 12F serilerinde daha düşük rakamlar mevcut.

Ete