Results 1 to 7 of 7

Thread: Professional Casino Slot Machine +- Game -+

  1. #1
    Join Date
    28 Apr 2015
    Location
    Sindh
    Gender
    Male
    Posts
    386
    Threads
    81
    Credits
    1,802
    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 Advance Member
    Last Online
    12th October 2022 @ 02:54 PM
    Join Date
    20 May 2012
    Gender
    Male
    Posts
    6,594
    Threads
    104
    Credits
    30,058
    Thanked
    960

    Default

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

  3. #3
    Umarkhan147's Avatar
    Umarkhan147 is offline Advance Member
    Last Online
    28th August 2022 @ 03:30 PM
    Join Date
    22 Dec 2015
    Location
    Faisalabad
    Age
    28
    Gender
    Male
    Posts
    4,881
    Threads
    244
    Credits
    41,435
    Thanked
    301

    Default

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

  4. #4
    Shayan SB's Avatar
    Shayan SB is offline Senior Member+
    Last Online
    26th March 2018 @ 12:23 PM
    Join Date
    26 Jan 2016
    Location
    FSD
    Age
    26
    Gender
    Male
    Posts
    3,167
    Threads
    80
    Credits
    17,469
    Thanked
    206

    Default

    not bad

  5. #5
    Mr Leet's Avatar
    Mr Leet is offline Senior Member+
    Last Online
    17th November 2019 @ 10:26 PM
    Join Date
    23 Feb 2015
    Location
    In Every Heart
    Gender
    Male
    Posts
    436
    Threads
    14
    Credits
    142
    Thanked
    18

    Default

    Nice
    •°•Mr Leet•°•

  6. #6
    zahra098's Avatar
    zahra098 is offline Senior Member+
    Last Online
    22nd August 2019 @ 04:20 PM
    Join Date
    01 Dec 2017
    Age
    32
    Gender
    Male
    Posts
    306
    Threads
    12
    Credits
    1,383
    Thanked
    7

    Default

    nice sharing amazing one keep sharing really appreciated your effort thanks for helping others too
    any site link is not allowed in signatures.

  7. #7
    leezuka389's Avatar
    leezuka389 is offline Advance Member
    Last Online
    9th August 2023 @ 04:14 PM
    Join Date
    04 Nov 2015
    Gender
    Male
    Posts
    6,596
    Threads
    39
    Credits
    56,449
    Thanked
    294

    Default

    [QUOTE=A_Qayoom;5686580]-: 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 :-


    [/QUOTE




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





    A_Qayoom

Similar Threads

  1. Replies: 1
    Last Post: 10th March 2021, 05:41 PM
  2. Ram Slot Is Not Working.
    By Bilal63 in forum Ask an Expert
    Replies: 17
    Last Post: 3rd August 2013, 06:25 PM
  3. AGP slot
    By ib_22_dik in forum Ask an Expert
    Replies: 3
    Last Post: 19th June 2009, 02: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
  •