I contenuti più recenti di Pomito

Sub Main() Scrivi Scrivi ColoreTesto 0 Dim ruote(2): Dim ruota(3): Dim ruotee(2):Dim Ambetto(2) Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5):Dim posta(1): Dim postee(3) poste(2) = 1 posta(1) = 1 postee(2) = 1 postee(3) = 1 y = 250 klp = 18 ini =...

Ciao Matt68 nello script ho inserito la figura nove e lo si può utilizzare sia alla prima o ultima estrazione Sub Main() Scrivi Scrivi Space(3) & " Metodo di donatella - Script Pomito" & Space(3),1,,4,,3,,1 Scrivi " Metodo 2 ambi e una terzina alla prima del mese o ultima del mese ",1 Scrivi...

Alien spero che lo script va bene Scrivi Scrivi " Metodo PApaVE.RO (donatella)",1 Scrivi Sub Main() Dim ruota(10),ruote(3),ru(10),ruo(10) Dim n1(10),terno(3),n(2),terno1(3) Dim n2(10) Dim poste(5),postee(3) Dim posta(5) casi = 0 ruota(1) = BA_ ruota(2) = FI_ ruota(3) = NA_ ruota(4) = PA_...

Sentite condoglianze alla famiglia

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...