; AutoIt Version 3.0.103
; Language:       English
; Author:         Larry Bailey
; Email:          psichosis@tvn.net
; Date: January 11, 2005
;
; Script Function
; Creates a simple GUI showing the use of
; a label, a combobox and a button
; Selecting an item from the combobox
; and clicking the button updates the label text

Global $sRepeatLoad, $sLastLoadQTY


Func WinWaitActivate($title, $text, $timeout = 5)
WinWait($title, $text, $timeout)
If Not WinActive($title, $text) Then WinActivate($title, $text)
If Not WinWaitActive($title, $text, 5) Then
  Return 0
Else
  Return 1
EndIf
EndFunc   ;==>WinWaitActivate

				Func LoadPlane1()
				WinWaitActivate("Autodesk Maya 2008: .\untitled","ELFdefaultFormLayout")
				MouseClick("left",275,129,1)
				WinWaitActivate("STEEDM_UI","ELFdefaultFormLayout")
				MouseClick("left",241,39,1)
				MouseClick("left",208,180,1)
				WinWaitActivate("smrt Assets Tools","ELFdefaultColumnLayo")
				MouseClick("left",180,463,2)
				Send($sLastLoadQTY)
				MouseClick("left",200,551,1)
				MouseClick("left",209,626,1)
				EndFunc

#include <GuiComboBox.au3>
#include <GuiConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIListBox.au3>
#include <FontConstants.au3>


_Main()

Func _Main()
	Local Const $sFont = "News Gothic MT"

	Local $idLabel_1, $idLabel_2, $idCombo_1, $idCombo_2, $idCombo_3, $idCombo_4, $idButton1, $iMsg, $sICAO, $sBaseCapacity, $BaseCapacity, $sProduct, $sAircraftType, $sPayload, $CargoQuantity, $sCargoQuantityInput, $sCargoQuantity, $DisplayRepeatLoad, $DisplayLastLoadQTY, $AircraftDefaultCapacity, $sLocalSupplyRate, $LocalSupplyRate

	;$RepeatLoad = 0
	;$sBaseCapacity = 0
	;$sCargoQuantityInput = 6546
	;$AircraftDefaultCapacity = 0

	; Create the GUI window and controls
	GUICreate("MyGUI", 950, 240, (@DesktopWidth - 1920) / 2, (@DesktopHeight - 1200) / 2)



	;Manual input Label
	GUICtrlCreatePic("Label_ManualInput.jpg", 30, 10, 131, 21)

	;Select Airport
	GUICtrlCreatePic("Label_ICAO.jpg", 30, 40, 131, 21)
	$idCombo_1 = GUICtrlCreateCombo("", 30, 60, 130, 40)
	GUICtrlSetData($idCombo_1, "YMML|YMEN|YPPH|YBAS|NZAA")
	GUICtrlSetFont($idCombo_1, 22, 700, $sFont)

	;Show default Base Carpacity
	GUICtrlCreatePic("Label_BaseCapacity.jpg", 161, 40, 131, 21)
	$idCombo_2 = GUICtrlCreateCombo("", 161, 60, 131, 40)
	GUICtrlSetData($idCombo_2, "30000|22500|32500|12500|30000")
	GUICtrlSetFont($idCombo_2, 22, 700, $sFont)

	;Local Supply Rate
	GUICtrlCreatePic("Label_LocalSupplyRate.jpg", 161, 105, 130, 21)
	$sLocalSupplyRate = GUICtrlCreateInput("", 161, 125, 130, 40, $ES_NUMBER)
	GUICtrlSetFont($sLocalSupplyRate, 22, 700, $sFont)

	;Select Aircraft Type
	GUICtrlCreatePic("Label_Aircraft_Type.jpg", 330, 40, 130, 21)
	$idCombo_3 = GUICtrlCreateCombo("", 330, 60, 130, 40)
	GUICtrlSetData($idCombo_3, "An225|B777|B737|A320|RJ70|C27J|")
	GUICtrlSetFont($idCombo_3, 22, 700, $sFont)

	;Select Payload
	GUICtrlCreatePic("Label_Payload.jpg", 461, 40, 130, 21)
	$idCombo_4 = GUICtrlCreateCombo("", 461, 60, 130, 40)
	GUICtrlSetData($idCombo_4, "943000|430000|73000|72000|39000|42000|")
	GUICtrlSetFont($idCombo_4, 22, 700, $sFont)

	;Set Aircraft default capacity button
	$idButton2 = GUICtrlCreateButton(">>", 591, 60, 38, 40)
	GUICtrlSetFont($idButton2, 15, 300, $sFont)

	;Input Cargo Quantity
	GUICtrlCreatePic("Label_CargoQuantity.jpg", 630, 40, 130, 21)
	$sCargoQuantityInput = GUICtrlCreateInput("", 630, 60, 130, 40, $ES_NUMBER)
	GUICtrlSetFont($sCargoQuantityInput, 22, 700, $sFont)

	;Input Repeat Load
	GUICtrlCreatePic("Label_RepeatLoad.jpg", 791, 40, 130, 21)
	$DisplayRepeatLoad = GUICtrlCreateInput("", 791, 60, 130, 40)
	GUICtrlSetFont($DisplayRepeatLoad, 22, 700, $sFont)

	;Input Last Load Quantity
	GUICtrlCreatePic("Label_LastLoadQTY.jpg", 791, 105, 130, 21)
	$DisplayLastLoadQTY = GUICtrlCreateInput("", 791, 125, 130, 40)
	GUICtrlSetFont($DisplayLastLoadQTY, 22, 700, $sFont)

	$idButton1 = GUICtrlCreateButton("Load Supply to Aircraft", 591, 180, 330, 40)
	GUICtrlSetFont($idButton1, 20, 700, $sFont)

	; Run the GUI until it is closed
	GUISetState()
	While 1
		$iMsg = GUIGetMsg()

		Select
			Case $iMsg = $GUI_EVENT_CLOSE
				ExitLoop

			Case GUICtrlRead($idCombo_1)

			     $sICAO = GUICtrlRead($idCombo_1)
				 If $sICAO = "YMML" Then
					 _GUICtrlComboBox_SelectString($idCombo_2, "30000")
				 EndIf
				 If $sICAO = "YMEN" Then
					 _GUICtrlComboBox_SelectString($idCombo_2, "22500")
				 EndIf
				 If $sICAO = "YPPH" Then
					 _GUICtrlComboBox_SelectString($idCombo_2, "32500")
				 EndIf
				 If $sICAO = "YBAS" Then
					 _GUICtrlComboBox_SelectString($idCombo_2, "12500")
				 EndIf
				 If $sICAO = "NZAA" Then
					 _GUICtrlComboBox_SelectString($idCombo_2, "30000")
				 EndIf


				 GUICtrlRead($idCombo_3)

			     $sAircraftType = GUICtrlRead($idCombo_3)
				 If $sAircraftType = "An225" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "943000")
				 EndIf
				 If $sAircraftType = "B777" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "430000")
				 EndIf
				 If $sAircraftType = "B737" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "73000")
				 EndIf
				 If $sAircraftType = "A320" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "72000")
				 EndIf
				 If $sAircraftType = "RJ70" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "39000")
				 EndIf
				 If $sAircraftType = "C27J" Then
					 _GUICtrlComboBox_SelectString($idCombo_4, "42000")
				 EndIf

				$AircraftDefaultCapacity = GUICtrlRead($idCombo_4)


				GUICtrlRead(Number($sRepeatLoad))
				If $sICAO = "YMML" Then
				$BaseCapacity = 30000
				EndIf
				If $sICAO = "YMEN" Then
				$BaseCapacity = 22500
				EndIf
				If $sICAO = "YPPH" Then
				$BaseCapacity = 32500
				EndIf
				If $sICAO = "YBAS" Then
				$BaseCapacity = 12500
				EndIf
				If $sICAO = "NZAA" Then
				$BaseCapacity = 30000
				EndIf

				$LocalSupplyRate = (GUICtrlRead($sLocalSupplyRate))    ;<-----------Make the Input becomce number
				$CargoQuantity = (GUICtrlRead($sCargoQuantityInput))   ;<-----------Make the Input becomce number

				If 	$LocalSupplyRate >= $BaseCapacity Then
					GUICtrlSetData($sLocalSupplyRate, 0)
					ElseIf $LocalSupplyRate = 0 Then
						$sRepeatLoad = Floor($CargoQuantity/$BaseCapacity)
						$sLastLoadQTY = $CargoQuantity - $sRepeatLoad*$BaseCapacity
					ElseIf $LocalSupplyRate <> 0 Then
						If $LocalSupplyRate < $BaseCapacity Then
							$sRepeatLoad = Floor($CargoQuantity/$LocalSupplyRate)
							$sLastLoadQTY = $CargoQuantity - $sRepeatLoad*$LocalSupplyRate
						EndIf

				EndIf


				GUICtrlSetData($DisplayRepeatLoad, $sRepeatLoad) ;<----------------********
				GUICtrlSetData($DisplayLastLoadQTY, $sLastLoadQTY) ;<----------------********

			Case $iMsg = $idButton2




					;$AircraftDefaultCapacity = Number(GUICtrlRead($idCombo_4, 1))
					;GUICtrlSetData($sCargoQuantityInput, $AircraftDefaultCapacity, "1")

			;Load material to plane
			;Case $idButton1
				;LoadPlane1()


		EndSelect

		;;ConsoleWrite("ICAO          : " & $sICAO & @CRLF)
				;;ConsoleWrite("BaseCapacity  : " & $BaseCapacity & @CRLF)
				;;ConsoleWrite("CargoQuantity : " & $CargoQuantity & @CRLF)
				;ConsoleWrite("Repeat Load s   : " & $sRepeatLoad & @CRLF)
				;ConsoleWrite("Combo 4  : " & Number($idCombo_4, "1") & @CRLF)
				;ConsoleWrite("Cargo Quantity Input   : " & $sCargoQuantityInput & @CRLF)
				;ConsoleWrite("Aircraft Default Capacity   : " & $AircraftDefaultCapacity & @CRLF)
				;ConsoleWrite("Aircraft Type   : " & $sAircraftType & @CRLF)
	WEnd

EndFunc   ;==>_Main