Arkadaşlar bir kod buldum ama mz80 için çalışır mı bilmiyorum.
sharp sensörü için çalışmıyor isis simulasyonda bir bakarmısınız?:
Trigger CON 5 ' trigger pulse = 10 uS
Scale CON $200 ' raw x 2.00 = uS
RawToIn CON 889 ' 1 / 73.746 (with **)
RawToCm CON 2257 ' 1 / 29.034 (with **)
IsHigh CON 1 ' for PULSOUT
IsLow CON 0
ULTRA_SONAR VAR PORTA.1
rawDist VAR Word
inches VAR Word
cm VAR Word
TRISA = 1
TRISB = 0
PORTB = 0
LOW ULTRA_SONAR
main:
GOSUB GET_SONAR
' get sensor value
inches = rawDist ** RawToIn ' inch'e dönü?tür
cm = rawDist ** RawToCm
' cm'ye dönü?tür
DO
IF (cm > 40) THEN GOTO LED1YANSIN
IF (cm < 75) AND (CM > 40) THEN GOTO LED2YANSIN
IF (cm < 40) THEN GOTO LED3YANSIN
LOOP
GET_SONAR: ' make trigger 0-1-0
ULTRA_SONAR = IsLow
PULSOUT ULTRA_SONAR, Trigger ' sensörü aktifle
PULSIN ULTRA_SONAR, IsHigh, rawDist ' measure echo pulse
rawDist = rawDist */ Scale 'convert to uS
rawDist = rawDist / 2
RETURN
LED1YANSIN:
PORTB = 0
HIGH PORTB.0
GOTO main
LED2YANSIN:
PORTB = 0
HIGH PORTB.1
GOTO main
LED3YANSIN:
PORTB = 0
HIGH PORTB.2
GOTO main
END