QB64 – Screen Saver Cerchi Colorati

QB64 – Screen Saver Cerchi Colorati

Con QB64, siamo in grado di esplorare il mondo della programmazione e di creare meravigliosi screen saver per il nostro computer. Questo linguaggio di programmazione è molto semplice da utilizzare e ci permette di sbizzarrirci con la creatività. Il codice che vi mostreremo creerà cerchi colorati con grandezze e posizioni casuali, dando vita a un’esperienza visiva unica ogni volta che il computer viene lasciato inattivo.

Randomize Timer

Screen _NewImage(1024, 768, 256)

_FullScreen

Do

    colors% = Int(Rnd * 256) + 1

    If colors% > 0 Then
        size% = Int(Rnd * 370) + 1
        a% = 520
        b% = 384
        Sleep 1

        For i% = size% To 0 Step -(Int(Rnd * 15) + 1)
            Circle (a%, b%), size% - i%, colors%
            Paint Step(0, 0), colors%, colors%
        Next

    End If

Loop While InKey$ = ""

Reset
System