[VB.NET] Need Help in This Code

Welcome to CPAElites - the original incentive CPA affiliate marketing forum online, solely based on "Cost Per Action".

Be a part of something great, join today! Learn CPA marketing with CPAElites, we will teach you everything such as the best CPA networks, CPA offers with highest payouts and best conversion rates, unsaturated CPA niches, most effective traffic sources and more.

Akshay

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 30, 2013
Messages
349
Reaction score
0
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
 

Akshay

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 30, 2013
Messages
349
Reaction score
0
Please help in this code guys
Please
 

Redo

Member
Joined
June 7, 2013
Messages
5
Reaction score
0
gamejump said:
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.
 

lanzye

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
May 17, 2013
Messages
418
Reaction score
0
Age
30
Location
Italy
Try this:
Button1
PHP:
Timer1.Start()
Timer1
PHP:
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
 

Akshay

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 30, 2013
Messages
349
Reaction score
0
thanks you both for helping me out in this issue
 

Akshay

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 30, 2013
Messages
349
Reaction score
0
ya dude thanks alot i will check it
 
Top Bottom