Help with an if then statement

[Pwsmooth1]

I'm trying to make this label change color when a ping is returned. I put in the button to test if the ping is working and i know that it is. So if anyone could help that would be awesome.

expandcollapse popup

; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Paul\Desktop\My Programs\IP hospital tool\koda form\ip hospital tool.kxf
Global $PingTime = Ping("www.google.com",250)
$Form1 = GUICreate("Form1", 212, 126, 347, 170)
$Button1 = GUICtrlCreateButton("Button1", 32, 8, 145, 33)
$Input1 = GUICtrlCreateInput("", 8, 48, 193, 21)
Global $Label1 = GUICtrlCreateLabel("", 0, 77, 212, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            Exit
         case $Button1
            button1()
         case $input1
            input1()
         case $label1
            label1()
    EndSwitch
 WEnd

Func label1()
    if $pingtime then
       GUICtrlSetBkColor($label1, $color_green)
    Else
       GUICtrlSetBkColor($label1, $color_red)
    EndIf
 EndFunc

func button1()
    msgbox(0, "test", $pingtime)
EndFunc

[SmOke_N]

Ping only works when you call it.

You only call it once.

Your condition statement is merely looking to see if ping succeeded the first time, so the color will never change.

The label function, is only ever activated if you click on the label.

expandcollapse popup

; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Paul\Desktop\My Programs\IP hospital tool\koda form\ip hospital tool.kxf
; register a checking function
AdlibRegister("label1", 10000); every 10 seconds check

Global $PingTime = Ping("www.google.com",250)
$Form1 = GUICreate("Form1", 212, 126, 347, 170)
$Button1 = GUICtrlCreateButton("Button1", 32, 8, 145, 33)
$Input1 = GUICtrlCreateInput("", 8, 48, 193, 21)
Global $Label1 = GUICtrlCreateLabel("", 0, 77, 212, 49)
GUISetState(@SW_SHOW)
; initiate first call to ping
label1()
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            Exit
         case $Button1
            button1()
         case $input1
;~             input1()
;~          case $label1
;~             label1()
    EndSwitch
 WEnd

Func label1()
    $pingtime = Ping("www.google.com",250)
    if $pingtime then
       GUICtrlSetBkColor($label1, $color_green)
    Else
       GUICtrlSetBkColor($label1, $color_red)
    EndIf
 EndFunc

func button1()
    msgbox(0, "test", $pingtime)
EndFunc