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

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

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

رشته :

کامپیوتر

نوع فایل:

ویژوال بیسیک

توضیحات:


توضیحات : 

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


همراه با فایلهای
اجرایی و ویژوال بیسیک : (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

دیدگاهتان را بنویسید

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