PBP da Alfanümerik Sabitler

[dijital74]

Arkadaşlar benim bir projem var. Dijital saatime tarih ekliyorum. Ay adlarını göstermesini istiyorum. Burada ay adlarını bir değişkene atamaya kalktığım zaman hata mesajı veriyor.

Benim asıl sorum şu:
PBP de alfanümerik sabitler desteklenmiyor mu?

[Veli B.]

Hayır değer olarak atayamıyorsun ama bu iş için "select case" i kullanabilrsin.Ben bu şekilde yapmıştım ay ve gün adları için.

[ibrsel]

DEFINE OSC 4
define lcd_dreg portb      
define lcd_dbit 4          
define lcd_rsreg portb      
define lcd_rsbit 0          
define lcd_ereg portb      
define lcd_ebit 1        
define lcd_bits 4          
define lcd_lines 2        
'------------------------------------'
a var word
a=0
basla:
   lcdout $fe,1
   gosub aykontrol
   pause 1000
   a=a+1

goto basla
aykontrol:
   if a=1 then lcdout "OCAK"
   if a=2 then lcdout "SUBAT"
   if a=3 then lcdout "MART"
   if a=4 then lcdout "NISAN"
return