Jump to content

[Help] V.B. 2008


avatar
 Share

Recommended Posts

Ok i've got the code bellow for "Visual Basic 2008" but i want it to generate numbers from a list ".txt" ex. "NumberList.txt" "1, 2, 3, 4 - ,999999"

I dont want it to randomize nmbers !

Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Start()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = ("5000")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = ("2500")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Interval = ("1500")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(Int(Val(TextBox1.Text) * Rnd()))
        SendKeys.Send("{enter}")
    End Sub

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

    End Sub
End Class

Link to comment
Share on other sites

You mean you want it to read a .txt file with numbers?

Lets say the txt file contains this:

1
2
3
4
5
6

 

You want your program to read those numbers and post them line by line in a textbox or listbox?

Link to comment
Share on other sites

for generating random numbers use RND (example: rnd() * 50000, output will be between 0 and 50000)

 

and for +1 all the time just use a simple loop for that (i just know it for C++,,, dont know atm for vb lol but you maybe will get my point :P)

 

for(unsigned int i = 0; i < 50000; i++)

{

//Here the numbers will go +1 till 50000

//out put will be:

// 0

// 1

// 2

// 3

// 4

//.....

}

Link to comment
Share on other sites

for generating random numbers use RND (example: rnd() * 50000, output will be between 0 and 50000)

 

Yeah only this could generate real numbers too. (I got 33553.37 as random number)

The way to do it properly for integers is this:

Dim minimum_number As Integer = 1
       Dim maximum_number As Integer = 10
       Dim random_number As New Random
       MsgBox(random_number.Next(minimum_number, maximum_number))

or for a random number between 1 and 10 could be done easier

       Dim random_number As New Random
       MsgBox(random_number.Next(1, 10))

or for a function:

Function GenerateRandomNumber(ByVal minimum_number As Integer, ByVal maximum_number As Integer) As Integer
       Dim rnd As New Random : Return rnd.Next(minimum_number, maximum_number)
End Function

 

 

Link to comment
Share on other sites

i dont want random numbers !! i want 1 to 9999999 but thx for help

You mean this?

For i = 1 to 9999999
'Do something here
next i

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Posts

    • Rapid Results Keto + ACV Gummies Scam Or Legit! Learn its Effective Working! Rapid Results ACV Keto Gummies have been formed to support weight reduction. The enhancement speeds up fat consuming a cycle known as ketosis. The fixings contained in the enhancement are 100 percent regular with no side effectsWeight misfortune is a touchy matter that the vast majority avoid examining. Individuals attempt various strategies to lose abundance weight. Individuals use practicing and eating fewer carbs as the most well-known strategies for weight reduction. In any case, these strategies expect one to have an elevated degree of discipline and devotion. Not following the legitimate activity or diet strategy makes them insufficient for weight reduction. https://groups.google.com/g/rapid-result-keto-acv-gummies/c/S8mD13S5Z_w https://groups.google.com/g/rapid-result-keto-acv-gummies/c/nm80BMI2gM4 https://sites.google.com/view/rapid-result-keto-acv-gummies/ https://sites.google.com/view/rapidresults-keto-acv-gummies/ https://infogram.com/rapid-results-keto-acv-gummies-reviews-worth-it-or-scam-real-customer-results-1hxr4zxrp058q6y https://www.agentpet.com/forum/discussion/general/rapid-results-keto-acv-gummies-reviews-real-results-or-fake-rapid-acv-keto-gummy-brand https://www.toyorigin.com/community/index.php?threads/rapid-results-keto-acv-gummies-review-does-it-work-or-scam-2023.30342/ https://infogram.com/rapid-results-keto-acv-gummies-does-it-really-work-or-scam-read-it-first-before-buy-1h7z2l8zp78wx6o https://www.facebook.com/profile.php?id=100090165663325 https://www.toyorigin.com/community/index.php?threads/rapid-results-keto-acv-gummies-reviews-weight-loss-gummies-scam-alert.30344/ https://www.agentpet.com/forum/discussion/general/rapid-results-keto-acv-gummies-reviews-its-really-fantastic-bear-us-2023-by-now-from-official-website https://in.pinterest.com/pin/910219774669045826 https://www.scoop.it/topic/rapid-results-keto-acv-gummies-usa https://www.scoop.it/topic/rapid-results-keto-acv-gummies-official https://www.sympla.com.br/produtor/rapidresultsketoacvgummiesofficial
    • ► Product Name— Divinity Labs CBD Gummies ► Rating — ⭐⭐⭐⭐⭐ Within the beyond year, Divinity Labs CBD Gummies obtained on the spot attention. Capsules containing 800mg of it are a pleasing touch. formulated through agencies primarily based totally withinside the United States the use of natural BHB salts (sodium BHB, calcium BHB, magnesium BHB, and potassium BHB, respectively). The BHB salts assist your frame input ketosis greater quick and resource in weight reduction greater quick. Divinity Labs CBD Gummies have obtained lots of high quality comments from clients, researchers, and fitness professionals, indicating that the product is greater useful in your frame. You will discover all the statistics that our company`s researchers have accumulated approximately Divinity Labs CBD Gummies here. ➢VISIT THE OFFICIAL WEBSITE TO BUY TODAY'S SPECIAL OFFER!! How do the Divinity Labs CBD Gummies paintings? Divinity Labs CBD Gummies is a food plan complement that enables you clearly shed pounds. Its number one goal is to sell ketosis withinside the frame, which usually is based on glucose (derived from carbohydrates) as its number one supply of electricity. Your frame makes use of ketones (stored fat) as electricity whilst glucose stages are low and also you do not devour any carbs. Ketones are produced whilst fat are damaged down through the liver. These ketones will flow into at some point of the frame and be applied as electricity. After ketosis begins, that is how our frame is based on ketones for energy. Now, combine this addition into your recurring for progressed outcomes. At first, the frame did now no longer produce enough ketones, so a keto complement is wanted to growth ketones withinside the frame. https://sites.google.com/view/divinity-labs-cbd-gummies-r/home https://www.facebook.com/people/Divinity-Labs-Cbd-Gummies-Benefits/100089732329563/ https://www.facebook.com/people/Divinity-Labs-CBD-Gummies/100089611404037/ https://www.facebook.com/people/Divinity-Labs-CBD-Gummies-Reviews/100089828085283/ https://sites.google.com/view/divinity-labs-cbd-g/home https://sites.google.com/view/divinity-labs-cbd-gummies-00/home https://sites.google.com/view/divinity-labs-cbd-gummies-1/home https://sites.google.com/view/greenhouse-cbd-gummies-usa-u/home   https://sites.google.com/view/greenhouse-cbd-gummies-usa-/home https://www.sympla.com.br/produtor/greenhousecbdgummiesusa https://www.sympla.com.br/produtor/greenhousepurecbd https://www.facebook.com/people/Greenhouse-CBD-Gummies-USA/100090097775643/ https://www.facebook.com/people/Greenhouse-Pure-CBD-Gummies/100089634355160/ https://www.dibiz.com/greenworld45 https://www.scoop.it/topic/greenhouse-cbd-gummies-greenhouse-cbd-gummies https://www.scoop.it/topic/divinity-labs-cbd-gummies-by-divinity-labs-cbd-gummies-reviews-6 https://www.facebook.com/people/Divinity-Labs-CBD/100089633186282/ https://www.facebook.com/people/Divinity-Labs/100089983241607/  
    • my name is Alice , yes , no problem , I hope my humor about star wars pleased you )   download link  https://cutt.ly/29NOVWz  <<<   😇 it is on this forum C6_System_Win10Supported Revision 746 ( protocol version ) 
    • Those are the initial release clients printed on CD/DVD versions. Here is a list of some protocol versions after updates were released:   [746] Interlude Update 3 [744] Interlude Update 2 [740] Interlude Update 1 [737] Interlude [709] C5 Oath Of Blood Update 2 [694] C5 Oath Of Blood Update 1 [693] C5 Oath Of Blood [660] C4 Scions Of Destiny Update 1 [656] C4 Scions Of Destiny [560] C3 Rise Of Darkness Update 3 [557] C3 Rise Of Darkness Update 2 [555] C3 Rise Of Darkness Update 1 [530] C3 Rise Of Darkness [485] C2 Age Of Splendor Update 1 [478] C2 Age Of Splendor [419] C1 Harbingers Of War [377] Prelude [336] Prelude PTS
    • this does not include the updates, each update changed protocol those if i remember correctly are the max protocols of each update (latest updates not base)
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock