home *** CD-ROM | disk | FTP | other *** search
/ C Programming Starter Kit 2.0 / SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso / bc45 / autocalc.pak / ACALCGER.BAS next >
BASIC Source File  |  1997-07-23  |  1KB  |  45 lines
  1. Funktion CalcTest()
  2.   Bei Fehler Weiter NΣchste
  3.   Setze Calc = HoleObjekt(Klasse:="OCCalc.Application")
  4.   Created = FehlerNr
  5.   Wenn FehlerNr Dann Setze Calc = ErstelleObjekt("OCCalc.Application")
  6.   Bei Fehler GeheZu 0
  7.   Mit Calc
  8.     .Operand = 123
  9.     .Op = "Ergeben"
  10.     .Auswerten
  11.     .Operand = 333
  12.     .Op = "Addieren"
  13.     .Auswerten
  14.     .Fenster.Farbe = 123456
  15.     .Anzeigen
  16.     .Schalter Taste:="+10000+200000="
  17.     .Fenster.Titel = Jetzt()
  18.      CalcTest = Calc
  19.     Test.Drucke CalcTest
  20.     Test.Drucke .Matrix.Anzahl
  21.     Fⁿr Alle Item In .Matrix
  22.       Test.Drucke Item;
  23.       NΣchste Item
  24.     Test.Drucke
  25.     Test.Drucke .Fenster.Schalter.Anzahl
  26.     Fⁿr Alle Button In .Fenster.Schalter
  27.       Save = Button.Text
  28.       Button.Aktivieren = Wahr
  29.       Fⁿr i = 1 Bis 24
  30.         j = (i Mod 4) Und (24 - i)
  31.         Wenn ((i Mod 8) < 4) Dann
  32.           Button.Text = Save & LZn(j)
  33.         Sonst
  34.           Button.Text = LZn(j) & Save
  35.         Ende Wenn
  36.       NΣchste i
  37.       Button.Aktivieren = Falsch
  38.     NΣchste Button
  39.     .Akkumulator = .UntersucheFenster(Fenster:=.Fenster)
  40.     .Anzeigen
  41.     .Fenster.Farbe = RGB(255; 255; 0)
  42.     Wenn Created Dann .Beenden
  43.   Ende Mit
  44. Ende Funktion
  45.