آخرین اخبار : 

مساله هشت وزیر شطرنج در ۹۲ حالت با ویژوال بیسیک

مساله هشت وزیر شطرنج در ۹۲ حالت با

تخفیف برای خرید این پروژه: زیر دکمه خرید، در پایین همین صفحه

قیمت :   ۸۲۰۰ تومان ( هشت هزار و دویست تومان)

رشته :

کامپیوتر

نوع فایل:

ویژوال بیسیک

توضیحات:


توضیحات : 

پیاده سازی برنامه هشت وزیر شطرنج در ۹۲ حالت مختلف با ویژوال بیسیک     


همراه با فایلهای
اجرایی و ویژوال بیسیک : (EXE , )

بخشهایی از سورس کد این پروژه :

Dim mblnBoard(7, 7) As Boolean

Public Function blnCheckUp(ByVal intRow As Integer, ByVal intColumn As Integer) As Boolean

blnCheckUp = True
Do Until intRow = 0 Or intColumn = 0
intRow = intRow – 1
intColumn = intColumn – 1
If mblnBoard(intRow, intColumn) Then
blnCheckUp = False
Exit Function
End If
Loop
End Function

Public Function blnCheckDown(ByVal intRow As Integer, ByVal intColumn As Integer) As Boolean

blnCheckDown = True
Do Until intRow = 7 Or intColumn = 0
intRow = intRow + 1
intColumn = intColumn – 1
If mblnBoard(intRow, intColumn) Then
blnCheckDown = False
Exit Function
End If
Loop
End Function

Public Function blnCheckAcross(ByVal intRow As Integer, ByVal intColumn As Integer) As Boolean

blnCheckAcross = True
Do Until intColumn = 0
intColumn = intColumn – 1
If mblnBoard(intRow, intColumn) Then
blnCheckAcross = False
Exit Function
End If
Loop
End Function

تصاویری از محیط این برنامه :

=================================

=======================

=======================


پرداخت آنلاین در کلیه ساعات شبانه روز و دانلود آنلاین پروژه با سورس کامل آن

تخفیف بسیار ویژه ۳۰ درصدی : دوست عزیز سعی ما این بوده که پروژه ها را با کمترین قیمت ممکن (مقایسه کنید با قیمت سایر سایتها) در اختیار شما قرار دهیم اما اگر دوستی هست که واقعا این مبلغ نیز برایش مقدور نیست می توانید از طریق دکمه پرداخت زیر به مقدار ۳۰ درصد از وجه این پروژه یا مقاله را محاسبه و کسر کنید و سپس آن را از طریق لینک زیر پرداخت کنید. (با توجه به هزینه های زیاد سرور و نگهداری سایت برای ما، خود شما و وجدانتان را قاضی کرده ایم/ پس دوست من با قضاوت وجدان خودت اگر واقعا از عهده مبلغ قید شده بر نیامدید از لینک تخفیف ویژه استفاده کنید!) متشکرم.پاسخگویی از ۸ صبح لغایت ۳۰: ۲۳ شب.

============

Related posts

, , , , , , , , , , , , , , , , , , , ,

پاسخ دهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

Translate »