Von Lua zu Pascal (Delphi)

[dachico212]

Guten Tag meine Freunde ,
ich habe hier wieder eine Frage ,ich habe neulich eine Aufgabe mit Delphi im rahmen meines Praktikums ,und zwar ich müsste ein Code in Lua-Programieresprache in Pascal-sprache umwandeln .
ps: meine kenntnisse in Delphi sind leider nicht so gut .ich benutze jetzt Delphi Embercado Rad Studio XE6 Version 20.0

Code:

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

könnte mir velleicht jemand helfen... Vielen dank .

nur zur info es geht hier um Keithley 2651A .

[Jumpy]

War das nicht schonmal?

[Sherlock]

Wie formulier ich das taktvoll?

Für http://www.delphipraxis.net/180356-a...ml#post1258864 hast Du Dich nichtmal bedankt.... würde mich wundern, wenn sich da jetzt nochmal einer die Mühe macht.

Sherlock

[Perlsau]

... zumal er drüben im Treff auch schon zweimal dieselbe Anfrage gestellt hat ...

"Sorry, wenn das ueberhaupt geht, waere das eine irre Arbeit, die dir wohl keiner abnehmen kann und moechte." meinte HochundWeit abschließend.

[TBx]

*** CLOSED ***

Einmal reicht


... und dann ist sogar der Crosspost noch doppelt