Random getal output

[calvinsnl]

Beste,

Ik zoek een manier om een random getal tussen de 1 en de 10000 op het scherm te laten verschijnen. Het is de bedoeling dat hij notepad opent, en daar het random getal neerzet.

Mvg,
Calvin

 

[MartinJM]

Hoi,

Notepad openen kan je kijken naar Process.Start: http://msdn.microsoft.com/en-us/library/53ezey2s(v=vs.110).aspx.

Voor het typen kan je kijken naar SendKeys.Send: http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.send(v=vs.110).aspx.

En voor het random getal kan je kijken naar Random.Next: http://msdn.microsoft.com/en-us/library/9b3ta19y(v=vs.110).aspx.

Ik denk dat dit op zich genoeg informatie is om eruit te komen, maar als het niet lukt, dan help(en) ik(/wij) je wel verder!

Succes! :thumb:
MartinJM

 

[calvinsnl]

beste, ik had dat ookal gevonden, maar ik snap niet hoe je met sendkeys een random getal kan zenden....

 

[edmoor]

Schrijf dat getal naar een nieuw .txt bestand en open daarna dat bestand met Kladblok.

 

[MartinJM]

Hoi,

Zo bijvoorbeeld:
[CPP] Dim Rnd As New Random
Dim RndGetal As Integer = Rnd.Next(0, 4)
SendKeys.Send(RndGetal)[/CPP]

Overigens is de manier van edmoor eigenlijk wel beter. Bij de bovenstaande manier zou het zo kunnen zijn dat de gebruiker net een ander programma op de voorgrond heeft staan waardoor het getal niet in kladblok maar in het andere programma terecht komt...

MartinJM

 

[Pim15]

Voor de geïnteresseerde, dat wordt dan dit:

Dim path As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\data.txt"
Dim streamWriter As New System.IO.StreamWriter(path)
Dim rnd As Random
Dim rndgetal As Integer = rnd.Next(0, 4)
'
streamWriter.Write()
'
streamWriter.Close()

Pim