سلام

بازگشت گودزيلا

فکر نمی کردم انقدر بشه اما يه غيبت طولانی شد. به هر حال اميدوارم  ديگه پيش نياد!!

--------------------------------------------------------

اما بعد...

داشتم فکر می کردم با چی شروع کنم که ياد (...) يا همون Ellipsis افتادم. شايد ديده باشيد که ازش توی برنامه نويسی استفاده کرده باشن و شايد هم به احتمال زياد اصلا نديده باشيد که خوب يه جورايی طبيعی هستش٬ چون کاربرد رايجی نداره و کمتر استفاده ميشه.

(...) رو اصطلاحا ميگن Ellipsis .

کجا ها کاربرد داره ؟

- جاهايی که نمی خوان محدوديتی در تعداد و نوع پارامترهای پاس شده باشه!

مثلا تابع printf رو در نظر بگيريد که يک رشته ورودی بهش پاس می کنيد که می تونه علاوه بر اين رشته٬ يک سری پارامتر دلخواه با هر نوع ممکن رو که دوست داريد در محلی که در رشته مشخص کرديد چاپ بشه٬ رو هم می تونيد به عنوان ورودی بهش پاس کنيد يا نکنيد.

شايد بگيد خب که چی؟!؟!

- اگه يکم دقت کنيد می بينيد که توی تعريف تابع بايد نام و نوع ورودی ها کاملا مشخص و معتبر باشه و تعداد نامحدود عملا نمی تونه داشته باشه!! پس چطوری تابعی مثل printf بنويسيم؟؟

اينجاست که Ellipsis ضرورت پيدا ميکنه.

حالا چطوری استفاده ميشه ؟

- خيلی ساده!
شکل کلی تعريف تابع با استفاده از Ellipsis به شکل زير هستش:

void MyFunction(int x,...);

البته اين يک نمونه مثال هستش. به کمک x که قبل از ... اومده به آدرس اولين متغيير بعدی پاس شده به تابع بر روی stack دسترسی خواهيم داشت٬ اما اين اصلا ربط مستقيم به نوع و مقدار x نداره و کامپايلر از اين تنها برای دسترسی به متغيير های بعدی استفاده می کنه که اصطلاحا Variable Argument می گن.

ابتدا بايد يک متغيير از نوع va_list تعريف کنيد. بعد بايد از تابع va_start به شکل زير استفاده کنيد:

va_list vl;

va_start( vl, &x);

حالا از طريق متغيير vl به متغييرهای پاس شده دسترسی خواهيد داشت٬ مثلا به شکل زير:

double d;

d = va_arg( vl, double );

خط بالا اولين متغيير رو که فرض کردم double هستش بر می گردونه و برای متغييرهای احتمالی بعدی به همين شکل ادامه پيدا می کنه.

در پايان استفاده بايد تابع va_end رو صدا بزنيد :

va_end( vl );

حالا ديگه به چه شکل دوست داريد استفاده کنید با خودتونه!

اميدوارم به دردتون بخوره!

موفق باشيد

جمعه، ۳۰ اردیبهشت، 1384 -- ساعت ۱:۴۷

سلام

اگه خدا بخواد قصد دارم ادامه بدم!

اميدوارم تنبلی نکنم !!

خوش باشيد

سلام

قرار بود نمايش Menu روی Tray Icon رو بگم.

کار ساده تر از اين حرفاست.

توی کلاس ديالوگتون بصورت public  تابع زير رو اضافه کنيد :

 virtual LRESULT WindowProc(UINT message, WPARAM wParam, LPARAM lParam);

اين برا اينه که message ها رو handle کنيم (ديگه چون يکم عکس گذاشتن سختم بود دستی ميگم انجام بديد که عکس نخواد )

حالا  تابع زير رو توی کد اصلی بنويسيد که قراره menu رو اينجا نمايش بديم :

LRESULT اسم کلاس برنامه تونDlg::WindowProc(UINT message, WPARAM wParam, LPARAM lParam)
{

 return CDialog::WindowProc(message, wParam, lParam);
}

حالا بايد يه menu ساخته باشيد و با استفاده از ID اون و چند خط کد زير می تونيد menu رو نمايش بديد (اينجا من از پيغام کليک راست روی آيکون استفاده کردم) :

   CMenu mymenu,*pmenu;
   if (message == myicon.uCallbackMessage)
   {
  if(lParam==WM_RBUTTONDOWN)
  {
   mymenu.LoadMenu(IDR_MENU1);
   pmenu=mymenu.GetSubMenu(0);
   CPoint pos;
   #ifdef _WIN32_WCE
    pos = CPoint(GetMessagePos());
   #else
    GetCursorPos(&pos);
   #endif
   ::TrackPopupMenu(pmenu->m_hMenu, TPM_TOPALIGN, pos.x, pos.y, 0,
       this->GetSafeHwnd(), NULL);
  mymenu.DestroyMenu();
  pmenu->DestroyMenu();
  }

**اما myicon.uCallbackMessage چيه ؟!

اگه يادتون باشه برای ايجاد tray icon يه شی با  اسم myicon ساخته بوديم همونه  که uCallbackMessage رو توش ست کرده بوديم.

**IDR_MENU1 هم ID منوی مورد نظر هستش.

همين !!

اما توی مطلب بعدی از اينکه چجوری پيغامهای ويندوز رو وقتی که ديالوگ ما فعال نيست بگيريم صحبت می کنم.

خوش باشيد

سلام

مطلب امروز در مورد پنجره های Modless هستش.

شايد بگيد يعنی چی !!!

اگه دقت کرده باشيد معمولا پيغامهای خطا يا هشدار دهنده به شکلی هستند که وقتی نمايش داده ميشوند ديگه نمی تونيد به پنجره برنامه اصلی دسترسی داشته باشيد و غير فعال می شود تا زمانی که به اون پيغام خطا يا هشدار يه جواب مناسب (حالا از OK گرفته تا Yes و No ) بدهيد. به اينگونه نمايش يه پنجره (همون پيغام خطا خودش يه پنجره هستش ديگه) روش Modal ميگن.

حالا بعضی مواقع نياز داريد که پنجره هايی رو نشون بديد که همزمان نياز باشه که هم روی پنجره اصلی برنامه و هم روی اين پنجره جديد نمايش داده شده کار شود (يه مثال خوب و روشن برای اين نوع ياهو مسنجر هستش که اين صفحه اصلی رو در ابتدا داريد و به ازای هر PM که باز می کنيد يا به شما داده ميشه يه پنجره باز ميشه که بايد بتونيد روی هرکدوم که خواستيد کار کنيد ) به اين نوع نمايش پنجره Modless ميگن.

کار خيلی راحت و کوتاه هستش.

اول که خب بايد ديالوگتون و کد های مربوط رو بنويسيد!

هر موقع خواستيد از يه ديالوگ يه ديالوگ ديگه رو نمايش بديد کافی هستش که چند خط زير رو بنويسيد :

سلام

امروز از TrayIcon ميگم براتون.

چی هست ؟!

کنار ساعت ويندوز رو نگاه کن چند تا ازشون ميبينی . آره همون آيکون ها رو می گم.

خيلی کار راحتيه!

اول خط زير يادتون نره :

برا اينکار يه آيکون درست کنيد يا از همون آيکون استاندارد فعلا استفاده کنيد و ID اونو از قسمت resource  و در پوشه Icon پيدا کنيد. بصورت استاندارد يه آيکون با ID 

(IDR_MAINFRAME) ايجاد ميکنه که آيکون MFC هستش.

حالا بايد در اين ۳ خط زير هر جا   IDI_ICON1 که آی دی انتخابی من برا آيکون مورد نظرم بوده, آی دی آيکون خودتون رو بگذاريد:

سلام

امروز ميخوايم يه برنامه ساده بنويسيم که يوزر و پسورد و شماره تلفن بگيره و خودش شروع کنه به اينترنت وصل بشه.

اول که بايد يه پروژه جديد بسازيد و ۳ تا edit box برای اطلاعات يوزر و پسورد و شماره تلفن.

اولين کاری که بايد کنيد اينه که ۱-۲ کلاس رو به پروژه اضافه کنيد که با ۲خط زير انجام ميديد:

#include "ras.h"
#include "raserror.h"

حالا ۲ تا دکمه بگذاريد برای وصل شدن و قطع ارتباط.

برای وصل شدن از چند خط ساده زير استفاده کنيد که هر خط رو جداگانه توضيح ميدم:

 RASDIALPARAMS rdParams;// متغييری(شئی) است برای دادن اطلاعات مورد نياز برای کانکت به اينترنت
 rdParams.dwSize = sizeof(RASDIALPARAMS); 
 rdParams.szEntryName[0] = '\0';
 lstrcpy( rdParams.szPhoneNumber, m_strPhoneNumber );//در اين قسمت شماره تلفن را مقدار دهی ميکنيم
 rdParams.szCallbackNumber[0] = '\0';
 lstrcpy( rdParams.szUserName, m_strUserName );//در اين قسمت يوزررا مقدار دهی ميکنيم
 lstrcpy( rdParams.szPassword, m_strPassword );//در اين قسمت پسورد را مقدار دهی ميکنيم
 rdParams.szDomain[0] = '\0';

HRASCONN hRasConn = NULL;//اين متغيير برای نسبت دادن يک هندل به اين کانکشن در صورت موفقيت خوهد بود که بتوان در آينده از آن استفاده کرد مثلا آنرا قطع کرد
    DWORD dwRet = RasDial( NULL, NULL, &rdParams, 0L, NULL, &hRasConn );//در اين قسمت شروع به شماره گيری ميکند و نتيجه شماره گيری بازگردانده می شود که در صورت موفقيت صفر و در غير اين صورت شماره خطلا خواهد بود
    if ( dwRet == 0 )  return true;
    char  szBuf[256];
 if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )//اگر منجر به خطا شد با استفاده از شماره خطا متن خطا را بدست آمرده نمايش می دهيم و کانکشن را می بنديم
  wsprintf( (LPSTR)szBuf, "Undefined RAS Dial Error (%ld).", dwRet );
 RasHangUp( hRasConn );
 MessageBox( (LPSTR)szBuf, "Error", MB_OK | MB_ICONSTOP );
 return false;

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

 RASCONN ras[20];
 DWORD  dSize, dNumber;
 char  szBuf[256];
 
 connected=false;
 ras[0].dwSize = sizeof( RASCONN );
 dSize = sizeof( ras );   // Get active RAS - Connection
 DWORD  dwRet = RasEnumConnections( ras, &dSize, &dNumber );
 if ( dwRet != 0 )
 {
  if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
   wsprintf( (LPSTR)szBuf, "Undefined RAS Enum Connections error (%ld).", dwRet );
  MessageBox( (LPSTR)szBuf, "RasHangUp", MB_OK | MB_ICONSTOP );
  return false;
 }
 bool bOK = true;
 for( DWORD dCount = 0;  dCount < dNumber;  dCount++ )
 {    // Hang up that connection
  HRASCONN hRasConn = ras[dCount].hrasconn;
  DWORD dwRet = RasHangUp( hRasConn );
  if ( dwRet != 0 )
  {
   char  szBuf[256];
   if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
    wsprintf( (LPSTR)szBuf, "Undefined RAS HangUp Error (%ld).", dwRet );
   MessageBox( (LPSTR)szBuf, "RasHangUp", MB_OK | MB_ICONSTOP );
   bOK = false;
  }
 }
 return bOK;

با اين ۲ تابع ساده ميتونيد به اينترنت متصل شيد. اما نکاتی که هست اينه که :

اولا اصلا کانکشن ويندوزی ساخته نميشه.

دوماً اينکه ايکون اتصال هم نمايش داده نميشه و دست شمارو باز ميگذاره که هرجور دوست داريد اعمال سليقه کنيد.

اميد ئارم مفيد باشه براتون

ان شاالله مطللب بعدی درمورد Tray Icon (آيکون کنار ساعت ويندوز) خواهد بود.

موفق باشيد.

سلام

توی مطلب بعدی می خوام در مورد نوشتن يک برنامه برای وصل شدن به اينترنت(Dialup) صحبت کنم. تو اين برنامه مستقل از ساختن هر گونه connection به اينترنت (يا هر سرور منتظر) متصل می شويد.

قصد دارم اگه فرصت کنم در مورد ايجاد آيکون در کنار ساعت (Try Icon) و نحوه نمايش بالون استاندارد ويندوز روی اون و چگونگی هندل کردن پیغامهای اين آيکون به برنامه اصلی و نحوه نمايش منو روی اون مطلب بنويسم .

چه آينده پرباری!!!!

خوش باشيد

سلام

اگه احتمالا تاحالا سعی کرده باشيد که يه برنامه ديتابيس بنويسيد به مشکل تاريخ شمسی بر خورديد!!!

ديتابيسها از تاريخ ميلادی پشتيبانی ميکنن و از تاريخ شمسی ما بدشون مياد !!!

توابع تبديلی رو نت ميشه پيدا کرد مثلا يکی تو سايت www.iranasp.net معرفی شده که شديدا تو سالهای کبيسه باگ و قاط داره.

تقريبا تمام کسانی که از روشهايی مبتنی بر يکسری آرايه برای محاسبه استفاده کردند دچار مشکل هستن و اصلا قابل اعتماد نيستن. اما روشی که من ميخوام معرفی کنم کاملا علمی و بر پايه محاسبات علم نجوم و تقويم شناسی پياده سازی شده و اصلا مو لا درزش نميره!!(ميگی نه تستش کن)

اما يه نکته که هست اينه که چون من کارهای ديتابيس رو با Delphi انجام ميدم اينو بصورت ۲ تا تابع دلفی نوشتم و چون نيازی به استفاده تو ويژوال سی نداشتم به سی تاحالا ننوشتم و اگه فرصت شد و خواستيد مينويسم و تو وب لاگ ميگذارم.

۲ تا تابع يکی برای تبديل ميلادی به شمسی و ديگری برای تبديل شمسی به ميلادی هستش و خروجی اينها رو من يه رشته در نظر گرفتم ::

function Miladi2Shamsi(iyear,imonth,iday:integer):string;
var
aa:string ;
jdn,jdn2,depoch,cycle,cyear,ycycle,aux1, aux2,yday:integer;
epbase,epyear,mdays:integer;
Const PERSIAN_EPOCH = 1948321 ;
begin
    If ((iYear > 1582) Or ((iYear = 1582) And (iMonth > 10)) Or ((iYear = 1582) And (iMonth = 10) And (iDay > 14))) Then
        jdn:=((1461*(iYear+4800+((iMonth-14) div 12))) div 4)+((367*(iMonth-2-12*(((iMonth-14) div 12)))) div 12)-((3*(((iYear+4900+((iMonth-14) div 12)) div 100))) div 4)+iDay-32075
    Else
    jdn := 367 * iYear - ((7 * (iYear + 5001 + ((iMonth - 9)  div  7)))  div  4) + ((275 * iMonth)  div  9) + iDay + 1729777;
    epbase:=475-474;
    epyear:= 474 + (epbase Mod 2820)  ;
    mdays:= (1 - 1) * 31 ;
    jdn2:=1+mdays+ Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365+Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    depoch:=jdn-jdn2;
    cycle:= Trunc(depoch / 1029983);
    cyear:= depoch Mod 1029983 ;
    If cyear = 1029982 Then
        ycycle:=2820
    Else
    begin
        aux1:=Trunc(cyear / 366);
        aux2:=cyear Mod 366;
        ycycle:=round(((2134*aux1)+(2816*aux2)+2815) / 1028522)+aux1+1;
    End;
    iYear:=ycycle+(2820*cycle)+474;
    If iYear <= 0 Then
        iYear:=iYear-1;
    If iYear>=0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    mdays:=(1-1)*31;
    jdn2:=1+mdays+Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365 +Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    yday:=(jdn-jdn2)+1;
    If yday <= 186 Then
        iMonth:= -Sign(yday / 31) * round(-Abs(yday / 31))
    Else
        iMonth:= -Sign(((yday - 6) / 30)) * round(-Abs((yday - 6) / 30));
    If iYear >= 0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    If iMonth <= 7 Then
        mdays:=(iMonth-1)*31
    Else
        mdays:=(iMonth-1)*30+6;
    jdn2:=1+mdays+Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365+ Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    iDay:=(jdn-jdn2)+1;
     aa:=inttostr(iYear)+'/'+inttostr(iMonth)+'/'+inttostr(iDay);
Miladi2Shamsi:=aa;
end;

-------------------------------------------------------------------------------

//////////////////////////Shamsi2Miadi
function Shamsi2Miladi(iyear,imonth,iday:integer):string;
var
    aa:string;
    epbase,epyear,mdays,jdn,l,n,i,j,k:integer;
    Const PERSIAN_EPOCH = 1948321;
begin
    If iYear >= 0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    If iMonth <= 7 Then
        mdays:=((iMonth)-1)*31
    Else
        mdays:=((iMonth)-1)*30+6;
   jdn:=iDay+mdays+Trunc(((epyear*682)-110) div 2816)+(epyear-1)*365+trunc(epbase div 2820)*1029983+(PERSIAN_EPOCH-1);
   If (jdn > 2299160) Then
   begin
        l := jdn + 68569;
        n := ((4 * l) div 146097);
        l := l - ((146097 * n + 3) div 4);
        i := ((4000 * (l + 1)) div 1461001);
        l := l - ((1461 * i) div 4) + 31 ;
        j := ((80 * l) div 2447);
        iDay := l - ((2447 * j) div 80);
        l := (j div 11) ;
        iMonth := j + 2 - 12 * l ;
        iYear := 100 * (n - 49) + i + l;
    end
   Else
    begin
    j := jdn + 1402;
    k := ((j - 1) div 1461);
    l := j - 1461 * k   ;
    n := ((l - 1) div 365) - (l div 1461) ;
    i := l - 365 * n + 30  ;
    j := ((80 * i) div 2447)   ;
    iDay := i - ((2447 * j) div 80)   ;
    i := (j div 11)   ;
    iMonth := j + 2 - 12 * i   ;
    iYear := 4 * k + n + i - 4716  ;
   end;
     aa:=inttostr(iYear)+'/'+inttostr(iMonth)+'/'+inttostr(iDay);
     Shamsi2Miladi:=aa;
end;

اميدوارم مفيد باشه براتون (که حتما خواهد بود)

موفق باشيد

ميرزائی

سلام

يه دوست عزيزمون درمورد Image Processing برای روبوتهای RoboCup که احتمالا منظورشون Middle Size  بوده سوال کرده بودن.

بايد بگم ما يه ۲ سالی مشغول اين کار بوديم و هر سال بنا به مشکلاتی نا کام از اعزام شديم: سال اول پول گير نيوورديم که ۴ تا روبوت باقيمونده رو بسازيم و سال بعد يعنی همين امسال که برای GermanOpen می خواستيم اعزام بشيم درست ۲ روز قبل اعزام سفارت آلمان لطف کرد آب پاکی ريخت رو دستمون که ويزا نداد البته تقصير ما هم بود !! چون تو دانشگاه و بعدشم نظام وظيفه کلی به مشکل خورديم و پاسپورتها خيلی دير آماده شد. خلاصش رو بگم قسمت نشد بريم حالا تا سال بعد خدا چی بخواد.

تو اين کار پردازش تصوير هم خب قاعدتا داشتيم و اگه سوالی داشتيد ميل بزنيد تا بيشتر صحبت کنيم. اما برای شروع بگم کتاب Digital Image Processing -Richard.C Gonzalez رو يه جورايی حتما بايد بخونيد تا با مبانی پردازش تصوير آشنا بشيد.

مويد