need help for fake program vb 2010
2014-02-26, 02:26 PM,
#1
so ive make program and its almost done but i need little bit help
its generator and when u click "generate" it pop ups a window that says its generating bla bla ... but when progress bar finish i want also again to pup up another window that says "its generated successfully" i know its pretty easy but ive watched allover youtube and i cant do it since im totally newbie in vb, so heres my code if anyone can help me would be thankful.

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        MsgBox("Your Gold Coins are being generated...please wait!")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
      
    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub
End Class
2014-02-26, 03:08 PM,
#2
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)

If ProgressBar1.Value = 100 Then
MsgBox("cool fake app!")
Timer1.Stop()
End If
End Sub
2014-02-26, 03:18 PM,
#3
(2014-02-26, 03:08 PM)gatsu Wrote: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)

If ProgressBar1.Value = 100 Then
MsgBox("cool fake app!")
Timer1.Stop()
End If
End Sub

it works but instead of one window it opens alot of windows ..... damn :/ wheres my mistake?
2014-02-26, 03:18 PM,
(This post was last modified: 2014-02-26, 03:19 PM by TheVBScripter.)
#4
I added the codes to your code, so you can copy / paste them if needed.
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        MsgBox("Your Gold Coins are being generated...please wait!")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
        End if
    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub
End Class

1 tip:
I'd remove this code:
Code:
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
and this one:
Code:
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

Those are codes for what should happen with the labels when you click at them.
I don't think users will click at your labels, so it's better to remove them to avoid confusing.

About the MsgBox, I'd rather say something like this:
"Gold Coins are successfully generated" or if you need to refresh the game something like: "Gold Coins are successfully generated, please refresh browser to add the Coins to your account!"
Instead of: "it's generated successfully".

Anyway, just my opinion Grin
Latest Thanks - View all

magico(2014-02-26 03:57 PM) 
2014-02-26, 03:24 PM,
(This post was last modified: 2014-02-26, 03:58 PM by magico.)
#5
(2014-02-26, 03:18 PM)TheVBScripter Wrote: I added the codes to your code, so you can copy / paste them if needed.
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        MsgBox("Your Gold Coins are being generated...please wait!")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
        End if
    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub
End Class

1 tip:
I'd remove this code:
Code:
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
and this one:
Code:
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

Those are codes for what should happen with the labels when you click at them.
I don't think users will click at your labels, so it's better to remove them to avoid confusing.

About the MsgBox, I'd rather say something like this:
"Gold Coins are successfully generated" or if you need to refresh the game something like: "Gold Coins are successfully generated, please refresh browser to add the Coins to your account!"
Instead of: "it's generated successfully".

Anyway, just my opinion Grin
2014-02-26, 03:30 PM,
#6
You're not stopping the timer.
2014-02-26, 03:33 PM,
(This post was last modified: 2014-02-26, 03:35 PM by TheVBScripter.)
#7
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
              timer1.stop()
        End if
    End Sub

Try this please ^

EDIT:________________________________________________
If that doesn't work, try this code:

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MessageBox.Show("its generated successfully")
              timer1.stop()
        End if
    End Sub

^ This code worked for me, so you could try that one too :)
2014-02-26, 03:35 PM,
#8
(2014-02-26, 03:33 PM)TheVBScripter Wrote:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
              timer1.stop()
        End if
    End Sub

Try this please ^

EDIT:________________________________________________
If that doesn't work, try this code:

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MessageBox.Show("its generated successfully")
              timer1.stop()
        End if
    End Sub

^ This code worked for me, so you could try that one too :)

same it opens like million window's damnn
2014-02-26, 03:37 PM,
#9
(2014-02-26, 03:35 PM)magico Wrote:
(2014-02-26, 03:33 PM)TheVBScripter Wrote:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
              timer1.stop()
        End if
    End Sub

Try this please ^

EDIT:________________________________________________
If that doesn't work, try this code:

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MessageBox.Show("its generated successfully")
              timer1.stop()
        End if
    End Sub

^ This code worked for me, so you could try that one too :)

same it opens like million window's damnn

That's because you used a code for visual basic 2010 and you're using 2012, so please try to use this code for the message box:
Code:
MessageBox.Show("its generated successfully")

That should do the trick.
2014-02-26, 03:40 PM,
(This post was last modified: 2014-02-26, 03:58 PM by magico.)
#10
(2014-02-26, 03:37 PM)TheVBScripter Wrote:
(2014-02-26, 03:35 PM)magico Wrote:
(2014-02-26, 03:33 PM)TheVBScripter Wrote:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MsgBox("its generated successfully")
              timer1.stop()
        End if
    End Sub

Try this please ^

EDIT:________________________________________________
If that doesn't work, try this code:

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If progressbar1.value = 100 Then
              MessageBox.Show("its generated successfully")
              timer1.stop()
        End if
    End Sub

^ This code worked for me, so you could try that one too :)

same it opens like million window's damnn

That's because you used a code for visual basic 2010 and you're using 2012, so please try to use this code for the message box:
Code:
MessageBox.Show("its generated successfully")

That should do the trick.

its vb 2010 express and even with that code its same :/


(2014-02-26, 03:30 PM)gatsu Wrote: You're not stopping the timer.

check now and again its same opening alot of window's


Possibly Related Threads...
Thread Author Replies Views Last Post
  How To Fake Games Proof? timrspk 11 538 2017-07-13, 06:46 PM
Last Post: Padfoot
  how to make video Fake PROOF Coins added? warrensandre25 5 481 2017-05-09, 02:13 AM
Last Post: genesis
  [HELP] Anyone Expert in Creating Fake Proofs Raman saab 2 259 2017-04-26, 11:44 AM
Last Post: Raman saab
  How do you make fake proof for Android games? Visualize 7 479 2017-03-28, 02:52 AM
Last Post: zed546
  How do I fake proof? Limitrin 6 320 2017-03-20, 02:43 AM
Last Post: imonambot




About Us | Contact Us | CPA Elites | Advertise | Stats | Staff Team

© 2013-2017 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top