Dziś jest Dzień Programisty
256. dzień roku kalendarzowego może być tylko jednym świętem - Dniem Programisty.
Warto przeczytać: | |
Święto przypada albo na 13. września, albo - w przypadku lat przestępnych - na 12. września. Rodzima wersja Wikipedii tłumaczy, czemu akurat na taki termin wypadło - 256 = 28 - czyli liczba wszystkich możliwych wartości jednego bajta informacji w jego najpopularniejszej, 8-bitowej postaci.
Choć mogłoby się wydawać, że jest to tylko kolejne internetowe święto, jego geneza wydaje się znacznie poważniejsza. W 2002 roku w Rosji złożono petycję do władz w intencji ustanowienia Dnia Programisty świętem wszystkich osób pobudzających komputerowe aplikacje do życia, a następnie skłaniających ich do posłuszeństwa człowiekowi. W roku 2009 Prezydent Rosji Dimitrii Miedwiediew podpisał w tym celu stosowną ustawę.
Od tego czasu nie tylko u wschodnich sąsiadów, ale i w całym internecie obchodzimy święto programisty. Z tej okazji zwykli oni raczyć internautów różnymi, zabawnymi i autoironicznymi żartami. Programistom odwiedzającym nasz serwis życzymy wszystkiego najlepszego i dużo wytrwałości w pracy, wliczając w to oczywiście naszych webmasterów - Marcina i Mateusza!
Źródło: Inf. własna
Polecamy artykuły: | ||
Proste Eyefinity - Sapphire Radeon HD 5770 Flex | Twoja pamięć podręczna - test 15 pendrive'ów | Internetowi terroryści |
Komentarze
20Był by kolejny pretekst do napicia się
Public Function GetMemberOfObject(ByVal MemberName As String, ByVal Obj As Object, Optional ByVal ReadValueOfControl As Boolean = False) As Object
Dim fi As FieldInfo
Dim pi As PropertyInfo
If Obj Is Nothing Then Return Nothing
' sprawdzanie w polach
fi = Obj.GetType.GetField(MemberName)
If fi IsNot Nothing Then Return fi.GetValue(Obj)
' sprawdzanie we własciwosciach
pi = Obj.GetType.GetProperty(MemberName)
If pi IsNot Nothing Then Return pi.GetValue(Obj, Nothing)
If Obj.GetType.IsSubclassOf(GetType(Control)) = False Or ReadValueOfControl = False Then Return Nothing
Dim ctrl As Control
Dim objs() As Object
Dim PropName As String
ctrl = CType(Obj, Control).FindControl(MemberName)
If ctrl Is Nothing Then Return Nothing
objs = ctrl.GetType.GetCustomAttributes(GetType(ControlValuePropertyAttribute), True)
If objs.Length = 0 Then Return Nothing
PropName = CType(objs(0), ControlValuePropertyAttribute).Name
Return ctrl.GetType.GetProperty(PropName).GetValue(ctrl, Nothing)
End Function
Pozdrowienia dla wszystkich programistów
programista