Sign in to follow this  
Followers 0
Liderc

I know I'm missing the obvious...

5 posts in this topic

Alright, I have been working on this script for the better part of 2 weeks. I need this thing to be finished. :whistle: Anyway, I have used AutoIt to create a calculator for quick computation of material. I almost have it completed, but I'm just getting hung up at one part.

;----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;   Template AutoIt script.
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

; Create the GUI window and controls

GuiCreate("Glastic Weight Calculator", 395, 200)
$Total_button = GuiCtrlCreateButton("Total", 319, 175, 55, 20, $BS_VCENTER)
$Skid = GUICtrlCreateDummy()

;Row 1
;========

GUICtrlCreateLabel("# of Sheets", 20, 5, 35, 30, $ES_CENTER)
GUICtrlCreateLabel("Size", 80, 19, 35, "", $ES_CENTER)
GUICtrlCreateLabel("Thickness", 151, 19, 53)
GUICtrlCreateLabel("Material", 237, 19, 50)
GUICtrlCreateLabel("lbs.", 375, 37, 15)
$Sheets_1 = GuiCtrlCreateInput("", 20, 35, 35, 21, 0x2000)
$Size_1 = GuiCtrlCreateCombo("", 75, 35, 55, 21)
GuiCtrlSetData($Size_1, "3' x 6'|4' x 8'", "3' x 6'")
$Thickness_1 = GuiCtrlCreateCombo("0.031", 150, 35, 55, 21)
GuiCtrlSetData($Thickness_1, "0.063|0.094|0.125|0.188|0.250|0.375|0.500|0.625|0.750|1.000", "0.031")
$Material_1 = GuiCtrlCreateCombo("", 225, 35, 65, 21)
GuiCtrlSetData($Material_1, "GPO-1|GPO-3|SG-200", "GPO-1")
$Total_1 = GuiCtrlCreateLabel("", 320, 37, 50, 18, BitOR($SS_SUNKEN, $ES_CENTER)) ; (Example: $SS_...+$SS_...)
$Volume_1 = GUICtrlCreateDummy()

; Mathematical Function of Script
;   Select 
;       Case GUICtrlRead($Size_1) = "3' x 6'"
;           Select
;               Case GUICtrlRead($Thickness_1) = "0.031" AND GUICtrlRead($Material_1) = "GPO-1"
;                   GUICtrlSendToDummy($Volume_1, 5)
;               Case GUICtrlRead($Thickness_1) = "0.063" AND GUICtrlRead($Material_1) = "GPO-1"
;                   GUICtrlSendToDummy($Volume_1, 10)
;               Case GUICtrlRead($Thickness_1) = "0.094" AND GUICtrlRead($Material_1) = "GPO-1"
;                   GUICtrlSendToDummy($Volume_1, 16)
;           EndSelect
;       GUICtrlSendToDummy($Skid, 68)
;   EndSelect



; Run the GUI until it is closed
GuiSetState()
While 1
If GUICtrlRead($Size_1) = "3' x 6'" Then
    Select
        Case GUICtrlRead($Thickness_1) = "0.031" AND GUICtrlRead($Material_1) = "GPO-1"
            GUICtrlSendToDummy($Volume_1, 5)
        Case GUICtrlRead($Thickness_1) = "0.063" AND GUICtrlRead($Material_1) = "GPO-1"
            GUICtrlSendToDummy($Volume_1, 10)
        Case GUICtrlRead($Thickness_1) = "0.094" AND GUICtrlRead($Material_1) = "GPO-1"
            GUICtrlSendToDummy($Volume_1, 16)
    EndSelect
EndIf
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    ;When button is pressed, label text is changed
    ;to combobox value
    Case $msg = $Total_button
      $data = GUICtrlRead($Volume_1)
      $data2 = GUICtrlRead($Sheets_1)
      $data3 = GUICtrlRead($Skid)
      If GUICtrlRead($Sheets_1) >= 1 Then
          GUICtrlSetData($Total_1, ($data * $data2) + $data3)
      ElseIf GUICtrlRead($Sheets_1) < 1 Then
          MsgBox(4160, "Missing Value", "Please enter a vaild sheet count.")
        EndIf
    EndSelect
WEnd
ExitoÝ÷ Øý¯x-®ì"¶az«¨´Séêºlµ«^éí®(!µ§íz»az«¨µ§B.إجrZ,yÚ®¢Ø^i׫#f¶¶Ø^ Táz{h²êi¢»mà±ë-jצz{ljZ'­©è¶«n! +k'§u:ºi²þ/Û²Ö­zg§µ*¶¸vØb±«­¢+Ø)%U%
ÑɱI ÀÌØíM¥é|ĤôÅÕ½ÐìÌÌäìàØÌäìÅÕ½ÐìQ¡¸(%M±Ð($%
ÍU%
ÑɱI ÀÌØíQ¡¥­¹ÍÍ|ĤôÅÕ½ÐìÀ¸ÀÌÄÅÕ½Ðì9U%
ÑɱI ÀÌØí5ÑÉ¥±|ĤôÅÕ½ÐíA

However, this locks up the script and no value is displayed in the label AND the script won't close normally. I have to manually kill the process for the script. I'm sure that I'm just missing the blatantly obvious, so don't be too harsh with the help. ;)

Share this post


Link to post
Share on other sites



maybe...

;----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;   Template AutoIt script.
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

; Create the GUI window and controls

Dim $Volume_1

GuiCreate("Glastic Weight Calculator", 395, 200)
$Total_button = GuiCtrlCreateButton("Total", 319, 175, 55, 20, $BS_VCENTER)
$Skid = GUICtrlCreateDummy()

;Row 1
;========

GUICtrlCreateLabel("# of Sheets", 20, 5, 35, 30, $ES_CENTER)
GUICtrlCreateLabel("Size", 80, 19, 35, "", $ES_CENTER)
GUICtrlCreateLabel("Thickness", 151, 19, 53)
GUICtrlCreateLabel("Material", 237, 19, 50)
GUICtrlCreateLabel("lbs.", 375, 37, 15)
$Sheets_1 = GuiCtrlCreateInput("", 20, 35, 35, 21, 0x2000)
$Size_1 = GuiCtrlCreateCombo("", 75, 35, 55, 21)
GuiCtrlSetData($Size_1, "3' x 6'|4' x 8'", "3' x 6'")
$Thickness_1 = GuiCtrlCreateCombo("0.031", 150, 35, 55, 21)
GuiCtrlSetData($Thickness_1, "0.063|0.094|0.125|0.188|0.250|0.375|0.500|0.625|0.750|1.000", "0.031")
$Material_1 = GuiCtrlCreateCombo("", 225, 35, 65, 21)
GuiCtrlSetData($Material_1, "GPO-1|GPO-3|SG-200", "GPO-1")
$Total_1 = GuiCtrlCreateLabel("", 320, 37, 50, 18, BitOR($SS_SUNKEN, $ES_CENTER)) ; (Example: $SS_...+$SS_...)
;$Volume_1 = GUICtrlCreateDummy()

; Run the GUI until it is closed
GuiSetState()
While 1
If GUICtrlRead($Size_1) = "3' x 6'" Then
    Select
        Case GUICtrlRead($Thickness_1) = "0.031" AND GUICtrlRead($Material_1) = "GPO-1"
            ;GUICtrlSendToDummy($Volume_1, 5)
            $Volume_1 = 5
        Case GUICtrlRead($Thickness_1) = "0.063" AND GUICtrlRead($Material_1) = "GPO-1"
            ;GUICtrlSendToDummy($Volume_1, 10)
            $Volume_1 = 10
        Case GUICtrlRead($Thickness_1) = "0.094" AND GUICtrlRead($Material_1) = "GPO-1"
            ;GUICtrlSendToDummy($Volume_1, 16)
            $Volume_1 = 16
    EndSelect
EndIf
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    ;When button is pressed, label text is changed
    ;to combobox value
    Case $msg = $Total_button
      ;$data = GUICtrlRead($Volume_1)
      $data = $Volume_1
      $data2 = GUICtrlRead($Sheets_1)
      $data3 = GUICtrlRead($Skid)
      If GUICtrlRead($Sheets_1) >= 1 Then
          GUICtrlSetData($Total_1, ($data * $data2) + $data3)
      ElseIf GUICtrlRead($Sheets_1) < 1 Then
          MsgBox(4160, "Missing Value", "Please enter a vaild sheet count.")
        EndIf
    EndSelect
WEnd
Exit

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Valuater beat me to it, lol

Share this post


Link to post
Share on other sites

HAHAHA!!! Thanks guys. :whistle: I knew it would be something obvious. I was just making everything harder on myself. Thanks again guys. ;)

Share this post


Link to post
Share on other sites

Welcome

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0