NOKIA5110 pıc16f877 calıstırılması

Dtmf · 02 Nisan 2020, 22:32:27

ıyı aksamlar arkadaslar nokıa5110 ekranını calıstırmayı basardım .ilgı duyan arkadaslar dahada gelıstırebılır

ugrasacak arkadaslara kolay gelsın

Device=16F877A
XTAL=4
ALL_DIGITAL TRUE
TRISA=0:PORTA=0
TRISB=0:PORTB=0
TRISC=0:PORTC=0
TRISD=0:PORTD=0
TRISE=0:PORTE=0

Dim A As Byte
Dim B As Byte
Dim C As Byte

Symbol RST=PORTC.3
Symbol CE=PORTC.4
Symbol DCI=PORTC.5
Symbol DIN=PORTC.6
Symbol CLK=PORTC.7
DelayMS 500          ;hazırlık ıcın bekle
;=============================
RST=0       ;RESET pını lcd zarar gormemesııcın ılk basta low 
DelayMS 100
RST=1       ;;RESET pını hıgh
;=========================SEND COMMAND====================
DelayUS 10
DCI=0 ;LCD AYARLARI ICIN KOMUT GONDERILIYOR DC=0 KOMUT DC=1 DATA
CE=0 ;CHIP ENABLE    VERI GONDERILIRKEN CHIP AKTIF
SHOut DIN,CLK,1,[$21]    ;TANIMLANMIS KOMUTLARA ERISIM SAGLANIYOR
DelayUS 100
SHOut DIN,CLK,1,[$13]   ; BIAS GERILIMI SECILIYOR 1:48 MODUNDA
DelayUS 100
SHOut DIN,CLK,1,[$07]        ;LCD PARAMETRELERI
DelayUS 100
SHOut DIN,CLK,1,[$C0]    ;LCD KONTRANSI AYARLANIYOR
DelayUS 100
SHOut DIN,CLK,1,[$20] ;YATAY MOD X OTOMATIK OLARAK ARTACAK 
DelayUS 100
SHOut DIN,CLK,1,[$0C] ;LCD NORMAL MODDA CALISIYOR
DelayUS 200
;===================START==============================
BASLA:
CE=1 ;CHIP DISABLE VERI GONDERILIRKEN CHIP PASIF
DCI=1 ;DATA GONDERILIYOR
CE=0 ;CHIP AKTIF EDILDI

SHOut DIN,CLK,1,[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,145,145,145,145,145,0,0,0,255,2,4,8,4,2,255,0,0,0,255,17,17,49,81,145,14,0,0,0,252,18,17,17,17,17,18,252,0,0,0,255,16,16,16,16,16,16,255,_ ;EMRAH YAZISI BURASI
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
DelayMS 10
CE=1 ;CHIP DISABLE

flash:
PORTD.0=1
DelayMS 10   ; ıslemcı calısıyormu flasor yaparak kontrol edıyoruz
PORTD.0=0             
DelayMS 500
GoTo flash

End

Dtmf · 03 Nisan 2020, 22:24:52

ıyı aksamlar ete hocam ekranaresım basmak ıstıyorum fakat asagıdakı lcd asıstan dan aldıgım kodları txt olarak kaydettım proton da bu kodları lcd de sacma gosterıyor decımale nasıl cevırırım yardımcı olurmusun

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xFF, 0x00, 0x3F, 0xE0, 0x00, 0x00, 0x00, 0x0F, 0xFF,
0x00, 0xFF, 0xF8, 0x00, 0x00, 0x00, 0x1F, 0xFF, 0x03, 0xFF, 0xFC, 0x00, 0x00, 0x00, 0x3F, 0xFF,
0x07, 0xFF, 0xFF, 0x00, 0x00, 0x00, 0x7F, 0xFF, 0x0F, 0xFF, 0xFF, 0x00, 0x00, 0x00, 0x7F, 0xFF,
0x1F, 0xFF, 0xFF, 0x80, 0x00, 0x00, 0xFF, 0xFF, 0x3F, 0xFF, 0xFF, 0x80, 0x00, 0x01, 0xFF, 0xFF,
0x3F, 0xFF, 0xFF, 0xC0, 0x00, 0x01, 0xFF, 0xFF, 0x7F, 0xFF, 0xFF, 0xC0, 0x00, 0x01, 0xFF, 0xFF,
0x7F, 0xFF, 0xFF, 0xC0, 0x00, 0x01, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xE0, 0x00, 0x01, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xE0, 0x00, 0x01, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xE1, 0xFF, 0xF1, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xEF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xF8, 0xFF, 0xC7, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xF0, 0x7F, 0x81, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xE0, 0x3E, 0x00, 0xFF, 0xFF, 0x7F, 0xFF, 0xFF, 0xC2, 0x1C, 0x18, 0x7F, 0xFF,
0x7F, 0xFF, 0xFF, 0x8E, 0x0C, 0x1C, 0x7F, 0xFF, 0x3F, 0xFF, 0xFF, 0x90, 0x0C, 0x06, 0x3F, 0xFF,
0x1F, 0xFF, 0xFF, 0x10, 0x00, 0x02, 0x3F, 0xFF, 0x1F, 0xFF, 0xFE, 0x10, 0x00, 0x00, 0x1F, 0xFF,
0x0F, 0xFF, 0xFE, 0x00, 0x00, 0x00, 0x1F, 0xFF, 0x03, 0xFF, 0xFE, 0x00, 0x00, 0x00, 0x1F, 0xFF,
0x00, 0xFF, 0xFE, 0x01, 0xC0, 0x70, 0x1F, 0xC0, 0x00, 0x00, 0x7C, 0x02, 0x20, 0x88, 0x0F, 0xC0,
0x00, 0x00, 0x7C, 0x02, 0x11, 0x8C, 0x0F, 0xC0, 0x00, 0x00, 0x7C, 0x02, 0x11, 0x0C, 0x0F, 0xE0,
0x00, 0x00, 0xFC, 0x04, 0x13, 0x04, 0x0F, 0xE0, 0x00, 0x00, 0xFC, 0x04, 0x13, 0x04, 0x0F, 0xE0,
0x00, 0x00, 0xFC, 0x04, 0x03, 0x04, 0x0F, 0xE0, 0x00, 0x00, 0xFC, 0x04, 0x03, 0x04, 0x0F, 0xE0,
0x00, 0x00, 0xFC, 0x04, 0xEB, 0xE4, 0x0F, 0xE0, 0x00, 0x00, 0xFE, 0x05, 0xFB, 0xF4, 0x1F, 0xE0,
0x00, 0x00, 0xFE, 0x05, 0xF3, 0xFC, 0x1F, 0xE0, 0x00, 0x00, 0xFF, 0x05, 0xF1, 0xF8, 0x1F, 0xE0,
0x00, 0x00, 0xFF, 0x03, 0xF1, 0xF0, 0x3F, 0xE0, 0x00, 0x00, 0xFF, 0x83, 0xFF, 0xF0, 0x3F, 0xE0,
0x00, 0x00, 0xFF, 0x81, 0xFF, 0xF0, 0x7F, 0xE0, 0x00, 0x00, 0x7F, 0xC1, 0xBF, 0xF8, 0x01, 0xE0,
0x00, 0x00, 0x78, 0x02, 0xF5, 0xF4, 0x30, 0xE0, 0x00, 0x00, 0x63, 0x81, 0xE0, 0xF0, 0x3C, 0xE0,
0x00, 0x00, 0x67, 0x01, 0xFF, 0xF0, 0x1E, 0x60, 0x00, 0x00, 0xEF, 0x01, 0xFF, 0xF0, 0x3E, 0x70,
0x00, 0x00, 0xE9, 0x80, 0xFF, 0xE0, 0x30, 0xE0, 0x00, 0x00, 0xE1, 0x80, 0x3F, 0x80, 0x60, 0xE0,
0x00, 0x00, 0x60, 0xC0, 0x00, 0x00, 0xC0, 0xE0, 0x00, 0x00, 0x60, 0x70, 0x00, 0x01, 0x81, 0xC0,
0x00, 0x00, 0x70, 0x38, 0x00, 0x03, 0x83, 0x80, 0x00, 0x00, 0x38, 0x0F, 0xC0, 0x3E, 0x07, 0x80,
0x00, 0x00, 0x1C, 0x07, 0xFF, 0xFE, 0x0E, 0x00, 0x00, 0x00, 0x0F, 0x03, 0xFF, 0xFC, 0x5E, 0x00,
0x00, 0x00, 0x03, 0xF3, 0xFF, 0xFD, 0xF8, 0x00, 0x00, 0x00, 0x00, 0xF9, 0x8E, 0x7B, 0xE0, 0x00,
0x00, 0x00, 0x00, 0x3E, 0xC0, 0x77, 0x80, 0x00, 0x00, 0x00, 0x00, 0x0F, 0x79, 0xEF, 0x00, 0x00,
0x00, 0x00, 0x00, 0x03, 0xBF, 0xDC, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xC0, 0x78, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0xFF, 0xE0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3F, 0xC0, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00

Serk@n · 05 Nisan 2020, 17:25:06

  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   3, 255,   0,  63, 224,   0,   0,   0,  15, 255, 
  0, 255, 248,   0,   0,   0,  31, 255,   3, 255, 252,   0,   0,   0,  63, 255, 
  7, 255, 255,   0,   0,   0, 127, 255,  15, 255, 255,   0,   0,   0, 127, 255, 
 31, 255, 255, 128,   0,   0, 255, 255,  63, 255, 255, 128,   0,   1, 255, 255, 
 63, 255, 255, 192,   0,   1, 255, 255, 127, 255, 255, 192,   0,   1, 255, 255, 
127, 255, 255, 192,   0,   1, 255, 255, 255, 255, 255, 224,   0,   1, 255, 255, 
255, 255, 255, 224,   0,   1, 255, 255, 255, 255, 255, 225, 255, 241, 255, 255, 
255, 255, 255, 239, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 
255, 255, 255, 248, 255, 199, 255, 255, 255, 255, 255, 240, 127, 129, 255, 255, 
255, 255, 255, 224,  62,   0, 255, 255, 127, 255, 255, 194,  28,  24, 127, 255, 
127, 255, 255, 142,  12,  28, 127, 255,  63, 255, 255, 144,  12,   6,  63, 255, 
 31, 255, 255,  16,   0,   2,  63, 255,  31, 255, 254,  16,   0,   0,  31, 255, 
 15, 255, 254,   0,   0,   0,  31, 255,   3, 255, 254,   0,   0,   0,  31, 255, 
  0, 255, 254,   1, 192, 112,  31, 192,   0,   0, 124,   2,  32, 136,  15, 192, 
  0,   0, 124,   2,  17, 140,  15, 192,   0,   0, 124,   2,  17,  12,  15, 224, 
  0,   0, 252,   4,  19,   4,  15, 224,   0,   0, 252,   4,  19,   4,  15, 224, 
  0,   0, 252,   4,   3,   4,  15, 224,   0,   0, 252,   4,   3,   4,  15, 224, 
  0,   0, 252,   4, 235, 228,  15, 224,   0,   0, 254,   5, 251, 244,  31, 224, 
  0,   0, 254,   5, 243, 252,  31, 224,   0,   0, 255,   5, 241, 248,  31, 224, 
  0,   0, 255,   3, 241, 240,  63, 224,   0,   0, 255, 131, 255, 240,  63, 224, 
  0,   0, 255, 129, 255, 240, 127, 224,   0,   0, 127, 193, 191, 248,   1, 224, 
  0,   0, 120,   2, 245, 244,  48, 224,   0,   0,  99, 129, 224, 240,  60, 224, 
  0,   0, 103,   1, 255, 240,  30,  96,   0,   0, 239,   1, 255, 240,  62, 112, 
  0,   0, 233, 128, 255, 224,  48, 224,   0,   0, 225, 128,  63, 128,  96, 224, 
  0,   0,  96, 192,   0,   0, 192, 224,   0,   0,  96, 112,   0,   1, 129, 192, 
  0,   0, 112,  56,   0,   3, 131, 128,   0,   0,  56,  15, 192,  62,   7, 128, 
  0,   0,  28,   7, 255, 254,  14,   0,   0,   0,  15,   3, 255, 252,  94,   0, 
  0,   0,   3, 243, 255, 253, 248,   0,   0,   0,   0, 249, 142, 123, 224,   0, 
  0,   0,   0,  62, 192, 119, 128,   0,   0,   0,   0,  15, 121, 239,   0,   0, 
  0,   0,   0,   3, 191, 220,   0,   0,   0,   0,   0,   1, 192, 120,   0,   0, 
  0,   0,   0,   0, 255, 224,   0,   0,   0,   0,   0,   0,  63, 192,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0, 
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,

[/font]

Serk@n · 05 Nisan 2020, 17:26:28

Dtmf
İstediğiniz böyle bir şey mi? Umarım işinizi görür.

Dtmf · 05 Nisan 2020, 18:56:06

ıyı aksamlar serkanzey yardımın ıcın tesekkur ederım

evet tam ıstedıgım gıbı sızde bu kodları cevıren program varmı paylasırmısı.

Serk@n · 05 Nisan 2020, 21:14:14

Aslında ben bu programı, sizin mesajı görünce, yardımcı olmak için yazmıştım Visual basic.net ile. Açık kodları da paylaşabilirim hala bilgisayarda duruyor. Bu programa yeni geçtim. Yazılımı exe.ye çevirebilirsem o şekilde de gönderebilirim.

Serk@n · 05 Nisan 2020, 21:59:28

Ekteki Resimde program görünümü var.

1. Metin kutusuna hex rakamlar yazılıyor.
2. Metin kutusundan sonuçlar çıkıyor.
3. Metin kutusu girilen karakter sayısını bildiriyor.
4. Metin kutusu hex rakam olarak kaç tane değeri okuduğunu bildiriyor.
5. Butona ise hesaplama yapmak için basılıyor.

Diğer eklerde program var.
Herhangi bir sorun yaşarsanız, yine yazışırız.

Serk@n · 05 Nisan 2020, 22:07:21

İlgilenirseniz veya ilgilenen arkadaşlar olursa açık vb.net kodlarını da gönderiyorum:

Bir form açın ve 4 adet textbox ve 1 adet commandbutton ekleyin. Textbox1 ve 2'nin multiline özelliğini 'true' yapın ve bu iki textbox.ın ScrollBars özelliğini de 'Both' olarak ayarlayın. Aşağıdaki kodları, kod bölümüne ekleyin.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim say As Integer
        TextBox3.Text = CStr(Len(TextBox1.Text))
        say = 0
        TextBox2.Text = ""
        For i As Integer = 1 To Len(TextBox1.Text) - 3
            If Mid(TextBox1.Text, i, 2) = "0x" Then
                say = say + 1
                If say Mod 16 = 0 Then
                    TextBox2.Text = TextBox2.Text + ondalik(Mid(TextBox1.Text, i + 2, 2)) + ", " + Chr(13) + Chr(10)
                Else
                    TextBox2.Text = TextBox2.Text + ondalik(Mid(TextBox1.Text, i + 2, 2)) + ", "
                End If

            End If


        Next
        TextBox4.Text = CStr(say)

    End Sub

    Function ondalik(ByVal hex As String) As String
        Dim a1 As Integer
        Dim a2 As Integer

        Select Case Mid(hex, 1, 1)
            Case "0"
                a1 = 0
            Case "1"
                a1 = 1
            Case "2"
                a1 = 2
            Case "3"
                a1 = 3
            Case "4"
                a1 = 4
            Case "5"
                a1 = 5
            Case "6"
                a1 = 6
            Case "7"
                a1 = 7
            Case "8"
                a1 = 8
            Case "9"
                a1 = 9
            Case "A"
                a1 = 10
            Case "B"
                a1 = 11
            Case "C"
                a1 = 12
            Case "D"
                a1 = 13
            Case "E"
                a1 = 14
            Case "F"
                a1 = 15
        End Select

        Select Case Mid(hex, 2, 1)
            Case "0"
                a2 = 0
            Case "1"
                a2 = 1
            Case "2"
                a2 = 2
            Case "3"
                a2 = 3
            Case "4"
                a2 = 4
            Case "5"
                a2 = 5
            Case "6"
                a2 = 6
            Case "7"
                a2 = 7
            Case "8"
                a2 = 8
            Case "9"
                a2 = 9
            Case "A"
                a2 = 10
            Case "B"
                a2 = 11
            Case "C"
                a2 = 12
            Case "D"
                a2 = 13
            Case "E"
                a2 = 14
            Case "F"
                a2 = 15
        End Select

        ondalik = CStr((16 * a1) + a2)

        Select Case Len(ondalik)
            Case 1
                ondalik = "  " + ondalik
            Case 2
                ondalik = " " + ondalik
        End Select
    End Function

End Class

Dtmf · 06 Nisan 2020, 00:39:29

Serkanzey sorunu hallettim sagolasin

aslinda kodlari o hali ilede ekrana basiyormus sorun 128x64 degilde 5110 ekranini covertirda 84x48 ayarlamadigim icin oluyormus jeton yeni dustu😊 ekrana resmi bastim sonunda.

Dtmf · 06 Nisan 2020, 00:40:29

Paylastigin programi kullanacagim

selametle

Serk@n · 06 Nisan 2020, 07:44:35

Evet, 84x48 pikseldi o ekran. Güzel bir ekran ama yeni cep telefonlarına gözlerimiz alışınca projelerde küçük kaldı. Ben de yeni ekran arayışına girdim.