Auguri di Buon Natale e felice anno nuovo

[simimi]

Solo per augurare a tutti un felice Natale e uno stupendo anno nuovo 2023

 

[Cinzia27]

Buon Natale a te e al forum

 

[LuigiB]

Anche io mi unisco agli auguri .. . ciao ..

Option Explicit
Sub Main
   Dim s,k,i,p1,p2,c,j,clr,oldClr,sA
   i = 41
   c =(i - 1)/2
   For k = 1 To c - 1
      s = Space(i)
      If k = 1 Then
         MidX s,"*",c
      ElseIf k = 2 Then
         MidX s,"|",c
      Else
         p1 = c - k
         p2 = c + k
         If k Mod 2 = 0 Then
            Call ColoreTesto(vbGreen)
            For j = p1 To c Step 2
               MidX s,"/",j
            Next
            For j = c + 1 To p2 Step 2
               MidX s,"\",j
            Next
         Else
            clr = NumeroCasuale(1,10)
            Do While clr = 5 Or clr = oldClr
               clr = NumeroCasuale(1,10)
            Loop
            oldClr = clr
            Call ColoreTesto(clr)
            For j = p1 To c Step 2
               MidX s,"*",j
            Next
            For j = c + 1 To p2 Step 2
               MidX s,"*",j
            Next
         End If
      End If
      Scrivi(s)
   Next
   ColoreTesto 8
   For k = 1 To 3
      s = Space(i)
      p1 = c - 2
      p2 = c + 2
      For j = p1 To p2
         MidX s,"|",j
      Next
      Scrivi(s)
   Next
   ColoreTesto vbRed 
   sA = "AUGURI DI BUONE FESTE !"
   s = Space(i)
   p1 =(Len(s) - Len(sA)) /2
   MidX s,sA,p1
   Call Scrivi(s ,True ,  , Verde_)
End Sub

 

[i legend]

Buone feste e tanti auguri anche da parte mia

 

[i legend]

Un abbraccio LuigiB

 

[Nek Kina]

Buon Natale Forum​

 

[Xeroxs]

Tanti Auguri di Buon Natale a Tutti Voi, anche da Parte mia.

 

[salvo50]

Buon Natale Felice e Prospero Anno Nuovo.

 

[paulo]

 

[Mike58]

Un Buon Natale e buone feste a tutti del forum.

 

[lotto_tom75]

Spettacolare e originalissimo il tuo augurio grafico dinamico via code Luigi !!! ​

 

[Antonio Pagano]

Un Buon Natale a tutti ed un inizio 2023 meaviglioso a tutti.

 

[cedol8roby]

Tanti auguri a tutti voi e ai vostri cari!!!

 

[ilgobbo60]

Un Sereno Natale 2022 e un Anno nuovo Felice e vincente a Tutti i Forumini e Famiglie ,
Ilgobbo60

 

[maumau]

Buone Feste a tutti

 

[joe]

Buon Natale, a tutte/i voi.

 

[claudio8]

Buon Natale e tanti doni

 

[Asuniverso]

Auguri di Buon Natale a tutti del forum!

 

[silop2005]

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

A TUTTI ,

======================

un sincero AUGURIO di Buon Natale 2022 a tutto il forum

e un particolare e caloroso saluto natalizio al programmatore LuigiB.

======================

Buona vigilia di Natale a tutti.

======================

A presto

Silop

L'ESTRAZIONE DEL 24/12/2022 E' STATA INSERITA -ADESSO- NEL PROGRAMMA SPAZIOMETRIA
E NEL PROGRAMMA L8+ E NEL PROGRAMMA M3

 

[crocchia]

Tanti Auguri Di Buone Feste a TUTTI