larswars
08.10.2003, 22:33
Hi,
ich habe mit VBA ein kleines Berechnungstool erstellt, welches ich aber gern auch Anwendern ohne Office-Komponente(n) zur Verfügung stellen möchte.
Nun dachte ich dabei an Flash/Actionscript.
Mein Problem:
Wie muß ich den Code anpassen???
(Flashkenntnisse habe ich nur in Bezug auf Gestaltung, aber keine Ahnung bei Actionscript)
Grundsätzlicher Inhalt des VBA-Codes:
If idbu.Value = True Then
dbu.Value = FormatNumber(Round(basis.Value, 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbv.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbrf.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1.55), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbint.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1.228), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbhome.Value = FormatNumber(Round(20 * Log10((10 ^ (dbv.Value / 20) * 1) / 0.316), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
Else
usw.
("idbu" ist ein Optionsfeld, "basis" ist ein Eingabefeld, der Rest sind Ausgabefelder)
Bin für jeden Hinweis dankbar.
Lars
ich habe mit VBA ein kleines Berechnungstool erstellt, welches ich aber gern auch Anwendern ohne Office-Komponente(n) zur Verfügung stellen möchte.
Nun dachte ich dabei an Flash/Actionscript.
Mein Problem:
Wie muß ich den Code anpassen???
(Flashkenntnisse habe ich nur in Bezug auf Gestaltung, aber keine Ahnung bei Actionscript)
Grundsätzlicher Inhalt des VBA-Codes:
If idbu.Value = True Then
dbu.Value = FormatNumber(Round(basis.Value, 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbv.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbrf.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1.55), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbint.Value = FormatNumber(Round(20 * Log10((10 ^ (dbu.Value / 20) * 0.775) / 1.228), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
dbhome.Value = FormatNumber(Round(20 * Log10((10 ^ (dbv.Value / 20) * 1) / 0.316), 2), 2, vbUseDefault, vbUseDefault, vbUseDefault)
Else
usw.
("idbu" ist ein Optionsfeld, "basis" ist ein Eingabefeld, der Rest sind Ausgabefelder)
Bin für jeden Hinweis dankbar.
Lars