Results 1 to 5 of 5

Thread: Professional Casino Slot Machine +- Game -+

  1. #1
    A_Qayoom's Avatar
    A_Qayoom is offline Senior Member+
    Last Online
    9th September 2017 @ 04:42 PM
    Join Date
    28 Apr 2015
    Location
    Sindh
    Gender
    Male
    Posts
    386
    Threads
    81
    Credits
    1,749
    Thanked
    38

    Default Professional Casino Slot Machine +- Game -+

    -: Professional Casino Slot Machine :-

    This is a slot machine that resembles the real
    slot machines in the casinos.To create the
    project, you need to insert three image
    boxes into the form and program them so
    that they will display a set of three different
    pictures randomly when the user presses on
    the spin button. It involves a randomization
    process. Next, a timer needs to be
    incorporated into the procedures so that
    the program can produce animated effects.
    In addition, you can also insert the Microsoft
    Multimedia Control so that it can play sounds
    in synchronization with the spinning of the
    slot machine as well as when the player hits
    the jackpot. You can design any interface
    you like. We have created an interface as


    The most important part of the program
    is the spin procedure, the code is as follows:
    Code:
    a = 1 + Int(Rnd *3)
    b = 1 + Int(Rnd *3)
    c = 1 + Int(Rnd *3)
    If a = 1 Then
    Image1(0).Picture
    =LoadPicture("C:\VB program
    \Images\grape.gif")
    End If
    If a = 2 Then
    Image1(0).Picture
    =LoadPicture("C: \VB
    program\Images\cherry.gif")
    End If
    If a = 3 Then
    Image1(0).Picture
    =LoadPicture("C:\VB program
    \Images\orange.gif")
    End If
    If b = 1 Then
    Image1(1).Picture
    =LoadPicture("C:\VB program
    \Images\grape.gif")
    End If
    If b = 2 Then
    Image1(1).Picture
    =LoadPicture("C:\VB program
    \Images\cherry.gif")
    End If
    If b = 3 Then
    Image1(1).Picture
    =LoadPicture("C:\VB program
    \Images\orange.gif")
    End If
    If c = 1 Then
    Image1(2).Picture
    =LoadPicture("C:\VB program
    \Images\grape.gif")
    End If
    If c = 2 Then
    Image1(2).Picture =
    LoadPicture("C:\VB program
    \Images\cherry.gif")
    End If
    If c = 3 Then
    Image1(2).Picture
    =LoadPicture("C:\VB program
    \Images\orange.gif")
    End If
    End Sub
    The three random variables a, b and c will be
    randomly assigned the values 1, 2 and 3
    using the RND function. Based on these
    three random numbers, three different
    pictures will be loaded into the three image
    boxes randomly using the LoadPicture
    method. Animated effects are created by
    putting the above procedure under the
    control of Timer1, which will call the spin
    procedure after every interval until it fulfills a
    certain condition. Sounds are also added
    using the Microsoft Multimedia Control to
    make the game more realistic and
    interesting. The amount won is controlled
    by the If….Then statements
    It is important that you define the correct
    path for the LoadPicture method, otherwise
    the program will not be able to run. For
    example, our path is C:\VB program\Images
    \grape.gif, you need to create the necessary
    folders and have the necessary image file if
    you wish to copy the program directly. If
    you place the image file in a differently
    folder, you need to modify the path
    accordingly. For example, if your image file is
    in D:\VB program\Images\grape.gif, then
    you need to modify the LoadPicture method
    to LoadPicture("D:\VB program\Images
    \grape.gif").

    If you wish to use our image files, you can
    download from the below:

    Orange :-

    cherry :-



  2. #2
    AsifSattarvi's Avatar
    AsifSattarvi is offline Senior Member+
    Last Online
    2nd April 2017 @ 02:46 PM
    Join Date
    20 May 2012
    Gender
    Male
    Posts
    6,593
    Threads
    102
    Credits
    22,798
    Thanked
    954

    Default

    السلام علیکم
    برادر آپ کی شئیرینگ لاجواب ہے ۔۔۔میں اس کو مستقبل قریب میں پوری توجہ سے ساتھ سیکھانا شروع کرنے والا ہوں
    آپ کی شئیر ینگ سے نئے سیکھنے والوں کو ضرور فائدہ پہنچے گا
    ہمارے ساتھ شئیر کرنے کا بہت شکریہ

  3. #3
    Umarkhan147's Avatar
    Umarkhan147 is offline Advance Member
    Last Online
    6th October 2017 @ 10:59 AM
    Join Date
    22 Dec 2015
    Location
    Faisalabad
    Age
    22
    Gender
    Male
    Posts
    4,869
    Threads
    231
    Credits
    31,347
    Thanked
    298

    Default

    ﮨﻤﺎﺭﮮ ﺳﺎﺗﮫ ﺷﺌﯿﺮ ﮐﺮﻧﮯ ﮐﺎ ﺑﮩﺖ ﺷﮑﺮﯾﮧ

  4. #4
    Shayan SB's Avatar
    Shayan SB is offline V.I.P
    Last Online
    14th November 2017 @ 12:56 PM
    Join Date
    26 Jan 2016
    Location
    FSD
    Age
    20
    Gender
    Male
    Posts
    3,156
    Threads
    71
    Credits
    16,432
    Thanked
    206

    Default

    not bad

  5. #5
    Mr Leet's Avatar
    Mr Leet is offline Senior Member+
    Last Online
    8th June 2017 @ 11:35 AM
    Join Date
    23 Feb 2015
    Location
    In Every Heart
    Gender
    Male
    Posts
    436
    Threads
    14
    Credits
    127
    Thanked
    18

    Default

    Nice
    •°•Mr Leet•°•

Similar Threads

  1. Replies: 0
    Last Post: 1st June 2016, 09:06 AM
  2. Ram Slot Is Not Working.
    By Bilal63 in forum Ask an Expert
    Replies: 17
    Last Post: 3rd August 2013, 07:25 PM
  3. AGP slot
    By ib_22_dik in forum Ask an Expert
    Replies: 3
    Last Post: 19th June 2009, 03:45 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •