Merhaba Dostlar.
Geçen gün Karaköye gidip mz80 aldım ama arkadaş bana "e18-d50nk" vermiş dikkat etmedim, bunun tek farkı 80 cm yerine 50 cm mesafe algılaması bu bir problem olur mu sizce gerçi gittiğimde değiştirmeyi düşünüyorum ama....
Bir diğer sorum ise mz80 ' i nasıl kulllanabilirim ingiliz, amerikan sitelerinde fink attım ama hiç pbp kodu bulamadım bilen varsa lütfen yardımcı oabilir mi?.
pic 16F628A ve pbp 2.60, kullanıyorum.
Şimdiden teşekkür ederim dostlar.
Arkadaşlar bir kod buldum ama mz80 için çalışır mı bilmiyorum.
sharp sensörü için çalışmıyor isis sim ulasyonda bir bakarmısınız?:
' -----[ultrasonic sabitler ]-------------------------------------------------------
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