C"YI PİCBASİC PRO YA CEVIRE BILIRMIYIZ?

[elektrocu06]

ARKADASLAR BEN AŞAĞIDAKI KODU PİCBASİC PRO YA CEVİRE BILIRMIYIZ YARDIMCI OLURSANIZ SEVINIRIM...




#include <pic.h>
#include <delay.c>

main(void)
{

unsigned int i;
unsigned char dizi[]={
0xFF,0x02,0x0C,0x02,0xFF,0x00, // M
0xFF,0x89,0x89,0x89,0x81,0x00, // E
0xFF,0x11,0x31,0x51,0x8E,0x00, // R
0xFF,0x10,0x10,0x10,0xFF,0x00, // H
0xFC,0x12,0x11,0x12,0xFC,0x00, // A
0xFF,0x89,0x89,0x89,0x76,0x00, // B
0xFC,0x12,0x11,0x12,0xFC,0x00, // A
0x00,0x00,0x00,0x00,0x00,0x00  // Bosluk
};

TRISB=0;

for(;;){
   for(i=0;i<48;i++){
   PORTB=dizi;
   DelayMs(1);  // 1ms bekle
   }
   DelayMs(48); // 48ms bekle
}
}

[Logan]

Tabi ki çevrilebilir.

PORTB=0  :  TRISB=0
i var byte  :  sayac var byte
goto loop

loop:
   for i=0 to 48
   gosub table  :  PORTB=sayac
   PAUSE 1
   next i
   PAUSE 48
   goto loop

table:
lookup i,[0xFF,0x02,0x0C,0x02,0xFF,0x00,
             0xFF,0x89,0x89,0x89,0x81,0x00,
             0xFF,0x11,0x31,0x51,0x8E,0x00, 
             0xFF,0x10,0x10,0x10,0xFF,0x00,  
             0xFC,0x12,0x11,0x12,0xFC,0x00, 
             0xFF,0x89,0x89,0x89,0x76,0x00, 
             0xFC,0x12,0x11,0x12,0xFC,0x00,
             0x00,0x00,0x00,0x00,0x00,0x00], sayac  :  return

end

Uzun zamandır basic ile program yazmıyorum ufak tefek hatalar olabilir. Kolay gelsin.

[elektrocu06]

merhabalogan
bu kodu çevirmişsin bana diğer harflerin kodunu bulabilir veya yollaya bilirmisin sanan zahmet harflerın kodunu yolarsan ıyıy olur.

bn orda İHSAN yazmmak istıyorum banan bı yardımcı olumusun kodları yolarsan sevınırım

şimdiden teşekkür...

[kafa1500]

Aslında basit sende yazabilirsin. Ben aşağıdaki programı kullanıyorum. Gözat istersen.

http://rapidshare.com/files/200541954/BINHEX2.rar.html



kendi çapımda harflerin karşılığını yazmaya çalıştım, yalnız " I " ve " İ " bu haliyle programa uyar mı şüpheliyim.

0xFE,0x11,0x11,0x11,0xFE,0x00	= A
0xFF,0x91,0x91,0x91,0x6E,0x00	= B
0x7E,0x81,0x81,0x81,0x42,0x00	= C
0x3E,0x41,0xC1,0x41,0x22,0x00	= Ç
0xFF,0x81,0x81,0x81,0x7E,0x00	= D
0xFF,0x89,0x89,0x89,0x81,0x00	= E
0xFF,0x09,0x09,0x09,0x01,0x00	= F
0x7E,0x81,0x91,0x91,0x72,0x00	= G
0x7C,0x82,0x93,0x92,0x74,0x00	= Ğ
0xFF,0x10,0x10,0x10,0xFF,0x00	= H
0xFF,0x00			              = I
0xFD,0x00			              = İ
0x40,0x80,0x80,0x80,0x7D,0x00	= J
0xFF,0x18,0x24,0x42,0x81,0x00	= K
0xFF,0x80,0x80,0x80,0x80,0x00	= L
0xFF,0x02,0x0C,0x02,0xFF,0x00	= M
0xFF,0x02,0x04,0x08,0xFF,0x00	= N
0x7E,0x81,0x81,0x81,0x7E,0x00	= O
0x7C,0x83,0x82,0x83,0x7C,0x00	= Ö
0xFF,0x11,0x11,0x11,0x0E,0x00	= P
0xFF,0x11,0x11,0x11,0xEE,0x00	= R
0x46,0x89,0x91,0x91,0x62,0x00	= S
0x26,0x49,0xC9,0x49,0x32,0x00	= Ş
0x01,0x01,0xFF,0x01,0x01,0x00	= T
0x7F,0x80,0x80,0x80,0x7F,0x00	= U
0x7D,0x80,0x80,0x80,0x7D,0x00	= Ü
0x3F,0x40,0x80,0x40,0x3F,0x00	= V
0x07,0x08,0xF0,0x08,0x07,0x00	= Y
0xE1,0x91,0x89,0x85,0x83,0x00	= Z