Zitat Zitat von TobiasBlome
@Besserwessi

etwa so:
Dim I As Single
Dim X As Single
Dim Y As Single
Dim Z As Single
Dim Xx As Single
Dim Yy As Single
Dim Zz as Single
'________________________________________
For I = 0 To 360

Xx = i * 0.0174532
X = Sin(xx)

Yy = (i +60)*0.0174532
Y = Sin((Xx)

Zz = (i+120)* 0.0174532
Z = sin(Zz)

Rem (?) So sollten 3 Phasen herauskommen, (hoffe ich mal so?)

Locate 1 , 1
Lcd "for-next: " ; I
Locate 2 , 1
Lcd "X: " ; X
Wait 1
Next