mz80 yani (e18-d50nk) pic basic pro kodu

[ewreka10]

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.

[ewreka10]

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