pıc basıc yardım!

Katılım
7 Mar 2013
Mesajlar
93
Puanları
1
Öncelikle Merhaba arkadaşlar yazmaya çalıştığım bir program var ama bu dili öğrenmeye yeni başladım eksiklerim yazmaya çalıştığım şey aslında basit pic'in girişine bağlı butona basıldığında çıkışların hepsi 1 olucak ( buraya kadar tamam ) aynı butona 2. kez basıldığında bu sefer çıkışlar polis çakara dönücek butona tekrar basıldığında ise çıkışlar 1 olucak ...

bu programda butona ilk basıldığında tüm ledler yansın
butona 2 kere bastığında polis çakara dönsün .. mantığı böyle kurdum ama programı yazarken sıkıntı yaşadım yardımcı olursanız sevinirim .
 
TRISA=%00000001
TRISB=%00000000
Z VAR BYTE
X VAR BYTE
Z=0
X=0
PORTB=0
PORTA=0


BASLA:
IF PORTA.0=0 THEN DONGU1
GOTO BASLA

DONGU1:
PAUSE 400



DONGU2:
PORTB=%11111111
IF PORTA.0=0 THEN DONGU3
GOTO DONGU2


DONGU3:
PAUSE 400





DONGU4:
PORTB=0
FOR Z=1 TO 30
TOGGLE PORTB.0
TOGGLE PORTB.1
TOGGLE PORTB.2
PAUSE 50
IF PORTA.0=0 THEN DONGU1
NEXT Z


IF PORTA.0=0 THEN DONGU1
IF PORTA.0=0 THEN DONGU1
PORTB=0

FOR X=1 TO 30
TOGGLE PORTB.3
TOGGLE PORTB.4
TOGGLE PORTB.5
PAUSE 50
IF PORTA.0=0 THEN DONGU1
NEXT X
PORTB=0

GOTO DONGU3

END


fehmi basic de ne durumda oldugunu bilmedigim için olabildigince basit yazmaya çalıştım anlamadıgın yer olursa sor
 
erhan öncelikle teşekkür ederim .. pic basic pro' da daha yeniyim yazdığın bu programın mantığını az çok çözdüm fakat foruma soruyu soralı yaklaşık bir hafta oluyor ve bu bir hafta içerisinde birkaç yere bakarak yazmaya çalıştım :

TRISA=%11111
TRISB=0
PORTB=0
SAYI VAR BYTE
SAYI=0


TEST
PORTB=0
SAYI=0
PAUSE 200
BUTONTEST


PAUSE 50
IF PORTA.0= 0 AND SAYI=0 THEN YAK
PAUSE 1
IF PORTA.0= 0 AND SAYI=1 THEN CAKAR
GOTO BUTONTEST


YAK
PORTB=255
SAYI=1
GOTO BUTONTEST


CAKAR


PAUSE 15
PORTB=$F0
PAUSE 15
PORTB=0
PAUSE 15
PORTB=$F0
PAUSE 15
PORTB=0
PAUSE 15
PORTB=$F0
PAUSE 15
PORTB=0
PAUSE 15
PORTB=$0F
PAUSE 15
PORTB=0
PAUSE 15
PORTB=$0F
PAUSE 15


PORTB=0
PAUSE 15
PORTB=$0F
PAUSE 15
PORTB=0
SAYI=20
PAUSE 1
IF PORTA.0=0 AND SAYI=20 THEN TEST
pause 1
GOTO CAKAR
END

benim yazdığım program'da bu şekilde oldu çok basit ama idare eder en azından .
:)
 
Son düzenleme:

Forum istatistikleri

Konular
127,959
Mesajlar
913,917
Kullanıcılar
449,606
Son üye
rasit.

Yeni konular

Geri
Üst