• Zarejestrowany: 2009-04-21
  • Posty: 1,699

mam gorącą prośbę, czy Ktoś mógłby mi tu napisać w Basicu program do testowania joysticka? chodzi tylko o odczyt stanu portów joysticków i wyświetlanie tego na ekranie...

ja już nic nie pamiętam i sam sobie nie poradzę...

2 Odpowiedź przez Zenon/Dial

  • Zarejestrowany: 2005-09-04
  • Posty: 1,331

To dosyć skomplikowany program, wygląda mniej więcej tak

10 PRINT STICK (0)
20 GOTO 10

ZAMIAST 0 WSTAWIASZ 1 I TESTUJESZ DRUGI MANIPULATOR DŹWIGNIOWY JEDNORAMIENNY
NIŻEJ TEST PRZYCISKU

10 PRINT STRIG (0)
20 GOTO 10

I JAK POPRZEDNIO 1 ZAMIAST 0 I TESTUJESZ PRZYCISK W MANIPULATORZE 2

3 Odpowiedź przez dely

  • dely
  • dely
  • Kierownik Zamieszania
  • Nieaktywny
  • Skąd: Radom
  • Zarejestrowany: 2002-03-08
  • Posty: 6,993

Program Zenka nie będzie dobrze działał. Ten jest lepszy o 30% ;)

0 ? CHR$(125);:POKE 752,1
1 FOR A=17 TO 21:READ B:POSITION A,0:? CHR$(B);:NEXT A
2 POSITION 3,1
10 ? STICK(0),STICK(1),STRIG(0),STRIG(1):GOTO 2
11 DATA 82,84,70,77,33
Czy możecie wyjaśnić, Stirlitz, dlaczego wasz służbowy adres stirlitz@rsha.gov.de ma aliasa justas@gru.su?
Nie czytam PM. Proszę używać e-mail.

dely's Strona

4 Odpowiedź przez Zenon/Dial

  • Zarejestrowany: 2005-09-04
  • Posty: 1,331

Czy padnie pytanie... szto eta RTFM!
Obstawiamy, warto coś wygrać.

5 Odpowiedź przez seban Ostatnio edytowany przez seban (2013-09-15 00:53:45)

  • seban
  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,997

Panowie,

To zupełnie nie tak... wasz kod jest zupełnie nieczytelny i niezrozumiały... to musi być tak:

10 GOSUB 1000:GRAPHICS 5+16
15 POKE 708,200:POKE 709,56
20 IF O<>Q THEN PUT #6,125:O=Q
25 COLOR 2:IF PEEK(644) THEN COLOR 1
30 X=40:Y=20:PLOT X,Y
35 Q=PEEK(632)
40 IF USR(1536,Q,4)=0 THEN X=X-20
41 IF USR(1536,Q,8)=0 THEN X=X+20
50 IF USR(1536,Q,1)=0 THEN Y=Y-20
51 IF USR(1536,Q,2)=0 THEN Y=Y+20
60 DRAWTO X,Y
90 GOTO 20
999 END 
1000 RESTORE 1001:FOR I=1536 TO 1551:READ D:POKE I,D:NEXT I:RETURN 
1001 DATA 104,104,104,133,212,104,104,37,212,133,212,169,0,133,213,96

;-)

EDIT: Wersja 1.1, poprawiona :) poprzednio zapomniałem o Fire! :P

GitHUB: https://github.com/seban-slt

seban's Strona

6 Odpowiedź przez willy

  • willy
  • willy
  • Atarowiec
  • Nieaktywny
  • Skąd: $E477.dk
  • Zarejestrowany: 2013-01-04
  • Posty: 1,953

No i to rozumiem.
A nie tam jakieś RTFM.

"tatusiu zobacz, narysowałam tobie takie same coś jak na twojej koszulce" 
https://github.com/willyvmm/mouSTer
jmp $e477

willy's Strona

7 Odpowiedź przez wieczor

  • Skąd: Gdańsk
  • Zarejestrowany: 2007-10-21
  • Posty: 4,404

Może by jakieś compo na najfajniejszy test joysticków :)

The problem is not the problem; the problem is your attitude about the problem

8 Odpowiedź przez seban Ostatnio edytowany przez seban (2013-09-15 02:19:23)

  • seban
  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,997

to już takie były... nawet z testem wytrzymałości ... czyli wszelakie gry sportowe gdzie trzeba było machać na boki aby biec szybciej, etc :P

np. http://a8.fandal.cz/detail.php?files_id=4511

EDIT:

Ale faktycznie... pomysł z kompo przedni :) czekam w takim razie na jeszcze inne wersję testu joy-a :P zaczyna się robić zabawnie :)

GitHUB: https://github.com/seban-slt

seban's Strona

9 Odpowiedź przez Zenon/Dial

  • Zarejestrowany: 2005-09-04
  • Posty: 1,331

Programy niewątpliwie prezentują wysoki poziom, generując dosyć dokładne wyniki pomiaru. Charakteryzuje je jedna wada. Brak dźwięku w momencie poruszania manipulatorem dźwigniowym jednoramiennym ręcznym.

Przy okazji tematu ...kompo.
Zdaje się że do dziś nie ustalono polskiej nazwy na to urządzenie. Swego czasu toczyła się dosyć intensywna wojna, jak to nazwać, jak pamiętam bez zwycięscy. Może przy okazji tworzonych prac autorzy wysilą się nieco bardziej i zaproponują w miarę polską nazwę bez głosek SZ, CZ, i tym podobnych, by cała gawiedź mogła to poprawnie wymawiać.

10 Odpowiedź przez seban

  • seban
  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,997

a wiesz Zenon iż myślałem aby dodać dźwięki :) Może pomyślę nad atrakcyjnymi dźwiękami w wersji V2 :P

GitHUB: https://github.com/seban-slt

seban's Strona

11 Odpowiedź przez xxl

  • xxl
  • xxl
  • Naddyskownik
  • Nieaktywny
  • Skąd: Rabka-Zdrój
  • Zarejestrowany: 2002-04-23
  • Posty: 8,307

amatorzy... kolega pyta o program do testowania dzojstika - gdzie informacja o drganiach na stykach?

http://atari.pl/hsc/ad.php?i=1.

xxl's Strona

12 Odpowiedź przez bezrobotny

  • Zarejestrowany: 2009-04-21
  • Posty: 1,699

dz.

a jeszcze mam zagadnienie, jak wklepać te programy na komputer w którym nie działa spacja? może macie jakieś triki?

13 Odpowiedź przez larek

  • larek
  • larek
  • Młodszy Atarowiec
  • Nieaktywny
  • Skąd: Sosnowiec
  • Zarejestrowany: 2006-04-17
  • Posty: 936

A CONTROL i STRZAŁKA W PRAWO działają?

larek's Strona

14 Odpowiedź przez jer

  • jer
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: Twierdza Modlin
  • Zarejestrowany: 2004-07-27
  • Posty: 2,439

Zenon, proponuję DŻOJSZCZYK.

Moje www

jer's Strona

15 Odpowiedź przez bezrobotny

  • Zarejestrowany: 2009-04-21
  • Posty: 1,699

control działa dzięki, a czy w SpartaDOS X ten numer z control i strzałka też działa?
a ja próbowałem jakichś cudów...

16 Odpowiedź przez Zenon/Dial

  • Zarejestrowany: 2005-09-04
  • Posty: 1,331

Jak spacja nie działa.... rozebrać klawisz, przeczyścić styki bo zabrudzone, zaśniedziałe, poskładać, nikomu nie mówić że naprawiane, bo model osiągnie niższą cenę na allegro.

17 Odpowiedź przez bezrobotny

  • Zarejestrowany: 2009-04-21
  • Posty: 1,699

;) a jak mi się wszystko wysypie...

18 Odpowiedź przez Iron

  • Iron
  • Iron
  • Młodszy Atarowiec
  • Nieaktywny
  • Skąd: Góra Świętej Anny
  • Zarejestrowany: 2010-12-08
  • Posty: 677
bezrobotny napisał/a:

;) a jak mi się wszystko wysypie...

To na allegro jako stan nieznany, nie przyjmuje zwrotów, negatywów etc. ;)

http://atari.pl/hsc/ad.php?i=83.1.4

Iron's Strona

19 Odpowiedź przez wieczor

  • Skąd: Gdańsk
  • Zarejestrowany: 2007-10-21
  • Posty: 4,404

Znalazlem u dziadka na strychu :)

The problem is not the problem; the problem is your attitude about the problem

20 Odpowiedź przez willy

  • willy
  • willy
  • Atarowiec
  • Nieaktywny
  • Skąd: $E477.dk
  • Zarejestrowany: 2013-01-04
  • Posty: 1,953

Albo jako: "NOWOŚĆ Atari puzzle"

"tatusiu zobacz, narysowałam tobie takie same coś jak na twojej koszulce" 
https://github.com/willyvmm/mouSTer
jmp $e477

willy's Strona

21 Odpowiedź przez syscall

  • Skąd: Lublin
  • Zarejestrowany: 2011-12-16
  • Posty: 1,351

Taki upust kreatywności dla jednego trolla który nic dla was nie zrobił i jeszcze was wykorzystuje? Naprawde wstyd.

"Was powinny uzbrojone służby wyciągać z domów do punktów szczepień, a potem zamykać do pi* za rozpowszechnianie zagrożenia epidemicznego" - Epi 2021
"Powinno się pałować tylko tych co tego nie rozumieją. No i nie szmatki i nie chirurgiczne tylko min FFP3, to by miało jakiś sens. U mnie we firmie, to jak przychodzi bezmaskowiec, to stoi w deszczu przed firmą" - Pin 2021

22 Odpowiedź przez seban Ostatnio edytowany przez seban (2013-09-15 16:52:52)

  • seban
  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,997

syscall, ale to nie dla niego ... to dla siebie :) fajnie było po tylu latach napisać coś z ponownie w Atari BASIC :)

to dobrze na mózg wpływa czasami wygrzebać z jego czeluści starą wiedzę :) taki DRAM-Refresh :)

GitHUB: https://github.com/seban-slt

seban's Strona

23 Odpowiedź przez Zenon/Dial

  • Zarejestrowany: 2005-09-04
  • Posty: 1,331

A poza tym np w TV same pierdoły.
Niedziela, można by się odprężyć, coś lekkiego zobaczyć, pośmiać się z dobrej komedii. A tu same dyrdymele z debilnymi reklamami włącznie. Więc... dla odstresowania, jak wskazał poprzednik, warto coś przećwiczyć w BASICu, który mimo upływu lat dobrze się trzyma i pozwala w super prosty sposób realizować skomplikowane zadania, ot, choćby odczyt stanu przycisków  DŻOJSZCZYKa

24 Odpowiedź przez syscall

  • Skąd: Lublin
  • Zarejestrowany: 2011-12-16
  • Posty: 1,351

Ja rozumiem aspekt samorealizacji :) ale naprawde potrzebujecie do tego bezrobotnego? ;)

"Was powinny uzbrojone służby wyciągać z domów do punktów szczepień, a potem zamykać do pi* za rozpowszechnianie zagrożenia epidemicznego" - Epi 2021
"Powinno się pałować tylko tych co tego nie rozumieją. No i nie szmatki i nie chirurgiczne tylko min FFP3, to by miało jakiś sens. U mnie we firmie, to jak przychodzi bezmaskowiec, to stoi w deszczu przed firmą" - Pin 2021

25 Odpowiedź przez seban Ostatnio edytowany przez seban (2013-09-15 18:13:18)

  • seban
  • seban
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 2,997

bezrobotny jest tylko pretekstem ;) Bo powiedz mi jakbyś skomentował mój post pt. "popełniłem super-megaz-giha-hyper test Joysticka w Atari BASIC!" ;-) he he he :) i do kompletu temat pt "test JOY-a"... to ostatnie co by mi przyszło do głowy :P

ps) wybacz Zenon że używam starej nazwy,  ale nawet nie jestem w stanie poprawnie wymówić Twojej nazwy Joysticka ;)

GitHUB: https://github.com/seban-slt

seban's Strona