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

Rekomendowane odpowiedzi

Opublikowano

Mam mały problem z rozsuwanym menu i "timeru" gdy ustawiam sekundy minuty lub godziny i tak odlicza mi wg wzoru minut

Naprawdę niewiem czemu ,bardzo prosze o pomoc .Podaje source:

 

 

 

; Script Start - Add your code below here

#include <GuiConstantsEx.au3>

HotKeySet("{End}","stop")

$GUI_Tytul = "Shutdown'er by adwi32"

$sekund = "sekund"

$odlicznie = 0

$szerokosc_gui=360

$godzin = "godzin"

$wysokosc_gui=175

$przycisk_start_wys=55

$przycisk_start_szer=85

$gui=GUICreate($GUI_Tytul,$szerokosc_gui,$wysokosc_gui)

$pole_text = GUICtrlCreateInput("",20,40,200,23,0x2000)

GUICtrlCreateLabel("Tu wpisz czas za po jakim twój komputer ma się wyłączyć (w minutach)",15,20)

$czas =GUICtrlCreateCombo("minut",225,42,80,20)

GUICtrlSetData(-1,$godzin)

GUICtrlSetData(-1,$sekund)

$przycisk_start = GUICtrlCreateButton("Start!",250,70,$przycisk_start_szer,$przycisk_start_wys)

GUISetState(@SW_SHOW)

GUICtrlSetTip($przycisk_start, "Kliknij by uruchomic odliczanie")

$czas1 = GUICtrlRead($czas)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $przycisk_start

If $czas1 = "minut" Then

$odlicznie = 60000

EndIf

If $czas1 = "godzin" Then

$odlicznie = 3600000

EndIf

If $czas1 = "sekund" Then

$odliczanie = 1000

EndIf

$licznik = GUICtrlRead($pole_text)

 

While $licznik >0

GUIDelete()

ToolTip("Wyłaczę komputer za:" &$licznik,0,0,$GUI_Tytul,1)

Sleep($odlicznie)

$licznik = $licznik- 1

WEnd

ToolTip("")

MsgBox(1,"Test","test ok")

Exit

 

 

EndSelect

WEnd

Func stop ()

Exit

EndFunc

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

Opublikowano

chodzi ci o to że nie oblicza bo nie zrozumiałem cie

jeżeli nie oblicza to zrób tak

[code; Script Start - Add your code below here

#include <GuiConstantsEx.au3>

 

HotKeySet("{End}","stop")

 

$GUI_Tytul = "Shutdown'er by adwi32"

$odlicznie = 0

$szerokosc_gui=360

$wysokosc_gui=175

$przycisk_start_wys=55

$przycisk_start_szer=85

$gui=GUICreate($GUI_Tytul,$szerokosc_gui,$wysokosc_gui)

$pole_text = GUICtrlCreateInput("",20,40,200,23,0x2000)

GUICtrlCreateLabel("Tu wpisz czas za po jakim twój komputer ma się wyłączyć (w minutach)",15,20)

$czas =GUICtrlCreateCombo("minut",225,42,80,20)

GUICtrlSetData(-1,"godzin")

GUICtrlSetData(-1,"sekund")

$przycisk_start = GUICtrlCreateButton("Start!",250,70,$przycisk_start_szer,$przycisk_start_wys)

GUISetState(@SW_SHOW)

GUICtrlSetTip($przycisk_start, "Kliknij by uruchomic odliczanie")

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $przycisk_start

$czas1 = GUICtrlRead($czas)

If $czas1 = "minut" Then

$odlicznie = 60000

EndIf

If $czas1 = "godzin" Then

$odlicznie = 3600000

EndIf

If $czas1 = "sekund" Then

$odliczanie = 1000

EndIf

$licznik = GUICtrlRead($pole_text)

 

While $licznik >0

do

GUIDelete()

ToolTip("Wyłaczę komputer za:" &$licznik ,0,0,$GUI_Tytul,1)

Sleep($odlicznie)

$licznik = $licznik- 1

Until $licznik = 0

MsgBox(1,"Test","test ok")

WEnd

Exit

 

 

EndSelect

WEnd

Func stop ()

Exit

EndFunc [/code]

@edytowałem skrypt

Opublikowano

Teraz dobrze oblicza mi tylko minuty i godziny , sekundy lecą z "prędkością światła" cokolwiek bym nie wpisał to i tak od razu pojawia się MsgBox

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

Opublikowano

Dzięki za pomoc choć niestety, tego już nie mogę nazwać moim skryptem, ale trochę się nauczyłem.

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
×
×
  • Dodaj nową pozycję...