close
تبلیغات در اینترنت

قالب وبلاگ

آموزش برنامه نویسی


درباره سايت درباره سايت
به نام آنکه جان را فکرت آموخت در این وبلاگ سعی می شود به صورت تخصصی به مباحث مربوط به مهندسی نرم افزار به خصوص برنامه نویسی کامپیوتری پرداخته شود. مدیر وبلاگ : حامد شیرزاد

موضوعات موضوعات

آموزش برنامه نویسی

دلفی ( Delphi )

پی اچ پی ( PHP )

سی شارپ ( #C )

برنامه نویسی عمومی

جاوا ( Java )

++C

اسمبلی

ASP .NET

VBasic

HTML

اینترنت و شبکه

سیسکو ( Cisco )

معرفی سایت

مفاهیم شبکه

سخت افزار شبکه

آموزش عمومی

زبان انگلیسی

ترفند

رجیستری

کارشناسی ارشد

طرحی وب

ریاضیات

برنامه های کاربردی

سخت افزار

کارشناسی نرم افزار

دانلود

نرم افزار

کتابخانه

کتاب

جزوه

سرگرمی

سخن بزرگان

داستان

طنز

دانستنیها

عکس

شعر

اخبار


آرشيو آرشيو

1395

1394

1391

1390


نويسندگان نويسندگان

حامد شیرزاد (431)

soften (0)


جستجوگر پيشرفته سايت




?
آخرين ارسال هاي انجمن
آخرين ارسال هاي انجمن


فیلم آموزش جی کوئری ( JQuery )



jQuery course
Flash Video | MP4 / AVC, ~675 kb/s | 1064x600 | Duration: 01:26:35 | English: AAC, 81 kb/s (2 ch) | 465 mb
Genre: Development / Programming

بازديد : 764 بار دسته بندي : آموزش برنامه نویسی جاوا ( Java ) نظر دهيد! [ ]


کتاب آموزش دروپال 7


David Mercer, "Drupal 7"
English | ISBN: 1849512868 | edition 2010 | PDF | 416 pages | 13.7 mb

بازديد : 1053 بار دسته بندي : آموزش برنامه نویسی اینترنت و شبکه مفاهیم شبکه آموزش عمومی برنامه های کاربردی کتابخانه کتاب نظر دهيد! [ ]


محاسبه طول عمر یک فرد - کد دلفی



function CalculateAge(Birthday, CurrentDate: TDate): Integer; 
var 
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; 
begin 
  DecodeDate(Birthday, Year, Month, Day); 
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); 
  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then 
  begin 
    Result := 0; 
  end 
  else 
  begin 
    Result := CurrentYear - Year; 
    if (Month > CurrentMonth) then 
      Dec(Result) 
    else 
    begin 
      if Month = CurrentMonth then 
        if (Day > CurrentDay) then 
          Dec(Result); 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Caption := Format('Your age is %d', [CalculateAge(StrToDate('01.03.1953'), Date)]); 
end;

بازديد : 1003 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


تشخیص توع ارتباط اینترنت با کد دلفی


uses 
  WinInet; 

const 
  MODEM = 1; 
  LAN = 2; 
  PROXY = 4; 
  BUSY = 8; 


function GetConnectionKind(var strKind: string): Boolean; 
var 
  flags: DWORD; 
begin 
  strKind := ''; 
  Result := InternetGetConnectedState(@flags, 0); 
  if Result then 
  begin 
    if (flags and MODEM) = MODEM then strKind := 'Modem'; 
    if (flags and LAN) = LAN then strKind := 'LAN'; 
    if (flags and PROXY) = PROXY then strKind := 'Proxy'; 
    if (flags and BUSY) = BUSY then strKind := 'Modem Busy'; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  strKind: string; 
begin 
  if GetConnectionKind(strKind) then 
    ShowMessage(strKind); 
end;

بازديد : 898 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


غیر فعال کردن ماوس و کیبورد با کد دلفی


procedure TForm1.Button1Click(Sender: TObject) ;
 
  function FuncAvail(dllName, funcName: string; var p: pointer): boolean;
  var
    lib: THandle;
  begin
    result := false;
    p := nil;
    if LoadLibrary(PChar(dllName)) = 0 then exit;
    lib := GetModuleHandle(PChar(dllName)) ;
    if lib <> 0 then
    begin
     p := GetProcAddress(lib, PChar(funcName)) ;
     if p <> nil then Result := true;
    end;
  end;
 
  var
    BlockInput : function(Block: BOOL): BOOL; stdcall;
 
  begin
   if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then
   begin
    ShowMessage('Your Mouse and Keyboard will be blocked for 5 seconds!') ;
    BlockInput(true) ;
    Sleep(5000) ;
    BlockInput(false) ;
   end;
  end;
 
end.

بازديد : 1003 بار دسته بندي : آموزش برنامه نویسی دلفی ( Delphi ) نظر دهيد! [ ]


پيوند ها پيوند ها'

تبادل لينک تبادل لينک تبادل لينک تبادل لينک

  • آپلود عکس

    دانلود آهنگ جدید

    دانلود انیمیشن

    دانلود فیلم جدید

    دانلود سریال

    دانلود رایگان

    آنلاک آیفون

    خرید اپل آیدی معتبر

    خرید و فروش خودرو

    فروش خودرو

    خرید خودرو

    خرید لایک اینستاگرام

    افزایش فالوور اینستاگرام

    خرید فالوور اینستاگرام

    طراحی داخلی

    خرید گیفت کارت گوگل پلی

    مشاوره پایان نامه ارشد

    خرید سرور مجازی انگلیس

    خرید فیلتر شکن

    بهترین سایت مد و زیبایی

    پرورش بلدرچین

    رمضان سال 95

    اخبار فوتبال

    جی پی اس گارمین

    چاپ کاتالوگ و بروشور

    خرید جم کلش رویال

    دانلود آهنگ جدید

    نوین پی سی :: نوین ترین فروشگاه آنلاین در ایران












  • بک لينک بک لينک
    خرید گیفت کارت ارزان اسپاتیفای استیم
    خرید آنلاین گیفت کارت گوگل پلی با گیفتی دات کام
    خاک پوششی
    تور ارزان کیش لحظه آخری
    هتل های 5 ستاره کیش
    تور کیش از مشهد لحظه آخری
    تور کیش نوروز 95
    دیدنی های جزیره کیش
    بلیط کیش ارزان قیمت
    بلیط پرواز کیش
    خرید گیفت کارت آیتونز و گوگل پلی
    بزرگترین مرکز خرید و فروش گیفت کارت
    تور ارزان کیش نوروز 95