Jump to content

EvAsion

Active Members
  • Posts

    126
  • Joined

  • Last visited

About EvAsion

  • Birthday 07/31/1991

EvAsion's Achievements

Adventurer

Adventurer (3/7)

0

Reputation

  1. Well, i can't take all the credit for it.. its an expanded version of a periodic table that was started by Dhillip89.I may consider releasing it publicly when i actually finish it.. i have some more ideas, and i haven't gathered all the data for every element yet.
  2. Checkout mine. Periodic_Table_1403upload.zip Just run Periodic Table.au3 and i actually create my own electron shell diagrams.. somewhere in that code, have a look.
  3. How can i determine the amplitude of whatever sounds are being played through my speakers? I need to be able to determine the amplitude of left, and the amplitude of the right.
  4. And you think its vac proof because.. you said? How do you know a memory write won't trigger? have you used it in a vac server.. and waited a few weeks to confirm its vac proof? i doubt it..
  5. I tried this a few months ago, but had the same problem as you with only the left side of the region working.. Thanks for finally figuring this out. http://www.autoitscript.com/forum/index.php?showtopic=72918 Maybe you could try and create a full dwm library. I'm quite interested in being able to use the thumbnail preview windows that you see when alt-tabbing for example.. see: DwmUpdateThumbnailProperties Function.
  6. If there was a memory address for x, y and z (of course there will be) and there is an address for horizontal rotation ranging from 89 to -89, and an address for vertical rotation ranging from 0 to 360. If not, you will have to adjust the trig..Edit: spelling
  7. If you can figure out how to add controls without creating new childs for each, tell me! Const $DWM_BB_ENABLE = 0x00000001 Const $DWM_BB_BLURREGION = 0x00000002 Const $DWM_BB_TRANSITIONONMAXIMIZED = 0x00000004 Const $DWM_EC_DISABLECOMPOSITION = 0x00000000 Const $DWM_EC_ENABLECOMPOSITION = 0x00000001 Const $DWM_TNP_RECTDESTINATION = 0x00000001 Const $DWM_TNP_RECTSOURCE = 0x00000002 Const $DWM_TNP_OPACITY = 0x00000004 Const $DWM_TNP_VISIBLE = 0x00000008 Const $DWM_TNP_SOURCECLIENTAREAONLY = 0x00000010 #include<guiconstants.au3> Global $DWMdll = Vista_DWMInitiate() ;Vista_SetComposition(0) ;msgbox(0,"","Status of vista desktop composition: "&Vista_GetComposition()) ;Vista_SetComposition(1) ;msgbox(0,"","Status of vista desktop composition: "&Vista_GetComposition()) $Colorization = Vista_GetColorization() $gui = GUICreate("DWM stuff",500,500) GUISetBkColor($Colorization[0]) GUISetState() GUICreate("CHILD",300,40,30,30,$WS_POPUP,$WS_EX_MDICHILD,$gui) GUISetBkColor($GUI_BKCOLOR_TRANSPARENT) $edit = GUICtrlCreateEdit("The background is the window colorization colour!",0,0,300,20) GUISetState() do $msg = GUIGetMsg() until $msg = $GUI_EVENT_CLOSE Vista_SetBlurBehind($gui, 1) GUICtrlSetData($edit,"This is with blur-behind enabled") do $msg = GUIGetMsg() until $msg = $GUI_EVENT_CLOSE Vista_SetBlurBehind($gui, 0) GUICtrlSetData($edit,"This is with blur-behind disabled") do $msg = GUIGetMsg() until $msg = $GUI_EVENT_CLOSE #cs Vista_SetBlurBehindRegion($gui, 1,0,0,50,25) GUICtrlSetData($edit,"This is with blur-behind region enabled (not functional)") do $msg = GUIGetMsg() until $msg = $GUI_EVENT_CLOSE $newgui = GUICreate("PREVIEW",0,0,100,100,$WS_POPUP) GUISetState() Vista_CreateThumbnail($newgui,$gui) do $msg = GUIGetMsg() until $msg = $GUI_EVENT_CLOSE #ce Func Vista_DWMInitiate() $dll = DllOpen("dwmapi.dll") return $dll EndFunc Func Vista_DWMEndSession() DllClose($DWMdll) EndFunc Func Vista_SetBlurBehind($hwnd,$on = 1) $Struct = DllStructCreate("dword;int;ptr;int") DllStructSetData($Struct,1,$DWM_BB_ENABLE) If $on = 1 Then DllStructSetData($Struct,2,"1") Else DllStructSetData($Struct,2,"0") EndIf DllStructSetData($Struct,3,"0") DllStructSetData($Struct,4,"1") $call = DllCall($DWMdll,"int","DwmEnableBlurBehindWindow","hwnd",$hWnd,"ptr",DllStructGetPtr($Struct)) EndFunc Func Vista_SetBlurBehindRegion($hwnd,$on = 1,$left = 0,$right = 0,$top = 0,$bottom = 0) #cs $RectStruct = DllStructCreate("int;int;int;int") DllStructSetData($RectStruct,1,$left) DllStructSetData($RectStruct,1,$top) DllStructSetData($RectStruct,1,$right) DllStructSetData($RectStruct,1,$bottom) $call = DllCall($DWMdll,"int","DwmExtendFrameIntoClientArea","hwnd",$hwnd,"ptr",DllStructGetPtr($RectStruct)) #ce $Struct = DllStructCreate("dword;int;ptr;int") DllStructSetData($Struct,1,BitOr($DWM_BB_ENABLE,$DWM_BB_BLURREGION)) If $on = 1 Then DllStructSetData($Struct,2,"1") Else DllStructSetData($Struct,2,"0") EndIf DllStructSetData($Struct,3,"int "&$left &";int "&$right& ";int "&$top& ";int "& $bottom) DllStructSetData($Struct,4,"1") $call = DllCall($DWMdll,"int","DwmEnableBlurBehindWindow","hwnd",$hWnd,"ptr",DllStructGetPtr($Struct)) EndFunc Func Vista_SetComposition($on = 0) If $on = 1 Then Dllcall($DWMdll,"int","DwmEnableComposition","uint",$DWM_EC_ENABLECOMPOSITION) Else Dllcall($DWMdll,"int","DwmEnableComposition","uint",$DWM_EC_DISABLECOMPOSITION) EndIf EndFunc Func Vista_GetComposition() $status = Dllcall($DWMdll,"int","DwmIsCompositionEnabled","int*","") return $status[1] EndFunc Func Vista_GetColorization() $Colorization = Dllcall($DWMdll,"int","DwmGetColorizationColor","dword*","0","int*","0") If @error Then SetError(@error) Return 0 EndIf Local $array[2] Local $colour = Hex($Colorization[1]) $array[0] = "0x"&StringTrimLeft($colour,2) $array[1] = "0x"&StringTrimRight($colour,6) Return $array EndFunc Func Vista_CreateThumbnail($destination,$source) $Rect1 = DllStructCreate("int;int;int;int") DllStructSetData($Rect1,1,0) DllStructSetData($Rect1,2,0) DllStructSetData($Rect1,3,500) DllStructSetData($Rect1,4,500) $Rect2 = DllStructCreate("int;int;int;int") DllStructSetData($Rect2,1,0) DllStructSetData($Rect2,2,0) DllStructSetData($Rect2,3,100) DllStructSetData($Rect2,4,100) $Struct = DllStructCreate("dword;ptr;ptr;byte;int;int") $Struct = DllStructCreate("dword;ptr;ptr;byte;int;int") DllStructSetData($Struct,1,BitOr($DWM_TNP_OPACITY,$DWM_TNP_RECTDESTINATION,$DWM_TNP_RECTSOURCE,$DWM_TNP_SOURCECLIENTAREAONLY,$DWM_TNP_VISIBLE)) DllStructSetData($Struct,2,DllStructGetPtr($rect1)) DllStructSetData($Struct,3,DllStructGetPtr($rect2)) DllStructSetData($Struct,4,"255") DllStructSetData($Struct,5,"1") DllStructSetData($Struct,6,"1") $create = Dllcall($DWMdll,"ptr","DwmRegisterThumbnail","hwnd",$destination,"hwnd",$source,"ptr*","") $update = Dllcall($DWMdll,"ptr","DwmUpdateThumbnailProperties","hwnd",$create[1],"prt",DllStructGetPtr($Struct)) EndFunc
  8. That was my original plan, but i realised that the MonthCal control isn't very dynamic. I'm going to try and develop my own calendar system where i can highlight dates, etc. etc.
  9. Yes, an incredible breakout from the periodic table indeed.
  10. it looks so complicated... why?!?
  11. Its a dynamic timetable! You can modify classes, class times, guisize, colours, its all easy - and it will allways look sexy! Timetable.au3 #include <GUIConstants.au3> #include <Array.au3> #include <_ControlHover.au3> #include <GuiDateTimePicker.au3> #include <GuiReBar.au3> #include <GuiConstantsEx.au3> #include <GuiToolbar.au3> #include <GuiToolTip.au3> #Include <GuiImageList.au3> $guiheight = 525 $guiwidth = 707 $day = @WDAY dim $weekarray[8] dim $max[8] dim $min[8] dim $most[8] Dim $daycontrol[8] $weekarray[1] = "Sunday" $weekarray[2] = "Monday" $weekarray[3] = "Tuesday" $weekarray[4] = "Wednesday" $weekarray[5] = "Thursday" $weekarray[6] = "Friday" $weekarray[7] = "Saturday" $change = 0 For $i = 2 to 6 $Split = StringSplit(IniRead("Classes.ini",$weekarray[$i],"Time",""),",") ;_ArrayDisplay($Split) $min[$i] = _ArrayMin($Split,1,1) ;msgbox(0,"",$min[$i]) $max[$i] = _ArrayMax($Split,1,1) $most[$i] = $Split[0] Next For $i = 1 to UBound($min) - 1 If $min[$i] = "" Then $min[$i] = 9999 Next $EarliestStart = _ArrayMin($min,1,1) $LatestFinish = _ArrayMax($max,1) $MaxLines = _ArrayMax($most,1) Dim $ClassSplit[100] Dim $Ctrl[100][100] ;msgbox(0,"","Early: "&$EarliestStart & " Late:" & $LatestFinish & @CRLF & $MaxLines) $AForm1 = GUICreate("Class Timetable - Today is "&$weekarray[$day] &", "&@MDAY&"/"&@MON&"/"&@YEAR, $guiwidth, $guiheight, -1, -1,-1) $spacing = ((707-28)/5)-(1*5) For $d = 2 to 6 $Split = StringSplit(IniRead("Classes.ini",$weekarray[$d],"Time",""),",") $ClassSplit = StringSplit(IniRead("Classes.ini",$weekarray[$d],"Order",""),",") Dim $split2[$Split[0] + 1] ;_ArrayDisplay($split) For $i = 1 to $MaxLines If $i = ($split[0]) then ExitLoop $Conversion = StringSplit($split[$i],".") ;_ArrayDisplay($Conversion) $convertedtime = ($Conversion[2]/60)*100 ;msgbox(0,"",$split[$i] & " "&$convertedtime) ;msgbox(0,"",$split[$i] & " "&($Conversion[1]&"."&Round($convertedtime,0))) $split2[$i] = $Conversion[1]&"."&StringReplace($convertedtime,".","") $Conversion = StringSplit($split[$i+1],".") ;_ArrayDisplay($Conversion) $convertedtime = ($Conversion[2]/60)*100 ;msgbox(0,"",$split[$i] & " "&$convertedtime) ;msgbox(0,"",$split[$i] & " "&($Conversion[1]&"."&Round($convertedtime,0))) $split2[$i+1] = $Conversion[1]&"."&StringReplace($convertedtime,".","") $y = Gen_Abs_Pix_y($split2[$i],$LatestFinish,$EarliestStart,$guiheight-45) $y2 = Gen_Abs_Pix_y($split2[($i+1)],$LatestFinish,$EarliestStart,$guiheight-45) $classheight = $y2 - $y ;msgbox(0,"",$classheight) ;$y3 = Gen_Abs_Pix_y($classheight,$LatestFinish,$EarliestStart,$guiheight-10) ;msgbox(0,"",$y & " " & $y2 & @CRLF & $classheight & @CRLF & $y3) ;_ArrayDisplay($split) ;GUICtrlCreateGraphic(($spacing*$d)-($spacing*2)+(3*$d),$y,$spacing, $classheight) ;If $i <> ($split[0]) Then ;msgbox(0,"",$i) $Classlabel = $ClassSplit[$i] $Classname = IniRead("Classes.ini","Class"&$Classlabel,"Name",$Classlabel) $colour = IniRead("Classes.ini","Class"&$Classlabel,"Colour","0xFFFFFF") $textcolour = IniRead("Classes.ini","Class"&$Classlabel,"TextCol","0x000000") $daycontrol[$d] = GUICtrlCreateLabel($weekarray[$d],($spacing*$d)-($spacing*2)+(3*$d)+48,32,$spacing-40,18,BitOR($SS_CENTER,$WS_BORDER)) If $d = $day Then GUICtrlSetBkColor(-1,0xFFDEAD) GUICtrlCreateLabel($split[$i],0,$y-5+40,28,12) $Ctrl[$i][$d] = GUICtrlCreateLabel($Classname,($spacing*$d)-($spacing*2)+(3*$d)+28,$y+40,$spacing, $classheight,BitOR($SS_CENTER,$WS_BORDER)) _ControlHover (2, "", $Ctrl[$i][$d]) ;Execute("$Ctrli"&$i&"d"&$d&" = GUICtrlCreateLabel($Classname,($spacing*$d)-($spacing*2)+(3*$d)+28,$y,$spacing, $classheight,BitOR($SS_CENTER,$WS_BORDER))") ;Execute("_ControlHover (2, "", $Ctrli"&$i&"d"&$d) GUICtrlSetFont(-1, 9, 800, 0, "Arial") GUICtrlSetColor(-1, $textcolour) GUICtrlSetBkColor(-1, $colour) ;GUICtrlSetBkColor(-1, 0xA0FFA0) GUISetState() Next Next $GUI = GUICreate("AForm1", 241, 98, -1, -1, BitOR($WS_POPUPWINDOW, $WS_SYSMENU), -1, $AForm1) GUISetBkColor(0xFFFFDD) GUICtrlCreateGraphic(0, 0, 241, 29) GUICtrlSetColor(-1, 0x000000) GUICtrlSetBkColor(-1, 0x000000) $WTITLE = GUICtrlCreateLabel("WTITLE", 8, 5, 226, 18) GUICtrlSetFont(-1, 11, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlSetResizing (-1,$GUI_DOCKLEFT+$GUI_DOCKTOP) $WDATA = GUICtrlCreateEdit("", 1, 29, 238, 194, BitOR($ES_READONLY, $ES_WANTRETURN), 0) GUICtrlSetBkColor(-1, 0xFFFFDD) GUICtrlSetResizing (-1,$GUI_DOCKLEFT+$GUI_DOCKTOP) ;GUISetState(@SW_SHOW) WinSetTrans($GUI, "", 242) GUISetState(@SW_HIDE, $GUI) Global $LastPos[2] = [0, 0] #cs ; create the rebar control $hReBar = _GUICtrlReBar_Create($AForm1, BitOR($WS_BORDER, $RBS_AUTOSIZE, $RBS_BANDBORDERS)) ; create a date time picker to put in the rebar $hDTP = _GUICtrlDTP_Create($AForm1, 0, 0, 120) ; add band with date time picker ;_GUICtrlReBar_AddBand($hReBar, $hDTP, 120) Dim Enum $id1 = 1000, $id2 $hGUI = GUICreate("Toolbar", 400, 300) $hToolbar = _GUICtrlToolbar_Create($hGUI, BitOR($WS_BORDER, $RBS_AUTOSIZE, $RBS_BANDBORDERS),$TBSTYLE_EX_DRAWDDARROWS) $hImage = _GUIImageList_Create(16, 16, 5, 3) ;$hToolTip = _GUIToolTip_Create($hToolbar, $TTS_ALWAYSTIP) ;_GUICtrlToolbar_SetToolTips($hToolbar, $hToolTip) _GUIImageList_AddIcon($hImage,"PeriodicTable.ico") ;_GUIImageList_AddIcon($hImage, @AutoItExe, 0) _GUIImageList_AddIcon($hImage, @AutoItExe, 1) _GUICtrlToolbar_SetImageList($hToolbar, $hImage) ;$String1 = _GUICtrlToolbar_AddString($hToolbar, "Periodic Table") ;$String2 = _GUICtrlToolbar_AddString($hToolbar, "Close") $button = _GUICtrlToolbar_AddButton($hToolbar, $id1, 0);,$String1) _GUICtrlToolbar_AddButton($hToolbar, $id2, 1) ;_GUICtrlToolbar_AddButtonSep($hToolbar, 6) ;_GUICtrlToolbar_SetStyleFlat($hToolBar, True) _GUICtrlReBar_AddToolBarBand($hReBar, $hToolbar, "", 0) _GUICtrlRebar_SetBandStyleBreak($hReBar, 1) ;_GUICtrlReBar_AddBand($hReBar, $button) _GUICtrlReBar_AddBand($hReBar, $hDTP,120,Default,"",-1) #ce While 1 $MousePos = MouseGetPos() $Over = _ControlHover (0, $AForm1) If $Over = 1 Then $tempID = @extended ;d = 2 to 6 i = 1 to 20 If $tempID = 0 Then ;$tima = TimerInit() ;If $tima <> -1 and TimerDiff($tima) > 200 Then GUISetState(@SW_HIDE, $GUI) ;EndIf ElseIf $tempID = $Ctrl[1][2] Then $tima = -1 _SetData(1,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[2][2] Then _SetData(2,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[3][2] Then _SetData(3,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[4][2] Then _SetData(4,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[5][2] Then _SetData(5,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[6][2] Then _SetData(6,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[7][2] Then _SetData(7,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[8][2] Then _SetData(8,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[9][2] Then _SetData(9,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[10][2] Then _SetData(10,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[11][2] Then _SetData(11,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[12][2] Then _SetData(12,2) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[1][3] Then _SetData(1,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[2][3] Then _SetData(2,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[3][3] Then _SetData(3,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[4][3] Then _SetData(4,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[5][3] Then _SetData(5,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[6][3] Then _SetData(6,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[7][3] Then _SetData(7,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[8][3] Then _SetData(8,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[9][3] Then _SetData(9,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[10][3] Then _SetData(10,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[11][3] Then _SetData(11,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[12][3] Then _SetData(12,3) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[1][4] Then _SetData(1,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[2][4] Then _SetData(2,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[3][4] Then _SetData(3,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[4][4] Then _SetData(4,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[5][4] Then _SetData(5,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[6][4] Then _SetData(6,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[7][4] Then _SetData(7,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[8][4] Then _SetData(8,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[9][4] Then _SetData(9,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[10][4] Then _SetData(10,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[11][4] Then _SetData(11,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[12][4] Then _SetData(12,4) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[1][5] Then _SetData(1,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[2][5] Then _SetData(2,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[3][5] Then _SetData(3,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[4][5] Then _SetData(4,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[5][5] Then _SetData(5,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[6][5] Then _SetData(6,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[7][5] Then _SetData(7,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[8][5] Then _SetData(8,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[9][5] Then _SetData(9,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[10][5] Then _SetData(10,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[11][5] Then _SetData(11,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[12][5] Then _SetData(12,5) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[1][6] Then _SetData(1,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[2][6] Then _SetData(2,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[3][6] Then _SetData(3,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[4][6] Then _SetData(4,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[5][6] Then _SetData(5,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[6][6] Then _SetData(6,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[7][6] Then _SetData(7,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[8][6] Then _SetData(8,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[9][6] Then _SetData(9,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[10][6] Then _SetData(10,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[11][6] Then _SetData(11,6) GUISetState(@SW_SHOWNA, $GUI) ElseIf $tempID = $Ctrl[12][6] Then _SetData(12,6) GUISetState(@SW_SHOWNA, $GUI) Else GUISetState(@SW_HIDE, $GUI) EndIf EndIf If ($LastPos[0] <> $MousePos[0] Or $LastPos[1] <> $MousePos[1]) Then WinMove($GUI, "", $MousePos[0] + 15, $MousePos[1] + 15) $LastPos[0] = $MousePos[0] $LastPos[1] = $MousePos[1] ;Sleep(10) EndIf $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exitloop EndSelect WEnd Func _SetData($i,$d) ;Global $tima = -1 $Split = StringSplit(IniRead("Classes.ini",$weekarray[$d],"Time",""),",") $ClassSplit = StringSplit(IniRead("Classes.ini",$weekarray[$d],"Order",""),",") If $i <= $ClassSplit[0] Then $Classlabel = $ClassSplit[$i] $Classname = IniRead("Classes.ini","Class"&$Classlabel,"Name",$Classlabel) ;If $change = 0 Then WinMove($Gui,"",Default,Default,241,98) GUICtrlSetData($WTITLE, $Classname) GUICtrlSetData($WDATA, "Teacher: "&IniRead("Classes.ini","Class"&$Classlabel,"Teacher","")&@CRLF&"Description: "&IniRead("Classes.ini","Class"&$Classlabel,"Description","")) EndIf EndFunc ;==>_SetElementData func Gen_Abs_Pix_x($x,$low,$high,$width) $out = (($width/($high-$low))*(($high-$low)*(($x-$low)/($high-$low)))) Return $out EndFunc func Gen_Abs_Pix_y($y,$low,$high,$height) $out = ($height - (($height/($high-$low))*(($high-$low)*(($y-$low)/($high-$low))))) Return $out EndFunc #cs Func AddLink($path,$icon) ;Allow for custom links (internet explorer, whatever) definable in ini EndFunc #ceIni file(Classes.ini): [Monday] Time=8.40,9.25,10.10,10.55,11.15,12.00,12.15,13.00,13.40,14.25,15.10,17.00 Order=A,B,C,Recess,D,SG,E,Lunch,F,G,Executive Cool Time [Tuesday] Time=8.40,9.40,10.40,11.00,12.00,13.00,13.40,14.40,15.40,17.00 Order=F,D,Recess,C,B,Lunch,G,E,Staff Meeting Time [Wednesday] Time=8.40,9.40,10.40,11.00,12.00,13.00,13.40,14.40,15.40 Order=B,F,Recess,D,G,Lunch,C,A [Thursday] Time=8.40,9.40,10.40,11.00,12.00,13.00,13.40,15.40 Order=G,E,Recess,A,D,Lunch,H [Friday] Time=8.40,9.40,10.40,11.00,12.00,13.00,13.40,14.40,15.40 Order=C,A,Recess,E,F,Lunch,B,Staff Admin Time [ClassA] Colour=0xC0FFFF Name = Mega Maths 1 Teacher = Mr Rofl Assessment = RandomOral,12/7/08;Test,31/7/08 Description = Mega Maths 1, T package Double Majoring [ClassB] Colour=0xEEEEEE Teacher = Name = Free Line [ClassC] Colour=0xFF6666 Name = Intro English Teacher = Ms Lawl Description = Minoring, cause i suck at english [ClassD] Colour=0xA0FFA0 Name = Introductory Chemistry Teacher = Mr Science Nerd Description = Topping, cause i own [ClassE] Colour=0xFFBFFF Name = Mega Maths 5 Teacher = Mr Maths Description = Mega Maths 5, T package Double Majorin [ClassF] Colour=0xFFFF99 Name = Cad Teacher = Ms Doughy Description = 2.7 z score in test, i win. [ClassG] Colour=0xFF99CC Name = Intro Physics Teacher = Mr Optics Description = 2nd, fail train. [ClassH] Colour=0xEEEEEE Name = Free Line Teacher = Description = [ClassExecutive Cool Time] Colour=0xFFFFFF Name = Executive Cool Time [ClassStaff Meeting Time] Colour=0xFFFFFF Name = Staff Meeting Time [ClassStaff Admin Time] Colour=0xFFFFFF Name = Staff Admin Time [ClassRecess] Colour=0x000000 TextCol=0xFFFFFF Name = Recess [ClassLunch] Colour=0x000000 TextCol=0xFFFFFF Name = Lunch Screenshot:
  12. I'm not saying yours is bad, infact yours seems to be much faster than the original, athough the original had a lot more features including only using user defined sets of characters, only certain shades of colours.. etc. etc. (this was 1+years ago btw)
  13. one of these has been made in autoit before.
×
×
  • Create New...