Help with project! Puzzle in Gambas

Post

Posted
Rating:
#1 (In Topic #766)
MB4055
Trainee
 My professor has asigned a project that I havent been able to do.
The project consists of making a 4x4 jigsaw puzzle competition between 2 players, the code must choose between 6 random images and alternate each image until a player finishes the puzzle.
I dont have a clue on how to do it.

Can anyone orient me/help me.
Online now: No Back to the top

Post

Posted
Rating:
#2
stevedee
Avatar
Regular
stevedee is in the usergroup ‘Regular’

MB4055 said

…Can anyone orient me/help me.

Yes, I'm sure we can.

But before anyone jumps in and provides an 'oven-ready' project (this will not help MB4055 with his studies in the long run) lets see if we can point you in the right direction.

Have you written any code in Gambas? If not, you need to start by studying the language, following the documentation, and creating a few simple projects.

If you have worked with Gambas for a while, what part of your assignment are you struggling with? If its the concept of creating an algorithm or method of approaching the problem, you should go back to your tutor for advice.

If you have an idea of how to approach the problem, but are unsure how aspects of your algorithm could be implemented (e.g. generating random references to images) then ask away.

If you have some code that is not working as expected, post your code here.

I hope this is of some help.
Online now: No Back to the top

Post

Posted
Rating:
#3
MB4055
Trainee
 Thank you so much for replying!!
Yeah, i have some experience writing code in this language.Im taking ly first coding class in college. I started to struggle when we got into arrays.

I thought that I could start this algorithm by making a 1 dimension array and formatting it into a 4×4 chart. Create a second array and assign values from 1-16 that correspond to each piece of the image and with a bunch of IF's and some luck get it to work. Is this the right way? Or is there something else I could do?
Experience level: basic to low intermediate.
PS. This thing is due monday and its 40% of the final grade. Im going nuts.
Online now: No Back to the top

Post

Posted
Rating:
#4
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
I think that doing this by Monday is a tall order and I don't want to do the work for you but, I was interested in how you might split an image into 16 pieces and came up with the code below that you can copy into a new Graphical Project.
You will need to change the picture to one you have. See line 20.

<IMG src="https://www.cogier.com/gambas/PictPieces1.png"> </IMG>

<IMG src="https://www.cogier.com/gambas/PictPieces2.png"> </IMG>

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Public pPicture As New Picture[16]
  4. hPictureBox As PictureBox
  5. PictureBox1 As PictureBox
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   With Me
  10.     .border = False
  11.     .Maximized = True
  12.     .Show
  13.     .Arrangement = Arrange.Fill
  15.  
  16.   With PictureBox1 = New PictureBox(Me) As "PictureBox1"
  17.     .Alignment = Align.Center
  18.     .Mode = PictureBox.Fill
  19.     .Expand = True
  20.     .Picture = Picture.Load(User.home &/ "Pictures/APOD_Aurora over Clouds.png") ''CHANGE THIS TO A PICTURE THAT WILL FILL YOUR SCREEN e.g 1920 x 1080
  22.  
  23.   Wait 2 'Just to allow the picture to display fully
  24.   BreakupPictureInto16Pieces
  25.  
  27.  
  28. Public Sub BreakupPictureInto16Pieces()
  29.  
  30.   Dim iWidth, iHeight, iCount As Integer
  31.  
  32.   For iWidth = 1 To Desktop.Width Step Desktop.Width / 4
  33.     For iHeight = 1 To Desktop.Height Step Desktop.Height / 4
  34.       pPicture[iCount] = Desktop.Screenshot(iWidth, iHeight, Desktop.Width / 4, Desktop.Height / 4)
  35.       Inc iCount
  36.     Next
  37.   Next
  38.  
  39.   Pieces
  40.  
  42.  
  43. Public Sub Pieces()
  44.  
  45.   Dim iLoop As Integer
  46.   Dim iPadding As Integer = 5
  47.   Dim iOrder As Integer[] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  48.  
  49.   iOrder.Shuffle()
  50.   PictureBox1.Delete
  51.  
  52.   With Me
  53.     .Maximized = False
  54.     .Border = True
  55.     .Height = Desktop.Height / 2
  56.     .Width = Desktop.Width / 2
  57.     .Padding = iPadding
  58.     .Arrangement = Arrange.Row
  59.     .Center
  61.  
  62.   For iLoop = 0 To 15
  63.     With hPictureBox = New PictureBox(Me) As "PictBoxes"
  64.       .Padding = iPadding
  65.       .Height = Me.Height / 4 - (iPadding * 4)
  66.       .Width = Me.Width / 4 - (iPadding * 4)
  67.       .Mode = PictureBox.Contain
  68.       .Alignment = Align.Center
  69.       .Picture = FMain.pPicture[iOrder[iLoop]]
  70.     End With
  71.   Next
  72.  
  74.  
Online now: No Back to the top

Post

Posted
Rating:
#5
MB4055
Trainee

cogier said

I think that doing this by Monday is a tall order and I don't want to do the work for you but, I was interested in how you might split an image into 16 pieces and came up with the code below that you can copy into a new Graphical Project.
You will need to change the picture to one you have. See line 20.

<IMG src="https://www.cogier.com/gambas/PictPieces1.png"> </IMG>

<IMG src="https://www.cogier.com/gambas/PictPieces2.png"> </IMG>

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Public pPicture As New Picture[16]
  4. hPictureBox As PictureBox
  5. PictureBox1 As PictureBox
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   With Me
  10.     .border = False
  11.     .Maximized = True
  12.     .Show
  13.     .Arrangement = Arrange.Fill
  15.  
  16.   With PictureBox1 = New PictureBox(Me) As "PictureBox1"
  17.     .Alignment = Align.Center
  18.     .Mode = PictureBox.Fill
  19.     .Expand = True
  20.     .Picture = Picture.Load(User.home &/ "Pictures/APOD_Aurora over Clouds.png") ''CHANGE THIS TO A PICTURE THAT WILL FILL YOUR SCREEN e.g 1920 x 1080
  22.  
  23.   Wait 2 'Just to allow the picture to display fully
  24.   BreakupPictureInto16Pieces
  25.  
  27.  
  28. Public Sub BreakupPictureInto16Pieces()
  29.  
  30.   Dim iWidth, iHeight, iCount As Integer
  31.  
  32.   For iWidth = 1 To Desktop.Width Step Desktop.Width / 4
  33.     For iHeight = 1 To Desktop.Height Step Desktop.Height / 4
  34.       pPicture[iCount] = Desktop.Screenshot(iWidth, iHeight, Desktop.Width / 4, Desktop.Height / 4)
  35.       Inc iCount
  36.     Next
  37.   Next
  38.  
  39.   Pieces
  40.  
  42.  
  43. Public Sub Pieces()
  44.  
  45.   Dim iLoop As Integer
  46.   Dim iPadding As Integer = 5
  47.   Dim iOrder As Integer[] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  48.  
  49.   iOrder.Shuffle()
  50.   PictureBox1.Delete
  51.  
  52.   With Me
  53.     .Maximized = False
  54.     .Border = True
  55.     .Height = Desktop.Height / 2
  56.     .Width = Desktop.Width / 2
  57.     .Padding = iPadding
  58.     .Arrangement = Arrange.Row
  59.     .Center
  61.  
  62.   For iLoop = 0 To 15
  63.     With hPictureBox = New PictureBox(Me) As "PictBoxes"
  64.       .Padding = iPadding
  65.       .Height = Me.Height / 4 - (iPadding * 4)
  66.       .Width = Me.Width / 4 - (iPadding * 4)
  67.       .Mode = PictureBox.Contain
  68.       .Alignment = Align.Center
  69.       .Picture = FMain.pPicture[iOrder[iLoop]]
  70.     End With
  71.   Next
  72.  
  74.  


Hey man!
Thank you so much for replying, what you did really helps me out a lot. I'm really grateful.
Is there a way I could contact you privately? Facebook, IG, WhatsApp or anything?
I have few questions regarding my code.
Again thank you so much.
Online now: No Back to the top

Post

Posted
Rating:
#6
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
 I am happy to help but would prefer that you post your queries here so that others can assist as well, I don't know it all! Based on the information I have, you are in Mexico and your time zone is GMT-8, mine is GMT, so responses will take a little time.

However, if it helps, you can email me at admin AT gambas DOT one.
Online now: No Back to the top

Post

Posted
Rating:
#7
MB4055
Trainee

cogier said

I am happy to help but would prefer that you post your queries here so that others can assist as well, I don't know it all! Based on the information I have, you are in Mexico and your time zone is GMT-8, mine is GMT, so responses will take a little time.

However, if it helps, you can email me at admin AT gambas DOT one.
Awesome, I will post here then.
This is my main struggle right now. Each piece of the puzzle has an assigned place on the chart. Pieces go somewhat like this 16 15 14 13
                                                                                                                                                                                   12 11 10  9
                                                                                                                                                                                     8  7   6  5
                                                                                                                                                                                     4  3   2  1
On the right of the screen I have a set of pictures boxes arranged randomly where the user can grab one and place them into of the above. What I dont know to do this; I.E. Lets say the user wants to put piece #5 of the puzzle into the spot where piece #1 should go, I need the code to only allow the drop if the spot he wants to move matches the place where he wants to put it. There is an attempt in this code in a subroutine called "matching". I would appreciate if yall could get me onto the right track. Mario.  PS. Mario is my name
  

Code

Public Sub Form_Open()
 
  PictureBox2.Drop = True
  PictureBox3.Drop = True
  PictureBox4.Drop = True
  PictureBox5.Drop = True
  PictureBox6.Drop = True
  PictureBox7.Drop = True
  PictureBox8.Drop = True
  PictureBox9.Drop = True
  PictureBox10.Drop = True
  PictureBox11.Drop = True
  PictureBox12.Drop = True
  PictureBox13.Drop = True
  PictureBox14.Drop = True
  PictureBox15.Drop = True
  PictureBox16.Drop = True
  PictureBox17.Drop = False

  PictureBox30.tag = "1.jpg"
  PictureBox30.Picture = Picture["1.jpg"]
 
   PictureBox29.tag = "2.jpg"
  PictureBox29.Picture = Picture["2.jpg"]
 
   PictureBox23.tag = "3.jpg"
  PictureBox23.Picture = Picture["3.jpg"]
 
   PictureBox27.tag = "4.jpg"
  PictureBox27.Picture = Picture["4.jpg"]
 
   PictureBox21.tag = "5.jpg"
  PictureBox21.Picture = Picture["5.jpg"]
 
   PictureBox18.tag = "6.jpg"
  PictureBox18.Picture = Picture["6.jpg"]
 
   PictureBox31.tag = "7.jpg"
  PictureBox31.Picture = Picture["7.jpg"]
 
   PictureBox24.tag = "8.jpg"
  PictureBox24.Picture = Picture["8.jpg"]
 
   PictureBox33.tag = "9.jpg"
  PictureBox33.Picture = Picture["9.jpg"]
 
   PictureBox26.tag = "10.jpg"
  PictureBox26.Picture = Picture["10.jpg"]
 
   PictureBox19.tag = "11.jpg"
  PictureBox19.Picture = Picture["11.jpg"]
 
   PictureBox32.tag = "12.jpg"
  PictureBox32.Picture = Picture["12.jpg"]
 
   PictureBox28.tag = "13.jpg"
  PictureBox28.Picture = Picture["13.jpg"]
 
   PictureBox22.tag = "14.jpg"
  PictureBox22.Picture = Picture["14.jpg"]
 
   PictureBox20.tag = "15.jpg"
  PictureBox20.Picture = Picture["15.jpg"]
 
   PictureBox25.tag = "16.jpg"
  PictureBox25.Picture = Picture["16.jpg"]
End

Public Sub PictureBox30_MouseDrag()
   
    drag.icon = Last.Picture
    PictureBox30.Drag(PictureBox30.Tag)
End

Public Sub PictureBox17_Drop()

     'PictureBox17.Picture = Picture[Drag.data]
     matching()
 
End

Public Sub matching()
  If PictureBox30.Picture = PictureBox17.Picture
    PictureBox17.Drop = True
  Endif
 
End

'
'

Public Sub PictureBox29_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox29.Drag(PictureBox29.Tag)
End

Public Sub PictureBox15_Drop()
 
  PictureBox15.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox23_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox23.Drag(PictureBox23.Tag)
End

Public Sub PictureBox16_Drop()
 
  PictureBox16.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox27_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox27.Drag(PictureBox27.Tag)
End

Public Sub PictureBox14_Drop()
 
  PictureBox14.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox21_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox21.Drag(PictureBox21.Tag)
End

Public Sub PictureBox13_Drop()
 
  PictureBox13.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox18_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox18.Drag(PictureBox18.Tag)
End

Public Sub PictureBox11_Drop()
 
  PictureBox11.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox31_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox31.Drag(PictureBox31.Tag)
End

Public Sub PictureBox12_Drop()
 
  PictureBox12.Picture = Picture[Drag.data]
 
End

'
'

Public Sub PictureBox24_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox24.Drag(PictureBox24.Tag)
End

Public Sub PictureBox10_Drop()
 
  PictureBox10.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox33_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox33.Drag(PictureBox33.Tag)
End

Public Sub PictureBox9_Drop()
 
  PictureBox9.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox26_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox26.Drag(PictureBox26.Tag)
End

Public Sub PictureBox7_Drop()
 
  PictureBox7.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox19_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox19.Drag(PictureBox19.Tag)
End

Public Sub PictureBox8_Drop()
 
  PictureBox8.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox32_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox32.Drag(PictureBox32.Tag)
End

Public Sub PictureBox6_Drop()
 
  PictureBox6.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox28_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox28.Drag(PictureBox28.Tag)
End

Public Sub PictureBox5_Drop()
 
  PictureBox5.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox22_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox22.Drag(PictureBox22.Tag)
End

Public Sub PictureBox3_Drop()
 
  PictureBox3.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox20_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox20.Drag(PictureBox20.Tag)
End

Public Sub PictureBox4_Drop()
 
  PictureBox4.Picture = Picture[Drag.data]
 
End
'
'

Public Sub PictureBox25_MouseDrag()
 
    drag.icon = Last.Picture
    PictureBox25.Drag(PictureBox25.Tag)
End

Public Sub PictureBox2_Drop()
 
  PictureBox2.Picture = Picture[Drag.data]
 
End
Online now: No Back to the top

Post

Posted
Rating:
#8
stevedee
Avatar
Regular
stevedee is in the usergroup ‘Regular’
I'm sorry, I don't really understand your code. But from your description of how it should work…

MB4055 said

…This is my main struggle right now. Each piece of the puzzle has an assigned place on the chart. Pieces go somewhat like this 16 15 14 13
                                                                                                                                                                                   12 11 10  9
                                                                                                                                                                                     8  7   6  5
                                                                                                                                                                                     4  3   2  1
On the right of the screen I have a set of pictures boxes arranged randomly where the user can grab one and place them into of the above…
Lets say the user wants to put piece #5 of the puzzle into the spot where piece #1 should go, I need the code to only allow the drop if the spot he wants to move matches the place where he wants to put it…

…you seem to have a grid of 'destination' PictureBoxes 1 to 16, plus random 'user selection' PictureBoxes with image clips.

Since each random box has the image name in the Tag property, can't you just put the required image name in the appropriate destination PictureBox Tag, and then do a simple Tag compare each time the user tries to make a move?

I'm sorry if I've misunderstood your problem and I'm way off target.
Online now: No Back to the top

Post

Posted
Rating:
#9
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
I agree with Steve that using a tag will confirm that the correct image drops into the correct PictureBox. I have updated my code to show this working.

If you are posting code use the gb button, it looks a lot better.

<IMG src="https://www.cogier.com/gambas/gb.png"> </IMG>

Code (gambas)

  1. ' Gambas class file
  2.  
  3. pPicture As New Picture[16]
  4. hPictureBox As PictureBox
  5. PictureBox1 As PictureBox
  6. Splitter1 As Splitter
  7. HPanel1 As Hpanel
  8. HPanel2 As Hpanel
  9. pImage As Image
  10. Timer1 As Timer
  11. iPictDragNo As Integer
  12. iTime As Integer
  13. iCounter As Integer
  14. iAttempts As Integer
  15.  
  16. Public Sub Form_Open()
  17.  
  18.   With Me
  19.     .border = False
  20.     .Maximized = True
  21.     .Show
  22.     .Arrangement = Arrange.Fill
  24.  
  25.   With PictureBox1 = New PictureBox(Me) As "PictureBox1"
  26.     .Alignment = Align.Center
  27.     .Mode = PictureBox.Fill
  28.     .Expand = True
  29.     .Picture = Picture.Load(User.home &/ "Pictures/APOD_Northern Summer Twilight.png") ''CHANGE THIS TO A PICTURE THAT WILL FILL YOUR SCREEN e.g 1920 x 1080
  31.  
  32.   Wait 0.25 'Just to allow the picture to display fully
  33.   BreakupPictureInto16Pieces
  34.  
  35.   Timer1 = New Timer As "Timer1"
  36.   Timer1.Start
  37.  
  39.  
  40. Public Sub BreakupPictureInto16Pieces()
  41.  
  42.   Dim iWidth, iHeight, iCount As Integer
  43.  
  44.   For iHeight = 1 To Desktop.Height Step Desktop.Height / 4
  45.     For iWidth = 1 To Desktop.Width Step Desktop.Width / 4
  46.       pPicture[iCount] = Desktop.Screenshot(iWidth, iHeight, Desktop.Width / 4, Desktop.Height / 4)
  47.       Inc iCount
  48.     Next
  49.   Next
  50.  
  51.   Pieces
  52.  
  54.  
  55. Public Sub Pieces()
  56.  
  57.   Dim iLoop As Integer
  58.   Dim iPadding As Integer = 0
  59.   Dim iOrder As Integer[] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  60.  
  61.   iOrder.Shuffle()
  62.   PictureBox1.Delete
  63.  
  64.   With Me
  65.     .Maximized = False
  66.     .Border = True
  67.     .Height = Desktop.Height / 2
  68.     .Width = Desktop.Width / 1.5
  69.     .Padding = iPadding
  70.     .Arrangement = Arrange.Vertical
  71.     .Center
  73.  
  74.   With Splitter1 = New Splitter(Me) As "Splitter1"
  75.     .Expand = True
  77.  
  78.   With HPanel1 = New Hpanel(Splitter1) As "HPanel1"
  79.     .Expand = True
  81.  
  82.   With HPanel2 = New Hpanel(Splitter1) As "HPanel2"
  83.     .Expand = True
  85.  
  86.   FMain.Refresh
  87.   Wait 0.1
  88.   Splitter1.layout = [50, 50]
  89.  
  90.   For iLoop = 0 To 15
  91.     With hPictureBox = New PictureBox(HPanel1) As "PictBoxes"
  92.       .Padding = iPadding
  93.       .Height = HPanel1.Height / 4
  94.       .Width = HPanel1.Width / 4
  95.       .Mode = PictureBox.Fill
  96.       .Alignment = Align.Center
  97.       .Picture = pPicture[iOrder[iLoop]]
  98.       .Tag = iOrder[iLoop]
  99.     End With
  100.   Next
  101.  
  102.   For iLoop = 0 To 15
  103.     With hPictureBox = New PictureBox(HPanel2) As "ResultBoxes"
  104.       .Padding = iPadding
  105.       .Height = HPanel1.Height / 4
  106.       .Width = HPanel1.Width / 4
  107.       .Mode = PictureBox.Fill
  108.       .Alignment = Align.Center
  109.       .Tag = iLoop
  110.       .Drop = True
  111.       .Border = Border.Plain
  112.     End With
  113.   Next
  114.  
  116.  
  117. Public Sub PictBoxes_MouseDrag()
  118.  
  119.   pImage = Last.Picture.Image
  120.   iPictDragNo = Last.tag
  121.   If Mouse.Left Then Last.Drag(pImage)
  122.  
  124.  
  125. Public Sub ResultBoxes_Drop()
  126.  
  128.  
  129.   If iPictDragNo = Last.Tag Then
  130.     Last.Picture = pImage.Picture
  131.     Inc Icounter
  132.     For Each PB In HPanel1.Children
  133.       If pb.Tag = iPictDragNo Then pb.Picture = Null
  134.     Next
  135.   End If
  136.   Inc iAttempts
  137.  
  139.  
  140. Public Sub Timer1_Timer()
  141.  
  142.   Inc iTime
  143.   Me.Title = "Time taken = " & Str(iTime) & " Seconds - Attemps = " & Str(iAttempts)
  144.   If iCounter = 16 Then Timer1.Stop
  145.  
  147.  
Online now: No Back to the top
1 guest and 0 members have just viewed this.