Bascom - jak zrobić opóźnienie? Przykład programu.

Question

cos mi chyba ten jezyk nie idzie ale na czyms uczys sie trzeba a kto pyta nie bladzi wiec:) Jak zrobic by nie odczekiwal Elseif Portd.6 = 0 Then Wait 5 jesli stan nie byl wczesniej If Portd.6 = 1 Then Wait 5 tylko pomijal to ( czyli jesli bylo 1 a jest 0 wtedy odczekaj 5 a jesli nie bylo 1 nie...

WaldekPrzybyłek · Accepted Answer

Poprawiłem trochę składnię



$crystal = 1000000
 $regfile "attiny2313.dat"
Dim Bylo As Integer

If Portd.6 = 1 And Bylo = 0 Then
  Bylo = Portd.6
  Wait 5
  Set Portd.7
  Else
  If Portd.6 = 0 And Bylo = 1 Then
  Bylo = Portd.6
  Wait 5
  Reset Portd.7
  End If
End If

Zalecam jednak poczytać help od Bascoma, za nim zaczniesz pisać programy.
Pzdr.

starob · Answer

instrukcja if port.6 sprawdza stan portu w tej chwili i nie wie co było wcześniej ) powinneś zapamiętać stan portu np. w zmiennej Bylo=Port.6 w miejscach gdzie robisz Wait 5 a warunki powinny wyglądać : if (port.6 =1) and (Bylo =0) then.. elseif (port.6 =0) and (Bylo =1)... Oczywiście to jest zasada, składnie języka pewnie do poprawy Dodano po 1 [minuty]: instrukcja if port.6 sprawdza stan portu w tej chwili i nie wie co było wcześniej ) powinneś zapamiętać stan portu np. w zmiennej Bylo=Port.6 w miejscach gdzie robisz Wait 5 a warunki powinny wyglądać : if (port.6 =1) and (Bylo =0) then.. elseif (port.6 =0) and (Bylo =1)... Oczywiście to jest zasada, składnie języka pewnie do poprawy Optymalnie to winno być tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka if port.6 xor Bylo then       /wykrywa zmiany na stan przeciwny      {                    port.6=/port.6            / zmiana stanu portu na przeciwny       Bylo=port.6               / zapamiętanie aktualnego stanu       wait5        } i wszystko w helpie tego nie wyczytasz Oczywiście trzeba dopasować to możliwości i składni Bascoma

nouki · Answer

albo zle zrozumialem albo.....



$crystal = 1000000                                    
 $regfile "attiny2313.dat"  
Dim Bylo As Byte

If(portd.6 = 1) And(bylo = 0) Then
  Bylo = Portd.6
  Wait 5
  Set Portd.7
  Elseif(portd.6 = 0) And(bylo = 1) Then
  Bylo = Portd.6
  Wait 5
  Reset Portd.7
  End If
end:

wyswietla sie blad skladni "if" i "elseif"

a w tym wyswietla 8 bledow:)


if portd.6 xor Bylo then       'wykrywa zmiany na stan przeciwny 
    {              
      portd.6=/portd.6           ' zmiana stanu portu na przeciwny 
      Bylo=portd.6               ' zapamiętanie aktualnego stanu 
      wait5  
end if
end:

Mam na sprzedaż:
29.11.2022 Tranzystor IGBT CM400HA-24H

nouki · Answer

pisalem ze poznaje jezyk:) pisalem w c a to cos innego. Zostalem zmuszony do Bascoma dziekuje za pomoc temat zamykam:)

Bascom - jak zrobić opóźnienie? Przykład programu.

Post #1

Post #2

Post #3

Post #4

Post #5