تبلیغات :
آکوستیک ، فوم شانه تخم مرغی، صداگیر ماینر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 5 از 30 اولاول 12345678915 ... آخرآخر
نمايش نتايج 41 به 50 از 299

نام تاپيک: آموزش گام به گام ویژوال بیسیک6.0

  1. #41
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض

    ممنون و تشكر دوست عزيز
    اميدوارم كه بتوانم اغدامات لازم را در اين انجمن انجام دهم

  2. #42
    اگه نباشه جاش خالی می مونه bithiah's Avatar
    تاريخ عضويت
    Mar 2005
    محل سكونت
    هرکجاهستم، باشم، آسمان مال من است
    پست ها
    479

    پيش فرض

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

  3. #43
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض

    سلام خان دوستانه بگویم
    که اشباه گیری هنر نیست 1
    2اگر شما نگران اضافه شدن الکی تاپیک هستید شما هم یک تایپک بیخودی فرستادین.
    الان شما با فرستادن این تایپک بیخودی یک تایپک دیگه بیخودی اضافه شد.
    بعد از اینکه شما حق دارید غلط بگیرید چون این ایراد هر یک از ایرانی ها است که می خواهد رو کم کنی کند. ولی ما هیچ وقت بدل نمی گیریم.
    ممنون

  4. #44
    در آغاز فعالیت
    تاريخ عضويت
    Dec 2005
    پست ها
    6

    پيش فرض

    با سلام

    ممنون از مطالب آموزشي و مفيد شما.
    آيا امكان دريافت فايل تمام مطالب با هم وجود دارد؟

    در صورت امكان فايل مورد نظر را ارسال نمائيد تا خواندن راحتتر گردد.

    با تشكر

  5. #45
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض

    سلام دوست عزیز من تمامی مطالب ارائه شده را خودم می نویسم و فقط بعضی از آنها برای سایت های دیگر می باشد
    ممنون

  6. #46
    داره خودمونی میشه ali_00731's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    20

    پيش فرض

    ممنون خيلي آموزنده بود

  7. #47
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض

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

  8. #48
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض

    به نام خداوند علم و دانش
    اللهم صلٌ علی محمٌد و آل محمٌد و عجٌل فرجهم
    صفحه کلید و صفحه تصویر
    مقدمه ای بر توابع داخلی
    توابع نوعی روال هستند. تفاوت بین تابع و سابروتین آن است که تابع پس از اتمام کار خود(یعنی اجرای کد بدنه تابع)یکم مقدار را به قسمت دیگری از برنامه می فرستند. در فصل بعد یاد می گیرید که چگونه توابع را بنویسید و نیز با طرز کار آنها با تمام جزئیات آشنا می شوید.
    آشنایی با توابع داخلی:
    توابع هیچ . یک یا چند مقدار را می گیرند و یک مقدار را بر می گردانند.
    تابع داخلی internal function یا توبع ذاتی intrinisic function تابعی است که همراه ویژوال بیسیک ارایه می شود و یک کار خاص مثل محاسبه یا عملیات ورودی/خروجی را انجام می دهد.قبل از آنکه بتوانید از یک تابع داخلی استفاده کنید باید نام و پیش نیازهای آن را بدانید. با وجودی که کد درون یک تابع داخلی را نمی بینید. اما می توانید از این توابع در برنامه های خودتان استفاده کنید. توابع داخلی نیز مثل if قسمتی از زبان ویژوال بیسیک هستند
    شما از توابع برای کارهای زیادی استفاده خواهید کرد. هر چه بیشتر با توابع در این فصل و خصوصا فصل بعد آشنا شوید بهتر می توانید از آنها استفاده کنید. فعلا موضوعات زیر را بخاطر بسپارید.
    معمولا یک یا چند مقدار به یک تابع منتقل می شود و به ندرت تابعی را می بینید که به هیچ مقداری نیاز نداشته باشد. این مقادیر که به تابع منتقل می کنید آرگان می گویند.
    آرگمانargumentمقداری است که یک تابع منتقل می شود.
    هموراه بعد از نام تابع باید پرانتز بیاید البته به استثنای توابعی که هیچ آرگمانی نیاز ندارند.
    آرگمان های تابع درون پرانتز قرار می گیرند. در صورتی که چند آرگمان را منتقل می کنید باید آنها را کاملا از هم جدا نمایید.
    در ادامه این قسمت برای سادگی از اصطلاح تابع بجای تابع داخلی استفاده می شود. در این قسمت یک کنترل تصویر را روی فرم نصب کردید و برای بار کردن یک تصویر درون آن از یک تابع استفاده نمودید.
    در اینجا آن خط کد را می بینید. که برای سادگی آرگمان تابع تا حدی خلاصه شده است.
    Image1.picture=loadpicture ("\taknik.bmp")
    نام تابعloadpicture است. در این کتاب هنگام بحث راجع به توابع از پرانتزهای خالی بعد از نام تابع استفاده شده است.
    تا بتواند به راحتی نام توابع متغیر و کنترل ها را از هم تشخیص دهید. تابع فوق یک آرگومان رشته ای دارد.
    ...
    امکان پاسخ دادن کاربر از طریق تابع msgbox()
    تابع msgboxیک تابع پیغام می باشد مثالا وقتی ما یک دستوری داریم که می خواهیم کاربر بعد از انجام آن دستور یک msgbox اجرا شود و بعد از اجرا شدن این دستور کاربر با انتخاب یک یا.. از دستور از تابع msgbox .. که بطور مثال ما یک کار اشتباهی در برنامه انجام می دهیم و برنامه یک پیغام شما اشتباه بودن ما را می گوید و یا ما دکمه خروج را می زنیم پیغامی حاوی آیا شما مطمئن هستید که می خواهید از برنامه خارج شوید ک 2 راه را پیش روی شما می گزارد یکی بله و دیگری خیر با زدن بله شما از برنامه خارج می شوید ولی بازدن خیر داخل برنامه خواهید ماند.
    تابع msg box شمال:
    شمایل
    پیغام
    و دکمه ها می باشد
    نام پروژه
    به کد زیر دقت کنید
    Msgbox=("click for exit")
    کد بالا فقط ما متن اریه شده را نوشتیم و اصلا برای دکمه و شمایل چیزی ننوشتیم.
    خود msgbox اولیه شامل یک دکمه است که با زدن دکمه دستور بعدی اجرا می شود . ولی ما برای دستور کدی ننوشتید خود برنامه با زدن دکمه هر دستوری باشد اجرا می کند
    دستور msgbox("…..") فقط برای یک مطن ارایه می شود ولی اگر بخواهیم دکمه نام پروژه شمایل اضافه کنیم باید قبل از زدن msg box بنویسیم intresponse= ماننده
    Intresponse=msgbox("ms",….,……,….")
    حال برای یاد گیری بهتر یک کد کامل می نویسم
    Intresponse=msgbox("text",vbok+vbquestion+vbdefaul tbutton2,"title")
    برای اینکه ببینید کاربر کدام کلیک را انتخاب کرده باید این مقادیر استفاده کنید.
    به ترتیب
    مقدار>ثابت نامگزاری شده>توضیح
    1
    2
    3
    4
    5
    6
    7
    Vbok
    Vbcancel
    Vbabort
    Vbretry
    Vbignore
    Vbyes
    Vbno
    کاربر دکمه ok را کلیک کرده
    کاربر دکمهcancelرا انتخاب کرده است
    کاربر دکمهabortرا انتخاب کرده است
    کاربر دکمهretry را انتخاب کرده است.
    کاربر دکمه yes را انتخاب کرده است
    کاربر دکمه no را انتخاب کرده است.
    ثابت های نامگزاری شده.
    شمایل
    به ترتیب
    مقدار>ثابت های نامگزاری شده>توضیح>شمایل
    16
    32
    48
    64
    Vbcritical
    Vbquestion
    Vbexclamation
    Vbinformation
    پیغام جدی
    علامت سوال
    علامت هشدار
    اطلاعات
    نام دکمه ها
    Vbokonly
    Vbokcancel
    Vbabortretryignore
    Vbyesnocancel
    Vbyesno
    Vbretrycancel
    ادامه دراد

  9. #49
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض آشنايي با BitBlt

    هدف از اين مبحث آموزشي ، آشنايي با تابع BitBlt و برخي ديگر از توابع کتابخانه Win32 GDI براي انجام برخي عمليات گرافيکي مثل double buffering و خواندن sprite از فايل است .
    نکته : sprite به کاراکترهاي متحرکي گفته مي شود که در بازيها وجود دارد .
    اولين چيزي که به آن نياز داريد ايجاد يک فرم است . خاصيت ScaleMode آنرا برابر 3-Pixel قرار دهيد . پيشنهاد مي کنم که هميشه در هنگام استفاده از فرم بهمراه API از pixel براي scalemode استفاده کنيد .
    سپس سايز فرم را به اندازه اي افزايش دهيد تا ScaleWidth برابر 320 و ScaleHeight برابر 256 شود . توجه کنيد که خاصيت HasDC فرم را True قرار دهيد . همچنين از خاصيت AutoRedraw براي فرم استفاده نمي کنيم زيرا مي خواهيم از Double Buffering استفاده کنيم که بسيار سريعتر و کارامدتر مي باشد .
    مرحله بعدي declare کردن API هايي است که به آنها نياز داريم :

    'blitting
    Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
    'code timer
    Private Declare Function GetTickCount Lib "kernel32" () As Long
    'creating buffers / loading sprites
    Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
    Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
    Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    'loading sprites
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
    'cleanup
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long


    سوال : DC چيست ؟ DC و يا بعبارت ديگر Device Context ، hDC يک عدد است که به يک آدرس در حافظه اشاره مي کند که داده اي در آن ذخيره شده است . در هنگام استفاده از BitBlt براي اشاره کردن به آدرسي که داده گرافيکي در آنجا ذخيره شده ، استفاده مي شود .
    در مرحله بعدي نياز به ذخيره آدرسهاي DC داريم که مي سازيم . آدرسهاي DC مقادير Long هستند همچنين آنها را بصورت Public تعريف مي کنيم :

    'our Buffer's DC
    Public myBackBuffer As Long
    Public myBufferBMP As Long
    'The DC of our sprite/graphic
    Public mySprite As Long
    'coordinates of our sprite/graphic on the screen
    Public SpriteX As Long
    Public SpriteY As Long


    حال بايد تابعي بسازيم که تصاوير گرافيکي درون حافظه load کند . نکته مهمي که بايد به آن توجه کنيد اينست که يک device context خودش به تنهايي هيچ داده گرافيکي ندارد و بايستي يک bitmap موجود باشد تا درون آن load شود براي مثال يک فايل bmp يا يک bitmap خالي که از آن بعنوان back buffer استفاده مي کنيد .
    تابعي که خواهيم نوشت يک device context منطبق با صفحه مي سازد سپس فايلهاي گرافيکي مورد نظر را درون device context قرار مي دهد :

    Public Function LoadGraphicDC(sFileName As String) As Long
    'temp variable to hold our DC address
    Dim LoadGraphicDCTEMP As Long
    'create the DC address compatible with
    'the DC of the screen
    LoadGraphicDCTEMP = CreateCompatibleDC(GetDC(0))
    'load the graphic file into the DC...
    SelectObject LoadGraphicDCTEMP, LoadPicture(sFileName)
    'return the address of the file
    LoadGraphicDC = LoadGraphicDCTEMP
    End Function


    سوال : double-buffering چيست ؟ زمانيکه يک محيط گرافيکي مي سازيد تا درون آن چيزي را ترسيم کنيد ، شما sprite ها / گرافيکها / متن را درون حافظه blit مي کنيد ( offscrean ) سپس نتيجه نهايي را روي صفحه blit مي کنيد . اين عمل از لرزش تصوير يا flickering جلوگيري مي کند ( زماني رخ مي دهد که چندين sprite مستقيماً روي صفحه blit شوند ) و بسيار سريعتر از AutoRedraw است .
    قبل از اينکه مثالي براي اين تابع ذکر کنم تابع BitBlt را توضيح خواهم داد :
    BitBlt تابعي از کتابخانه dll “gdi32” است . اين تابع يک انتقال bit-block از داده هاي مرتبط به يک مستطيل از پيکسلها به يک device context مقصد انجام مي دهد . بعبارت ديگر داده هاي گرافيکي را از محيط گرافيکي ( يک bitmap ) به محيط گرافيکي ديگري ( screen يا يک form ) کپي مي کند . فرم کلي اين تابع بصورت زير است :

    Declare Function BitBlt Lib "gdi32" Alias "BitBlt" _
    (ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long) As Long


    اولين خط بيان مي کند که ما بوسيله gdi32 DLL به تابع BitBlt دسترسي خواهيم داشت . خطوط ديگر پارامترهايي هستند که اين تابع مي گيرد :
    hDestDC : hDC مربوط به محيط مقصد ( اگر مي خواهيد مقصد يک فرم باشد از form.hDC استفاده کنيد و يا اينکه آدرس يک backbuffer را که ساخته ايد بدهيد )
    x : مختصات افقي محلي که مي خواهيد گرافيک شما ظاهر شود .
    y : مختصات عمدي محلي که مي خواهيد گرافيک شما ظاهر شود .
    nWidth : عرض گرافيک شما
    nHeight : ارتفاع گرافيک شما
    hSrcDC : hDC مربوط به محيط مبدا
    xSrc : افست x . 0 زماني استفاده مي شود که بخواهيد از سمت چپترين گوشه گرافيک مبدا عمل blit را انجام دهيد .
    ySrc : افست y
    dwRop : مد draw اي که در زمان blitting گرافيکتان مي خواهيد استفاده کنيد ( Raster Operations يا ROP ) . اين پارامتر مقادير زير را مي تواند بگيرد :
    - vbSrcCopy : داده تصوير مبدا را مستقيماً در مقصد کپي مي کند .
    - vbSrcPaint : داده هاي تصاوير مبدا و مقصد را با هم OR مي کند ( pseudo-alphablending effect )
    - vbSrcAnd : داده هاي تصاوير مبدا و مقصد را با هم AND مي کند ( pseudo-gamma effect )
    - vbSrcInvert : داده هاي تصاوير مبدا و مقصد را با هم XOR مي کند
    - vbSrcErase : ابتدا داده تصوير مقصد را invert مي کند سپس آنرا با داده تصوير مبدا AND مي کند .
    - vbDstInvert : داده تصوير مقصد را invert مي کند و داده تصوير مبدا را در نظر نمي گيرد .
    - vbNotSrcCopy : داده تصوير مبدا را invert مي کند و آنرا مستقيماً در مقصد کپي مي کند .
    - vbNotSrcErase : داده تصاوير مبدا و مقصد را OR کرده و نتيجه را invert مي کند .

    مثالي از کاربرد BitBlt :
    BitBlt Form1.hDC, PlayerX, PlayerY, 48, 48, picPlayer.hDC, 0, 0, vbSrcCopy

    حال مي خواهيم از BitBlt در يک حلقه استفاده کنيم تا يک image را در فرم حرکت دهيم :
    1 – يک فايل bmp با ابعاد 32x32 بسازيد و با نام sprite1.bmp در دايرکتوري پروژه ذخيره کنيد .
    2 – يک دکمه در فرم قرار دهيد و نام آنرا cmdTest بگذاريد .
    3 – دکمه را در گوشه بالايي فرم و در سمت راست قرار دهيد .
    4 – کد زير را براي event مربوط به کليک شدن دکمه بنويسيد :

    'Timer variables...
    Dim T1 As Long, T2 As Long
    ساخت DC براي backbuffer’
    myBackBuffer = CreateCompatibleDC(GetDC(0))
    ساخت يک سطح bitmap براي DC’
    myBufferBMP = CreateCompatibleBitmap(GetDC(0), 320, 256)
    load کردن سطح bitmap خالي درون buffer’
    SelectObject myBackBuffer, myBufferBMP
    قبل از blit کردن درون بافر بايد آنرا با black پر کنيم’
    BitBlt myBackBuffer, 0, 0, 320, 256, 0, 0, 0, vbWhiteness
    load کردن split توسط تابعي که در بالا نوشتيم’
    mySprite = LoadGraphicDC(App.Path & "\sprite1.bmp")
    cmdTest.Enabled = False
    == شروع حلقه اصلي ==’
    خواندن tickcount جاري’
    T2 = GetTickCount
    Do
    DoEvents
    T1 = GetTickCount
    اگر 15 ميلي ثانيه گذشته بود فريم بعدي شروع شود’
    If (T1 - T2) >= 15 Then
    پاک کردن محل قبلي sprite بوسيله پر کردن آنجا با black ‘
    BitBlt myBackBuffer, SpriteX - 1, SpriteY - 1,32, 32, 0, 0, 0, vbBlackness
    Blit کردن sprite درون back buffer’
    BitBlt myBackBuffer, SpriteX, SpriteY, 32, 32,mySprite, 0, 0, vbSrcPaint
    Blit کردن backbuffer روي فرم’
    BitBlt Me.hdc, 0, 0, 320, 256, myBackBuffer,0, 0, vbSrcCopy
    حرکت دادن sprite روي صفحه’
    SpriteX = SpriteX + 1
    SpriteY = SpriteY + 1
    'update timer
    T2 = GetTickCount
    End If
    Loop Until SpriteX = 320

    سپس بايد يک cleanup code بنويسيد تا حافظه هاي را که براي نگهداري تصاوير گرافيکي و buffer ها استفاده کرده ايد آزاد کنيد :

    Private Sub Form_Unload(Cancel As Integer)
    DeleteObject myBufferBMP
    DeleteDC myBackBuffer
    DeleteDC mySprite
    End
    End Sub

  10. #50
    آخر فروم باز تکنیک برتر's Avatar
    تاريخ عضويت
    Sep 2005
    پست ها
    1,705

    پيش فرض کنترل Internet Transfer - قسمت اول

    مقدمه : کنترل Internet Transfer نسبت به کنترل WebBrowser که در روزهاي قبلي معرفي شد در سطح پايينتري قرار دارد . اين کنترل با استفاده از دو پروتکل HTTP و FTP مي تواند داده ها را منتقل کند . اين کنترل زمانيکه از پروتکل HTTP استفاده مي کند با همان روش کنترل WebBrowser به سرويس دهنده صفحات وب متصل مي شود اما بجاي آنکه صفحه وب را نمايش دهد متن Html صفحه را بازيابي مي کند . همچنين زمانيکه اين کنترل از پروتکل FTP استفاده مي کند قادرست فايلها را بين کامپيوترهاي روي شبکه منتقل سازد .
    اتصالات HTTP : همانطور که مي دانيد ، پروتکل HTTP استاندارد وب مي باشد . صفحات وب با زبان Html نوشته مي شوند و انتقال آنها از server به client توسط پروتکل HTTP صورت مي گيرد .
    متد OpenURL : ساده ترين راه استفاده از کنترل IT متد OpenURL است . شکل کلي اين متد بصورت زير است :

    Inet.OpenURL(url,DataType)x

    که url آدرس صفحه وب و DataType نوع داده بازيابي شونده است و دو مقدار icString ( داده متني ) يا icByteArray ( داده باينري ) را مي گيرد . مقدار بازگشتي اين متد ، داده هاي منتقل شده است .
    اين متد بصورت سنکرون کار مي کند يعني در تمام مدت کار آن برنامه نمي تواند کار ديگري انجام دهد . اگر از icByteArray استفاده کنيد بايد مقدار بازگشتي آنرا در يک ارايه بايت قرار دهيد .
    مثال 1 : از بخش Component در منوي Project مورد Microsoft Internet Transfer Control 6.0 را به toolbar خود اضافه کنيد . سپس يک کنترل IT روي فرم قرار دهيد و همچنين يک Rich Textbox و يک دکمه روي فرم قرار دهيد و کد زير را براي event مربوط به کليک دکمه بنويسيد :

    TextBox.text=Inet.OpenURL(“ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    مثال 2 : کد زير داده هاي باينري را از اينترنت خوانده و آنها را در يک فايل ذخيره مي کند :

    Dim b() as byte
    B()=Inet.OpenURL( [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    Open App.path & “\test.zip” For Access Write As #1
    Put #1,b()x
    Close #1


    رويداد StateChanged : کنترل IT فقط يک event دارد که StateChanged مي باشد . اين event زماني روي مي دهد که State کنترل تغيير کند . State هر اتفاقي است که برنامه بايد از آن مطلع شود . تعريف کلي اين event بصورت زير است :

    Inet_StateChanged(ByVal NewState As Integer)x

    که NewState مقداري است که حالت جديد را بيان مي کند . مقادير ممکن اين پارامتر عبارتند از :
    icNone : حالت تغيير نکرده است .
    icResolvingHost : در حال جستجوي آدرس IP کامپيوتر موردنظر .
    icHostResolved : آدرس IP کامپيوتر موردنظر يافت شد .
    icConnecting : در حال اتصال به کامپيوتر مقصد
    icConnected : اتصال به کامپيوتر مقصد برقرار شد .
    icRequesting : در حال ارسال درخواست به کامپيوتر مقصد
    icRequestSent : درخواست به کامپيوتر مقصد ارسال شد .
    icReceivingResponse : در حال دريافت پاسخ از کامپوتر مقصد .
    icResponseReceived : پاسخ کامپيوتر مقصد دريافت شد .
    icDisconnecting : در حال قطع اتصال با کامپيوتر مقصد .
    icDisconnected : اتصال مقصد با موفقيت قطع شد .
    icError : در ارتباط با کامپيوتر مقصد خطايي رخ داده است .
    icResponseCompleted : تکميل پاسخ – تمام داده ها دريافت شد .
    تشخيص خطا در عمليات انتقال داده اهميت بالايي دارد و StateChanged در صورت بروز هر خطايي مقدار icError را برمي گرداند و اطلاعات خطا را در دو خاصيت ResponseCode و ResponseInfo برمي گرداند .
    انتقال داده بصورت آسنکرون : کنترل IT متدهاي انعطاف پذير ديگري هم دارد که آسنکرون هستند و اجازه مي دهند تا همزمان با عمليات انتقال داده ، برنامه به وظايف ديگري هم بپردازد . اين متدها با استفاده از Event Driven Model کار مي کنند . بدين معني که وقتي برنامه درخواست انتقال داده اي را مي دهد کنترل IT درخواست را در زمينه برنامه انجام مي دهد و برنامه ازاد است تا به کارهاي ديگرش بپردازد . زمانيکه داده ها بازيابي شود ، داده ها را از بافر داخلي کنترل IT مي خواند .
    متد GetChunk : در عمليات انتقال آسنکرون ، بايستي داده را توسط اين متد از بافر داخلي کنترل IT بگيريم :

    Inet.GetChunk(datasize[,datatype])x

    که پارامتر datasize از نوع long بوده و تعيين مي کند چند بايت از بافر خوانده شود و پارامتر اختياري datatype نوع داده را مشخص مي کند و مي تواند مقادير icString و icByteArray را بگيرد .
    زمانيکه StateChanged وارد حالتهاي icResponseReceived و يا icResponseCompleted شد بايد از GetChunk استفاده کنيد . بدين صورت که از يک حلقه استفاده مي کنيم تا کل بافر را بخوانيم :

    Private Sub Inet_StateChanged(Byval State as Integer)x
    Dim temp1,temp2
    Select Case State
    Case icResponseCompleted
    temp1=””x
    temp2=””x
    Do
    temp1=Inet.GetChunk(512,icString)x
    temp2=temp2 & temp1
    Loop Until temp1=””x
    End Select
    End Sub

    براي بالابردن کارايي ، بهتر است از قطعات کوچک ( بين 512 تا 1024 بايتي ) استفاده کنيد .
    متد Execute : و اما انعطاف پذيرترين متد کنترل IT ، متد Execute است . فرمت کلي اين متد بصورت زير است :

    Inet.Execute(url,Command,Data,RequestHeaders)x

    که url آدرس مقصد ، Command فرماني است که به کامپيوتر مقصد داده مي شود و Data و RequestHeaders اطلاعات اضافي لازم براي اجراي فرمان داده شده است . فرمانهاي Command همان فرمانهاي HTTP هستند که عبارتند از :
    - GET : دريافت داده ها از کامپيوتر مقصد
    - HEAD : دريافت اطلاعات header از کامپيوتر مقصد
    - POST : ارسال اطلاعات لازم براي تکميل درخواست
    - PUT : ارسال فايل براي کامپيوتر ميزبان ( upload )
    فرمان GET پرکاربردترين فرمان متد Execute است و داده هاي خوانده شده را در بافر داخلي بافر کنترل IT قرار مي دهد تا بتوان با متد GetChunk آنها را بازيابي نمود .
    مثال :

    Inet.Execute [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    ساير خواص کنترلIT :
    - AccessType : نوع دسترسي کنترل IT به اينترنت را مشخص مي کند و سه مقدار مي تواند بگيرد :
    icUseDefault : استفاده از تنظيمات رجيستري براي دسترسي به اينترنت
    icDirect : اتصال مستقيم کنترل IT به اينترنت
    icNamedProxy : اتصال به اينترنت توسط پروکسي
    - Document : نام صفحه پيش فرض که در متد Execute از آن استفاده مي شود . اگر به متد Execute پارامتر url را ندهيد از اين صفحه پيش فرض استفاده مي کند .
    - Password : کلمه رمز عبور کامپيوتر ميزبان FTP
    - Procotol : نوع پروتکل مورد استفاده در متد Execute را مشخص مي کند و 5 مقدار مي تواند بگيرد :
    icUnknown : نامعلوم
    icDefault : پروتکل پيش فرض
    icFTP : پروتکل FTP
    icHTTP : پروتکل HTTP
    icHTTP : پروتکل حفاظت شده HTTP
    - Proxy : نام ميزبان پروکسي
    - RequestTimeOut : مدت زماني که کنترل IT صبر مي کند تا اطلاعات را دريافت کند . اگر اين خاصيت صفر باشد کنترل تا هر زمان که لازم باشد براي دريافت پاسخ صبر مي کند . در حالت سنکرون ( متد OpenURL ) بعد از سپري شدن اين مدت زمان ، يک خطا توليد مي شود و در حالت آسنکرون ( متد Execute ) رويداد StateChanged مقدار خطا را بر مي گرداند
    - ResponseCode : بعد از بروز حالت icError اين خاصيت کد خطا را مي دهد .
    - ResponseInfo : توضيحي درباره خطا
    - StillExecuting : اگر True باشد يعني کنترل مشغول انجام کار است .
    - URL : آدرس مقصد در متدهاي OpenURL و يا Execute
    - UserName : نام کاربر براي ورود به کامپيوتر ميزبان FTP

    نکته 1 : براي دريافت برنامه نمونه براي متد Execute با من تماس بگيريد .
    نکته 2 : موضوع روزهاي بعد :
    1 - اتصالات FTP با استفاده از کنترل IT
    2 – آشنايي با تکنيک Collision Detection در ساخت بازيهاي دوبعدي
    3 – آشنايي با کنترل WinSock
    نکته 3 : شايد اين سوال پيش بيايد که چرا همزمان با آموزش Internet Programming ، آموزش Game Programming را نيز شروع کرده ام ؟ علت اش اينست که تصميم دارم پس از پايان يافتن اين دو مبحث ، روش ساخت يک بازي دوبعدي چند نفره تحت شبکه را برايتان آموزش دهم .

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •