#RequireAdmin
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include <AutoItConstants.au3>
#include <ColorConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiListBox.au3>
#include <ComboConstants.au3>
#include <GuiComboBox.au3>

; HOOGTES VAN PRODUCTEN
; HIER KAN JE DE MAXIMALE HOOGTES AANPASSEN
; WAARDES ZIJN IN MILIMETERS

;Waarde van Happy Horse 38 & 40 CM (standaard = 20)
Global $HH40 = 20 ; <-- DEZE WAARDE AANPASSEN
;Waarde van Happy Horse 58 CM (standaard = 25)
Global $HH58 = 25 ; <-- DEZE WAARDE AANPASSEN
;Waarde van de Badjas en Badcape (standaard = 30)
Global $BB = 30 ; <-- DEZE WAARDE AANPASSEN
;Waarde van de Knuffeldoekjes (standaard = 15 en op beurs 20)
Global $KD = 20 ; <-- DEZE WAARDE AANPASSEN
;Waarde van de Muziek knuffels (standaard = 15 )
Global $MK = 15 ; <-- DEZE WAARDE AANPASSEN

; Here is the array
Global $aArray[6][3] = [["Happy Horse 38 & 40", "80", "20"], ["Happy Horse 58", "115", "25"], ["Knuffeldoekjes", "80","20"], ["Badjas", "90", "30"], ["Badcape", "90", "30"], ["Muziek Knuffel", "80", "15"]]
; Om een product toe te voegen moet de array size aangepast worden en het product moet worden toegevoegd, ["naam", width, hoogte]
Global $bArray[3] = ["Editable", "Kids", "Amazone"]
Global $widthArray[10]
Global $heightArray[10]
Global $fontArray[10]
Global $textArray[10]
Global $orderArray[10]
Global $typeArray[10]
Global $arrayIndex = 0
Global $rowArray[72]

Global $isDigiRunning = false

; And here we get the elements into a list
$sList = ""
For $i = 0 To UBound($aArray,1) -1
    $sList &= "|" & $aArray[$i][0]
Next

$bList = ""
For $i = 0 To UBound($bArray) -1
	$bList &= "|" & $bArray[$i]
Next

; Create a GUI
#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Simply Digitizer", 800, 600)

; Create the combo
GUICtrlCreateLabel("Type", 10, 10, 30, 20)
GUICtrlCreateLabel("Font", 200, 10, 30, 20)
GUICtrlCreateLabel("Naam", 330, 10, 30, 20)
GUICtrlCreateLabel("Order", 480, 10, 30, 20)
$hCombo = GUICtrlCreateCombo("", 10, 30, 180, 50, $CBS_DROPDOWNLIST)
$bCombo = GUICtrlCreateCombo("", 200, 30, 110, 50, $CBS_DROPDOWNLIST)
$name = GUICtrlCreateInput("", 330, 30, 140, 30)
$order = GUICtrlCreateInput("", 480, 30, 60, 30)
GUICtrlSetFont($name, 14)
GUICtrlSetFont($order, 14)
GUICtrlSetFont($bCombo, 14)
GUICtrlSetFont($hCombo, 14)

GUICtrlSetData($hCombo, $sList)
GUICtrlSetData($bCombo, $bList)
Local $onoff = GUICtrlCreateLabel("", 600, 80, 30, 20)

;------
;$testtesttest = GUICtrlRead($sList)
;https://www.autoitscript.com/autoit3/docs/functions/GUICtrlRead.htm
;https://www.autoitscript.com/forum/topic/100188-selected-value-of-combo-box/
;------

; order label
Global $orderList = GUICtrlCreateList("", 10, 300, 480, 250)
GUICtrlSetFont($orderList, 15)

; Create label
$hLabel = GUICtrlCreateLabel("", 550, 30, 120, 20)

Local $start = GUICtrlCreateButton("Toevoegen", 640, 40, 150, 40)
Local $st = GUICtrlCreateButton("Start", 640, 550, 150, 40)

;alle speciale leestekens
;rij 1
$rowArray[0] = GUICtrlCreateButton("À", 10, 90, 40, 30)
$rowArray[1] = GUICtrlCreateButton("È", 10, 120, 40, 30)
$rowArray[2] = GUICtrlCreateButton("Ì", 10, 150, 40, 30)
$rowArray[3] = GUICtrlCreateButton("Ò", 10, 180, 40, 30)
$rowArray[4] = GUICtrlCreateButton("Ù", 10, 210, 40, 30)
$rowArray[5] = GUICtrlCreateButton("€", 10, 240, 40, 30)

;rij 2
$rowArray[6] = GUICtrlCreateButton("à", 50, 90, 40, 30)
$rowArray[7] = GUICtrlCreateButton("è", 50, 120, 40, 30)
$rowArray[8] = GUICtrlCreateButton("ì", 50, 150, 40, 30)
$rowArray[9] = GUICtrlCreateButton("ò", 50, 180, 40, 30)
$rowArray[10] = GUICtrlCreateButton("ù", 50, 210, 40, 30)
$rowArray[11] = GUICtrlCreateButton("£", 50, 240, 40, 30)

;rij 3
$rowArray[12] = GUICtrlCreateButton("Á", 90, 90, 40, 30)
$rowArray[13] = GUICtrlCreateButton("É", 90, 120, 40, 30)
$rowArray[14] = GUICtrlCreateButton("Í", 90, 150, 40, 30)
$rowArray[15] = GUICtrlCreateButton("Ó", 90, 180, 40, 30)
$rowArray[16] = GUICtrlCreateButton("Ú", 90, 210, 40, 30)
$rowArray[17] = GUICtrlCreateButton("¥", 90, 240, 40, 30)

;rij 4
$rowArray[18] = GUICtrlCreateButton("á", 130, 90, 40, 30)
$rowArray[19] = GUICtrlCreateButton("é", 130, 120, 40, 30)
$rowArray[20] = GUICtrlCreateButton("í", 130, 150, 40, 30)
$rowArray[21] = GUICtrlCreateButton("ó", 130, 180, 40, 30)
$rowArray[22] = GUICtrlCreateButton("ú", 130, 210, 40, 30)
$rowArray[23] = GUICtrlCreateButton("ƒ", 130, 240, 40, 30)

;rij 5
$rowArray[24] = GUICtrlCreateButton("Â", 170, 90, 40, 30)
$rowArray[25] = GUICtrlCreateButton("Ê", 170, 120, 40, 30)
$rowArray[26] = GUICtrlCreateButton("Î", 170, 150, 40, 30)
$rowArray[27] = GUICtrlCreateButton("Ô", 170, 180, 40, 30)
$rowArray[28] = GUICtrlCreateButton("Û", 170, 210, 40, 30)
$rowArray[29] = GUICtrlCreateButton("¢", 170, 240, 40, 30)

;rij 6
$rowArray[30] = GUICtrlCreateButton("â", 210, 90, 40, 30)
$rowArray[31] = GUICtrlCreateButton("ê", 210, 120, 40, 30)
$rowArray[32] = GUICtrlCreateButton("î", 210, 150, 40, 30)
$rowArray[33] = GUICtrlCreateButton("ô", 210, 180, 40, 30)
$rowArray[34] = GUICtrlCreateButton("û", 210, 210, 40, 30)
$rowArray[35] = GUICtrlCreateButton("", 210, 240, 40, 30)

;rij 7
$rowArray[36] = GUICtrlCreateButton("Ã", 250, 90, 40, 30)
$rowArray[37] = GUICtrlCreateButton("", 250, 120, 40, 30)
$rowArray[38] = GUICtrlCreateButton("", 250, 150, 40, 30)
$rowArray[39] = GUICtrlCreateButton("Õ", 250, 180, 40, 30)
$rowArray[40] = GUICtrlCreateButton("ø", 250, 210, 40, 30)
$rowArray[41] = GUICtrlCreateButton("Ý", 250, 240, 40, 30)

;rij 8
$rowArray[42] = GUICtrlCreateButton("ã", 290, 90, 40, 30)
$rowArray[43] = GUICtrlCreateButton("", 290, 120, 40, 30)
$rowArray[44] = GUICtrlCreateButton("", 290, 150, 40, 30)
$rowArray[45] = GUICtrlCreateButton("õ", 290, 180, 40, 30)
$rowArray[46] = GUICtrlCreateButton("Ø", 290, 210, 40, 30)
$rowArray[47] = GUICtrlCreateButton("ý", 290, 240, 40, 30)

;rij 9
$rowArray[48] = GUICtrlCreateButton("Ä", 330, 90, 40, 30)
$rowArray[49] = GUICtrlCreateButton("Ë", 330, 120, 40, 30)
$rowArray[50] = GUICtrlCreateButton("Ï", 330, 150, 40, 30)
$rowArray[51] = GUICtrlCreateButton("Ö", 330, 180, 40, 30)
$rowArray[52] = GUICtrlCreateButton("Ü", 330, 210, 40, 30)
$rowArray[53] = GUICtrlCreateButton("Ÿ", 330, 240, 40, 30)

;rij 10
$rowArray[54] = GUICtrlCreateButton("ä", 370, 90, 40, 30)
$rowArray[55] = GUICtrlCreateButton("ë", 370, 120, 40, 30)
$rowArray[56] = GUICtrlCreateButton("ï", 370, 150, 40, 30)
$rowArray[57] = GUICtrlCreateButton("ö", 370, 180, 40, 30)
$rowArray[58] = GUICtrlCreateButton("ü", 370, 210, 40, 30)
$rowArray[59] = GUICtrlCreateButton("ÿ", 370, 240, 40, 30)

;rij 11
$rowArray[60] = GUICtrlCreateButton("İ", 410, 90, 40, 30)
$rowArray[61] = GUICtrlCreateButton("ı", 410, 120, 40, 30)
$rowArray[62] = GUICtrlCreateButton("Ñ", 410, 150, 40, 30)
$rowArray[63] = GUICtrlCreateButton("ñ", 410, 180, 40, 30)
$rowArray[64] = GUICtrlCreateButton("ß", 410, 210, 40, 30)
$rowArray[65] = GUICtrlCreateButton("å", 410, 240, 40, 30)

;rij 12
$rowArray[66] = GUICtrlCreateButton("Ç", 450, 90, 40, 30)
$rowArray[67] = GUICtrlCreateButton("ç", 450, 120, 40, 30)
$rowArray[68] = GUICtrlCreateButton("Ğ", 450, 150, 40, 30)
$rowArray[69] = GUICtrlCreateButton("ğ", 450, 180, 40, 30)
$rowArray[70] = GUICtrlCreateButton("Ş", 450, 210, 40, 30)
$rowArray[71] = GUICtrlCreateButton("ş", 450, 240, 40, 30)




Func isOn()
If ProcessExists("digitizer.exe") Then
   GUICtrlSetData($onoff, "ON")
   GUICtrlSetColor($onoff, $COLOR_GREEN)
   $isDigiRunning = true
Else
   GUICtrlSetData($onoff, "OFF")
   GUICtrlSetColor($onoff, $COLOR_RED)
   $isDigiRunning = false
EndIf
EndFunc

;$testtesttest = GUICtrlRead($sList)

;$productDropdownNum = _GUICtrlComboBox_GetCurSel($hCombo)
;$testtesttest = $aArray[$productDropdownNum]

;$productDropdownNum = _GUICtrlComboBox_GetCurSel($sList)

$productType = "product"

Func startProcess()

   BlockInput($BI_DISABLE)
   For $i = 0 To $arrayIndex -1
   ;MsgBox($MB_SYSTEMMODAL, "Title", $textArray[$i], 15);
   ;Send("{ESC}")
   Call ("setReady")
   Sleep ("300")
   Call ("tabLettering", $fontArray[$i], $textArray[$i])
   Sleep ("1800")
   Call ("tabFill")
   Sleep ("400")
   Call ("setWidth", $widthArray[$i])
   Sleep ("400")
   Call ("setHeight", $typeArray[$i])
   Sleep ("400")
   Call ("remUnderlay")
   Sleep ("400")
   Call ("rotateObject", $typeArray[$i])
   Sleep("250")
   Call ("centerObject")
   Call ("saveFile", $orderArray[$i], $textArray[$i], $productType)
   Sleep("600")
   Send("{ENTER}")
   Sleep("500")
   Next
$arrayIndex = 0
_GUICtrlListBox_ResetContent($orderList)
WinActivate("[TITLE:Simply Digitizer]")
BlockInput($BI_ENABLE)
EndFunc

Func tabLettering($font, $input)
   Local $ft = 1
   If $font = "Amazone" Then
	  $ft = 8
   ElseIf $font = "Editable" Then
      $ft = 0
   EndIf

   MouseClick($MOUSE_CLICK_LEFT, 1645, 201, 1, 5)
   MouseClick($MOUSE_CLICK_LEFT, 1689, 265)
   ClipPut($input)
   Send("^v")
   Sleep ("320")
   ControlClick("Digitizer", "", "ComboBox14")
   Send($ft)
   Send("{ENTER}")
EndFunc

Func remUnderlay()
   Send("u")
EndFunc

Func setReady()
   Local $dgz = WinActivate("[TITLE:Digitizer]")

   WinSetState($dgz, "", @SW_MAXIMIZE)
   Sleep("400")
   WinActivate("[CLASS:AfxFrameOrView120]")
   Send("^a")
   Sleep("400")
   Send("{DEL}")
EndFunc

Func tabFill()
   MouseClick($MOUSE_CLICK_LEFT, 1568, 201)
   Sleep("400")
   MouseClick($MOUSE_CLICK_LEFT, 1620, 284)
   Sleep("400")
   ControlClick("Digitizer", "", "Button102")
EndFunc

Func rotateObject($type)
   Local $degree = 0
   Local $tbt = $type

   If $tbt = "Happy Horse 38 & 40" Or $tbt = "Happy Horse 58" Or $tbt = "Muziek Knuffel" Then
	  ControlClick("Digitizer", "", "RichEdit20A1")
	  Sleep("300")
	  $degree = 270
	  ControlSetText("Digitizer", "", "RichEdit20A1", $degree)
	  Sleep("300")
	  Send("{ENTER}")

 EndIf
   If $tbt = "Knuffeldoekjes" Or $tbt = "Badcape" Then
	  ControlClick("Digitizer", "", "RichEdit20A1")
	  Sleep("300")
	  $degree = "180"
	  ControlSetText("Digitizer", "", "RichEdit20A1", $degree)
	  Sleep("300")
	  Send("{ENTER}")
   EndIf
EndFunc

Func saveFile($order, $input, $productType)
   Local $redGUI = $order
   Local $ordno = StringRight($redGUI, 5)
   Local $BSlocatie = "NL"
   Local $BSoplopendNummer = 12345
   Local $product = $productType
   Local $BSkleurEen = '#00ff0d'
   Local $BSkleurTwee = '#e5ff00'
   ;StringTrimLeft($BSkleurEen, 1)
   ;StringTrimLeft($BSkleurTwee, 1)
   Local $devideName = '-'

   ;Use $sVar = GUICtrlRead($ComboBox)
   ;$hCombo
   ;GUICtrlSetData($hCombo, $sList)
   ;$sSelected = GUICtrlRead($controlID)

   ;Send($ordno & $input)
   ;Send($BSlocatie & $BSoplopendNummer & $ordno & $BSkleurEen & $input & #BSkleurTwee)

   MouseClick($MOUSE_CLICK_LEFT, 32, 45)
   MouseClick($MOUSE_CLICK_LEFT, 105, 294)
   Send($BSlocatie & $BSoplopendNummer & $devideName & $ordno & $devideName & $product & $BSkleurEen & $devideName & $input & $BSkleurTwee, 1)
   ;Send("comboboxvalue-" & $product, 1)
;   MouseClick($MOUSE_CLICK_LEFT, 500, 500)

   Local $currentDir = "Z:\plotten\Borduren\Orders\2021\02 Feb"
   ClipPut($currentDir)
   Sleep(300)
   MouseClick($MOUSE_CLICK_LEFT, 1598, 45)
   Sleep(300)
   Send("^v")
   Sleep(300)
   Send("{ENTER}")

   Sleep(300)
   ControlClick("Export Design", "", "Button3")
   Sleep(300)

;   Sleep("300")
;   ;Send("t")
;   ;Sleep("300")
;   Send("{ENTER}")
;   Sleep("300")
;   Send("{ENTER}")
;   Sleep("800")
;   Send("{ENTER}")
EndFunc

Func setWidth($width)
   Local $wid = $width

   MouseClick($MOUSE_CLICK_LEFT, 649, 123, 2)
   Sleep("400")
   Send($wid)
   Send("{ENTER}")
EndFunc

Func centerObject()
   MouseClick($MOUSE_CLICK_LEFT, 529, 123, 2)
   Send("0")
   Send("{ENTER}")
   Sleep("300")
   MouseClick($MOUSE_CLICK_LEFT, 528, 142, 2)
   Send("0")
   Send("{ENTER}")
EndFunc
Func setHeight($tbt)
   Local $hi

   MouseClick($MOUSE_CLICK_LEFT, 651, 141, 2)
   Send("^c")
   Sleep("400")
   Local $clip = ClipGet()
   If $tbt = "Happy Horse 38 & 40" And $clip > $HH40 Then
	  $hi = $HH40
   ElseIf $tbt = "Happy Horse 58" And $clip > $HH58 Then
	  $hi = $HH58
   ElseIf $tbt = "Badjas" Or $tbt = "Badcape" Then
	  If $clip > $BB Then
		 $hi = $BB
	  EndIf
   ElseIf $tbt = "Knuffeldoekjes" And $clip > $KD Then
	  $hi = $KD
   ElseIf $tbt = "Muziek Knuffel" And $clip > $MK Then
	  $hi = $MK
   EndIf

   Send($hi)
   Send("{ENTER}")
EndFunc

Func fillArray()
   Local $lol = "hoiiiii"
   If $arrayIndex > 9 Then
	  MsgBox($MB_SYSTEMMODAL, "Title", "Max orders bereikt", 10)
   Else
   $sName = GUICtrlRead($hCombo)
   $bName = GUICtrlRead($bCombo)
   $cName = GUICtrlRead($name)
   $cOrder = GUICtrlRead($order)

   If StringLen($sName) > 5 And StringLen($bName) > 3 And StringLen($cOrder) > 1 And StringLen($cName) > 1 Then
   $iIndex = _ArraySearch($aArray, $sName)
   $bIndex = _ArraySearch($bArray, $bName)


   $typeArray[$arrayIndex] = $aArray[$iIndex][0]
   $widthArray[$arrayIndex] = $aArray[$iIndex][1]
   $heightArray[$arrayIndex] = $aArray[$iIndex][2]
   $fontArray[$arrayIndex] = $bArray[$bIndex]
   $textArray[$arrayIndex] = $cName
   $orderArray[$arrayIndex] = $cOrder


   ;MsgBox($MB_SYSTEMMODAL, "Title", $widthArray[$arrayIndex] & $heightArray[$arrayIndex] & $fontArray[$arrayIndex] & $textArray[$arrayIndex] & $orderArray[$arrayIndex], 100)

   ;GUICtrlSetData($orderLabel[0], "B: " & $widthArray[$arrayIndex] & ", H: " & $heightArray[$arrayIndex] & ", Font:" & $fontArray[$arrayIndex] & ", Text: " & $textArray[$arrayIndex] & ", Ord: " & $orderArray[$arrayIndex])
   GUICtrlSetData($orderList, "B: " & $widthArray[$arrayIndex] & ", H: " & $heightArray[$arrayIndex] & ", Font:" & $fontArray[$arrayIndex] & ", Text: " & $textArray[$arrayIndex] & ", Ord: " & $orderArray[$arrayIndex])
   $arrayIndex = $arrayIndex + 1
   Else
	  MsgBox($MB_SYSTEMMODAL, "Title", "Onvoldoende input!", 10)
   EndIf
   EndIf
EndFunc
GUISetState()


While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hCombo
            $sName = GUICtrlRead($hCombo)
            $iIndex = _ArraySearch($aArray, $sName)

            If Not @error Then
                GUICtrlSetData($hLabel, "B x H: " & $aArray[$iIndex][1] & "mm x " & $aArray[$iIndex][2] & "mm")
			 EndIf
		  Case $start
			 ;$sName = GUICtrlRead($hCombo)
			 ;$iIndex = _ArraySearch($aArray, $sName)
			 ;Call("startProcess", $name, $order, $bCombo, $hCombo, $aArray[$iIndex][1])

			 fillArray();
			 GUICtrlSetData($name, "")
			 GUICtrlSetData($order, "")
			 GUICtrlSetData($hCombo, $sList)
			 GUICtrlSetData($bCombo, $bList)

		  Case $st

			 If Not $isDigiRunning Then
			   MsgBox(0, Default, "Eerst Digitizer starten aub")
			Else
			   startProcess()
			EndIf

		 ;Case $rowArray[0]
		;	$tmp = GUICtrlRead($name, 0)
		;	$char = GUICtrlRead($rowArray[0], 0)
		;	GUICtrlSetData($name, $tmp & $char)

		 ;Case Else

			;$tmp = GUICtrlRead($name, 0)
			;GUICtrlSetData($name, $tmp & GUICtrlRead(GUIGetMsg()))
		 ;Case Else
			;If Not (GUICtrlRead(GUIGetMsg()) = 0) Then
			;   MsgBox(0, Default, GUICtrlRead(GUIGetMsg()))
			;EndIf

			Case $rowArray[0]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[0], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[1]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[1], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[2]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[2], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[3]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[3], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[4]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[4], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[5]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[5], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[6]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[6], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[7]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[7], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[8]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[8], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[9]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[9], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[10]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[10], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[11]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[11], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[12]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[12], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[13]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[13], 0)
			   GUICtrlSetData($name, $tmp & "E")
			   MsgBox(0, Default, "É niet beschikbaar, handmatig invoeren!")
			Case $rowArray[14]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[14], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[15]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[15], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[16]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[16], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[17]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[17], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[18]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[18], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[19]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[19], 0)
			   GUICtrlSetData($name, $tmp & "e")
			   MsgBox(0, Default, "é niet beschikbaar, handmatig invoeren!")
			Case $rowArray[20]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[20], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[21]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[21], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[22]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[22], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[23]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[23], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[24]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[24], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[25]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[25], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[26]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[26], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[27]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[27], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[28]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[28], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[29]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[29], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[30]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[30], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[31]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[31], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[32]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[32], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[33]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[33], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[34]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[34], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[35]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[35], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[36]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[36], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[37]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[37], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[38]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[38], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[39]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[39], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[40]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[40], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[41]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[41], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[42]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[42], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[43]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[43], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[44]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[44], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[45]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[45], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[46]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[46], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[47]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[47], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[48]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[48], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[49]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[49], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[50]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[50], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[51]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[51], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[52]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[52], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[53]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[53], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[54]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[54], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[55]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[55], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[56]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[56], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[57]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[57], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[58]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[58], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[59]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[59], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[60]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[60], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[61]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[61], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[62]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[62], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[63]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[63], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[64]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[64], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[65]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[65], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[66]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[66], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[67]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[67], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[68]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[68], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[69]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[69], 0)
			   GUICtrlSetData($name, $tmp & $char)
			Case $rowArray[70]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[70], 0)
			   GUICtrlSetData($name, $tmp & "S")
			   MsgBox(0, Default, "Ş niet beschikbaar, handmatig invoeren!")
			Case $rowArray[71]
			   $tmp = GUICtrlRead($name, 0)
			   $char = GUICtrlRead($rowArray[71], 0)
			   GUICtrlSetData($name, $tmp & "s")
			   MsgBox(0, Default, "Ş niet beschikbaar, handmatig invoeren!")

		 EndSwitch



   Call("isOn")
 WEnd