#include #include #include #include #include #include #include #include #include #Region ### START Koda GUI section ### Form=z:\trix\autoit\aphphv0007.kxf Global $TotalScore ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Main Window size ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Form1_1 = GUICreate("ALPHA SCORE CARD", 472, 563, 199, 121) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 444, 504) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $Scripting = GUICtrlCreateTabItem("Scripting") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Tab 3: Scriplting ;;8 questions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Question #1 ;Tone Alert Used GUIStartGroup() $Radio1neg = GUICtrlCreateRadio("", 304, 256, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio1pos = GUICtrlCreateRadio("", 232, 256, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #2 ;Sunstar 3 Digit Unit GUIStartGroup() $Radio2neg = GUICtrlCreateRadio("", 304, 290, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2pos = GUICtrlCreateRadio("", 232, 290, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #3 ;Repeat 3 digit Init GUIStartGroup() $Radio3neg = GUICtrlCreateRadio("", 304, 320, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio3pos = GUICtrlCreateRadio("", 232, 320, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #4 ;Location GUIStartGroup() $Radio4neg = GUICtrlCreateRadio("", 304, 350, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio4pos = GUICtrlCreateRadio("", 232, 350, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #5 ;Cross Street GUIStartGroup() $Radio5neg = GUICtrlCreateRadio("", 304, 380, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio5pos = GUICtrlCreateRadio("", 232, 380, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #6 ;Map Grid GUIStartGroup() $Radio6neg = GUICtrlCreateRadio("", 304, 410, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio6pos = GUICtrlCreateRadio("", 232, 410, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #7 ;SS Tac Channel GUIStartGroup() $Radio7neg = GUICtrlCreateRadio("", 304, 440, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio7pos = GUICtrlCreateRadio("", 232, 440, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Question #8 ;Info Out of order GUIStartGroup() $Radio8neg = GUICtrlCreateRadio("", 304, 470, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio8pos = GUICtrlCreateRadio("", 232, 470, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Build Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Date $Date = GUICtrlCreateInput("", 72, 80, 97, 24) GUICtrlSetFont(-1, 10, 400, 0, "Arial") Global $DateFLD = GUICtrlRead($Date) ;Unit Number $Unit = GUICtrlCreateInput("", 240, 80, 73, 24) GUICtrlSetFont(-1, 10, 400, 0, "Arial") ;Incodent Number $Incodent = GUICtrlCreateInput("", 344, 144, 97, 24) GUICtrlSetFont(-1, 10, 400, 0, "Arial") ;Time of examination $Time = GUICtrlCreateInput("", 72, 112, 89, 24) GUICtrlSetFont(-1, 10, 400, 0, "Arial") ;Name of person being examined Global $Name = GUICtrlCreateInput("", 232, 112, 89, 24) GUICtrlSetFont(-1, 10, 400, 0, "Arial") Global $NameEMP = GUICtrlRead($Name) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; End Build Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;List of test Examiners ;; "Bob Lanoue|Eric Fayad|Ken Warner|Misty McBride|Ron Shiner" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $List1 = GUICtrlCreateList("", 340, 33, 100, 102) GUICtrlSetData(-1, "Bob Lanoue|Eric Fayad|Ken Warner|Misty McBride|Ron Shiner") GUICtrlSetFont(-1, 10, 800, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;End list of test Examiners ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Text Boxes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Label1 = GUICtrlCreateLabel("Date:", 16, 72, 54, 33) GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow") $Label2 = GUICtrlCreateLabel("UNIT:", 176, 80, 56, 33) GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow") $Label3 = GUICtrlCreateLabel("Channel A QA", 80, 32, 209, 47) GUICtrlSetFont(-1, 28, 800, 0, "Arial Narrow") $Label4 = GUICtrlCreateLabel("Time:", 16, 104, 57, 33) GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow") $Label5 = GUICtrlCreateLabel("Name:", 168, 112, 65, 33) GUICtrlSetFont(-1, 18, 800, 0, "Arial Narrow") $Label6 = GUICtrlCreateLabel("Scripting", 144, 160, 130, 46) GUICtrlSetFont(-1, 26, 800, 0, "Arial Narrow") $Tone = GUICtrlCreateLabel("Tone AlertUsed", 48, 248, 121, 27) GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow") $Label9 = GUICtrlCreateLabel("Sunstar 3 Digit Unit#", 48, 280, 175, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label11 = GUICtrlCreateLabel("Repeat 3 Didit Unit#", 48, 312, 173, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label12 = GUICtrlCreateLabel("Location", 48, 344, 76, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("Cross Street", 48, 376, 111, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label14 = GUICtrlCreateLabel("Map Grid", 48, 408, 81, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label15 = GUICtrlCreateLabel("SS tac Channel", 48, 440, 134, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label16 = GUICtrlCreateLabel("Info out of Order", 48, 472, 144, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label17 = GUICtrlCreateLabel("Started: YES NO", 32, 208, 304, 28) GUICtrlSetFont(-1, 14, 400, 0, "Arial Rounded MT Bold") $Label7 = GUICtrlCreateLabel("Incident", 280, 144, 65, 27) GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow") $TabSheet2 = GUICtrlCreateTabItem("Customer Service") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; End Text Boxes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Tab3 ;;; 3 questions: triple radio ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Tab2 Question #1 ;Displayed Servcie Attitude GUIStartGroup() $RadioCS1pos = GUICtrlCreateRadio("", 272, 112, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $RadioCS1neut = GUICtrlCreateRadio("", 352, 112, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $RadioCS1neg = GUICtrlCreateRadio("", 424, 112, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ; Tab2 Question #2 ;Used Correct Volume or Tone GUIStartGroup() $RadioCS2pos = GUICtrlCreateRadio("", 272, 144, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $RadioCS2neut = GUICtrlCreateRadio("", 352, 144, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $RadioCS2neg = GUICtrlCreateRadio("", 424, 144, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ; Tab2 Question #3 ;Used Prohibited Behavior GUIStartGroup() $RadioCS3pos = GUICtrlCreateRadio("", 272, 276, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $RadioCS3neut = GUICtrlCreateRadio("", 352, 276, 17, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;$RadioCS3neg = GUICtrlCreateRadio("", 424, 176, 17, 17) ;GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Text box area ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $Label8 = GUICtrlCreateLabel("Customer Service", 136, 48, 154, 29) GUICtrlSetFont(-1, 16, 800, 0, "Arial Narrow") $Label10 = GUICtrlCreateLabel("CORRECT MINOR INCORRECT", 248, 88, 198, 20) GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow") $Label18 = GUICtrlCreateLabel("Displayed Service Attitued", 16, 112, 226, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label19 = GUICtrlCreateLabel("Used Correct Volume / Tone", 16, 144, 246, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label20 = GUICtrlCreateLabel("Used Prohibited Behavior", 16, 276, 219, 26) GUICtrlSetFont(-1, 14, 400, 0, "Arial") $Label7 = GUICtrlCreateLabel("YES NO", 268, 258, 113, 23) GUICtrlSetFont(-1, 12, 800, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Customer Service Notes: Supervisor Only area ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $NotesSUP = GUICtrlCreateEdit("", 16, 432, 425, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label21 = GUICtrlCreateLabel("Customer Service notes:", 16, 400, 234, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Overall Notes: All see this ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $TabSheet3 = GUICtrlCreateTabItem("Notes") $NotesAll = GUICtrlCreateEdit("", 32, 104, 369, 377) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label22 = GUICtrlCreateLabel("Overall Notes, Concerns", 32, 40, 281, 33) GUICtrlSetFont(-1, 18, 800, 0, "Arial") $Label23 = GUICtrlCreateLabel("Employee will see this on their reprot card", 32, 72, 210, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("&Submit", 222, 520, 75, 25, $WS_GROUP) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Cancel Button $CancelBUTTON = GUICtrlCreateButton("&Cancel", 302, 520, 75, 25, $WS_GROUP) $HelpButton = GUICtrlCreateButton("&Help", 384, 520, 75, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;The MAIN Process ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ExportInformation() Case $CancelBUTTON TestExit() Case $HelpButton HelpBOX() EndSwitch WEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;CSV Process ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func ExportInformation() Local $sString = "" Local $hWnd_file ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;CSV Bild ;; -Incodent - Name - Examiner - Date - Unit - [First page questions] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $sString &= GUICtrlRead($Incodent) & "|" $sString &= GUICtrlRead($Name) & "|" $sString &= GUICtrlRead($List1) & "|" $sString &= GUICtrlRead($Date) & "|" $sString &= GUICtrlRead($Time) & "|" $sString &= GUICtrlRead($Unit) & "|" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Scripting questions (8) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Question #1 ; Tone Alert Used If (GUICtrlRead($Radio1pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script1 = 1 ElseIf (GUICtrlRead($Radio1neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script1 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #2 ; Sunstar 3 Digit Unit If (GUICtrlRead($Radio2pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script2 = 1 ElseIf (GUICtrlRead($Radio2neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script2 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #3 ; Repeat 3 digit Init If (GUICtrlRead($Radio3pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script3 = 1 ElseIf (GUICtrlRead($Radio3neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script3 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #4 ; Location If (GUICtrlRead($Radio4pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script4 = 1 ElseIf (GUICtrlRead($Radio4neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script4 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #5 ; Cross Street If (GUICtrlRead($Radio5pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script5 = 1 ElseIf (GUICtrlRead($Radio5neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script5 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #6 ; Map Grid If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script6 = 1 ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script6 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #7 ; SS Tac Channel If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script7 = 1 ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script7 = 0 Else $sString &= "Unanswered|" EndIf ;; Question #8 ; Info Out of order If (GUICtrlRead($Radio6pos) = $GUI_CHECKED) Then $sString &= "1|" ;Get Score $Script8 = 1 ElseIf (GUICtrlRead($Radio6neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $Script8 = 0 Else $sString &= "Unanswered|" EndIf ;;Customerservice Section ;Question #1 If (GUICtrlRead($RadioCS1pos) = $GUI_CHECKED) Then $sString &= "100|" ;Get Score $CS1 = 100 ElseIf (GUICtrlRead($RadioCS1neut) = $GUI_CHECKED) Then $sString &= "50|" ;Get Score $CS1 = 50 ElseIf (GUICtrlRead($RadioCS1neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $CS1 = 0 Else $sString &= "Unanswered|" EndIf ;Question #2 If (GUICtrlRead($RadioCS2pos) = $GUI_CHECKED) Then $sString &= "100|" ;Get Score $CS2 = 100 ElseIf (GUICtrlRead($RadioCS2neut) = $GUI_CHECKED) Then $sString &= "50|" ;Get Score $CS2 = 50 ElseIf (GUICtrlRead($RadioCS2neg) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $CS2 = 0 Else $sString &= "Unanswered," EndIf ;Question #3 If (GUICtrlRead($RadioCS3pos) = $GUI_CHECKED) Then $sString &= "0|" ;Get Score $CS3 = 0 ElseIf (GUICtrlRead($RadioCS3neut) = $GUI_CHECKED) Then $sString &= "100|" ;Get Score $CS3 = 100 ;ElseIf (GUICtrlRead($RadioCS3neg) = $GUI_CHECKED) Then ;$sString &= "0|" ;Get Score ;$CS3 = 0 Else $sString &= "Unanswered|" EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; End Questions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Build Score ;; Script Score ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $ScriptScoreA = $Script1 + $Script2 + $Script3 + $Script4 + $Script5 + $Script6 + $Script7 + $Script8 $ScriptScoreb = $ScriptScoreA / 8 global $ScriptScore = $ScriptScoreb * 100 Global $ScriptScoreROUND = Round($ScriptScore) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Customer Sercive Score ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $CSScoreA = $CS1 + $CS2 + $CS3 $CSScoreB = $CSScoreA / 300 If $RadioCS3pos = 0 Then global $CSScore = 0 Else global $CSScore = $CSScoreB * 100 endif Global $CSScoreROUND = Round($CSScore) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Build Scores for CS, Script, and TOTAL overall score $TotalScoreA = $ScriptScore + $CSScore global $TotalScore = $TotalScoreA / 2 $sString &= $TotalScore & "|" $sString &= $CSScore & "|" $sString &= $ScriptScore & "|" $sString &= GUICtrlRead($NotesSUP) & "|" $sString &= GUICtrlRead($NotesAll) & "|" Global $NotesFORall = GUICtrlRead($NotesALL) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Develope the CSV File ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $hWnd_file = FileOpen(@ScriptDir & "\Test.csv", $FO_APPEND) FileWriteLine($hWnd_file, $sString & @CRLF) FileClose($hWnd_file) ConsoleWrite("This is the current state of the string>" & $sString & "<" & @CRLF) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CompleteFORM() EndFunc ;==>ExportInformation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Function Exit Button ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func TestExit() Exit EndFunc ;==>TestExit Func HelpBOX() ; MsgBox ($MB_Help, "HELP", "HELP!", 10) MsgBox($MB_HELP, "HELP", "HELP!!!!!!!!", 10) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Function: CompleteFORM() ;; Form 2: Ask For Email to user and Test Score ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func CompleteFORM() #include #include #include #include #include $Form2 = GUICreate("Dialog", 324, 238, 302, 218) GUISetIcon("D:\009.ico") $GroupBox1 = GUICtrlCreateGroup("", 0, 0, 321, 233) Global $EmailTO = GUICtrlCreateInput("Email", 8, 88, 241, 21) ;Email Address from User $Label2 = GUICtrlCreateLabel("Email results?", 8, 56, 111, 27) GUICtrlSetFont(-1, 14, 800, 0, "Arial Narrow") $EmailBUTTON = GUICtrlCreateButton("Email Now", 8, 120, 113, 33, $WS_GROUP) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Place score on 2nd box AND round it to neares whole number ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Global $TotalScoreROUND = Round($TotalScore) $Label3 = GUICtrlCreateLabel(($TotalScoreROUND & "%"), 128, 128, 183, 79) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUICtrlSetFont(-1, 48, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlCreateGroup("", -99, -99, 1, 1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; OK Button ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $BOX2Button1 = GUICtrlCreateButton("&OK", 8, 160, 75, 25, $WS_GROUP) $Label1 = GUICtrlCreateLabel("Submitted", 80, 8, 172, 45) GUICtrlSetFont(-1, 26, 800, 0, "Arial") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Form 2 Main process ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Case $BOX2Button1 TestExit() Case $EmailBUTTON SendEmail() EndSwitch WEnd EndFunc ;==>2ndGUI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Function: SendEmail() ;; Build and send email ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func SendEmail() $s_SmtpServer = "mail.sunstarems.com" $s_FromName = "kpride" $s_FromAddress = "kpride@sunstarems.com" ;$s_ToAddress = $Email $s_Subject = "Sunstar Emergency Communications Center" ;$SUBJECT = "Sunstar Emergency Communications Center" & @CRLF & "12490 Ulmerton Rd Largo, FL 33774" & @CRLF & "Department of Training" & @CRLF & @CRLF & @Name & "," & @CRLF & "Your scores for channels Q for the week of " & @Date & " are as follows" & @CRLF $NameEMP = GUICtrlRead($Name) $DateFLD = GUICtrlRead($Date) ;Body Of Email If $CSScoreROUND > 98 and $ScriptScoreROUND > 95 then Dim $as_Body[1]= ["Sunstar Emergency Communications Center" & @CRLF & "12490 Ulmerton Rd Largo, FL 33774" & @CRLF & "Department of Training" & @CRLF & @CRLF & $NameEMP & "," & @CRLF & "Your scores for channels Q for the week of " & $DateFLD & " are as follows" & @CRLF & " * " & $ScriptScoreROUND & "% in the Scripted process." & @CRLF & " * " & $CSScoreROUND & "% in customer service and or radio professionalism and etiquette." & @CRLF & " * With a total score of " & $TotalScoreROUND & "%" & @CRLF & @CRLF & "We would like to take this opportunity to congratulate on scoring performance. It is with this continued diligence to this evaluation process that we can maintain the highest standards of excellence in our communications center. We encourage you to seek out any member of the training team if you have any questions in regards to the scoring process. We would like to take this opportunity to remind you of the current script we are using at this time and ask that you continue to focus using this script in this order." & @CRLF & @CRLF & $Notesforall ] ElseIf $CSScoreROUND < 98 and $ScriptScoreROUND > 95 Then Dim $as_Body[1]= ["Sunstar Emergency Communications Center" & @CRLF & "12490 Ulmerton Rd Largo, FL 33774" & @CRLF & "Department of Training" & @CRLF & @CRLF & $NameEMP & "," & @CRLF & "Your scores for channels Q for the week of " & $DateFLD & " are as follows" & @CRLF & " * " & $ScriptScoreROUND & "% in the Scripted process." & @CRLF & " * " & $CSScoreROUND & "% in customer service and or radio professionalism and etiquette." & @CRLF & " * With a total score of " & $TotalScoreROUND & "%" & @CRLF & @CRLF & "We would like to take this opportunity to congratulate on scoring performance. It is with this continued diligence to this evaluation process that we can maintain the highest standards of excellence in our communications center. We encourage you to seek out any member of the training team if you have any questions in regards to the scoring process. We would like to take this opportunity to remind you of the current script we are using at this time and ask that you continue to focus using this script in this order." & @CRLF & @CRLF & $Notesforall ] ElseIf $CSScoreROUND > 98 and $ScriptScoreROUND < 95 Then Dim $as_Body[1]= ["Sunstar Emergency Communications Center" & @CRLF & "12490 Ulmerton Rd Largo, FL 33774" & @CRLF & "Department of Training" & @CRLF & @CRLF & $NameEMP & "," & @CRLF & "Your scores for channels Q for the week of " & $DateFLD & " are as follows" & @CRLF & " * " & $ScriptScoreROUND & "% in the Scripted process." & @CRLF & " * " & $CSScoreROUND & "% in customer service and or radio professionalism and etiquette." & @CRLF & " * With a total score of " & $TotalScoreROUND & "%" & @CRLF & @CRLF & "We would like to take this opportunity to congratulate on scoring performance. It is with this continued diligence to this evaluation process that we can maintain the highest standards of excellence in our communications center. We encourage you to seek out any member of the training team if you have any questions in regards to the scoring process. We would like to take this opportunity to remind you of the current script we are using at this time and ask that you continue to focus using this script in this order." & @CRLF & @CRLF & $Notesforall ] ElseIf $CSScoreROUND < 98 and $ScriptScoreROUND < 95 Then Dim $as_Body[1]= ["Sunstar Emergency Communications Center" & @CRLF & "12490 Ulmerton Rd Largo, FL 33774" & @CRLF & "Department of Training" & @CRLF & @CRLF & $NameEMP & "," & @CRLF & "Your scores for channels Q for the week of " & $DateFLD & " are as follows" & @CRLF & " * " & $ScriptScoreROUND & "% in the Scripted process." & @CRLF & " * " & $CSScoreROUND & "% in customer service and or radio professionalism and etiquette." & @CRLF & " * With a total score of " & $TotalScoreROUND & "%" & @CRLF & @CRLF & "We would like to take this opportunity to congratulate on scoring performance. It is with this continued diligence to this evaluation process that we can maintain the highest standards of excellence in our communications center. We encourage you to seek out any member of the training team if you have any questions in regards to the scoring process. We would like to take this opportunity to remind you of the current script we are using at this time and ask that you continue to focus using this script in this order." & @CRLF & @CRLF & $Notesforall ] EndIf $EmailToUser = GUICtrlRead($EmailTO) $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $EmailToUser, $s_Subject, $as_Body, "", "", "", -1, 1) $err = @error If $Response = 1 Then ; MsgBox(262144, "Success!", "Mail sent") Else ; MsgBox(262144, "Error!", "Mail failed with error code " & $err) EndIf EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; End Function: CompleteFORM() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;