Artificial Intelligence - هوش مصنوعی  
انجمن را در گوگل محبوب کنيد :

بازگشت   Artificial Intelligence - هوش مصنوعی > مقدمات هوش مصنوعی > حل مسائل معروف هوش مصنوعي


 
تبليغات سايت
Iranian Association for the Advancement of Artificial Intelligence
ارسال تاپيک جديد  پاسخ
 
LinkBack ابزارهاي تاپيک نحوه نمايش
قديمي ۰۲-۲۹-۱۳۹۰, ۰۲:۱۵ بعد از ظهر   #1 (لینک دائم)
عضو جدید
 
آواتار arashekamangir20
 
تاريخ عضويت: ارديبهشت ۱۳۹۰
پست ها: 1
تشكرها: 0
0 تشكر در 0 پست
پيش فرض لطفا كد پازل 8 رو برام توضيح بديد

سالم لطفا كد بازي پازل رو كه مي بينيد برام توضيح بديد. اگه بصورت خط به خط باشه كه ديگه واقعا ممنونتونم.. مرسي

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Namespace hamishebahar
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private MainB() As Button

Private Sub Btn_Sakht_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Sakht.Click
MainB = New Button(Convert.ToInt32(3) * Convert.ToInt32(3) - 1) {}

Dim x As Integer = 3, y As Integer = 3, C As Integer = 0
For I As Integer = 0 To MainB.Length - 1
MainB(I) = New Button()
MainB(I).Font.Size(10)
MainB(I).Size = New Size(40, 33)
MainB(I).Location = New Point(x, y)
MainB(I).Text = ""
AddHandler MainB(I).Click, AddressOf Btns_Click
MainB(I).Tag = I.ToString()
x += 39
If x = Convert.ToInt32(3) * 39 + 3 Then
x = 3
y += 32
End If
If I = MainB.Length - 1 Then
MainB(I).Text = ""
End If
Me.Controls.Add(MainB(I))
Next I
Dim add As Boolean = True
Do
Dim RDM As New Random()
Dim Mrdm As Integer = RDM.Next(1, MainB.Length)
add = True
For I As Integer = 0 To MainB.Length - 1
If MainB(I).Text = Mrdm.ToString() Then
add = False
Exit For
End If
Next I
If add = True Then
MainB(C).Text = Mrdm.ToString()
C += 1
If C = MainB.Length - 1 Then
Exit Do
End If
End If
Loop
End Sub

Private Function RETMB(ByVal BTNIndex As Integer) As Button()
Dim RET(3) As Button
Try
If MainB(BTNIndex).Top = MainB(BTNIndex - 1).Top Then
RET(0) = MainB(BTNIndex - 1)
End If
Catch e1 As Exception
End Try
Try
If MainB(BTNIndex).Top = MainB(BTNIndex + 1).Top Then
RET(1) = MainB(BTNIndex + 1)
End If
Catch e2 As Exception
End Try
Try
If MainB(BTNIndex).Left = MainB(BTNIndex + Convert.ToInt32(3)).Left Then
RET(2) = MainB(BTNIndex + Convert.ToInt32(3))
End If
Catch e3 As Exception
End Try
Try
If MainB(BTNIndex).Left = MainB(BTNIndex - Convert.ToInt32(3)).Left Then
RET(3) = MainB(BTNIndex - Convert.ToInt32(3))
End If
Catch e4 As Exception
End Try
Return RET
End Function

Private Sub Btns_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim M As Button = CType(sender, Button)
Dim Anjam As Boolean = False
If RETMB(Convert.ToInt32(M.Tag))(0) IsNot Nothing Then
If RETMB(Convert.ToInt32(M.Tag))(0).Text = "" Then
RETMB(Convert.ToInt32(M.Tag))(0).Text = M.Text
M.Text = ""
Anjam = True
End If
End If
If RETMB(Convert.ToInt32(M.Tag))(1) IsNot Nothing AndAlso Anjam = False Then
If RETMB(Convert.ToInt32(M.Tag))(1).Text = "" Then
RETMB(Convert.ToInt32(M.Tag))(1).Text = M.Text
M.Text = ""
Anjam = True
End If
End If
If RETMB(Convert.ToInt32(M.Tag))(2) IsNot Nothing AndAlso Anjam = False Then
If RETMB(Convert.ToInt32(M.Tag))(2).Text = "" Then
RETMB(Convert.ToInt32(M.Tag))(2).Text = M.Text
M.Text = ""
Anjam = True
End If
End If
If RETMB(Convert.ToInt32(M.Tag))(3) IsNot Nothing AndAlso Anjam = False Then
If RETMB(Convert.ToInt32(M.Tag))(3).Text = "" Then
RETMB(Convert.ToInt32(M.Tag))(3).Text = M.Text
M.Text = ""
Anjam = True
End If
End If
CHECKBarandeh()
End Sub

Private Sub CHECKBarandeh()
Dim Pirozi As Boolean = False
For I As Integer = 0 To MainB.Length - 2
If MainB(I).Text = MainB(I + 1).Tag.ToString() Then
Pirozi = True
Else
Pirozi = False
Exit For
End If
Next I
If Pirozi Then
MessageBox.Show("شما برنده شدید")
End If
End Sub



End Class
End Namespace
arashekamangir20 آفلاين است   پاسخ با نقل قول

  #ADS
نشان دهنده تبلیغات
تبليغگر
 
 
 
تاريخ عضويت: -
محل سكونت: -
سن: 2010
پست ها: -
 

نشان دهنده تبلیغات is online  
پاسخ



كاربران در حال ديدن تاپيک: 1 (0 عضو و 1 مهمان)
 

قوانين ارسال
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is فعال
شکلکها فعال است
كد [IMG] فعال است
كدهاي HTML غير فعال است
Trackbacks are فعال
Pingbacks are فعال
Refbacks are فعال




زمان محلي شما با تنظيم GMT +3.5 هم اکنون ۰۸:۳۸ قبل از ظهر ميباشد.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.1.0 ©2007, Crawlability, Inc.

Teach and Learn at Hexib | Sponsored by www.Syavash.com and Product In Review

استفاده از مطالب انجمن در سایر سایت ها، تنها با ذکر انجمن هوش مصنوعي به عنوان منبع و لینک مستقیم به خود مطلب مجاز است

Inactive Reminders By Icora Web Design