winzip icon

Gap Solitaire

Submitted on: 8/29/2015 8:02:59 AM
By: Nabeel Hosny 
Level: Advanced
User Rating: Unrated
Compatibility: VB 6.0
Views: 2159
author picture
     Try to Get All the Cards in a Correct Order Ans Suit . From Ace to King With Only 4 Empty Spaces to Work With. Click on a Card . Then Click an Empty Space to be moved . Any King Can Move Free to Any Empty Space_Solve option_Marked move_Remember There is Always A Solution _ Have Fun friends

winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net

Other 65 submission(s) by this author


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Advanced category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

3/1/2019 11:49:18 PMMary

Just a friendly note: Your code (as downloaded) has a serious flaw in it. As it stands, it is impossible to win the game. In the last "If - End If" statement in your Sub "checkorder", the downloaded source code shows "If Val((Labscore.Caption) = 5200 Then", it should read "If Val(Right(Labscore.Caption, 5)) = 5200 Then". I think that you probably forgot that the 'Labscore.Caption' contains not only the numerical 'score', but also the characters "Score : " at the beginning of the 'Labscore.Caption'. As such, the use of "Val" causes the 'Labscore.Caption' to evaluate to zero, which causes the "If" statement to automatically fail. Just thought you'd like to know. (Mary) (Note: I like your games!!!)
(If this comment was disrespectful, please report it.)


Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)

To post feedback, first please login.