Myszka plus mikrokontroler w Bascom

Jasam · Post autor: **Jasam** » 17 gru 2007, 21:26

Jest tam jak udawać procesorem mysz?

joon · Post autor: **joon** » 17 gru 2007, 21:50

Było coś takiego ale nie pamiętam w której wersji helpu... musiałbyś poszuka całość opierała się z tego co pamiętam na specjalnej bibliotece.

Jasam · Post autor: **Jasam** » 17 gru 2007, 21:51

Ciężka sprawa..trzeba będzie sporo przekopać. Gdybyś przypadkiem sobie przypomniał coś to daj znać proszę Joon. Będę wdzięczny.

joon · Post autor: **joon** » 17 gru 2007, 21:54

Postaram się, no i cały czas pisałem o polskim helpie

Jasam · Post autor: **Jasam** » 17 gru 2007, 22:27

Kod: Zaznacz cały

'-----------------------------------------------------------------------------------------
'name                     : ps2_emul.bas
'copyright                : (c) 1995-2005, MCS Electronics
'purpose                  : PS2 Mouse emulator
'micro                    : 90S2313
'suited for demo          : NO, commercial addon needed
'commercial addon needed  : yes
'-----------------------------------------------------------------------------------------

$regfile = "2313def.dat"                                    ' specify the used micro
$crystal = 4000000                                          ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

$lib "mcsbyteint.lbx"                                       ' use optional lib since we use only bytes

'configure PS2 pins
Config Ps2emu = Int1 , Data = Pind.3 , Clock = Pinb.0
'                 ^------------------------ used interrupt
'                              ^----------- pin connected to DATA
'                                       ^-- pin connected to clock
'Note that the DATA must be connected to the used interrupt pin


Waitms 500                                                  ' optional delay
Enable Interrupts                                           ' you need to turn on interrupts yourself since an INT is used
Print "Press u,d,l,r,b, or t"

Dim Key As Byte

Do
    Key = Waitkey()                                         ' get key from terminal
    Select Case Key
      Case "u" : Ps2mousexy 0 , 10 , 0                      ' up
      Case "d" : Ps2mousexy 0 , -10 , 0                     ' down
      Case "l" : Ps2mousexy -10 , 0 , 0                     ' left
      Case "r" : Ps2mousexy 10 , 0 , 0                      ' right
      Case "b" : Ps2mousexy 0 , 0 , 1                       ' left button  pressed
                 Ps2mousexy 0 , 0 , 0                       ' left button released
      Case "t" : Sendscan Mouseup                           ' send a scan code
      Case Else
    End Select
Loop

Mouseup:
  Data 3 , &H08 , &H00 , &H01                                 ' mouse up by 1 unit

ten przykład? emuluje mysz czy klawiature?

joon · Post autor: **joon** » 17 gru 2007, 22:36

"purpose : PS2 Mouse emulator" emulator myszki

Jasam · Post autor: **Jasam** » 17 gru 2007, 22:39

bo troszke nie rozumiem,...ten przykład przesuwa kursorek kiedy? jakbym chciał czymś podłaczonym do procesroka sterowac tym kursorem to co? Jak wtedy?

Znowuja · Post autor: **Znowuja** » 18 gru 2007, 13:48

Właśnie....ale skąd wziąć tą bibliotekę ps2mouse_emulator.lbx? bo nie ma jej w standardzie chyba. skąd sciągnąć?

ZbeeGin · Post autor: **ZbeeGin** » 18 gru 2007, 19:53

Biliotekę można kupić na stronie www.mcselec.com

Prośby o jej darmowe udostępnienie będą bezwarukowo usuwane!

Jasam · Post autor: **Jasam** » 18 gru 2007, 20:13

O ile wiem prośba nie jest karalna ale nic. Jakoś nie widzę tu takiej prośby. Kupić to brzydkie słowo. Kiedy nastaną te piękne czasy wolnego we wszystkim oprogramowania. Ale przez łiindołsiarzy to jeszcze troszkę potrwa. Ale to nic. Trzeba będzie przysiąść i samemu coś napisać. Przy okazji okazać się bardziej ludzkim udostępniając co trzeba wszystkim hah.

ZbeeGin · Post autor: **ZbeeGin** » 18 gru 2007, 20:32

Ktoś tą bibliotekę napisał i przetestował poświęcając swój czas, i za to chce by mu zapłacono. Czy to tak trudno zrozumieć?
Dlaczego zaraz mieszasz w to Windows i jego użytkowników? To nie ma tutaj żadnego związku.

Prośba była, więc już ją usunąłem i ostrzegam na przyszłość.

Jasam · Post autor: **Jasam** » 18 gru 2007, 20:38

Znowu błąd. Nie mieszam w to Windows (tfu!!!) i jego użytkowników tylko łiindołs i łiindołsiarzy. Zgadzam sie z tobą we wszystkim co powiesz Użytkowniku Moderatorze ZbeeGin. Jestem po prostu przeciwnikiem tego typu rozprowadzania oprogramowania.

joon · Post autor: **joon** » 18 gru 2007, 20:49

Tu nie chodzi o winshita, Wolne oprogramowanie to zupełnie inna bajka. Ta sprawa wygląda tak samo jak z Bascomem. Jest wersja demo a za pełną trzeba zapłacić, tak samo jak za tą bibliotekę... na upartego samemu można napisać taką, ale najpierw trzeba dokładnie poznać sposoby komunikacji myszki z pecetem, ale wszystko jest możliwe

Jasam · Post autor: **Jasam** » 18 gru 2007, 20:52

Właśnie sam się będe brał za to teraz. Tylko szkoda, że przez to zajmie to dużo więcej czasu.

joon · Post autor: **joon** » 18 gru 2007, 21:20

Więcej czasu ale satysfakcja i wiedza pozostała jest bezcenna... Kiedyś próbowałem zrobić coś na wzór myszki dla niepełnosprawnych, ale to była porażka padłem na etapie łączności akceleratorów z prockiem mimo że emulator myszki prawie działał

za wysoka jazda dla mnie :/