[Ocena] Ocena pierwszego kodu

[Kociol]

Witam !!

Dziś daję mój pierwszy kod w autoit do krytyki

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\pc\pulpit\au3\form1.kxf
$Form1_1 = GUICreate("Manager Kociol v1.0", 412, 214, 320, 174)
GUISetBkColor(0x0054E3)
$Button1 = GUICtrlCreateButton("Internet", 32, 8, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button2 = GUICtrlCreateButton("Praca Domowa", 152, 8, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button3 = GUICtrlCreateButton("Muzyka", 272, 8, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button4 = GUICtrlCreateButton("Ściąga", 32, 72, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button5 = GUICtrlCreateButton("Facebook", 152, 72, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button6 = GUICtrlCreateButton("Mpcforum", 272, 72, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button7 = GUICtrlCreateButton("Przypominajka", 32, 136, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button8 = GUICtrlCreateButton("Puste", 152, 136, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button9 = GUICtrlCreateButton("Puste", 272, 136, 105, 41)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Button10 = GUICtrlCreateButton("Wyłącz Komputer", 128, 184, 153, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		MsgBox (64, "Wyłączanie !!", "Trwa wyłączanie programu !!")
		Sleep ("65")
		Exit
	Case $Button1
		ShellExecute("http://www.google.pl/")
	Case $Button2
		ShellExecute("http://www.zapytaj.com.pl/")
	Case $Button3
		ShellExecute("http://www.youtube.com/")
	Case $Button4
		ShellExecute("http://www.sciaga.pl/")
	Case $Button5
		ShellExecute("http://www.facebook.com/")
	Case $Button6
		ShellExecute("http://www.mpcforum.pl/")
	Case $Button7
		MsgBox ( 16, "Biologia !", "Czas na biologię !!")
	Case $Button8
		MsgBox (0, "Puste", "Puste Pole !!")
	Case $Button9
		MsgBox (0, "Puste", "Puste Pole !!")
	Case $Button10
		MsgBox (64, "Wyłączanie !!", "Trwa wyłączanie komputera !!")
		Sleep ("65")
		shutdown(5)
EndSwitch
WEnd

[jackraymund]

no powiem ci tak że nic ciekawego, 2 funkcje a tak to z kody gui

[Kociol]

A możesz powiedzieć mi jak ogarnąć ten programik żeby nie zżerał 30% procka ??

[Sopelek997]

dodać sleepa

[C.J]

Sleep ("65")

 

Po co to? 0.065 sekundy czeka...lol

 

Poza tym nic ciekawego.

[CisPK]

Zwykły kod, ale próbuj dalej w końcu AutoIT jest jednym z łatwiejszych języków i w końcu będziesz programował w nim coraz lepiej.

[M4niak]

Pod button 8 i 9, czyli puste pola, mógłbyś wstawić programowalne funkcje

Czyli naciskam button8, i pyta, czy utworzyć nowy skrót =D