Anfänger hat eine Frage

[dachico212]

Guten Tag meine Freunde ,
ich habe ein Problem , und ich weiss gar nicht womit ich anfangen soll ,

ich habe hier ein Code in LUA-Programmiersprache .,und möchte das in Delphi schreiben , kann mir vielleicht jemanden von euch helfen , vielen dank im voraus .

__________________________________________________ ______________________________________________

smua.reset()
smua.source.func = smua.OUTPUT_DCAMPS
smua.sense = smua.SENSE_REMOTE
smua.measure.autozero = smua.AUTOZERO_ONCE
smua.source.rangev = 10 --Messbereich Spannung
smua.source.rangei = 1 --Messbereich Strom
smua.source.limiti = 1 --absolutes Limit Strom in A
smua.source.limitv = 2 --absolutes Limit Spannung in V
smua.measure.rangei = 1
smua.measure.rangev = 10
smua.source.output = smua.OUTPUT_ON
settime(0)
timer.reset()


for anzahl = 1, 2 do --zweiter Wert ist die Zyklenanzahl
smua.source.sink = smua.DISABLE
smua.source.leveli = 0.0001 --Ladestrom in A
-- print("Zyklus ", anzahl)
while smua.measure.v() <= 1.8 --Ladeschlussspannung in V
do
time = timer.measure.t()
print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)
delay(1)
end
smua.source.sink = smua.ENABLE
smua.source.leveli = -0.0001 --Entladestrom in A, muss negatives Vorzeichen haben
while smua.measure.v() >= 0.0 do --Entladeschlussspannung in V
time = timer.measure.t()
print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)
delay(1)
end
end
smua.source.leveli=0

__________________________________________________ ___________________________________________

danke noch mal