Elikkö tää mun lähettämä grafiikka hirmu piirtelee satunnaisesti täytettyjä / täyttämättömiä neliöitä ja viivoja.
Oon vielä aika noob jotenka palautetta ja rakentavaa kritiikkiä on PAKKO LAITTAA!! Ohjelma vaatii yhden timerin jotenka lisää semmonen formille.
Private Sub Timer1_Timer() 'Alustetaan satunnaislukugeneraattori ajan mukaan Randomize Timen 'Arvotaan laitetaanko täytetty neliö,tyhjä neliö vai viiva Select Case Int(Rnd * 3) Case 1 'Piirretään satunnaisesti valitulla värillä täytetty neliö Line (Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1)))-(Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1))), RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd)), BF Case 2 'Piirretään neliö Line (Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1)))-(Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1))), RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd)), B Case 3 'Piirretään viiva Line (Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1)))-(Int(Me.Width * Rnd(1)), Int(Me.Height * Rnd(1))), RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd)) End Select End Sub
Hups... unohin laittaa "+1" sinne select case int(rnd*3) perään jotenka lisää se sinne niin saat viivatki mukaan.
Näin:select case int(rnd*3)+1
Aihe on jo aika vanha, joten et voi enää vastata siihen.