affwk03-pkgm17_zero4-plus_728x90PK-[B:Infi,C:G.Phon]
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
    7th December 2016 @ 09:40 PM
    Join Date
    28 Apr 2015
    Location
    Sindh
    Gender
    Male
    Posts
    382
    Threads
    81
    Credits
    1,634
    Thanked
    38

    Default Professional Casino Slot Machine +- Game -+

    affwk03-pkgm17_zero4-plus_336x280PK-[B:Infi,C:G.Phon]
    -: 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
    Join Date
    20 May 2012
    Gender
    Male
    Posts
    6,222
    Threads
    96
    Credits
    20,179
    Thanked
    918

    Default

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

  3. #3
    Join Date
    22 Dec 2015
    Location
    Faisalabad
    Age
    21
    Gender
    Male
    Posts
    4,402
    Threads
    201
    Credits
    26,801
    Thanked
    262

    Default

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

  4. #4
    Join Date
    26 Jan 2016
    Location
    FSD
    Age
    19
    Gender
    Male
    Posts
    2,778
    Threads
    67
    Credits
    12,780
    Thanked
    76

    Default

    not bad

  5. #5
    Mr Leet's Avatar
    Mr Leet is offline Senior Member+
    Last Online
    10th November 2016 @ 12:19 AM
    Join Date
    23 Feb 2015
    Location
    In Every Heart
    Gender
    Male
    Posts
    422
    Threads
    14
    Credits
    45
    Thanked
    18

    Default

    affwk03-pkgm17_zero4-plus_336x280PK-[B:Infi,C:G.Phon]
    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
  •