I contenuti più recenti di Pomito

Salvo 14 vedi se va bene Sub Main() ColoreTesto 1 Scrivi:Scrivi " (Figura 6 su BA in 1° pos.) - - -> By Pomito " Scrivi " Metodo di Fidelio" ColoreTesto 1 Dim ruota(3),posta(5),poste(5),quaterna(4),quaterna1(4),quaterna2(4),quaterna3(4),quaterna4(4) Dim quaterna5(4),quaterna6(4) 'Dim ambo2(2)...

corretto Sub Main() ColoreTesto 2 Scrivi "* QUANDO ESCE L'AMBO VERTIBILE 37 73 GIOCHIAMO 5 NUMERI SU FI GE *",1 Scrivi " Metodo di Marco- Elle" ColoreTesto 2 Scrivi "--------------------------------------------------------------",1 Scrivi ColoreTesto 0 Dim...

ecco lo script Sub Main() ColoreTesto 2 Scrivi "* QUANDO ESCE L'AMBO VERTIBILE 37 73 GIOCHIAMO 5 NUMERI SU FI GE *",1 Scrivi " Metodo di Marco- Elle" ColoreTesto 2 Scrivi "--------------------------------------------------------------",1 Scrivi ColoreTesto 0 Dim...

Sub Main() Scrivi " Firenze Genova prima del mese ",1 Scrivi " METODO DI DONATELLA E LISTATO DI Pomito",1 Dim ruote(10),ruota(2),terno(3),terno1(3),ruotee(2) Dim ambata(1): Dim ambo(2) : Dim poste(1) : Dim posta(2) : Dim postee(3) poste(1) = 1 posta(2) = 1 postee(2) = 1 postee(3) = 1 ruote(1)...

L'ho adottato per il 10elotto serale, spero che vada bene. Sub Main() Dim stati(11,2),vet(20),nu(),stat(),num(13),premi(10) stati(1,1) = 0 :stati(1,2) = 0 For i = 2 To 11 stati(i,1) = i - 1 stati(i,2) = 0 Next colpi = 12 Euro = 1 '<====== posta giocata del 10eLotto '-------------- premi(0) = 2...