Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

uruchamianie skryptu o danej godzinie


RKR

Rekomendowane odpowiedzi

Pasjonat
Opublikowano

mam coś takiego i to tylko o 7 a ja chce o 7,8,9 itp

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 295, 163, 192, 124)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Start", 24, 8, 241, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x008000)
$Button2 = GUICtrlCreateButton("Exit", 24, 72, 241, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("By_RKR", 232, 136, 45, 17)
GUICtrlSetBkColor(-1, 0x696969)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit

  func START()

Do
  Sleep(30000)		  
  $m=@MIN
  $h=@HOUR		  
Until   $h = And   $m = 55
while 1
beep(1500,100)
sleep(100)
beep(1500,100)
sleep(100)
beep(1500,100)
sleep(100)
beep(1500,100)
sleep(300)
EndSwitch
WEnd

rkrszgna.jpg

Pasjonat
Opublikowano

pisze mi gdy uruchamiam

"while" STATEMENT HAS NO MATCHING "WEND" STATEMENT

 

KOD

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 295, 163, 192, 124)

GUISetBkColor(0x000000)

$Button1 = GUICtrlCreateButton("Start", 24, 8, 241, 49, $WS_GROUP)

GUICtrlSetBkColor(-1, 0x008000)

$Button2 = GUICtrlCreateButton("Exit", 24, 72, 241, 49, $WS_GROUP)

GUICtrlSetBkColor(-1, 0xFF0000)

$Label1 = GUICtrlCreateLabel("By_RKR", 232, 136, 45, 17)

GUICtrlSetBkColor(-1, 0x696969)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

endswitch

func Start()

Do

Sleep(30000)

$m=@MIN

$h=@HOUR

Until $h = 23 or $h = 1 or $h = 3 or $h = 5 or $h = 7 or $h = 9 or $h = 10 or $h = 11 or $h = 13 or $h = 14 or $h = 15 or $h = 17 or $h = 18 or $h = 19 or $h = 21 or $h = 22 And $m = 55

while 1

beep(1500,100)

sleep(100)

beep(1500,100)

sleep(100)

beep(1500,100)

sleep(100)

beep(1500,100)

sleep(300)

wend

rkrszgna.jpg

Opublikowano
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 295, 163, 192, 124)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Start", 24, 8, 241, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x008000)
$Button2 = GUICtrlCreateButton("Exit", 24, 72, 241, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("By_RKR", 232, 136, 45, 17)
GUICtrlSetBkColor(-1, 0x696969)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
EndSwitch
WEnd
Func Start()
Do
 Sleep(30000)
 $m = @MIN
 $h = @HOUR
Until $h = 23 Or $h = 1 Or $h = 3 Or $h = 5 Or $h = 7 Or $h = 9 Or $h = 10 Or $h = 11 Or $h = 13 Or $h = 14 Or $h = 15 Or $h = 17 Or $h = 18 Or $h = 19 Or $h = 21 Or $h = 22 And $m = 55
While 1
 Beep(1500, 100)
 Sleep(100)
 Beep(1500, 100)
 Sleep(100)
 Beep(1500, 100)
 Sleep(100)
 Beep(1500, 100)
 Sleep(300)
WEnd
EndFunc

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...