Keskustelu: Koodit: VB6: Pallo seuraa hiirtä

Pallo pyrkii hiiren luokse lyhintä reittiä. Tarvitset shapen ja timerin.

Dim x, y, nopeus

Private Sub Form_Load()
    Timer1.Interval = 20
    Shape1.Width = 375
    Shape1.Height = 375
    Shape1.Shape = 3

    nopeus = 10   'mitä suurempi, sen hitaammin pallo seuraa
End Sub

Private Sub Timer1_timer()

    matkaX = x - Shape1.Left    '\ lasketaan pallon ja
    matkaY = y - Shape1.Top     '/ hiiren välinen matka

    Shape1.Left = Shape1.Left + (matkaX / nopeus) '\ mitä suurempi matka, sitä
    Shape1.Top = Shape1.Top + (matkaY / nopeus)   '/ nopeammin pallo menee kohti hiirtä

End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, kor As Single, lev As Single)
    x = kor             '\
    y = lev             '/  katsellaan missä hiiri on
End Sub

Kommenteissa on näköjään jotain häröä... Toisen kommentin olisi siis tarkoitus olla

'\lasketaan pallon ja
'/hiiren välinen matka

Ei nuo hienot kooditagit toimi, eli vielä kerran:

'lasketaan pallon ja
'hiiren välinen matka

Eikö tota koodivinkin muokkaustakin voisi käyttää?

Mitenkäs tuota voi muokata? Eka vinkkini, en oikein vielä hallitse...

Teikäläisellä https://www.ohjelmointiputka.net/keskustelu/omat_vinkit.php?id=631 eli oma profiilisi ja sieltä "Omat koodivinkit".

No nyt on korjattu koodiinkin =)

olisiko mahdollista että pallo seuraa formin ulkopuolelle???

mun mieles ei

Miten olisi mahdollista muuttaa tuo "Pallo" -> "Imageen"?

Siis eli "Shape" -> "Image"

Miten ton sais että formi seuraa hiirtä?

lainaus:

olisiko mahdollista että pallo seuraa formin ulkopuolelle???

ei :-|

tabbiz kirjoitti:

Miten olisi mahdollista muuttaa tuo "Pallo" -> "Imageen"?

Muutat Shape1 tekstit esim. Image1 tekstiksi

zigilii kirjoitti:

olisiko mahdollista että pallo seuraa formin ulkopuolelle???

Olishan se, mutta sitten pitäisi käyttää luultavasti jotain apeja pallon näytölle piirtämiseen ja kursorin sijainnin selvittämiseen.