PC bepaalt automatisch een plek?? HOE?

[RonaldGJ]

Heyz..

Ik wil graag hebben dat men pc zelf een plaats bepaalt op het scherm.. ik heb wat gelezen over Int( en Rnd maar kom er niet helemaal uit.

Ik heb een aantal shapes.. Nu moet de Shape1(i).Left door de PC bepaald worden. Hij gaat prima naar beneden. Dat hallo = Int(Rnd * a) doet het wel, maar elke keer als ik het progje opstart doet ie precies hetzelfde. Ik wil dat als je de .exe opstart weer anders door het beeld gaat dan de vorige keer. die a van 0 tot 9000 betekent dat men Form.Width 9000 is.. dus daar tussen moet ie een plaats bepalen en de Top is 5280 is dat als ie onderaan is dat ie weer bovenaan begint.

'n Beetje veel eisend, maar vast bedankt :thumb:

HIer een stuk code.

Dim hallo As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
For a = 1 To 9000
hallo = Int(Rnd * a)
Next
For i = 0 To 10
If Shape1(i).Top = "5280" Then
Shape1(i).Top = "0"
Shape1(i).Left = hallo
Else
Shape1(i).Top = Shape1(i).Top + 10
End If
Next
End Sub

 

[Withaar]

http://www.vbexplorer.com/VBExplorer/random/random_numbers_1.asp

Maar in het kort, gebruik eerst Randomize voor je RND gebruikt.

 

[RonaldGJ]

Bedankt voor je reactie, maar ik had inderdaad ook al wat geprobeerd met Randomize, maar dan begint ie te zeuren over Funciton. Maar inieder geval, ik heb even op die site gekeken. Daarmee doet hij het ook! Maar nu heb ik weer dat als ik men progje opstart dat ie dezelfde volgorde van plaatsen doet als die andere keren dat ik men progje opstart!..

Hij moet dus elke keer dat ik men .exe opstart weer een hele andere volgorde doen? Kan dat? Vast bedankt!

Greetz, Ronald!

Dim hallo As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
hallo = Rand(1, 9000)
For i = 0 To 10
If Shape1(i).Top = "5280" Then
Shape1(i).Top = "0"
Shape1(i).Left = hallo
Else
Shape1(i).Top = Shape1(i).Top + 10
End If
Next
End Sub

Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

EDIT: Sorry, ik had niet ver genoeg doorgelezen op de site!
Ik heb het nu voor elkaar, bedankt Withaar!