umutozkans
Üye
- Katılım
- 7 Ağu 2008
- Mesajlar
- 78
- Puanları
- 1
- Yaş
- 40
Elimde hexadecimal olarak fakat text dosyası olarak kodlar var ama .HEX uzantılı olmadığı için entegreye yükleyemiyorum.
kodlar delphi ile yazılmış metin dosyasında ise nasıl bunları hex yapabiliriz.
Bu kod basic dilinde yazılmış.Üstte ki yazdığım yazıyı incele o işini görür olmazsa ben hex'e çeviririm.Arkadaslar bende bi kod var bunu günlerce hexe çevirmeye çalısıyorum ama bir türlü yapamıyorum bu işlerde biraz acemiyimdir lütfen yardımcı olabilirmisiniz ?
pıc16f84a
(TRISA=0TRISB=001110
PORTB=000000
SOLSENSOR VAR PORTB.1
ORTASENSOR VAR PORTB.2
SAGSENSOR VAR PORTB.3
MAG VAR PORTB.4
MAI VAR PORTB.5
MBG VAR PORTB.6
MBI VAR PORTB.7
MAG=0 : MAI=0 : MBG=0 : MBI=0
DONGU:
IF SOLSENSOR=0 AND ORTASENSOR=0 AND SAGSENSOR=0 THEN
MAI=0 : MAG=0 : MBI=0 : MBG=0
ENDIF
IF SOLSENSOR=1 AND ORTASENSOR=0 AND SAGSENSOR=1 THEN
MAI=1 : MAG=0 : MBI=1 : MBG=0
ENDIF
IF SOLSENSOR=0 AND ORTASENSOR=0 AND SAGSENSOR=1 THEN
MAI=0 : MAG=1 : MBI=1 : MBG=0
PAUSE 1
ENDIF
IF SOLSENSOR=0 AND ORTASENSOR=1 AND SAGSENSOR=1 THEN
MAI=0 : MAG=1 : MBI=1 : MBG=0
PAUSE 1
ENDIF
IF SOLSENSOR=1 AND ORTASENSOR=0 AND SAGSENSOR=0 THEN
MAI=1 : MAG=0 : MBI=0 : MBG=1
PAUSE 1
ENDIF
IF SOLSENSOR=1 AND ORTASENSOR=1 AND SAGSENSOR=0 THEN
MAI=1 : MAG=0 : MBI=0 : MBG=1
PAUSE 1
ENDIF
IF SOLSENSOR=1 AND ORTASENSOR=1 AND SAGSENSOR=1 THEN
WHILE ORTASENSOR=1
MAI=0 : MAG=1 : MBI=0 : MBG=1
WEND
ENDIF
GOTO DONGU
END )