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
  [Help] How could I make some fake proof like this? (With website refresh etc.) Murker 1 163 2017-10-21, 10:45 PM
Last Post: sudipda
  How To Fake Games Proof? timrspk 11 614 2017-07-13, 06:46 PM
Last Post: Padfoot
  how to make video Fake PROOF Coins added? warrensandre25 5 528 2017-05-09, 02:13 AM
Last Post: genesis
  [HELP] Anyone Expert in Creating Fake Proofs Raman saab 2 273 2017-04-26, 11:44 AM
Last Post: Raman saab
  How do you make fake proof for Android games? Visualize 7 561 2017-03-28, 02:52 AM
Last Post: zed546





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

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