Zwei Fragen

[blackout617]

Hallo ich benutze Vb6 (Warum? Ich finde es besser schneller und mein pc ist zu alt deswegen ich kan nicht vb 2008 etc benutzen)

Ja meine erste frage ist,
ich habe jetzt

GotoX = PlayerX2To - PlayerX2
GotoY = PlayerY2To - PlayerY2

PlayerX2 ist die value von Spieler X Cord. und PlayerX2 To ist wo er hin geht.
Aber etc:fals PlayerX2To = 50 und PlayerX2 = 62 ist
komt by GotoX= -12 aber ich will das es GotoX = 12 komt ich habe round wersucht aber so geht es nicht

2.Frage

Ich werde 2 HP Bar's machen 1.Player HP und 2.Target HP aber ich kenne mich nicht so gut aus mit Shape und so
Ich habe für die erste HP bar 2 shapes genommen Shape1 ist im hintergrund(rote farbe) Shape2 ist da drauf(grüne farbe) Das Hp ist Etc: round(ActualHP/MaxHP)
Die Shapes Haben Height:240 Width:1500
Ich will das Shape2 wie eine hp bar weniger wird.

Edit: Ich Glaube die 2.frage brauch ich nicht mehr habe es so gemacht(target max hp ist immer 100);

Calcu = Round(TargetBar * 15)
If TargetBar <> Text2.Text Then
Shape1(1).Width = Calcu
Text2.Text = TargetBar
End If

Ich warte auf eure hilfe
Danke.

[.SkyneT.]

1.

Zu der 2ten Frage kann ich keine korrekte Antwort geben,
da ich mich nie genauer mit dem .net Framework beschäftigt habe.