apua ja esimerkkiä tarvitaan!

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
aaaaapuaaaaaa

apua ja esimerkkiä tarvitaan!

Post by aaaaapuaaaaaa »

eli siis ideana olisi saada sellainen ohjelma aikaan että ohjelma klikkaa itse hiirtä.

esim: ohjelma liikuttaa hiiren tiettyyn paikkaan ruudulla ja klikkaa hiiren vasemmalla/oikealla hiirenpainikkeella itse!

apua tarvitaan!
ihannyyppä
Newcomer
Posts: 47
Joined: Tue Oct 16, 2007 5:28 pm
Location: Varkaus
Contact:

Re: apua ja esimerkkiä tarvitaan!

Post by ihannyyppä »

aaaaapuaaaaaa wrote:eli siis ideana olisi saada sellainen ohjelma aikaan että ohjelma klikkaa itse hiirtä.

esim: ohjelma liikuttaa hiiren tiettyyn paikkaan ruudulla ja klikkaa hiiren vasemmalla/oikealla hiirenpainikkeella itse!

apua tarvitaan!
En ole mestari CB:ssä mutta jo näiltä näkymin uskallan epäillä tuon olevan mahdotonta,
jos mahdollista niin sitten son varmaanki HELVETIN vaikea tehdä... :?
Valmiit pelit: 0 muahaha
Projekteina:
Vivarium (beta saattaa tulla lähi-aikoina)
Crusher Bastard (vasta suunnitteluvaiheessa)
Rattijuoppo (Projekti jäässä)
Szanne
Member
Posts: 50
Joined: Thu Aug 30, 2007 5:12 pm
Location: Suomi

Re: apua ja esimerkkiä tarvitaan!

Post by Szanne »

Eikö tämmöinen onnistuisi hyödyntämällä cbFunia?
2X - in English viewtopic.php?f=18&t=3057
2X - suomeksi viewtopic.php?f=11&t=3058

Olen Jop Studio vanhalta foorumilta.
Henkru
Advanced Member
Posts: 359
Joined: Sun Aug 26, 2007 2:46 pm

Re: apua ja esimerkkiä tarvitaan!

Post by Henkru »

Kyllähän tämä cbFUN:in avulla onnistuu.
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: apua ja esimerkkiä tarvitaan!

Post by nevssons »

siis "onscreenmouse"

liikuttaminen on täysin mahdollista (testasin äsken voiko positionmousella siirtää hiiren näytön ulkopuolelle)

oota teen esmerkin
Koodarina kohtalainen, henkilönä vittumainen
Image
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: apua ja esimerkkiä tarvitaan!

Post by nevssons »

Code: Select all

x=200
y=150
Repeat
PositionMouse x,y
If KeyDown(200) Then y=y-1
If KeyDown(208) Then y=y+1
If KeyDown(203) Then x=x-1
If KeyDown(205) Then x=x+1
DrawScreen
Forever 
tos on esimerkki

en kyllä keksi miten saa klikkaukset tehtyä
Pate5
Artist
Artist
Posts: 551
Joined: Tue Aug 28, 2007 4:53 pm
Location: Vantaa

Re: apua ja esimerkkiä tarvitaan!

Post by Pate5 »

nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.
CoolBasic henkilökuntaa
Graafikko
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: apua ja esimerkkiä tarvitaan!

Post by nevssons »

Pate5 wrote:
nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.
et oo tainnu kokeilla sitä vaihtoehtoa ite?
Koodarina kohtalainen, henkilönä vittumainen
Image
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: apua ja esimerkkiä tarvitaan!

Post by Harakka »

Itse ainakin olen kokeillut ja hyvin toimii. Kokeileppa itse, sen ei pitäisi olla kovin vaikeaa (haulla löydät varmaan myös tekemäni esimerkkikoodin samasta aiheesta, kirjoitin sen cbFun-topicciin).
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
User avatar
Ruuttu
Devoted Member
Posts: 688
Joined: Thu Aug 30, 2007 5:11 pm
Location: Finland, Sipoo

Re: apua ja esimerkkiä tarvitaan!

Post by Ruuttu »

CbFUN itseasiassa toimii... Sillä voi asettaa hiiren minne tahansa ruudulla, ja sillä voi simuloida/emuloida klikkaamista.
Esimerkki ohjelmasta, joka klikkaa sekunnin välein:

Code: Select all

include "cbfun\cbfun.cb"

   timer1=timer()
   repeat
   timer2=timer()

   //Seuraavalle riville voi laittaa minkä tahansa ehtolausekkeen, ja klikkaus tapahtuu kun ehto toteutuu.
      if timer2-timer1>1000 then //Jos sekunti on kulunut niin...
         mouseevent(1) //Hiiren nappi pohjaan...
         wait 50
         mouseevent(0) /Hiiren nappi takaisin ylös.
         timer1=timer() //Nollataan ajastin.
      end if

   forever
Minulla on CbFUNissa jotain häikkää, joten minun pitää kääntää tuo exeksi samaan kansioon missä CBEditor.exe on, jotta toimisi kunnolla.
En tiedä tarvitseeko kenenkään muun tehdä niin.
EDIT:

Äh, harakka oli nopeampi

nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: apua ja esimerkkiä tarvitaan!

Post by nevssons »

Code: Select all

Include "cbFUN\cbFUN.cb"
x=200
y=150
Repeat
PositionMouse x,y
If KeyDown(200) Then y=y-1
If KeyDown(208) Then y=y+1
If KeyDown(203) Then x=x-1
If KeyDown(205) Then x=x+1
If KeyDown(2) Then MouseEvent(0) 
If KeyUp(2) Then MouseEvent(1) 
If KeyDown(3) Then MouseEvent(2) 
If KeyUp(3) Then MouseEvent(3) 
DrawScreen
Forever 
kokeile tota, tajuat mitä tarkoitan
Koodarina kohtalainen, henkilönä vittumainen
Image
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: apua ja esimerkkiä tarvitaan!

Post by Harakka »

Code: Select all

Include "cbFUN\cbFUN.cb"

AddText "2: hiiren vasen näppäin 3: hiiren oikea näppäin"
Repeat
    PositionMouse MouseX()+RightKey()-LeftKey(),MouseY()-UpKey()+DownKey()
    If KeyHit(cbkey2) Then
        mouseEvent(0)
        mouseEvent(1)
    ElseIf KeyHit(cbkey3) Then
        mouseEvent(2)
        mouseEvent(3)
    EndIf
    DrawScreen
Forever
Näin ainakin toimii. Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: apua ja esimerkkiä tarvitaan!

Post by nevssons »

Harakka wrote:

Code: Select all

Include "cbFUN\cbFUN.cb"

AddText "2: hiiren vasen näppäin 3: hiiren oikea näppäin"
Repeat
    PositionMouse MouseX()+RightKey()-LeftKey(),MouseY()-UpKey()+DownKey()
    If KeyHit(cbkey2) Then
        mouseEvent(0)
        mouseEvent(1)
    ElseIf KeyHit(cbkey3) Then
        mouseEvent(2)
        mouseEvent(3)
    EndIf
    DrawScreen
Forever
Näin ainakin toimii. Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.

Kyllä tossa sun koodissas on ihan sama vika kun mun koodissa
eli:
1.vien hiiren ohjelman ulkopuolelle
2.painan ykköstä(tai sun koodissas kakkosta)
3.ohjelma menee alas etkä pysty liikuttamaan hiirtä.
Harakka wrote: Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.
ei siitä cbkeytä puuttunu, se oli ykkösen "näppäimistökoodi" ja toimii täydellisesti
elikkä tossa ykkönen on vasen näppäin ja kakkonen oikea

Ja noi koodit tekee lähes täysin saman asian
ja sun koodissas ei voi pitää hiirtä pohjassa
Koodarina kohtalainen, henkilönä vittumainen
Image
Post Reply