Stjernehimmel

Private Sub Command1_Click()
  Randomize Timer
  Dim z
  Picture1.ScaleMode = vbPixels
  For z = 1 To 100
    Picture1.PSet (Int(Rnd(1) * Picture1.ScaleWidth), Int(Rnd(1) * Picture1.ScaleHeight))
  Next
End Sub

husk at sætte AutoRedraw til True...

var det ikke de 15 point værd? - eller skal du have svaret uddybet?

Jeg kunne forstille mig at du er ret ny inden for visual basic så jeg vil prøve at skære det ud i pap.

-----Understående kode kopieres ind i en command button(en knap)----

dim X, Y as integer

for n = 1 to 100
' Dette her er en for next løkke
' den går i gennem dette sted 1 til 100 gange her

randomize ' Gør så at et tilfældigt tal altid vil være tilfældigt
x = int(rnd * picture1.scalewidth)
y = int(rnd* picture1.scaleheight)

' overstående finder stedet i picture1 hvor der skal sættes en stjerne


' tegner stjernerne
picture1.pset (x, y), rgb(255,255,255)

' (Pset laver en prik!)


next n

-------------


Håber at du har forstået det!

/answer

Virker det???