Würfelrotation VB 5.0

[tini5591]

Hallo!
In Informatik sollen wir einen Würfel programmieren, der rotiert. Als Ansatz haben wir bekommen:

Dim x(8) As Single
Dim y(8) As Single
Dim z(8) As Single

Private Sub Form_Click()
Scale (-4, -4)-(5, 5)
x(1) = 0: y(1) = 0: z(1) = 0
x(2) = 1: y(2) = 0: z(2) = 0
x(3) = 1: y(3) = 1: z(3) = 0
x(4) = 0: y(4) = 1: z(4) = 0

For i = 1 To 4
If i < 4 Then j = i + 1 Else j = 1
Line (x(i), y(i))-(x(j), y(j))
Next i

x(5) = 0: y(5) = 0: z(5) = 1
x(6) = 1: y(6) = 0: z(6) = 1
x(7) = 1: y(7) = 1: z(7) = 1
x(8) = 0: y(8) = 1: z(8) = 1
For i = 5 To 8
If i < 8 Then j = i + 1 Else j = 5
Line (x(i), y(i) + 2)-(x(j), y(j) + 2)
Next i
For i = 1 To 4
j = i + 4
Line (x(i), y(i))-(x(j), y(j))
Next i
End Sub

Aber irgendwie scheint das nicht richtig mit dem Würfel zu funktionieren und wie man das rotieren lassen kann mit einer Drehungsmatrix versteh ich auch nicht richtig.
Gibt es irgendwen, der mir dabei helfen kann???
Danke schonmal im Voraus =)

EDIT: Habe dir das ganze mal in eine Code-Box (code) (/code) getan, damit "8 )" nicht als Smiley dargestellt wird. PhSn

 

[SpieleHolger]

AW: Würfelrotation VB 5.0

Was genau funktioniert denn nicht? Läuft das Programm nicht? Wird nichts gezeichnet?

 

[tini5591]

AW: Würfelrotation VB 5.0

Also es soll eig ein Würfel dargestellt werden aber das funktioniert auch schon nicht richtig.... Ich wollte auch wissen, ob mir jemand sagen kann, wie man den Würfel dann drehen kann, also wie man das programmiert