.Hex Dönüştürmek

[Evvelim]

Merhaba arkadaşlar geçenlerdede foruma yazmıstım kayan yazı uygulaması için bilgi istemiştim kaynaklardan bilgi alarak bir kayan yazı uygulaması yaptım.Fakat dosyamın uzantısı .bas ama bunu .hex yapmam gerekiyor birkaç program indirdim ama yapamadım..Vereceğim kodu .hex çevirirseniz ve buraya koyarsanız mutlu olurum

NOT : 16F84 İçin

'===COKLU KARAKTER KAYDIRILIYOR===

P1 VAR BYTE
i VAR BYTE
i1 VAR BYTE

d0 VAR BYTE
d1 VAR BYTE
d2 VAR BYTE
d3 VAR BYTE
d4 VAR BYTE
d5 VAR BYTE
d6 VAR BYTE
d7 VAR BYTE
d8 VAR BYTE
d9 VAR BYTE
d10 VAR BYTE
d11 VAR BYTE
d12 VAR BYTE
d13 VAR BYTE
d14 VAR BYTE
d15 VAR BYTE
d16 VAR BYTE
d17 VAR BYTE
d18 VAR BYTE
d19 VAR BYTE
d20 VAR BYTE
d21 VAR BYTE
d22 VAR BYTE
d23 VAR BYTE
d24 VAR BYTE
d25 VAR BYTE


TRISA=%00000000	'===BUTUN UCLAR===
TRISB=%00000000	'===CIKIS YAPILDI===

P1=5	'===TITREMEYI ENGELLEMEK LCLN===
i=0 	'=== BU DEGER SABIT KALSIN===
i1=22	'===KAYMA HIZINI AYARLIYOR===
		'===IMDAT karakterinin degiskenlere atanmasi===
d0=%00000000
d1=%01111111 
d2=%00000000
d3=%01111111
d4=%00000010
d5=%00000100 
d6=%00000010
d7=%01111111
d8=%00000000
d9=%01111111
d10=%01000001
d11=%01000001 
d12=%01000001
d13=%00111110
d14=%00000000
d15=%01111100
d16=%00010010
d17=%00010001 
d18=%00010010
d19=%01111100
d20=%00000000
d21=%00000001
d22=%00000001
d23=%01111111 
d24=%00000001
d25=%00000001

BASLA:
	i=i+1
	IF i=i1 Then kaydir

	PORTA=%11111110		'SUTUN 1 ICIN 
	PORTB=d1
	Pause P1
	
	PORTA=%11111101		'SUTUN 2 ICIN
	PORTB=d2
	Pause P1
	
	PORTA=%11111011		'SUTUN 3 ICIN
	PORTB=d3
	Pause P1
	
	PORTA=%11110111		'SUTUN 4 ICIN
	PORTB=d4
	Pause P1
	
	PORTA=%11101111		'SUTUN 5 ICIN
	PORTB=d5
	Pause P1
	
	GoTo BASLA
	
kaydir:
	i=0
		'===KAYDIRMA BASLIYOR===
	d0=d1
	d1=d2
	d2=d3
	d3=d4
	d4=d5
	d5=d6
	d6=d7
	d7=d8
	d8=d9
	d9=d10
	d10=d11
	d11=d12
	d12=d13
	d13=d14
	d14=d15
	d15=d16
	d16=d17
	d17=d18
	d18=d19
	d19=d20
	d20=d21
	d21=d22
	d22=d23
	d23=d24
	d24=d25
	d25=d0
	
	GoTo BASLA
	End

[maviveda]

:100000002828A301A200FF30A207031CA307031C9A
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0076400A10F152820181E28A01C222844
:1000400000002228080083130313831264000800B1
:1000500083168501860183120530D400D201163043
:10006000D300B8017F30B900C4017F30CB0002302B
:10007000CC000430CD000230CE007F30CF00D00164
:100080007F30D1004130BA004130BB004130BC006C
:100090003E30BD00BE017C30BF001230C0001130C8
:1000A000C1001230C2007C30C300C5010130C6005F
:1000B0000130C7007F30C8000130C9000130CA00DC
:1000C000D20A6400520853028A110A1203198D28B9
:1000D000FE3085003908860054088A010120FD3071
:1000E00085004408860054088A010120FB30850001
:1000F0004B08860054088A010120F73085004C081F
:10010000860054088A010120EF3085004D088600E2
:1001100054088A0101208A016028D2013908B800F8
:100120004408B9004B08C4004C08CB004D08CC0073
:100130004E08CD004F08CE005008CF005108D00027
:100140003A08D1003B08BA003C08BB003D08BC009F
:100150003E08BD003F08BE004008BF004108C00087
:100160004208C1004308C2004508C3004608C50054
:100170004708C6004808C7004908C8004A08C9001F
:0E0180003808CA008A01602863008A01C4287A
:02400E00753FFC
:00000001FF


buyur arkadaşım dosya ekleme ikonunu bulamadım notepad e kopyala yapıştır dosya uzantısınada .hex yaz işlem tamamdır