billthecreator Posted December 15, 2009 Share Posted December 15, 2009 (edited) I stumbled on this website and thought: "wow, i want that!" But since it's $1300, i thought i just make a program of it.Its a clock shown in text. Real fun!BRAND NEW!!!Supports five languages English Deutsch Nederlands Français SvenskaSwitch color and language in the tray menu.The zip includes a png of a shine effect. just add the png to the scriptdir.Thanks for the comments, and downloads.QLOCKTWO.zipPrevious Downloads: 191 Edited December 29, 2009 by billthecreator [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap Link to comment Share on other sites More sharing options...
Minikori Posted December 15, 2009 Share Posted December 15, 2009 Bitchin! Only thing to work on is the rounding (it's 8:59 here and it said 5 to nine rather than nine o clock). But other than that tiny thing it's perfect! For those who are asking questions, look in the help file first. I'm tired of people asking stupid questions about how to do things when 10 seconds in the help file could solve their problem.[quote name='JRowe' date='24 January 2010 - 05:58 PM' timestamp='1264381100' post='766337'][quote name='beerman' date='24 January 2010 - 03:28 PM' timestamp='1264372082' post='766300']They already have a punishment system for abuse.[/quote]... and his his name is Valik.[/quote]www.minikori.com Link to comment Share on other sites More sharing options...
billthecreator Posted December 15, 2009 Author Share Posted December 15, 2009 well the thing is... on the actual clock, there are 4 dots on each corner. the top left is 1 plus the time, then top right is 2, and same all around. just didn't include them yet. just testing the time part. will include next update. thanks for the comment though [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap Link to comment Share on other sites More sharing options...
UEZ Posted December 15, 2009 Share Posted December 15, 2009 Looks nice! I set $Text_Color_Dark = 0x303030 to see the dark text better. Thanks, UEZ Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ Link to comment Share on other sites More sharing options...
AlmarM Posted December 15, 2009 Share Posted December 15, 2009 (edited) Looks promising! Edited December 15, 2009 by AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
nend Posted December 16, 2009 Share Posted December 16, 2009 Looks great. Just an idea: Maybe you can make it to a image with gdi+ and use it as a wallpaper witch switch every minute. Link to comment Share on other sites More sharing options...
BennyBB Posted December 16, 2009 Share Posted December 16, 2009 Hey, nice script For those who want a German one: Here it is: expandcollapse popup#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> ; Opt("TrayMenuMode", 1) ;Global Const $Text_en = "ITLISASTIMEACQUARTERDCTWENTYFIVEXHALFBTENFTOPASTERUNINE" & _ ; "ONESIXTHREEFOURFIVETWOEIGHTELEVENSEVENTWELVETENSEOCLOCK" Global Const $Text_ger = "ESKISTAFÜNFZEHNBYGVORGNACHVIERTELHALBVORNACHEINSLMEZWEI" & _ "DREIAUJVIERFÜNFTOSECHSSIEBENLACHTNEUNZEHNELFZWÖLFUNKUHR" Global $Char_Text[111] Global $Char_Text_Remain[5], $Color_Chooser[6] Global $Text_en_Split = StringSplit($Text_ger, "") Global $Hour_Min = @HOUR & @MIN Global $Text_Min_Highlight[12][2] = _ [["00", "1|2|4|5|6|108|109|110"], _ ["05", "1|2|4|5|6|8|9|10|11|23|24|25|26"], _ ["10", "1|2|4|5|6|12|13|14|15|23|24|25|26"], _ ["15", "1|2|4|5|6|27|28|29|30|31|32|33|41|42|43|44"], _ ["20", "1|2|4|5|6|12|13|14|15|19|20|21|34|35|36|37"], _ ["25", "1|2|4|5|6|8|9|10|11|19|20|21|34|35|36|37"], _ ["30", "1|2|4|5|6|34|35|36|37"], _ ["35", "1|2|4|5|6|8|9|10|11|23|24|25|26|34|35|36|37"], _ ["40", "1|2|4|5|6|12|13|14|15|23|24|25|26|34|35|36|37"], _ ["45", "1|2|4|5|6|27|28|29|30|31|32|33|38|39|40"], _ ["50", "1|2|4|5|6|12|13|14|15|19|20|21"], _ ["55", "1|2|4|5|6|8|9|10|11|19|20|21"]] Global $Text_Hour_Highlight[12][2] = _ [["01", "45|46|47|48"], _ ["02", "52|53|54|55"], _ ["03", "56|57|58|59"], _ ["04", "63|64|65|66"], _ ["05", "67|68|69|70"], _ ["06", "73|74|75|76|77"], _ ["07", "78|79|80|81|82|83"], _ ["08", "85|86|87|88"], _ ["09", "89|90|91|92"], _ ["10", "93|94|95|96"], _ ["11", "97|98|99"], _ ["12", "100|101|102|103|104"]] Global $Color_Themes[5][3] = _ [["Black Ice Tea", 0x000000, 0x303030], _ ["Cherry Cake", 0xDC0817, 0xB80713], _ ["Vanilla Sugar", 0xC4C3C1, 0xA2A1A0], _ ["Frozen Blackberry", 0x503082, 0x6A4F93], _ ["Lime Juice", 0xA8AF0A, 0x8C9107]] $Selected_Theme = IniRead(@TempDir & "/QLOCKTWOSettings.ini", "Theme", "Selected", 0) Global $Text_Color_Dark = $Color_Themes[$Selected_Theme][2] Global $Text_Color_Lit = 0xFFFFFF Global $Form_BK_Color = $Color_Themes[$Selected_Theme][1] Global $Combo_Add #Region ### START Koda GUI section ### Form= $size = 20 $QclockTwoForm = GUICreate("QLOCK TWO", (13 * $size), (12 * $size), -1, -1) GUISetBkColor($Form_BK_Color) $k = 1 For $i = 1 To 10 For $j = 1 To 11 $Char_Text[$k] = GUICtrlCreateLabel($Text_en_Split[$k], $size * $j, $size * $i, 20, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $k += 1 Next Next For $r = 1 To 5 Step 1 $Color_Chooser[$r] = TrayCreateItem($Color_Themes[$r - 1][0]) Next TrayCreateItem("") $beenden = TrayCreateItem("Beenden") $pluszeichen = GUICtrlCreateLabel("+", $size * 2, $size * 11, 20, 20, $SS_CENTER) $r = 1 For $w = 3 To 6 Step 1 $Char_Text_Remain[$r] = GUICtrlCreateLabel($r, $size * $w, $size * 11, 20, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $r += 1 Next Dim $Min[3] = [GUICtrlCreateLabel("M", $size * 8, $size * 11, 20, 20, $SS_CENTER), _ GUICtrlCreateLabel("i", $size * 9, $size * 11, 20, 20, $SS_CENTER), _ GUICtrlCreateLabel("n", $size * 10, $size * 11, 20, 20, $SS_CENTER)] For $i = 0 To 2 GUICtrlSetColor($Min[$i], $Text_Color_Dark) Next GUISetState(@SW_SHOW) _CalibrateTime() #EndRegion ### END Koda GUI section ### ; While 1 If $Hour_Min <> @HOUR & @MIN Then _CalibrateTime() $Hour_Min = @HOUR & @MIN EndIf $tMsg = TrayGetMsg() Switch $tMsg Case $GUI_EVENT_CLOSE Exit Case $Color_Chooser[1] _Change_Color(1) Case $Color_Chooser[2] _Change_Color(2) Case $Color_Chooser[3] _Change_Color(3) Case $Color_Chooser[4] _Change_Color(4) Case $Color_Chooser[5] _Change_Color(5) Case $beenden Exit EndSwitch If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit WEnd ; Func _CalibrateTime() $Get_Min = @MIN $Get_Hour = _Hour_Correct(@HOUR) For $g = 0 To 11 If _GetMinNumber($Get_Min) = $Text_Min_Highlight[$g][0] Then _Set_Remainder_Min(@MIN) $Text_Num_Split = StringSplit($Text_Min_Highlight[$g][1], "|") $Text_Hr_Split = StringSplit($Text_Hour_Highlight[$Get_Hour][1], "|") For $h = 1 To 110 GUICtrlSetColor($Char_Text[$h], $Text_Color_Dark) For $l = 1 To $Text_Num_Split[0] If $Text_Num_Split[$l] = $h Then GUICtrlSetColor($Char_Text[$Text_Num_Split[$l]], $Text_Color_Lit) EndIf Next For $m = 1 To $Text_Hr_Split[0] If $Text_Hr_Split[$m] = $h Then GUICtrlSetColor($Char_Text[$Text_Hr_Split[$m]], $Text_Color_Lit) EndIf Next Next Return EndIf Next EndFunc ;==>_CalibrateTime ; Func _Change_Color($colorNumb) GUISetBkColor($Color_Themes[$colorNumb - 1][1]) $Text_Color_Dark = $Color_Themes[$colorNumb - 1][2] _CalibrateTime() IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Theme", "Selected", $colorNumb - 1) EndFunc ;==>_Change_Color ; Func _GetMinNumber($s_Number) Switch $s_Number Case 0 To 4 Return "00" Case 5 To 9 Return "05" Case 10 To 14 Return "10" Case 15 To 19 Return "15" Case 20 To 24 Return "20" Case 25 To 29 Return "25" Case 30 To 34 Return "30" Case 35 To 39 Return "35" Case 40 To 44 Return "40" Case 45 To 49 Return "45" Case 50 To 54 Return "50" Case 55 To 59 Return "55" EndSwitch EndFunc ;==>_GetMinNumber ; Func _Hour_Correct($s_Hour) Switch $s_Hour Case 13 To 23 $Hour = ($s_Hour - 13) Case 00 $Hour = 11 Case Else $Hour = $s_Hour - 1 EndSwitch If @MIN > 19 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf Return $Hour EndFunc ;==>_Hour_Correct ; Func _Set_Remainder_Min($q_Min) Local $e_Count $w_Min = StringRight($q_Min, 1) Switch $w_Min Case 1, 6 $e_Count = 1 Case 2, 7 $e_Count = 2 Case 3, 8 $e_Count = 3 Case 4, 9 $e_Count = 4 Case 0, 5 $e_Count = 0 EndSwitch For $t = 1 To 4 GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Dark) Next If $e_Count > 0 Then For $i = 0 To 2 Step 1 GUICtrlSetColor($Min[$i], $Text_Color_Lit) Next GUICtrlSetColor($pluszeichen, $Text_Color_Lit) For $t = 1 To $e_Count GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Lit) Next EndIf If $e_Count = 0 Then For $i = 0 To 2 Step 1 GUICtrlSetColor($Min[$i], $Text_Color_Dark) Next GUICtrlSetColor($pluszeichen, $Text_Color_Dark) EndIf EndFunc ;==>_Set_Remainder_Min i also changed some little things, because they looked ugly in my eyes but, well, that's a matter of opinion I hope you like it . Btw you can change the color scheme now with TrayItems. Link to comment Share on other sites More sharing options...
billthecreator Posted December 16, 2009 Author Share Posted December 16, 2009 Wow. the german one is great. i would like to have as many languages as possible. awesome [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap Link to comment Share on other sites More sharing options...
Bozzman Posted December 16, 2009 Share Posted December 16, 2009 (edited) got the dutch version here its optional english(en) or dutch(ned) line 94 $Size = 20 is defaultQlock.au3 Edited December 16, 2009 by Bozzman Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 17, 2009 Moderators Share Posted December 17, 2009 billthecreator,A really fun script! Here is a version that has English, German and French options.expandcollapse popup#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> ; Opt("TrayMenuMode", 1) ; Global Const $Text_en = "ITLISASTIMEACQUARTERDCTWENTYFIVEXHALFBTENFTOPASTERUNINE" & _ "ONESIXTHREEFOURFIVETWOEIGHTELEVENSEVENTWELVETENSEOCLOCK" Global Const $Text_de = "ESKISTAFÜNFZEHNBYGVORGNACHVIERTELHALBVORNACHEINSLMEZWEI" & _ "DREIAUJVIERFÜNFTOSECHSSIEBENLACHTNEUNZEHNELFZWÖLFUNKUHR" Global Const $Text_fr = "ILRESTGJUNEDEUXCINQDIXQUATREPHUITSEPTNEUFSIXDOUZEUTROIS" & _ "ONZEDHEURESMOINSGFJWLPETVINGTBLWVLEDEMIWDIXYUQUARTZCINQ" Global $Char_Text[111] Global $Char_Text_Remain[5], $Color_Chooser[6] Global $Text_en_Split = StringSplit($Text_en, "") Global $Text_de_Split = StringSplit($Text_de, "") Global $Text_fr_Split = StringSplit($Text_fr, "") Global $Hour_Min = @HOUR & @HOUR Global $Text_En_Min_Highlight[12][2] = _ [["00", "1|2|4|5|105|106|107|108|123|110"], _ ["05", "1|2|4|5|29|30|31|32|45|46|47|48"], _ ["10", "1|2|4|5|39|40|41|45|46|47|48"], _ ["15", "1|2|4|5|12|14|15|16|17|18|19|20|45|46|47|48"], _ ["20", "1|2|4|5|23|24|25|26|27|28|45|46|47|48"], _ ["25", "1|2|4|5|23|24|25|26|27|28|29|30|31|32|45|46|47|48"], _ ["30", "1|2|4|5|34|35|36|37|45|46|47|48"], _ ["35", "1|2|4|5|23|24|25|26|27|28|29|30|31|32|43|44"], _ ["40", "1|2|4|5|23|24|25|26|27|28|43|44"], _ ["45", "1|2|4|5|12|14|15|16|17|18|19|20|43|44"], _ ["50", "1|2|4|5|39|40|41|43|44"], _ ["55", "1|2|4|5|29|30|31|32|43|44"]] Global $Text_En_Hour_Highlight[12][2] = _ [["01", "56|57|58"], _ ["02", "75|76|77"], _ ["03", "62|63|64|65|66"], _ ["04", "67|68|69|70"], _ ["05", "71|72|73|74"], _ ["06", "59|60|61"], _ ["07", "89|90|91|92|93"], _ ["08", "78|79|80|81|82"], _ ["23", "52|53|54|55"], _ ["10", "100|101|102"], _ ["11", "83|84|85|86|87|88"], _ ["12", "94|95|96|97|98|99"]] Global $Text_de_Min_Highlight[12][2] = _ [["00", "1|2|4|5|6|108|123|110"], _ ["05", "1|2|4|5|6|8|9|10|11|23|24|25|26"], _ ["10", "1|2|4|5|6|12|13|14|15|23|24|25|26"], _ ["15", "1|2|4|5|6|27|28|29|30|31|32|33|41|42|43|44"], _ ["20", "1|2|4|5|6|12|13|14|15|19|20|21|34|35|36|37"], _ ["25", "1|2|4|5|6|8|9|10|11|19|20|21|34|35|36|37"], _ ["30", "1|2|4|5|6|34|35|36|37"], _ ["35", "1|2|4|5|6|8|9|10|11|23|24|25|26|34|35|36|37"], _ ["40", "1|2|4|5|6|12|13|14|15|23|24|25|26|34|35|36|37"], _ ["45", "1|2|4|5|6|27|28|29|30|31|32|33|38|39|40"], _ ["50", "1|2|4|5|6|12|13|14|15|19|20|21"], _ ["55", "1|2|4|5|6|8|9|10|11|19|20|21"]] Global $Text_de_Hour_Highlight[12][2] = _ [["01", "45|46|47|48"], _ ["02", "52|53|54|55"], _ ["03", "56|57|58|59"], _ ["04", "63|64|65|66"], _ ["05", "67|68|69|70"], _ ["06", "73|74|75|76|77"], _ ["07", "78|79|80|81|82|83"], _ ["08", "85|86|87|88"], _ ["23", "89|90|91|92"], _ ["10", "93|94|95|96"], _ ["11", "97|98|99"], _ ["12", "100|101|102|103|104"]] Global $Text_fr_Hour_Highlight[12][2] = _ [["01","1|2|4|5|6|9|10|11|61|62|63|64|65"], _ ["02", "1|2|4|5|6|12|13|14|15|61|62|63|64|65|66"], _ ["03", "1|2|4|5|6|51|52|53|54|55|61|62|63|64|65|66"], _ ["04", "1|2|4|5|6|23|24|25|26|27|28|61|62|63|64|65|66"], _ ["05", "1|2|4|5|6|16|17|18|19|61|62|63|64|65|66"], _ ["06", "1|2|4|5|6|42|43|44|61|62|63|64|65|66"], _ ["07", "1|2|4|5|6|34|35|36|37|61|62|63|64|65|66"], _ ["08", "1|2|4|5|6|30|31|32|33|61|62|63|64|65|66"], _ ["23", "1|2|4|5|6|38|39|40|41|61|62|63|64|65|66"], _ ["10", "1|2|4|5|6|20|21|22|61|62|63|64|65|66"], _ ["11", "1|2|4|5|6|56|57|58|59|61|62|63|64|65|66"], _ ["12", "1|2|4|5|6|45|46|47|48|49|61|62|63|64|65|66"]] Global $Text_fr_Min_Highlight[12][2] = _ [["00", ""], _ ["05", "107|108|109|110"], _ ["10", "96|97|98"], _ ["15", "78|79|101|102|103|104|105"], _ ["20", "80|81|82|83|84"], _ ["25", "80|81|82|83|84|107|108|109|110"], _ ["30", "78|79|91|92|93|94"], _ ["35", "67|68|69|70|71|80|81|82|83|84|107|108|109|110"], _ ["40", "67|68|69|70|71|80|81|82|83|84"], _ ["45", "67|68|69|70|71|89|90|101|102|103|104|105"], _ ["50", "67|68|69|70|71|96|97|98"], _ ["55", "67|68|69|70|71|107|108|109|110"]] Global $Color_Themes[5][3] = _ [["Black Ice Tea", 0x000000, 0x303030], _ ["Cherry Cake", 0xDC0817, 0xB80713], _ ["Vanilla Sugar", 0xC4C3C1, 0xA2A1A0], _ ["Frozen Blackberry", 0x503082, 0x6A4F93], _ ["Lime Juice", 0xA8AF0A, 0x8C9107]] $Selected_Theme = IniRead(@TempDir & "/QLOCKTWOSettings.ini", "Theme", "Selected", 0) $Selected_Lan = IniRead(@TempDir & "/QLOCKTWOSettings.ini", "Language", "Selected", "fr") Switch $Selected_Lan Case "en" $lang = $Text_en_Split Case "de" $lang = $Text_de_Split Case "fr" $lang = $Text_fr_Split EndSwitch Global $Text_Color_Dark = $Color_Themes[$Selected_Theme][2] Global $Text_Color_Lit = 0xFFFFFF Global $Form_BK_Color = $Color_Themes[$Selected_Theme][1] Global $Combo_Add #Region ### START Koda GUI section ### Form= $size = 20 $QclockTwoForm = GUICreate("QLOCK TWO", (13*$size), (12*$size), -1, -1) GUISetBkColor($Form_BK_Color) $k = 1 For $i = 1 To 10 For $j = 1 To 11 $Char_Text[$k] = GUICtrlCreateLabel($lang[$k], $size * $j, $size * $i, 20, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $k += 1 Next Next $Char_Text_Remain[1] = GUICtrlCreateLabel(Chr(149), 10, 10, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[2] = GUICtrlCreateLabel(Chr(149), 240, 10, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[3] = GUICtrlCreateLabel(Chr(149), 240, 220, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[4] = GUICtrlCreateLabel(Chr(149), 10, 220, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Tray_Color = TrayCreateMenu("Color") For $r = 1 To 5 Step 1 $Color_Chooser[$r] = TrayCreateItem($Color_Themes[$r - 1][0],$Tray_Color) Next $Tray_Lang = TrayCreateMenu("Language") $Lang_Chooser_en = TrayCreateItem("English" ,$Tray_Lang) $Lang_Chooser_de = TrayCreateItem("German" ,$Tray_Lang) $Lang_Chooser_fr = TrayCreateItem("French" ,$Tray_Lang) TrayCreateItem("") $Tray_Exit = TrayCreateItem("Exit") GUISetState(@SW_SHOW) _CalibrateTime() #EndRegion ### END Koda GUI section ### ; While 1 If $Hour_Min <> @HOUR & @MIN Then _CalibrateTime() $Hour_Min = @HOUR & @MIN EndIf $nMsg = TrayGetMsg() Switch $nMsg Case $Tray_Exit Exit Case $Color_Chooser[1] _Change_Color(1) Case $Color_Chooser[2] _Change_Color(2) Case $Color_Chooser[3] _Change_Color(3) Case $Color_Chooser[4] _Change_Color(4) Case $Color_Chooser[5] _Change_Color(5) Case $Lang_Chooser_en IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Language", "Selected", "en") _RestartScript() Case $Lang_Chooser_de IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Language", "Selected", "de") _RestartScript() Case $Lang_Chooser_fr IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Language", "Selected", "fr") _RestartScript() EndSwitch If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit WEnd ; Func _CalibrateTime() $Get_Min = @MIN $Get_Hour = _Hour_Correct(@HOUR) $Selected_Lan = IniRead(@TempDir & "/QLOCKTWOSettings.ini", "Language", "Selected", "de") Switch $Selected_Lan Case "en" $T_Min = $Text_en_Min_Highlight $T_Hour = $Text_en_Hour_Highlight Case "de" $T_Min = $Text_de_Min_Highlight $T_Hour = $Text_de_Hour_Highlight Case "fr" $T_Min = $Text_fr_Min_Highlight $T_Hour = $Text_fr_Hour_Highlight EndSwitch For $g = 0 To 11 If _GetMinNumber($Get_Min) = $T_Min[$g][0] Then _Set_Remainder_Min(@MIN) $Text_Num_Split = StringSplit($T_Min[$g][1], "|") $Text_Hr_Split = StringSplit($T_Hour[$Get_Hour][1], "|") For $h = 1 To 110 GUICtrlSetColor($Char_Text[$h], $Text_Color_Dark) For $l = 1 To $Text_Num_Split[0] If $Text_Num_Split[$l] = $h Then GUICtrlSetColor($Char_Text[$Text_Num_Split[$l]], $Text_Color_Lit) EndIf Next For $m = 1 To $Text_Hr_Split[0] If $Text_Hr_Split[$m] = $h Then GUICtrlSetColor($Char_Text[$Text_Hr_Split[$m]], $Text_Color_Lit) EndIf Next Next Return EndIf Next EndFunc ; Func _Change_Color($colorNumb) GUISetBkColor($Color_Themes[$colorNumb-1][1]) $Text_Color_Dark = $Color_Themes[$colorNumb-1][2] _CalibrateTime() IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Theme", "Selected", $colorNumb-1) EndFunc ; Func _GetMinNumber($s_Number) Switch $s_Number Case 0 To 4 Return "00" Case 5 To 9 Return "05" Case 10 To 14 Return "10" Case 15 To 19 Return "15" Case 20 To 24 Return "20" Case 25 To 29 Return "25" Case 30 To 34 Return "30" Case 35 To 39 Return "35" Case 40 To 44 Return "40" Case 45 To 49 Return "45" Case 50 To 54 Return "50" Case 55 To 59 Return "55" EndSwitch EndFunc ; Func _Hour_Correct($s_Hour) Switch $s_Hour Case 13 to 23 $Hour = ($s_Hour - 13) Case 00 $Hour = 11 Case Else $Hour = $s_Hour -1 EndSwitch Switch $Selected_Lan Case "en", "fr" If @MIN > 34 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf Case "de" If @MIN > 19 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf EndSwitch Return $Hour EndFunc ; Func _Set_Remainder_Min($q_Min) Local $e_Count $w_Min = StringRight($q_Min, 1) Switch $w_Min Case 1, 6 $e_Count = 1 Case 2, 7 $e_Count = 2 Case 3, 8 $e_Count = 3 Case 4, 9 $e_Count = 4 EndSwitch For $t = 1 To 4 GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Dark) Next For $t = 1 To $e_Count GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Lit) Next EndFunc ; Func _RestartScript() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFuncI have altered the _Hour_Correct function a little - if I remember my German classes well from when I lived there you have to go to the next hour at 20 past. Perhaps a German member can confirm this - and it might well be the same for the Dutch. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
playlet Posted December 17, 2009 Share Posted December 17, 2009 (edited) --- Edited August 18, 2016 by playlet Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 17, 2009 Moderators Share Posted December 17, 2009 playlet,I did not touch the German part - other than adding a Switch to the _Hour_Correct function. I get "Es ist viertel nach neun" for 21:15 myself. I cannot explain what you are seeing (which can only be a result of incorrect numbers in the parsing section) and wish to enter a plea of "not guilty, m'lud!" M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
playlet Posted December 17, 2009 Share Posted December 17, 2009 (edited) --- Edited August 18, 2016 by playlet Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 17, 2009 Moderators Share Posted December 17, 2009 playlet, Well, I had to learn how it worked to write the French bit! M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Bozzman Posted December 17, 2009 Share Posted December 17, 2009 in my dutch version i put in the hourcorrect >24 min you can take it and put it in urs then we have 4 languages Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 18, 2009 Moderators Share Posted December 18, 2009 (edited) As requested - the 4 language version: expandcollapse popup#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> ; Opt("TrayMenuMode", 3) ; Global Const $Text_en = "ITLISASTIMEACQUARTERDCTWENTYFIVEXHALFBTENFTOPASTERUNINE" & _ "ONESIXTHREEFOURFIVETWOEIGHTELEVENSEVENTWELVETENSEOCLOCK" Global Const $Text_de = "ESKISTAFÜNFZEHNBYGVORGNACHVIERTELHALBVORNACHEINSLMEZWEI" & _ "DREIAUJVIERFÜNFTOSECHSSIEBENLACHTNEUNZEHNELFZWÖLFUNKUHR" Global Const $Text_nl = "HETKISAVIJFTIENBTZVOOROVERMEKWARTVOORSPWOVERHALFTHGÉÉNS" & _ "TWEEPVCDRIEVIERVIJFZESZEVENONEGENACHTTIENELFTWAALFBFUUR" Global Const $Text_fr = "ILRESTGJUNEDEUXCINQDIXQUATREPHUITSEPTNEUFSIXDOUZEUTROIS" & _ "ONZEDHEURESMOINSGFJWLPETVINGTBLWVLEDEMIWDIXYUQUARTZCINQ" Global $Char_Text[111] Global $Char_Text_Remain[5], $Color_Chooser[6] Global $Text_en_Split = StringSplit($Text_en, "") Global $Text_de_Split = StringSplit($Text_de, "") Global $Text_nl_Split = StringSplit($Text_nl, "") Global $Text_fr_Split = StringSplit($Text_fr, "") Global $Hour_Min = @HOUR & @MIN Global $sIni_File = @ScriptDir & "\QLOCKTWOSettings.ini" Global $Text_En_Min_Highlight[12][2] = _ [["00", "1|2|4|5|105|106|107|108|123|110"], _ ["05", "1|2|4|5|29|30|31|32|45|46|47|48"], _ ["10", "1|2|4|5|39|40|41|45|46|47|48"], _ ["15", "1|2|4|5|12|14|15|16|17|18|19|20|45|46|47|48"], _ ["20", "1|2|4|5|23|24|25|26|27|28|45|46|47|48"], _ ["25", "1|2|4|5|23|24|25|26|27|28|29|30|31|32|45|46|47|48"], _ ["30", "1|2|4|5|34|35|36|37|45|46|47|48"], _ ["35", "1|2|4|5|23|24|25|26|27|28|29|30|31|32|43|44"], _ ["40", "1|2|4|5|23|24|25|26|27|28|43|44"], _ ["45", "1|2|4|5|12|14|15|16|17|18|19|20|43|44"], _ ["50", "1|2|4|5|39|40|41|43|44"], _ ["55", "1|2|4|5|29|30|31|32|43|44"]] Global $Text_En_Hour_Highlight[12][2] = _ [["01", "56|57|58"], _ ["02", "75|76|77"], _ ["03", "62|63|64|65|66"], _ ["04", "67|68|69|70"], _ ["05", "71|72|73|74"], _ ["06", "59|60|61"], _ ["07", "89|90|91|92|93"], _ ["08", "78|79|80|81|82"], _ ["23", "52|53|54|55"], _ ["10", "100|101|102"], _ ["11", "83|84|85|86|87|88"], _ ["12", "94|95|96|97|98|99"]] Global $Text_de_Min_Highlight[12][2] = _ [["00", "1|2|4|5|6|108|123|110"], _ ["05", "1|2|4|5|6|8|9|10|11|23|24|25|26"], _ ["10", "1|2|4|5|6|12|13|14|15|23|24|25|26"], _ ["15", "1|2|4|5|6|27|28|29|30|31|32|33|41|42|43|44"], _ ["20", "1|2|4|5|6|12|13|14|15|19|20|21|34|35|36|37"], _ ["25", "1|2|4|5|6|8|9|10|11|19|20|21|34|35|36|37"], _ ["30", "1|2|4|5|6|34|35|36|37"], _ ["35", "1|2|4|5|6|8|9|10|11|23|24|25|26|34|35|36|37"], _ ["40", "1|2|4|5|6|12|13|14|15|23|24|25|26|34|35|36|37"], _ ["45", "1|2|4|5|6|27|28|29|30|31|32|33|38|39|40"], _ ["50", "1|2|4|5|6|12|13|14|15|19|20|21"], _ ["55", "1|2|4|5|6|8|9|10|11|19|20|21"]] Global $Text_de_Hour_Highlight[12][2] = _ [["01", "45|46|47|48"], _ ["02", "52|53|54|55"], _ ["03", "56|57|58|59"], _ ["04", "63|64|65|66"], _ ["05", "67|68|69|70"], _ ["06", "73|74|75|76|77"], _ ["07", "78|79|80|81|82|83"], _ ["08", "85|86|87|88"], _ ["23", "89|90|91|92"], _ ["10", "93|94|95|96"], _ ["11", "97|98|99"], _ ["12", "100|101|102|103|104"]] Global $Text_nl_Min_Highlight[12][2] = _ [["00", "1|2|3|5|6|108|109|110"], _ ["05", "1|2|3|5|6|8|9|10|11|41|42|43|44"], _ ["10", "1|2|3|5|6|12|13|14|15|41|42|43|44"], _ ["15", "1|2|3|5|6|29|30|31|32|33|41|42|43|44"], _ ["20", "1|2|3|5|6|12|13|14|15|45|46|47|48|34|35|36|37"], _ ["25", "1|2|3|5|6|8|9|10|11|45|46|47|48|34|35|36|37"], _ ["30", "1|2|3|5|6|45|46|47|48"], _ ["35", "1|2|3|5|6|8|9|10|11|41|42|43|44|45|46|47|48"], _ ["40", "1|2|3|5|6|12|13|14|15|41|42|43|44|45|46|47|48"], _ ["45", "1|2|3|5|6|29|30|31|32|33|34|35|36|37"], _ ["50", "1|2|3|5|6|12|13|14|15|34|35|36|37"], _ ["55", "1|2|3|5|6|8|9|10|11|34|35|36|37"]] Global $Text_nl_Hour_Highlight[12][2] = _ [["01", "52|53|54"], _ ["02", "56|57|58|59"], _ ["03", "63|64|65|66"], _ ["04", "67|68|69|70"], _ ["05", "71|72|73|74"], _ ["06", "59|60|61"], _ ["07", "78|79|80|81|82"], _ ["08", "89|90|91|92"], _ ["09", "84|85|86|87|88"], _ ["10", "93|94|95|96"], _ ["11", "97|98|99"], _ ["12", "100|101|102|103|104|105"]] Global $Text_fr_Hour_Highlight[12][2] = _ [["01","1|2|4|5|6|9|10|11|61|62|63|64|65"], _ ["02", "1|2|4|5|6|12|13|14|15|61|62|63|64|65|66"], _ ["03", "1|2|4|5|6|51|52|53|54|55|61|62|63|64|65|66"], _ ["04", "1|2|4|5|6|23|24|25|26|27|28|61|62|63|64|65|66"], _ ["05", "1|2|4|5|6|16|17|18|19|61|62|63|64|65|66"], _ ["06", "1|2|4|5|6|42|43|44|61|62|63|64|65|66"], _ ["07", "1|2|4|5|6|34|35|36|37|61|62|63|64|65|66"], _ ["08", "1|2|4|5|6|30|31|32|33|61|62|63|64|65|66"], _ ["23", "1|2|4|5|6|38|39|40|41|61|62|63|64|65|66"], _ ["10", "1|2|4|5|6|20|21|22|61|62|63|64|65|66"], _ ["11", "1|2|4|5|6|56|57|58|59|61|62|63|64|65|66"], _ ["12", "1|2|4|5|6|45|46|47|48|49|61|62|63|64|65|66"]] Global $Text_fr_Min_Highlight[12][2] = _ [["00", ""], _ ["05", "107|108|109|110"], _ ["10", "96|97|98"], _ ["15", "78|79|101|102|103|104|105"], _ ["20", "80|81|82|83|84"], _ ["25", "80|81|82|83|84|107|108|109|110"], _ ["30", "78|79|91|92|93|94"], _ ["35", "67|68|69|70|71|80|81|82|83|84|107|108|109|110"], _ ["40", "67|68|69|70|71|80|81|82|83|84"], _ ["45", "67|68|69|70|71|89|90|101|102|103|104|105"], _ ["50", "67|68|69|70|71|96|97|98"], _ ["55", "67|68|69|70|71|107|108|109|110"]] Global $Color_Themes[5][3] = _ [["Black Ice Tea", 0x000000, 0x303030], _ ["Cherry Cake", 0xDC0817, 0xB80713], _ ["Vanilla Sugar", 0xC4C3C1, 0xA2A1A0], _ ["Frozen Blackberry", 0x503082, 0x6A4F93], _ ["Lime Juice", 0xA8AF0A, 0x8C9107]] $Selected_Theme = IniRead($sIni_File, "Theme", "Selected", 0) $Selected_Lan = IniRead($sIni_File, "Language", "Selected", "fr") Switch $Selected_Lan Case "en" $lang = $Text_en_Split Case "de" $lang = $Text_de_Split Case "nl" $lang = $Text_nl_Split Case "fr" $lang = $Text_fr_Split EndSwitch Global $Text_Color_Dark = $Color_Themes[$Selected_Theme][2] Global $Text_Color_Lit = 0xFFFFFF Global $Form_BK_Color = $Color_Themes[$Selected_Theme][1] Global $Combo_Add #Region ### START Koda GUI section ### Form= $size = 20 $QclockTwoForm = GUICreate("QLOCK TWO", (13*$size), (12*$size), -1, -1) GUISetBkColor($Form_BK_Color) $k = 1 For $i = 1 To 10 For $j = 1 To 11 $Char_Text[$k] = GUICtrlCreateLabel($lang[$k], $size * $j, $size * $i, 20, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $k += 1 Next Next $Char_Text_Remain[1] = GUICtrlCreateLabel(Chr(149), 10, 10, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[2] = GUICtrlCreateLabel(Chr(149), 240, 10, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[3] = GUICtrlCreateLabel(Chr(149), 240, 220, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Char_Text_Remain[4] = GUICtrlCreateLabel(Chr(149), 10, 220, 10, 20, $SS_CENTER) GUICtrlSetColor(-1, $Text_Color_Dark) $Tray_Color = TrayCreateMenu("Color") For $r = 1 To 5 Step 1 $Color_Chooser[$r] = TrayCreateItem($Color_Themes[$r - 1][0],$Tray_Color) Next $Tray_Lang = TrayCreateMenu("Language") $Lang_Chooser_en = TrayCreateItem("English" ,$Tray_Lang) $Lang_Chooser_de = TrayCreateItem("Deutch" ,$Tray_Lang) $Lang_Chooser_nl = TrayCreateItem("Nederlands" ,$Tray_Lang) $Lang_Chooser_fr = TrayCreateItem("Français" ,$Tray_Lang) TrayCreateItem("") $Tray_Exit = TrayCreateItem("Exit") GUISetState(@SW_SHOW) _CalibrateTime() #EndRegion ### END Koda GUI section ### ; While 1 If $Hour_Min <> @HOUR & @MIN Then _CalibrateTime() $Hour_Min = @HOUR & @MIN EndIf $nMsg = TrayGetMsg() Switch $nMsg Case $Tray_Exit Exit Case $Color_Chooser[1] _Change_Color(1) Case $Color_Chooser[2] _Change_Color(2) Case $Color_Chooser[3] _Change_Color(3) Case $Color_Chooser[4] _Change_Color(4) Case $Color_Chooser[5] _Change_Color(5) Case $Lang_Chooser_en IniWrite($sIni_File, "Language", "Selected", "en") _RestartScript() Case $Lang_Chooser_de IniWrite($sIni_File, "Language", "Selected", "de") _RestartScript() Case $Lang_Chooser_nl IniWrite($sIni_File, "Language", "Selected", "nl") _RestartScript() Case $Lang_Chooser_fr IniWrite($sIni_File, "Language", "Selected", "fr") _RestartScript() EndSwitch If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit WEnd ; Func _CalibrateTime() $Get_Min = @MIN $Get_Hour = _Hour_Correct(@HOUR) Switch $Selected_Lan Case "en" $T_Min = $Text_en_Min_Highlight $T_Hour = $Text_en_Hour_Highlight Case "de" $T_Min = $Text_de_Min_Highlight $T_Hour = $Text_de_Hour_Highlight Case "nl" $T_Min = $Text_nl_Min_Highlight $T_Hour = $Text_nl_Hour_Highlight Case "fr" $T_Min = $Text_fr_Min_Highlight $T_Hour = $Text_fr_Hour_Highlight EndSwitch For $g = 0 To 11 If _GetMinNumber($Get_Min) = $T_Min[$g][0] Then _Set_Remainder_Min(@MIN) $Text_Num_Split = StringSplit($T_Min[$g][1], "|") $Text_Hr_Split = StringSplit($T_Hour[$Get_Hour][1], "|") For $h = 1 To 110 GUICtrlSetColor($Char_Text[$h], $Text_Color_Dark) For $l = 1 To $Text_Num_Split[0] If $Text_Num_Split[$l] = $h Then GUICtrlSetColor($Char_Text[$Text_Num_Split[$l]], $Text_Color_Lit) EndIf Next For $m = 1 To $Text_Hr_Split[0] If $Text_Hr_Split[$m] = $h Then GUICtrlSetColor($Char_Text[$Text_Hr_Split[$m]], $Text_Color_Lit) EndIf Next Next Return EndIf Next EndFunc ; Func _Change_Color($colorNumb) GUISetBkColor($Color_Themes[$colorNumb-1][1]) $Text_Color_Dark = $Color_Themes[$colorNumb-1][2] _CalibrateTime() IniWrite(@TempDir & "/QLOCKTWOSettings.ini", "Theme", "Selected", $colorNumb-1) EndFunc ; Func _GetMinNumber($s_Number) Switch $s_Number Case 0 To 4 Return "00" Case 5 To 9 Return "05" Case 10 To 14 Return "10" Case 15 To 19 Return "15" Case 20 To 24 Return "20" Case 25 To 29 Return "25" Case 30 To 34 Return "30" Case 35 To 39 Return "35" Case 40 To 44 Return "40" Case 45 To 49 Return "45" Case 50 To 54 Return "50" Case 55 To 59 Return "55" EndSwitch EndFunc ; Func _Hour_Correct($s_Hour) Switch $s_Hour Case 13 to 23 $Hour = ($s_Hour - 13) Case 00 $Hour = 11 Case Else $Hour = $s_Hour -1 EndSwitch Switch $Selected_Lan Case "en", "fr" If @MIN > 34 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf Case "de" If @MIN > 19 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf Case "nl" If @MIN > 24 Then $Hour += 1 If $Hour > 11 Then $Hour = 00 EndIf EndSwitch Return $Hour EndFunc ; Func _Set_Remainder_Min($q_Min) Local $e_Count $w_Min = StringRight($q_Min, 1) Switch $w_Min Case 1, 6 $e_Count = 1 Case 2, 7 $e_Count = 2 Case 3, 8 $e_Count = 3 Case 4, 9 $e_Count = 4 EndSwitch For $t = 1 To 4 GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Dark) Next For $t = 1 To $e_Count GUICtrlSetColor($Char_Text_Remain[$t], $Text_Color_Lit) Next EndFunc ; Func _RestartScript() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFuncplaylet,I found that having a missing/corrupted ini file can give you the "funny words" you experienced. I have therefore taken the liberty of moving the ini file to @ScriptDir so it is easily available to delete if needed.Thanks again to billthecreator for having written this fun script! M23Edit: Code change - see below for explanation. Edited December 18, 2009 by Melba23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
billthecreator Posted December 18, 2009 Author Share Posted December 18, 2009 Thanks guys. I wasn't expecting this much from this program. [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap Link to comment Share on other sites More sharing options...
playlet Posted December 18, 2009 Share Posted December 18, 2009 (edited) --- Edited August 18, 2016 by playlet Link to comment Share on other sites More sharing options...
billthecreator Posted December 18, 2009 Author Share Posted December 18, 2009 I'm still having this problem - it says "es ist fzeh gnac jvie" for 16:10 (4:10 pm). Should be: "Es ist zehn nach vier". I really don't know what's the problem.Go to the string with all the german letters. see in within the first 10, if one is missing. or you have an extra. i looked at it, and the numbers seem right. [font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 18, 2009 Moderators Share Posted December 18, 2009 (edited) playlet,The script seems sometimes to have a mismatch between the "word" string and the "number" strings which gives you the "wacky word" result. I am trying localise it.M23Edit: I have it. The script reads the language from the ini file TWICE and I had altered the default in only one of them. Result: an instant mismatch of "words" and "numbers" if there was no ini file. Delete the IniRead line in the _CalibrateTime() function and everything matches again.In my defence I can only claim bad programming practise on the part of the original author! Post above edited.M23 Edited December 18, 2009 by Melba23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now