Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
BU PROGRAMI YAZABİLECEK VAR MI? ACİL PICBASIC
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
< Bu mesaj bir yönetici tarafından değiştirilmiştir >Şemayı ve programı hazırladım.
Şema:
Program:
@ DEVICE PIC16F84A
@ DEVICE PIC16F84A,WDT_ON
@ DEVICE PIC16F84A,PWRT_ON
@ DEVICE PIC16F84A,PROTECT_OFF
@ DEVICE PIC16F84A,XT_OSC
TRISA=%10111
TRISB=%00000000
S VAR BYTE
SAYI VAR BYTE
S=0
BASLA:
GOSUB YAZ
IF PORTA.0=0 THEN
WHILE PORTA.0=0:WEND
S=S+1
GOSUB YAZ
ENDIF
IF S=10 THEN S=9
IF S>10 THEN S=0
IF PORTA.1=0 THEN
WHILE PORTA.1=0:WEND
S=S-1
GOSUB YAZ
ENDIF
IF PORTA.2=0 THEN
WHILE PORTA.2=0:WEND
IF S>4 THEN
HIGH PORTA.3
INPUT PORTA.4
ELSE
LOW PORTA.3
OUTPUT PORTA.4
LOW PORTA.4
ENDIF
ENDIF
GOTO BASLA
YAZ:
LOOKUP S,[63,6,91,79,102,109,125,7,127,111],SAYI
PORTB=SAYI
RETURN
END
-
quote:
Orijinalden alıntı: Overclock Makinesi
Şemayı ve programı hazırladım.
Şema:
Program:
@ DEVICE PIC16F84A
@ DEVICE PIC16F84A,WDT_ON
@ DEVICE PIC16F84A,PWRT_ON
@ DEVICE PIC16F84A,PROTECT_OFF
@ DEVICE PIC16F84A,XT_OSC
TRISA=%10111
TRISB=%00000000
S VAR BYTE
SAYI VAR BYTE
S=0
BASLA:
GOSUB YAZ
IF PORTA.0=0 THEN
WHILE PORTA.0=0:WEND
S=S+1
GOSUB YAZ
ENDIF
IF S=10 THEN S=9
IF S>10 THEN S=0
IF PORTA.1=0 THEN
WHILE PORTA.1=0:WEND
S=S-1
GOSUB YAZ
ENDIF
IF PORTA.2=0 THEN
WHILE PORTA.2=0:WEND
IF S>4 THEN
HIGH PORTA.3
INPUT PORTA.4
ELSE
LOW PORTA.3
OUTPUT PORTA.4
LOW PORTA.4
ENDIF
ENDIF
GOTO BASLA
YAZ:
LOOKUP S,[63,6,91,79,102,109,125,7,127,111],SAYI
PORTB=SAYI
RETURN
END
hocam uğraşmıssın ama sınav sorusuydu bugün şimdi gördüm sınavda 80 aldım her şeyi yaptım sayıcıda yanlış vardı 9 a çıkınca 0 a dönmüyordu ama teşekkür ederim yazdığın için.iyi akşamlar.
-
< Bu mesaj bir yönetici tarafından değiştirilmiştir >Bu programda da 0'a dönmüyordu. Sadece limit vardı. 0'a dönmesini istiyorsan IF XXX>9 THEN XXX=0 yazmak yeterliydi.
< Bu ileti mobil sürüm kullanılarak atıldı > -
quote:
Orijinalden alıntı: Overclock Makinesi
Bu programda da 0'a dönmüyordu. Sadece limit vardı. 0'a dönmesini istiyorsan IF XXX>9 THEN XXX=0 yazmak yeterliydi.
tüh ben yapamadım onu :( sağlık olsun.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
