Beiträge von BugFix

 ;-- TIME_STAMP   2022-09-30 12:10:37

_TestBrightness(0xF5F5DC, 2)
_TestBrightness(0x0000FF, 10)
_TestBrightness(0xE9967A, 4)



Func _TestBrightness($_RGB, $_step)
    Local $hGui = GUICreate('Test Brightness', 400, 200)
    Local $RGB2 = $_RGB, $aL1[6], $aL2[6], $y
    GUICtrlCreateLabel('AUFHELLEN', 10, 10)
    GUICtrlCreateLabel('ABDUNKELN', 200, 10)
    For $i = 0 To UBound($aL1) -1
        $y = 30 + $i*21
        $aL1[$i] = GUICtrlCreateLabel('', 10, $y, 180, 20)
        $aL2[$i] = GUICtrlCreateLabel('', 200, $y, 180, 20)
    Next
    GUICtrlSetBkColor($aL1[0], $_RGB)
    GUICtrlSetBkColor($aL2[0], $RGB2)
    For $i = 1 To UBound($aL1) -1
        $_RGB = _GetColorWithBrightness($_RGB, $_step)
        GUICtrlSetBkColor($aL1[$i], $_RGB)
        $RGB2 = _GetColorWithBrightness($RGB2, (-1)*$_step)
        GUICtrlSetBkColor($aL2[$i], $RGB2)
    Next

    GUISetState()
    Do
    Until GUIGetMsg() = -3
    GUIDelete($hGui)
EndFunc


; #FUNCTION# =======================================================================================
; Name ..........: _GetColorWithBrightness
; Description ...: Gibt zu einer Farbe die auf einen Helligkeitswert geänderte Farbe zurück
; Parameter(s)...: $_RGB
; ....[optional].: $_iStep        Zur Änderung der Helligkeit um einzelne Schritte (+/-), (Default: 0)
; ...............:                Nur wirksam, wenn "$_iBrightness=Null".
; ....[optional].: $_iBrightness  Zur Änderung der Helligkeit auf einen fixen Wert (Default: Null)
; Return values .: Success        Der neue Farbwert
; ...............: Failure        Der Farbwert, wie übergeben ($_iStep/$_iBrightness nicht angegeben)
; Author ........: BugFix
; ==================================================================================================
Func _GetColorWithBrightness($_RGB, $_iStep=0, $_iBrightness=Null)
    Local $R = BitAND(BitShift($_RGB, 16), 0xFF)
    Local $G = BitAND(BitShift($_RGB, 8), 0xFF)
    Local $B = BitAND($_RGB, 0xFF)
    Local $R1 = $R, $G1 = $G, $B1 = $B
    Local $Brightness = Int(Sqrt($R^2*0.299 + $G^2*0.587 + $B^2*0.114))
    If $_iBrightness = Null Then ; Schrittweite wird verwendet
        $_iBrightness = $Brightness + ($_iStep)
    EndIf
    $_iBrightness = $_iBrightness < 0 ? 0 : ($_iBrightness > 255 ? 255 : $_iBrightness)
    If $_iBrightness > $Brightness Then
        While $Brightness < $_iBrightness
            $R1 = $R1 +1 > 255 ? 255 : $R1 +1
            $G1 = $G1 +1 > 255 ? 255 : $G1 +1
            $B1 = $B1 +1 > 255 ? 255 : $B1 +1
            $Brightness = Int(Sqrt($R1^2*0.299 + $G1^2*0.587 + $B1^2*0.114))
        WEnd
    ElseIf $_iBrightness < $Brightness Then
        While $Brightness > $_iBrightness
            $R1 = $R1 -1 < 0 ? 0 : $R1 -1
            $G1 = $G1 -1 < 0 ? 0 : $G1 -1
            $B1 = $B1 -1 < 0 ? 0 : $B1 -1
            $Brightness = Int(Sqrt($R1^2*0.299 + $G1^2*0.587 + $B1^2*0.114))
        WEnd
    EndIf
    Return '0x' & Hex($R1,2) & Hex($G1,2) & Hex($B1,2)
EndFunc

import wNim/[wApp, wWindow, wFrame, wPanel, wListCtrl]
import winim/[inc\commctrl]


# ------------------------------------------------------------------------------
type 
  ListHead = tuple[text: string, format: int, width: int]
  ListText = seq[string]
proc setListColumns(list: wListCtrl, head: openArray[ListHead]) =
  for i in 0..<head.len:
    list.appendColumn(text=head[i][0], width=head[i][2])
    list.setColumnFormat(i, head[i][1])
proc setListText(list: wListCtrl, stuff: openArray[ListText]) =
  var item: int
  for i in 0..<stuff.len:
    item = list.appendItem(stuff[i][0])   
    for j in 1..<stuff[i].len:            
      list.setItem(item, j, stuff[i][j])  
# ------------------------------------------------------------------------------


let 
  app = App()
  frame = Frame(title="Test Alternate Color",size=(500,250))
  panel = frame.Panel()
  lc1 = panel.ListCtrl(style=wLcReport or wBorderDouble or wLcSingleSel or wLcNoSortHeader)
  lc2 = panel.ListCtrl(style=wLcReport or wBorderDouble or wLcSingleSel or wLcNoSortHeader)


lc1.setExtendedStyle(LVS_EX_GRIDLINES)
lc1.setListColumns([
     ("Column 1",wListFormatLeft,110),
     ("Column 2",wListFormatLeft,110)])
lc1.setListText([@["1111","2222"], @["3333","4444"], @["5555","6666"]])

lc2.setExtendedStyle(LVS_EX_GRIDLINES)
lc2.setListColumns([
     ("Column 1",wListFormatLeft,110),
     ("Column 2",wListFormatLeft,110)])
lc2.setListText([@["7777","8888"], @["9999","0000"], @["1122","3344"]])


# Listview 1: even / odd color setzen (ARGB konvertieren zu wColor)
lc1.setBackgroundColor(0x00B0E0E6.wColor)
lc1.setAlternateRowColor(wLightBlue)


# Listview 2: even color setzen, odd color berechnet
lc2.setBackgroundColor(0x00B0E0E6.wColor)
lc2.enableAlternateRowColors()


proc layout() =
  panel.autolayout """
  |-[lc1(==lc2)]-[lc2]-|
  V:|-[lc1]-|
  V:|-[lc2]-|
  """


frame.wIdExit do ():
  frame.delete()


layout()
frame.center()
frame.show()
app.mainLoop()

;-- TIME_STAMP   2022-09-29 16:01:46

#include <GUIConstantsEx.au3>

_AlternateColors_ByFlag()

_AlternateColors_EvenByUser()

_AlternateColors_EvenCalculated(0xEFE4B0)
_AlternateColors_EvenCalculated(0xFFD700)
_AlternateColors_EvenCalculated(0xDC143C)
_AlternateColors_EvenCalculated(0x00FF00)
_AlternateColors_EvenCalculated(0xA0A0A0)
_AlternateColors_EvenCalculated() ; ohne Angabe: weiß / grau

Func _AlternateColors_ByFlag()
    Local $hGui = GUICreate('AlternateColors by Flag')
    Local $LV = GUICtrlCreateListView("Col 1|Col 2", 15, 15, 300, 250)
    GUICtrlSetBkColor(-1, 0xEFE4B0) ; Color odd row
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

    For $i = 1 To 30
        GUICtrlCreateListViewItem(Random(10000, 1000000, 1) & '|' & Random(10000, 1000000, 1), $LV)
        GUICtrlSetBkColor(-1, 0xC8BFE7) ; Color even row
    Next

    GUISetState()

    Do
    Until GUIGetMsg() = -3
    GUIDelete($hGui)
EndFunc


Func _AlternateColors_EvenByUser()
    Local $hGui = GUICreate('AlternateColors by User')
    Local $LV = GUICtrlCreateListView("Col 1|Col 2", 15, 15, 300, 250)

    For $i = 1 To 30
        GUICtrlCreateListViewItem(Random(10000, 1000000, 1) & '|' & Random(10000, 1000000, 1), $LV)
        _LV_SetAlternateBkColor($i-1, 0xC8BFE7, 0xEFE4B0) ; color even, color odd - by user
    Next

    GUISetState()

    Do
    Until GUIGetMsg() = -3
    GUIDelete($hGui)
EndFunc


Func _AlternateColors_EvenCalculated($_colorOdd=-1)
    Local $hGui = GUICreate('AlternateColors Calculated')
    Local $LV = GUICtrlCreateListView("Col 1|Col 2", 15, 15, 300, 250)

    For $i = 1 To 30
        GUICtrlCreateListViewItem(Random(10000, 1000000, 1) & '|' & Random(10000, 1000000, 1), $LV)
        _LV_SetAlternateBkColor($i-1, $_colorOdd) ; color odd, color even - calculated
    Next

    GUISetState()

    Do
    Until GUIGetMsg() = -3
    GUIDelete($hGui)
EndFunc



Func _LV_SetAlternateBkColor($_Index, $_RGBodd=-1, $_RGBeven=-1, $_ColOnDark=-1, $_ColOnBright=-1)
    $_RGBodd = $_RGBodd = -1 ? 0xFFFFFF : $_RGBodd
    $_ColOnDark = $_ColOnDark = -1 ? 0xFAFAFA : $_ColOnDark
    $_ColOnBright = $_ColOnBright = -1 ? 0x000088 : $_ColOnBright
    Local $R, $G, $B
    If Mod($_Index, 2) <> 0 Then
        GUICtrlSetBkColor(-1, $_RGBodd)
    Else
        If $_RGBeven = -1 Then
            $R = Int(0.8*BitAND(BitShift($_RGBodd, 16), 0xFF))
            $G = Int(0.8*BitAND(BitShift($_RGBodd, 8), 0xFF))
            $B = Int(0.8*BitAND($_RGBodd, 0xFF))
            $_RGBeven = '0x' & Hex($R, 2) & Hex($G, 2) & Hex($B, 2)
        EndIf
        GUICtrlSetBkColor(-1, $_RGBeven)
    EndIf
    GUICtrlSetColor(-1, _RGB_GetContrast((Mod($_Index, 2) <> 0 ? $_RGBodd : $_RGBeven), $_ColOnDark, $_ColOnBright))
EndFunc


Func _RGB_GetContrast($_RGB, $_ColOnDark=0xFAFAFA, $_colOnBright=0x000088)
    ; get brightness
    Local $R = BitAND(BitShift($_RGB, 16), 0xFF)
    Local $G = BitAND(BitShift($_RGB, 8), 0xFF)
    Local $B = BitAND($_RGB, 0xFF)
    Local $Brightness = Sqrt($R^2*0.299 + $G^2*0.587 + $B^2*0.114)

    If $Brightness < 140 Then  ; dark
        Return $_ColOnDark     ; contrast text color if background is dark
    Else
        Return $_colOnBright   ; contrast text color if background is bright
    EndIf
EndFunc

# compile: nim c --app:gui testfocus.nim


include winim/[inc\winuser]
import wNim/[wApp, wFrame, wPanel, wListBox, wTextCtrl]


# sets the focus to passed handle
# required: include winim/[inc\winuser]
proc setFocus(hwnd: HWND): WINBOOL {.discardable, stdcall, dynlib: "user32", importc: "SetFocus".}


let 
  app = App()
  frame = Frame(title="Test Focus",size=(400,250))
  panel = frame.Panel()
  lb = panel.ListBox(style=wLbNeededScroll or wLbNoSel)
  tc = panel.TextCtrl(style=wBorderSunken)


for e in @["Eintrag A","Eintrag B","Eintrag C","Eintrag D"]:
  lb.append(e)


# Fokus liegt jetzt auf: lb
# setzen auf: tc
tc.setFocus()


proc layout() =
  panel.layout:
    lb:
      left = 10
      top = 30
      width = 120
      height = 100
    tc:
      left = 20
      top = lb.bottom + 20
      width = 80
      height = 20


frame.wIdExit do ():
  frame.delete()


layout()
frame.center()
frame.show()
app.mainLoop()

import json


type
  oErrCode = object
    code: string 
    device: seq[JsonNode]
    name: string
    description: string
    reason: seq[JsonNode]
    disposal: seq[JsonNode]
    remark: string


let str_json =
  """
  {
    "title": "Test",
    "author": "BugFix",
    "articles": [
      {"number": "a123", "storage_location": "D-75"},
      {"number": "b456", "storage_location": "C-145"},
      {"number": "c789", "storage_location": "H-63"}
    ],
    "error_list": [
      {
        "code": "101",
        "device": ["dev A","dev B","dev C"],
        "name": "SensorErrBla",
        "description": "Sensorfehler",
        "reason": ["Mainboard defekt"],
        "disposal": ["Mainboard ersetzen"],
        "remark": ""
      },
      {
        "code": "101",
        "device": ["dev D","dev E","dev F"],
        "name": "SensorErrBlub",
        "description": "Sensorfehler",
        "reason": ["Mainboard defekt"],
        "disposal": ["Mainboard ersetzen"],
        "remark": ""
      },
      {
        "code": "102",
        "device": ["dev A","dev B","dev C"],
        "name": "BatteryErrBla",
        "description": "Akkufehler",
        "reason": ["Akku defekt","Controllerboard defekt"],
        "disposal": ["Akku erstzen","Controllerboard ersetzen"],
        "remark": ""
      },
      {
        "code": "102",
        "device": ["dev D","dev E","dev F"],
        "name": "BatteryErrBlub",
        "description": "Akkufehler",
        "reason": ["Akku defekt","Controllerboard defekt","Mainboard defekt"],
        "disposal": ["Akku erstzen","Controllerboard ersetzen","Mainboard ersetzen"],
        "remark": "Bei Akkutausch: Reset Nutzung im Wartungsmenü"
      }
    ]
  }
  """


let parsed_json = parseJson(str_json)


proc getErrCodes(jn: JsonNode, errcode = ""): seq[oErrCode] =
  var 
    s_errors = newSeq[oErrCode]()
    oErr: oErrCode
  let a_errlist = jn["error_list"].getElems()
  for err in a_errlist:
    if errcode == "" or (errcode != "" and errcode == err["code"].getStr()):
      oErr.code = err["code"].getStr()
      oErr.device = @(err["device"].getElems())
      oErr.name = err["name"].getStr()
      oErr.description = err["description"].getStr()
      oErr.reason = @(err["reason"].getElems())
      oErr.disposal = @(err["disposal"].getElems())
      oErr.remark = err["remark"].getStr()
      s_errors.add(oErr)
  result = s_errors
  
let sError102 = getErrCodes(parsed_json, "102")


for oE in sError102:
  echo oE.code & ", " & oE.name
  echo oE.device
  echo "----------------------------------------"

import json


let str_json =
  """
  {
    "title": "Test",
    "author": "BugFix",
    "articles": [
      {"number": "a123", "storage_location": "D-75"},
      {"number": "b456", "storage_location": "C-145"},
      {"number": "c789", "storage_location": "H-63"}
    ],
    "error_list": [
      {
        "code": "101",
        "device": ["dev A","dev B","dev C"],
        "name": "SensorErrBla",
        "description": "Sensorfehler",
        "reason": ["Mainboard defekt"],
        "disposal": ["Mainboard ersetzen"],
        "remark": ""
      },
      {
        "code": "101",
        "device": ["dev D","dev E","dev F"],
        "name": "SensorErrBlub",
        "description": "Sensorfehler",
        "reason": ["Mainboard defekt"],
        "disposal": ["Mainboard ersetzen"],
        "remark": ""
      },
      {
        "code": "102",
        "device": ["dev A","dev B","dev C"],
        "name": "BatteryErrBla",
        "description": "Akkufehler",
        "reason": ["Akku defekt","Controllerboard defekt"],
        "disposal": ["Akku erstzen","Controllerboard ersetzen"],
        "remark": ""
      },
      {
        "code": "102",
        "device": ["dev D","dev E","dev F"],
        "name": "BatteryErrBlub",
        "description": "Akkufehler",
        "reason": ["Akku defekt","Controllerboard defekt","Mainboard defekt"],
        "disposal": ["Akku erstzen","Controllerboard ersetzen","Mainboard ersetzen"],
        "remark": "Bei Akkutausch: Reset Nutzung im Wartungsmenü"
      }
    ]
  }
  """
let 
  parse_json = parseJson(str_json)
  a_errlist = parse_json["error_list"].getElems()


for e in a_errlist:
  if e["code"].getStr() == "102": echo e["name"].getStr(), ":   ", e["device"].getElems()

{
  "KEY": "Value-String",            "# Version"
  "KEY": "Value-String",            "# Creator"
  "KEY": [                          "# Source: ARRAY OBJEKTE - keine fixe Anzahl"
    {
      "KEY": "Value-String",        "# product-number"
      "KEY": "Value-String"         "# title"
    }        
  ],
  "KEY": {                                                "# error-list: OBJEKT"
      "KEY": [                                            "# error-code: ARRAY OBJEKTE - keine fixe Anzahl"
        {
          "KEY": ["Array Strings - keine fixe Anzahl"],   "# device"
          "KEY": "Value-String",                          "# name"
          "KEY": "Value-String",                          "# description"
          "KEY": ["Array Strings - keine fixe Anzahl"],   "# reason"
          "KEY": ["Array Strings - keine fixe Anzahl"],   "# disposal"
          "KEY": "Value-String"                           "# remark"
        }
      ]
  }
}

import json
type 
  oSource = object
    product_number: string
    product_title: string
  oErrCode = object
    device: openArray[string]
    name: string
    description: string
    reason: openArray[string]
    disposal: openArray[string]
    remark: string
  oErrListItem = object
    code_number: string
    code_item: openArray[oErrCode]
  oErrList = object
    errors: openArray[oErrListItem]
  oError = object
    version: string
    craetor: string
    source: openArray[oSource]
    error_list: oErrList


let err_json = 
  """
  {
    "version": "2022-09",
    "creator": "BugFix",
    "source": [
      {
        "product_number": "XYZ 123ab",
        "product_title": "Servicemanual für Geräte des Typs A / B"
      },
      {
        "product_number": "XYZ 123c",
        "product_title": "Servicemanual für Geräte des Typs C"
      },
      {
        "product_number": "XYZ 123def",
        "product_title": "Servicemanual für Geräte des Typs D / E / F"
      }
    ],
    "error_list": {
      "101": [
        {
          "device": ["dev A","dev B","dev C"],
          "name": "SensorErrBla",
          "description": "Sensorfehler",
          "reason": ["Mainboard defekt"],
          "disposal": ["Mainboard ersetzen"],
          "remark": ""
        },
        {
          "device": ["dev D","dev E","dev F"],
          "name": "SensorErrBlub",
          "description": "Sensorfehler",
          "reason": ["Mainboard defekt"],
          "disposal": ["Mainboard ersetzen"],
          "remark": ""
        }
      ],
      "102": [
        {
          "device": ["dev A","dev B"],
          "name": "BatteryErrBla",
          "description": "Akkufehler",
          "reason": ["Akku defekt","Controllerboard defekt"],
          "disposal": ["Akku erstzen","Controllerboard ersetzen"],
          "remark": "Bei Akkutausch: Reset Nutzung im Wartungsmenü"
        },
        {
          "device": ["dev C"],
          "name": "BatteryErrBlub",
          "description": "Akkuladefehler",
          "reason": ["Controllerboard defekt"],
          "disposal": ["Controllerboard ersetzen"],
          "remark": ""
        },
        {
          "device": ["dev D","dev D],
          "name": "BatteryErrBlaBlub",
          "description": "Akkufehler",
          "reason": ["Akku defekt","Akku nicht vorhanden"],
          "disposal": ["Akku ersetzen","Akku einsetzen"],
          "remark": "Bei Akkutausch: Reset Nutzung im Wartungsmenü"
        }
      ]
    }
  }
  """  
  
let 
  obj_json = parseJson(err_json)        # JSON String parsen
  oErrorsJSON = to(obj_json, oError)    # JSON String in mein Objekt überführen


echo oErrorsJSON.creator

Error: type mismatch: got <openArray[oSource], JsonNode, string>
but expected one of:
proc initFromJson(dst: var JsonNode; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var JsonNode
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson(dst: var bool; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var bool
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson(dst: var string; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var string
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[S, T](dst: var array[S, T]; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var array[S, T]
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T: SomeFloat](dst: var T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var T: SomeFloat
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T: SomeInteger](dst: var T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var T: SomeInteger
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T: distinct](dst: var T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var T: distinct
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T: enum](dst: var T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var T: enum
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T: object | tuple](dst: var T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var T: object or tuple
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T](dst: var Option[T]; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var Option[initFromJson.T]
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T](dst: var OrderedTable[string, T]; jsonNode: JsonNode;
                    jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var OrderedTable[system.string, initFromJson.T]
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T](dst: var Table[string, T]; jsonNode: JsonNode;
                    jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var Table[system.string, initFromJson.T]
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T](dst: var ref T; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var ref T
  but expression 'dst.source' is of type: openArray[oSource]
proc initFromJson[T](dst: var seq[T]; jsonNode: JsonNode; jsonPath: var string)
  first type mismatch at position: 1
  required type for dst: var seq[T]
  but expression 'dst.source' is of type: openArray[oSource]

Fehlercode: 108
Geräte: Device_A, Device_B, Device_C
Bezeichnung: ClockTimeError
Beschreibung: Fehler Echtzeituhr
Ursachen: Uhrzeit nicht gestellt, Batterie auf Mainboard leer, Mainboard defekt
Beseitigung: Uhrzeit stellen, Batterie auf Mainboard ersetzen, Mainboard ersetzen


Fehlercode: 108
Geräte: Device_D, Device_E
Bezeichnung: TemperatureError
Beschreibung: Fehler Temperatursensor
Ursachen: Sensor defekt oder nicht angeschlossen
Beseitigung: Sensor anschliessen oder ersetzen


Fehlercode: 333
Geräte: Device_A, Device_B, Device_C, Device_D, Device_E
Bezeichnung: LogBatteryError
Beschreibung: Fehler Log-Speicherbatterie
Ursachen: Spannung auf kritischen Wert gefallen
Beseitigung: Batterie ersetzen

{
    "errorcode version": "0.0.1",
    "error list": [
        {
        "code": 108 [
                {
                "device": ["Device_A", "Device_B", "Device_C"],
                "name": "ClockTimeError",
                "description": "Fehler Echtzeituhr",
                "reason": ["Uhrzeit nicht gestellt", "Batterie auf Mainboard leer", "Mainboard defekt"],
                "disposal": ["Uhrzeit stellen", "Batterie auf Mainboard ersetzen", "Mainboard ersetzen"]
                },
                {
                "device": ["Device_D", "Device_E"],
                "name": "TemperatureError",
                "description": "Fehler Temperatursensor",
                "reason": "Sensor defekt oder nicht angeschlossen",
                "disposal": "Sensor anschliessen oder ersetzen"
                }
            ],
        "code": 333
            {
            "device": ["Device_A", "Device_B", "Device_C", "Device_D", "Device_E"],
            "name": "LogBatteryError",
            "description": "Fehler Log-Speicherbatterie",
            "reason": "Spannung auf kritischen Wert gefallen",
            "disposal": "Batterie ersetzen"
            }
        }
    ]
}

$sCmd = "C:\Program Files (x86)\Sage\Sage 100\8.1\Shared\OLStart.exe /APP ABF /EXCL /DB ACCDE /VER 8.1"
$sClasshWnd = "[CLASS:OFormPopup]"
$sClassInstCtrl = "[CLASS:OFormSub; INSTANCE:2]"

; Run OLStart.exe
$PID = Run($sCmd )
$hWnd = WinWait($sClasshWnd)
WinActivate($hWnd)
If WinWaitActive($hWnd, 30) Then ; Timeout 30 s
    ; Wait for 30 seconds. <<< bezieht sich dein warten auf "WinWaitActive"? - s. TimeOut-Parameter
    ;~ Sleep(30000)
    ControlSend($hWnd, "", $sClassInstCtrl, "{Enter}")
EndIf