Process Modules Project

Full Puzzle Game source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Puzzle Game - Skill1.vb


Puzzle Game / Skill1.vb
Puzzle Game - Skill1.vb
Puzzle Game - Skill1.vb

Skill1.vb
  1. Public Class Skill1
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 9
  19.     End Sub
  20.     Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(MPic1.Image)
  24.             MoveObject = MPic1
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)
  29.         End If
  30.     End Sub
  31.     Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click
  32.         If MoveState = 0 Then
  33.             MoveState = 1
  34.             SetubCursor(MPic2.Image)
  35.             MoveObject = MPic2
  36.             MoveObject.visible = False
  37.         Else
  38.             MoveState = 0
  39.             SetubCursor(My.Resources.cursor_copy)
  40.         End If
  41.     End Sub
  42.     Private Sub MPic3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic3.Click
  43.         If MoveState = 0 Then
  44.             MoveState = 1
  45.             SetubCursor(MPic3.Image)
  46.             MoveObject = MPic3
  47.             MoveObject.visible = False
  48.         Else
  49.             MoveState = 0
  50.             SetubCursor(My.Resources.cursor_copy)
  51.         End If
  52.     End Sub
  53.     Private Sub MPic4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic4.Click
  54.         If MoveState = 0 Then
  55.             MoveState = 1
  56.             SetubCursor(MPic4.Image)
  57.             MoveObject = MPic4
  58.             MoveObject.visible = False
  59.         Else
  60.             MoveState = 0
  61.             SetubCursor(My.Resources.cursor_copy)
  62.         End If
  63.     End Sub
  64.     Private Sub MPic5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic5.Click
  65.         If MoveState = 0 Then
  66.             MoveState = 1
  67.             SetubCursor(MPic5.Image)
  68.             MoveObject = MPic5
  69.             MoveObject.visible = False
  70.         Else
  71.             MoveState = 0
  72.             SetubCursor(My.Resources.cursor_copy)
  73.         End If
  74.     End Sub
  75.     Private Sub MPic9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic9.Click
  76.         If MoveState = 0 Then
  77.             MoveState = 1
  78.             SetubCursor(MPic9.Image)
  79.             MoveObject = MPic9
  80.             MoveObject.visible = False
  81.         Else
  82.             MoveState = 0
  83.             SetubCursor(My.Resources.cursor_copy)
  84.         End If
  85.     End Sub
  86.     Private Sub MPic6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic6.Click
  87.         If MoveState = 0 Then
  88.             MoveState = 1
  89.             SetubCursor(MPic6.Image)
  90.             MoveObject = MPic6
  91.             MoveObject.visible = False
  92.         Else
  93.             MoveState = 0
  94.             SetubCursor(My.Resources.cursor_copy)
  95.         End If
  96.     End Sub
  97.     Private Sub MPic7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic7.Click
  98.         If MoveState = 0 Then
  99.             MoveState = 1
  100.             SetubCursor(MPic7.Image)
  101.             MoveObject = MPic7
  102.             MoveObject.visible = False
  103.         Else
  104.             MoveState = 0
  105.             SetubCursor(My.Resources.cursor_copy)
  106.         End If
  107.     End Sub
  108.     Private Sub MPic8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic8.Click
  109.         If MoveState = 0 Then
  110.             MoveState = 1
  111.             SetubCursor(MPic8.Image)
  112.             MoveObject = MPic8
  113.             MoveObject.visible = False
  114.         Else
  115.             MoveState = 0
  116.             SetubCursor(My.Resources.cursor_copy)
  117.         End If
  118.     End Sub
  119.     Private Sub Skill1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  120.         'On Error Resume Next
  121.         If MoveObject IsNot Nothing Then
  122.             MoveObject.visible = True
  123.             MoveObject.left = e.Location.X - MoveObject.width / 2
  124.             MoveObject.top = e.Location.Y - MoveObject.height / 2
  125.             Dim TargetPic As Object = Nothing
  126.             If MoveObject.name = MPic2.Name Then
  127.                 TargetPic = Pic1
  128.             ElseIf MoveObject.name = MPic1.Name Then
  129.                 TargetPic = Pic6
  130.             ElseIf MoveObject.name = MPic3.Name Then
  131.                 TargetPic = Pic4
  132.             ElseIf MoveObject.name = MPic4.Name Then
  133.                 TargetPic = Pic8
  134.             ElseIf MoveObject.name = MPic5.Name Then
  135.                 TargetPic = Pic7
  136.             ElseIf MoveObject.name = MPic9.Name Then
  137.                 TargetPic = Pic2
  138.             ElseIf MoveObject.name = MPic6.Name Then
  139.                 TargetPic = Pic9
  140.             ElseIf MoveObject.name = MPic7.Name Then
  141.                 TargetPic = Pic5
  142.             ElseIf MoveObject.name = MPic8.Name Then
  143.                 TargetPic = Pic3
  144.             Else
  145.                 TargetPic = Nothing
  146.             End If
  147.             If TargetPic IsNot Nothing And MoveObject.left > TargetPic.Left - 50 And MoveObject.top > TargetPic.Top - 50 And MoveObject.left < TargetPic.Left + TargetPic.Width And MoveObject.top < TargetPic.Top + TargetPic.Height Then
  148.                 MoveObject.location = TargetPic.Location
  149.                 Beep()
  150.                 Me.Text = "رائع ...  في المكان الصحيح"
  151.                 SetubCursor(My.Resources.cursor_copy)
  152.                 CountIMG += 1
  153.                 If CountIMG >= SkillPics Then MsgBox("لقد ربحت") : Skill2.Show() : Me.Close()
  154.             Else
  155.                 Me.Text = "لم تتطابق"
  156.                 SetubCursor(My.Resources.cursor1_copy)
  157.             End If
  158.             MoveObject = Nothing
  159.             MoveState = 0
  160.         End If
  161.     End Sub
  162. End Class

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.