[VB.NET] Need Help in This Code
2013-06-10, 07:20 PM,
#1
Quote:Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim key As Integer
key = Int(Rnd() * 16)
Select key
Case 0
TextBox1.Text = "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
Case 1
TextBox1.Text = "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
Case 2
TextBox1.Text = "DH434-GSRGF-3954F-4GYTJ-SG43S"
Case 3
TextBox1.Text = "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
Case 4
TextBox1.Text = "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
Case 5
TextBox1.Text = "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
Case 6
TextBox1.Text = "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
Case 7
TextBox1.Text = "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
Case 8
TextBox1.Text = "SGH34-43TFR-325R1-43WFI-SDHIG"
Case 9
TextBox1.Text = "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
End Select
End Sub

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


End Sub

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

End Sub
End Class

When i CLick Generate Button nothing happens but clicking again i mean double click it appears the code in text box
and the progress bar load only one time after that it does not load
Please help in this issue guys
Thanks
Reply
2013-06-12, 11:39 AM,
#2
Please help in this code guys
Please
Reply
2013-06-12, 06:54 PM,
(This post was last modified: 2013-06-12, 06:57 PM by Redo.)
#3
(2013-06-12, 11:39 AM)gamejump Wrote: Please help in this code guys
Please

I tested you code and for me, when I click the button the first time the key is equal to 11 and since 11 is not in the select case the code doesn't show in the textbox but after the first time the key is from 0 - 9 so you should try changing your code from:

key = Int(Rnd() * 16)

to:

Dim rand_num As New Random
key = rand_num.Next(0,9)

That will allow a code to show in the textbox every time you click it.
Reply
2013-06-12, 07:27 PM,
(This post was last modified: 2013-06-12, 07:28 PM by lanzye.)
#4
Try this:
Button1
PHP Code:
Timer1.Start() 
Timer1
PHP Code:
ProgressBar1.Increment(1)
If 
ProgressBar1.Value ProgressBar1.Maximum Then
TextBox1
.Text Int(Rnd() * 10)
Select Case TextBox2.Text
Case 0
TextBox1
.Text "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
Case 1
TextBox1
.Text "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
Case 2
TextBox1
.Text "DH434-GSRGF-3954F-4GYTJ-SG43S"
Case 3
TextBox1
.Text "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
Case 4
TextBox1
.Text "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
Case 5
TextBox1
.Text "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
Case 6
TextBox1
.Text "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
Case 7
TextBox1
.Text "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
Case 8
TextBox1
.Text "SGH34-43TFR-325R1-43WFI-SDHIG"
Case 9
TextBox1
.Text "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
End Select
End 
If 
Reply
2013-06-13, 02:20 PM,
#5
thanks you both for helping me out in this issue
Reply
2013-06-13, 02:58 PM,
#6
Have you resolved? :D
Reply
2013-06-14, 01:27 PM,
#7
ya dude thanks alot i will check it
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  So You Want to Build a Ch@t Bot – Here's How (Complete with Code!) SwiffJustus 0 154 2017-10-05, 09:56 AM
Last Post: SwiffJustus
  I will try to code a bot for you for FREE blacksploit 30 2,207 2017-09-02, 11:49 PM
Last Post: blacksploit
  Aeonsofts VB.NET Theme Manager v2.1 lanzye 29 9,729 2017-06-20, 06:55 PM
Last Post: storix
  Best method to learn to code instagramteam 10 2,168 2017-06-02, 11:01 PM
Last Post: Cupcake1337
  [REQUEST] Comment box with moderation HTML code iamrichsoon 1 707 2016-12-25, 05:51 AM
Last Post: CegaFin




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

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