quote:

ORIGINAL: SkyLinE215
Извини, Паскаль тока на первой стадии знаю, на пример пощитать сумму 2 чисел или чтото в этом вроде :D внатуре ман, сори. Но сейчас паскаль воопще очень мало репутации имеет… Если интересно моё мнение, Паскаль это дерьмо…

quote:

ORIGINAL: Sairuss
я с тобой согласен, просто очень нада. я и сам то его не наю, предпочитаю делфи.

quote:

ORIGINAL: NightmareZz
Естессно, дерьмо. Ты тут привёл очень веские доводы. Из уст маха-гуру, который может "посчитать сумму двух чисел". Я преклоняюсь пред тобой, блин. Интересно, а вообще в мире есть люди, которые могут посчитать сумму трёх чисел? Наверное нет

quote:

ORIGINAL: SkyLinE215

quote:

ORIGINAL: NightmareZz
Естессно, дерьмо. Ты тут привёл очень веские доводы. Из уст маха-гуру, который может "посчитать сумму двух чисел". Я преклоняюсь пред тобой, блин. Интересно, а вообще в мире есть люди, которые могут посчитать сумму трёх чисел? Наверное нет

Слуш, я воопщето это буквально сказал… :D Понятно что пока не дашол до циклов не остановился…Просто я с самого начало как увидел Паскаль понел что это дерьмо….
Я с С++ хорошо дружу :)

quote:

И что же ты на C++ понаписывал? Мне чисто для себя, поржать.

quote:

#include <windows.h>
int main()
{
    MessageBox(NULL, "Да смейся сколько влезит…\n Мне пох…", "SkyLinE215", MB_OK|MB_ICONEXCLAMATION);
    return 0;
}

quote:

ORIGINAL: SkyLinE215
Да вот простейшая прога на С++…..

quote:

#include <windows.h>
int main()
{
   MessageBox(NULL, "Да смейся сколько влезит…\n Мне пох…", "SkyLinE215", MB_OK|MB_ICONEXCLAMATION);
   return 0;
}

quote:

#include <windows.h>
#include "resource.h"


enum { ID_LABEL = 1,ID_IMAGE,ID_EDIT,ID_LIST,ID_BUTTON,ID_COMBO, ID_BUTTON2 };
 
LRESULT APIENTRY TestWindowProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam);
LRESULT APIENTRY AboutWindowProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam);
void onmenu(WPARAM);

HINSTANCE g_hInst;
HWND testwin;
HWND aboutwin;
HWND static_label;
HWND static_image;
HWND edit;
HWND list;
HWND button;
HWND combo;
int APIENTRY WinMain(HINSTANCE hInst,HINSTANCE hPrev,LPSTR line,int CmdShow)
{
 g_hInst = hInst;
 MSG msg;
 WNDCLASS wc;
 wc.cbClsExtra = 0;
 wc.cbWndExtra = 0;
 wc.hbrBackground = (HBRUSH)GetStockObject(LTGRAY_BRUSH);
 wc.hInstance = hInst;
 wc.hIcon = LoadIcon(hInst,MAKEINTRESOURCE(IDI_ICON1));
 wc.hCursor = LoadCursor(NULL,IDC_ARROW);
 wc.lpfnWndProc = (WNDPROC) TestWindowProc;
 wc.lpszClassName = "Test:)";
 wc.lpszMenuName = MAKEINTRESOURCE(IDR_MENU1);
 wc.style = CS_HREDRAW | CS_VREDRAW;
 RegisterClass(&wc);
 wc.lpszMenuName = NULL;
 wc.lpszClassName = "About:)";
 wc.lpfnWndProc = (WNDPROC) AboutWindowProc;
 RegisterClass(&wc);
 testwin = CreateWindow("Test:)","Ну как те?",WS_OVERLAPPEDWINDOW,0,0,640,300,0,0,hInst,0);
 aboutwin = CreateWindow("About:)","СПЕЦИАЛЬНО!!", WS_OVERLAPPED | WS_SYSMENU |WS_MINIMIZEBOX,0,0,250,250,0,0,hInst,0);
 ShowWindow(testwin,SW_SHOW);
 UpdateWindow(testwin);
 while(GetMessage(&msg,0,0,0))
 {
  TranslateMessage(&msg);
  DispatchMessage(&msg);
 }
 return msg.wParam;
}
LRESULT APIENTRY TestWindowProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam)
{
 switch(msg)
 {
 case WM_DESTROY:
  PostQuitMessage(0);
  break;
 case WM_CREATE:
  {
   HWND stx;
   stx = CreateWindow("Static","Вот те простой пример…",WS_CHILD | WS_VISIBLE ,0,0,200,25,hwnd,0,g_hInst,0);
   static_label = CreateWindow("Static","v 1.0 by SkyLinE215",WS_CHILD | WS_VISIBLE,490,220,140,20,hwnd,0,g_hInst,0);
   edit = CreateWindow("Edit","Пиши тут че хочешь…",WS_BORDER | WS_VSCROLL | WS_CHILD | WS_VISIBLE | ES_MULTILINE | ES_AUTOHSCROLL,5,35,200,200,hwnd,(HMENU)ID_EDIT,g_hInst,0);
   button = CreateWindow("Button","ЧЁ?!?!?!",BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE ,350,5,100,25,hwnd,(HMENU)ID_BUTTON,g_hInst,0);
   static_image = CreateWindow("Static",NULL,WS_CHILD | WS_VISIBLE | SS_BITMAP,350,40,0,0,hwnd,(HMENU)ID_IMAGE,g_hInst,0);
   SendMessage(static_image,STM_SETIMAGE,IMAGE_BITMAP,(LPARAM)(HBITMAP)LoadBitmap(g_hInst,MAKEINTRESOURCE(IDB_BITMAP1)));
   SendMessage(combo,CB_ADDSTRING,255,(LPARAM)(LPCSTR)"addstuff");
  }
  break;
 case WM_COMMAND:
  {
   onmenu(wParam);
   switch(HIWORD(wParam))
   {
   case BN_CLICKED:
    switch(LOWORD(wParam))
    {
    case ID_BUTTON:
     {
      SendMessage(list,LB_ADDSTRING,255,(LPARAM)(LPCSTR)"You clicked the button");
      SendMessage(combo,CB_ADDSTRING,255,(LPARAM)(LPCSTR)"You clicked the button ");
      ShowWindow(aboutwin,SW_SHOW);
     }
     break;
    }
    break;
    case LBN_DBLCLK:
     {
      switch(LOWORD(wParam))
      {
      case ID_LIST:
       {
        MessageBox(hwnd,"Double Clicked the List","HAHA",MB_OK |MB_ICONINFORMATION);
       }
       break;
      }
     }
     break;
    case EN_CHANGE:
     {
      switch(LOWORD(wParam))
      {
      case ID_EDIT:
       {
        MessageBox(hwnd,"Изменил!","SkyLinE215",MB_OK | MB_ICONINFORMATION);
       }
       break;
      }
     }
     break;
  }
  }
  break;
 default: return DefWindowProc(hwnd,msg,wParam,lParam);
 }
 return 0;
}

void onmenu(WPARAM wParam)
{
 switch(wParam)
 {
 case ID_FILE_EXIT:
  {
   SendMessage(testwin,WM_CLOSE,0,0);
  }
  break;
 case ID_FILE_MSGABOUT:
  {
   MessageBox(0,"Хош инфо, пиши на форуме! \n http://forum.xakep.ru/","Инфо",MB_OK|MB_ICONINFORMATION);
  }
  break;
 case ID_FILE_WINDOWABOUT:
  {
   ShowWindow(aboutwin,SW_SHOW);
  }
  break;
 }

}
 
LRESULT APIENTRY AboutWindowProc(HWND hwnd,UINT msg,WPARAM wParam,LPARAM lParam)
{
 switch(msg)
 {
 case WM_CLOSE:
  ShowWindow(hwnd,SW_HIDE);
  break;
 case WM_CREATE:
  {
   HWND buttonx;
   buttonx = CreateWindow("Button","Ok!",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,200-55,200,100,25,hwnd,(HMENU)ID_BUTTON2,g_hInst,0);
   HWND stx;
   stx = CreateWindow("Static","Пример специально для http://forum.xakep.ru/ для NightmareZz",WS_CHILD|WS_VISIBLE,5,5,200,150,hwnd,0,g_hInst,0);
  }
      break;
 case WM_COMMAND:
  {
   switch(HIWORD(wParam))
   {
   case BN_CLICKED:
    {
     switch(LOWORD(wParam))
     {
     case ID_BUTTON2:
      {
       SendMessage(hwnd,WM_CLOSE,0,0);
      }
      break;
     }
    }
    break;
   }
  }
  break;
 default: return DefWindowProc(hwnd,msg,wParam,lParam);
 }
 return 0;
}

quote:

ORIGINAL: SkyLinE215
Ну вот че ты хочешь докозать?? Думаешь если ты тут тоже знаешь WinApi то ты самый крутой?? Я те такие задачи могу поставить что ты хер с ними справишся!

quote:

ORIGINAL: SkyLinE215

Ну вот че ты хочешь докозать?? Думаешь если ты тут тоже знаешь WinApi то ты самый крутой?? Я те такие задачи могу поставить что ты хер с ними справишся!

quote:

ORIGINAL: vvviperrr
прям зохавале парня) тема жесть) избиение младенцев

quote:

ORIGINAL: vvviperrr
2Kolan4iK ну не что угодно. кроссплатформенный код не напишешь (куликс не в счет), для мобильных девайсов тоже. так что..))

quote:

ORIGINAL: vvviperrr
2NightmareZz ну я просто отписался, почему делфя не мой выбор)

quote:

Функция f(x) = cos (x*x*x) // x в 3-й степени Интервал x[-2;-1] Количество точек n=20 1) Опишите оператор Case. 2) Чему равно х при выполнении i:=3; Case (i+1) Of 0,1,2: x:=1; 3..6: x:=2 Else x:=3 End;