Keskustelu: Ohjelmointikysymykset: VB6: VB kuvan liikutus

Miten saan vb:ssä liikutettua vaikka laatikko jonka koodi on
Line (10, 10)-Step(500, 500), , BF ??

No jos vaikka muutat niitä koordinaatteja ja piirrät sen eri paikkaan?

En tarkottanu silleen, vaan kuva pitäisi saada vaikka paikasta a paikkaan b. Miten tämä onnistuisi?
Kuulin jotin cos-sin tyylistä, mutta miten tämä toimisi?

hmh.

dim x as integer
dim y as integer
dim w as integer ' leveys
dim h as integer ' korkeus
dim r as integer ' kulma
dim s as integer ' nopeus
dim keys(255) as boolean

Private Sub Form_Load()
scalemode=3 'pixeli
x=200
y=200
w=200
h=200
s=2
End Sub

'ja sit inputtiin

if keys(vbkeyA) r = r + 1
if keys(vbkeyD) r = r - 1
if keys(vbkeyW)
x=x+sin(r)*nopeus
y=y+cos(r)*nopeus
end if
if keys(vbkeyS)
x=x+sin(r)*-nopeus
y=y+cos(r)*-nopeus
end if

Toivottavasti toi toimii... Lykäät sitte keydowniin vielä sen keys(keycode) = true ja keyuppiin keys(keycode) = false
ja toi alin koodi vaikka timeriin, jollei looppia jaksa/osaa tehä.

Niin joo piirtohan tapahtuu sitte:

cls
Line (x, y)-Step(x+w, y+h), , BF

cos ja sin ovat trigonometrisia funktioita ja niillä liikutetaan jos vaikka halutaan se liikkumaan ympyrään tai kaaressa. Jos vastaisin tuohon alkup. kysymykseen sanoisin vaan että. Et sattumoisin ole kuullut muuttujista ne on katsos tosi käteviä. Tässä esimerkki (tosin paskasta) koodista.

X = 10:
do
Line (X, 10)-Step(x+490, 500), , BF
X=X+.01 'säädä sopivaksi
loop until X > 200

Ja jos kerran tarkoitit trigonometristä liikuttamista, niin olisit voinut ilmoittaa sen jo ensimmäisessä viestissäsi. Muiden on aika vaikea arvata, mitä tarkoitat.

ZirpZ kirjoitti:

En tarkottanu silleen, vaan kuva pitäisi saada vaikka paikasta a paikkaan b. Miten tämä onnistuisi?
Kuulin jotin cos-sin tyylistä, mutta miten tämä toimisi?

Ja jos ideana on saada kuva paikasta a paikkaan b, niin silloin teet juuri niin kuin Blaze neuvoi, eli muutat kuvan koordinaatteja, siis Left ja Top -arvoja. Ei siihen trigonometriaa tarvita.

P.S. Ettet vain satu olemaan trolli, kun Ohjelmointi-Plazassakin olet jotain peeloillut?

No en oo mikään ihmeen trolli