Moin,
habe gerade Probleme beim Programmieren ich finde den Fehler in meinem Programm nicht.
In meinem Programm möchte ich mit dem Zähler i4 ] meine neue Kreis Position errechnen. Nachdem ein Ganzer Kreis gefahren ist soll ein noch größerer gefahren werden. Problem der Kreis wird nur am Anfang scheinbar abgefragt wie der Zähler i4 ist und wie die Position des Kreises sein soll. Aber Nach dem Kreis wird der neue Nicht größer obwohl der Zähler i4 erhöht wurde. Habe auch schon das ein oder andere ausprobiert aber leider bin ich noch nicht zum Erfolg gekommen vielleicht kann ja wer von euch mir weiterhelfen.
Da ich kein Programmierung experte bin sied meine Programmierung sicher für den ein oder andern ein wenig komisch aus.
Code
mittelpx=-89.204
mittelpy=-52.881
mittelpz-7.963
mittelpa=0.0
mittelpb=0.0
mittelpc=0.0
auftragh=1
zielhöhe=30
while i[4] <(zielhoehe)
startp.x=mittelpx-(auftragh*i[4])
startp.y=mittelpy
startp.z=mittelpz
startp.a=mittelpa
startp.b=mittelpb
startp.c=mittelpc
Lin Startp
Zkpt1.z=-6.872
Zkpt1.x=-0.179
Zkpt1.y=-148.108-(auftragh*i[4])
Zkpt1.a=90.0
Zkpt1.b=mittelpb
Zkpt1.c=mittelpc
Hkpt1.z=-7.461
Hkpt1.x=-63.022-(0.707*i[4])
Hkpt1.y=-120.067-(0.707*i[4])
Hkpt1.a=45.0
Hkpt1.b=mittelpb
Hkpt1.c=mittelpc
Zkpt2.z=-6.944
Zkpt2.x=95.905+(auftragh*i[4])
Zkpt2.y=-61.886
Zkpt2.a=180
Zkpt2.b=mittelpb
Zkpt2.c=mittelpc
Hkpt2.z=-6.944
Hkpt2.x=64.608+(0.707*i[4])
Hkpt2.y=-125.232-(0.707*i[4])
Hkpt2.a=135.0
Hkpt2.b=mittelpb
Hkpt2.c=mittelpc
Zkpt3.z=-7.625
Zkpt3.x=10.201
Zkpt3.y=36.816+(auftragh*i[4])
Zkpt3.a=-90.0
Zkpt3.b=mittelpb
Zkpt3.c=mittelpc
Hkpt3.z=-7.482
Hkpt3.x=74.094+(0.707*i[4])
Hkpt3.y=4.435+(0.707*i[4])
Hkpt3.a=-135.0
Hkpt3.b=mittelpb
Hkpt3.c=mittelpc
Zkpt4.z=startp.z
Zkpt4.x=startp.x
Zkpt4.y=startp.y
Zkpt4.a=startp.a
Zkpt4.b=mittelpb
Zkpt4.c=mittelpc
Hkpt4.z=-7.915
Hkpt4.x=-57.565-(0.707*i[4])
Hkpt4.y=13.993+(0.707*i[4])
Hkpt4.a=-45.0
Hkpt4.b=mittelpb
Hkpt4.c=mittelpc
schweißenkuelen=0
while schweißenkuelen<2
if schweißenkuelen==0 Then
$out [9]=True
wait sec 0.25
CIRC Hkpt1,Zkpt1, CA 90.0 C_DIS
CIRC Hkpt2,Zkpt2, CA 90.0 C_DIS
CIRC Hkpt3,Zkpt3, CA 90.0 C_DIS
CIRC Hkpt4,Zkpt4, CA 90.0 C_DIS
wait sec 0.5
$out [9]=false
i[4]=i[4]+2
endif
schweißenkuelen=schweißenkuelen+1
endwhile
endwhile
Alles anzeigen