Skocz do zawartości

[Kurs] BASCOM - lekcja3 - zaczynamy programować


Ikar

Pomocna odpowiedź

Zarejestruj się lub zaloguj, aby ukryć tę reklamę.
Zarejestruj się lub zaloguj, aby ukryć tę reklamę.

jlcpcb.jpg

jlcpcb.jpg

Produkcja i montaż PCB - wybierz sprawdzone PCBWay!
   • Darmowe płytki dla studentów i projektów non-profit
   • Tylko 5$ za 10 prototypów PCB w 24 godziny
   • Usługa projektowania PCB na zlecenie
   • Montaż PCB od 30$ + bezpłatna dostawa i szablony
   • Darmowe narzędzie do podglądu plików Gerber
Zobacz również » Film z fabryki PCBWay

przejrzyj jeszcze raz notę katalogową

ATtiny2313.gif

to jest widok od góry układu

a tak w ogóle to sugerowałbym podłączyć switche do masy, a diodę do Vcc

__________

Komentarz dodany przez: Sabre

Zdania zaczynamy z dużej litery. Jeśli nie będziesz pisał poprawnie Twoje posty wylądują w koszu.

Link do komentarza
Share on other sites

A usuwaj, to forum na tym straci, nie ja. A to chyba Wam zależy, żeby forum się rozwijało?? Pamiętajcie Drodzy Panowie- forum dla użytkowników, a nie użytkownicy dla forum. Jesteście na razie zbyt mali, żeby wjeżdżać na pomagających, skąd to wiem?? Prowadziłem 2 serwisy, które właśnie przez bardzo porządne dbanie o porządek na forum padły, bo użytkownicy stwierdzili, że jak im się nie pozwala na to co chcą robić, to idą sobie na inne forum- i nie koniecznie mowa tu o jakiś pokemonach i spamerach. BTW- Na forach internetowych nie jest wymagane pisanie zdań z dużej litery, bo często występują one jako wolno spisane myśli.

To nie była reakcja na zaprogramowanie tylko cały procek się ustawił w jakiś stan najprawdopodobniej.

  • Lubię! 1
Link do komentarza
Share on other sites

Kurcze no w ogole mi nie reaguje na przyciski 🙂 Raz działa a potem już w ogóle (podczas trwania jednego programu). Rzadziej nie 😃

$regfile = "attiny2313.dat"                 'najpierw określamy typ proca
$crystal = 1000000                          'definiujemy z jakim taktowaniem będzie pracował


Config Portb = Input                                        'port b  jako wejścia
      Portb = &B00000000                                   'wszędzie stan spoczynkowy-0
Config Portd = Output                                       'pprt d jako wyjścia
      Portd = &B0000000                                    'wszędzie stan spoczynkowy-0


Do                                                         'pętla nieskończona


If Pinb.1 = 0 Then                                         'jeżeli przycisk 1 wciśnięty

   Waitms 500                                              'czekaj 0,5 sekundy
   Toggle Portd.0                                          'zmień stan wyprowadzenia


End If

If Pinb.1 = 1 Then                                         'jeżeli przycisk 1 wciśnięty

   Waitms 500                                              'czekaj 0,5 sekundy
   Toggle Portd.0                                          'zmień stan wyprowadzenia


End If


loop                                       'koniec pętli

End
Link do komentarza
Share on other sites

Fajnie, ale w takiej konfiguracji jak to napisałeś musisz trzymać przycisk przez minimum 0,5s 😋

I proszę Cię, podłącz switcha do masy, a diodę do Vcc i pozmieniaj te warunki.

A tak w ogóle ten kod jest tak skonstruowany, że czy wciśniesz przycisk, czy nie, to zachowuje się tak samo.

Link do komentarza
Share on other sites

Bo tak się powinno robić. Najlepiej wgraj sobie teki programik, który napisałem poniżej- dioda pulsuje, kiedy wciśniesz przycisk świeci ciągle

$regfile = "attiny2313.dat"                                 'model proca
$crystal = 1000000                                          'taktowanie

Config Portb = Input                                        'port b  jako wejścia
       Portb = &B00000000                                  'stan spoczynkowy-0
Config Portd = Output                                       'pprt d jako wyjścia
       Portd = &B0000000                                   'stan spoczynkowy-0


Do                                                          'pętla nieskończona


While Pinb.1 = 1                                           'do puki na pb1 stan wysoki
  Portd.0 = 1                                              'stan wysoki ma pd0
Wend                                                       'koniec petli while

Toggle Portd.0                                             'zmien stan na pd0
Waitms 200                                                 'czekaj 0,2s




Loop                                                        'koniec pętli

End
Link do komentarza
Share on other sites

na pewno się wgrał?? zrób mi jeszcze jedno foto z góry jak masz teraz wszystko podłączone, tylko z procem w podstawce.

[ Dodano: 10 Gru 08 10:29 ]

a najlepiej podłącz to wszystko tak jak pisałem 😃

Link do komentarza
Share on other sites

Dołącz do dyskusji, napisz odpowiedź!

Jeśli masz już konto to zaloguj się teraz, aby opublikować wiadomość jako Ty. Możesz też napisać teraz i zarejestrować się później.
Uwaga: wgrywanie zdjęć i załączników dostępne jest po zalogowaniu!

Anonim
Dołącz do dyskusji! Kliknij i zacznij pisać...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

×
×
  • Utwórz nowe...

Ważne informacje

Ta strona używa ciasteczek (cookies), dzięki którym może działać lepiej. Więcej na ten temat znajdziesz w Polityce Prywatności.