Messaggio Lampeggiante in QBASIC per l’Anno Nuovo

Con l’avvento del nuovo anno, è sempre divertente trovare modi creativi per esprimere i nostri auguri e festeggiare l’occasione. Per gli amanti della programmazione nostalgici, abbiamo preparato un codice in QBASIC che crea un effetto di testo lampeggiante su uno schermo grafico.

Randomize Timer
Screen 12

Cls

Dim MESSAGE$

MESSAGE$ = "BUON ANNO"

X = 36
Y = 15

FlashText X, Y, MESSAGE$, 14

Sub FlashText (x, y, message$, flashColor)
    Do
        Locate y, x
        Print Space$(Len(message$));
        Sleep 1
        Locate y, x
        Print message$;
        Color Int(Rnd * flashColor) + 1, 0
        Sleep 1
    Loop While InKey$ = ""
End Sub

Questo semplice codice utilizza il linguaggio di programmazione QBASIC per creare un effetto visivo accattivante. Ma come funziona?

Innanzitutto, la riga “Randomize Timer” inizializza il generatore di numeri casuali, garantendo che il messaggio lampeggiante non sia mai identico ogni volta che viene eseguito il programma. “Screen 12” imposta la modalità grafica per uno schermo a 640×480 pixel, ideale per il nostro scopo.

Il messaggio di augurio, “BUON ANNO”, è memorizzato nella variabile MESSAGE$. Le coordinate X e Y indicano la posizione iniziale del testo sullo schermo.

La funzione principale, chiamata “FlashText”, accetta le coordinate x e y, il messaggio, e il numero di colori con cui lampeggiare. All’interno di un ciclo “Do…Loop”, il testo viene cancellato (con “Print Space$(Len(message$));”) e poi ristampato con un colore casuale. Il tutto è accompagnato da brevi pause grazie alla funzione “Sleep 1”, dando un effetto di lampeggiamento.

Puoi personalizzare il messaggio, la posizione e il numero di colori utilizzati per rendere il codice adatto al tuo stile. Sperimenta con diverse combinazioni e crea il tuo messaggio speciale per il nuovo anno!

Ecco a te un modo unico per esprimere gli auguri in modo tecnologico e divertente. Buon Anno e buon coding!