1. Куча / Говнокод #15797

    +142

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    // основная функция запуска
func main($script){
    //устанавливаем значение переменной
    $caption = "гыыы кальулятор";
    
    //грузим иконку
	$calc_icon= library_load_icon(library_load("shell32.dll"),307);
	
	//создаем окошко))
	$main_window=gui_window("TCalc",$caption,$_WS_SYSMENU+$_WS_VISIBLE+$_WS_CAPTION,$_CW_DESKTOPCENTER,$_CW_DESKTOPCENTER,200,100,$calc_icon,0,0,"WindowFunc");
	
	gui_control($main_window,"button","ok",201,$_WS_CHILD+$_WS_VISIBLE+$_BS_DEFPUSHBUTTON+$_BS_FLAT,152,16,32,16);
	gui_control($main_window,"edit","2+7",202,$_WS_CHILD+$_WS_VISIBLE,2,15,130,15);
	gui_control($main_window,"static","Ready",203,$_WS_CHILD+$_WS_VISIBLE,16,36,130,16);
	
	//иконка в трее...
	tray_icon($main_window,$calc_icon,"ГАЛЬГУЛЯТОР",$_NIM_ADD);
	tray_icon_show_balloon($main_window,"[$caption] -> Startup","Добро пожаловать в программу\nСоздано с неизвестным языком (название не придумал)",4);
	idle(); //перевод программы в режим ожидания
}
	 
func WindowFunc($hwnd,$msg,$param,$id){ //обработка сообщений виндоуса
	if($msg==$_WM_CLOSE){  //если крестик нажали
		tray_icon($main_window,$calc_icon,null,$_NIM_DELETE);  //удаляем иконку
		close();  //выходим
	}
	if($msg==$_WM_COMMAND){  //если нажали кнопку
		if($id==201){ //click ok  //определяем ID   //math_compiler - производить математические операции
			$res=math_compiler(gui_get($hwnd,202)); //gui_get - получить текст
			if length($res)==0 {                    //gui_set - установить текст
				$res="[ERROR]";
				tray_icon_show_balloon($hwnd,"[$caption] -> Ашипка","Нивазможна\nправирить текст!",2);
			}else{
				tray_icon_show_balloon($hwnd,"[$caption] -> Result",gui_get($hwnd,202)." = $res",4);
			}
			gui_set($hwnd,203,$res);
		}
	}
}

    Названия языка нет..

    Запостил: Mobac, 20 Апреля 2014

    Комментарии (12) RSS

    • ava Vasiliy 21.04.2014 15:17 # +5

      Это же Visual PHP
      Ответить

    • ava GovnoGovno 24.04.2014 04:17 # 0

      > //создаем окошко))
      )))
      Ответить

      • ava bormand 24.04.2014 05:24 # +1

        какой багор ))
        Ответить

        • ava LispGovno 24.04.2014 12:31 # 0

          У меня к тебе чисто конкретный вопрос:

          А почему ты ещё не тимлид? Работать админом - это как-то жостка.
          Ответить

          • ava guest 24.04.2014 12:35 # 0

            Потому, что глубоких знаний ни в чем нету, а за умение сконпелировать прогу/запачтить баг тимлидом не делают?
            Ответить

            • ava 3.14159265 24.04.2014 13:16 # +2

              >Потому, что глубоких знаний ни в чем нету
              Га-га-га. Глубокий знаток s-a--m оценивает уровень познаний bormand a.
              Ответить

              • ava guest 24.04.2014 13:33 # 0

                А что?
                Ответить

              • ava bormand 24.04.2014 13:42 # 0

                why not?
                Ответить

              • ava guest 24.04.2014 20:31 # −4

                Судя по беспричинным плюсам моим оппонентам, рашкоблядям до сих пор печет.
                Ответить

                • ava bormand 24.04.2014 20:41 # +2

                  > моим оппонентам
                  Сколько пафоса... Звучит так, как-будто тут в треде 10-20 оппонентов, бесперебойно наседающих на бедного sam'а. А на деле - оппонент всего один, да и написал он всего 1 коммент.

                  > рашкоблядям до сих пор печет
                  Причем здесь это? Тредом не промахнулся случаем?
                  Ответить

                  • ava guest 25.04.2014 12:54 # −1

                    В этом треде один.

                    Нет, не промахнулся. Таки печет, раз плюсуют.
                    Ответить

          • ava bormand 24.04.2014 13:50 # +2

            > А почему ты ещё не тимлид?
            Спихнуть начальника отдела и отобрать у него весь геморрой с бумажками и общением с партнерами/клиентами? :)

            Няхуй, няхуй... По крайней мере сейчас меня эта перспектива не особо радует.
            Ответить

    Добавить комментарий