La decima del mese metodo bomba

[rosa962]

Il metodo e' per la ruota nazionale

ciao

 

[venesian]

Perchè faccio domande a Vecchione, e mi risponde Gelsomino? Non ho niente contro Gelsomino, è solo per capire.

 

[venesian]

Non essendo esperto di computer, come devo fare x decifrare lo script? Grazie x l'eventuale spiegazione.

 

[venesian]

Carissimo Vecchione, probabilmente sarai impegnato, ma il nuovo metodo che si calcola alla prima del mese verrà inserito prima dell'estrazione del 6 novembre? Io sono in attesa, speriamo tu abbia tempo x inserirlo .GRAZIE e buona domenica

 

[vecchione]

Ciao!!! Prima dimartedi sarà pronta

 

[venesian]

Ringrazio tantissimo .ATTENDO e scusami

 

[venesian]

Buon pomeriggio Disaronno, ringrazio x la spiegazione che mi dato, però mi trovo già in difficoltà nella seconda riga dove mi dice:
aprire spaziometria , quale è il modo x aprirla? Grazie e mi scuso fin d'ora se le farò altre domade x lei banali.

 

[franca46]

buongiorno , io non ho spaziometria , ho L8 e funziona
ho dovuto inserire qualke spazio , ed eliminare le righe " Elimina Ripetuti"
per evitare gli errori segnalati dal listato
lo metto qui se può servire

Sub Main()
Scrivi : Scrivi "8 AMBI SECCHI SU NAZ ALLA 10° ESTRAZIONE DEL MESE"
Scrivi : Scrivi
Dim n1(4),n2(4),n3(4),n4(4),n5(5),n6(6),n7(7),n8(8),pt(2),rt(1)
pt(2) = 1
 
clp = 12 'colpi di gioco
rt(1) = 12 '1a ruota di gioco
ini =EstrazioneFin- 780
fin =EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 10 Then 'estrazione del mese
Scrivi String(105,"=")
co = co + 1
'----------------------------------------------------- 1°AMBO
n1(1) =Fuori90(Estratto(es,NZ_,1) + 88)
n1(2) =Fuori90(Estratto(es,RO_,2) + 32)
'----------------------------------------------------- 2°AMBO
n2(1) =Fuori90(Estratto(es,NZ_,1) + 80)
n2(2) =Fuori90(Estratto(es,NA_,3) + 4)
'----------------------------------------------------- 3°AMBO
n3(1) =Fuori90(Estratto(es,NZ_,1) + 52)
n3(2) =Fuori90(Estratto(es,CA_,5) + 39)
'----------------------------------------------------- 4°AMBO
n4(1) =Fuori90(Estratto(es,NZ_,1) + 33)
n4(2) =Fuori90(Estratto(es,NZ_,4) * 26)
'----------------------------------------------------- 5°AMBO
n5(1) =Fuori90(Estratto(es,NZ_,1) + 19)
n5(2) =Fuori90(Estratto(es,GE_,1) * 50)
'----------------------------------------------------- 6°AMBO
n6(1) =Fuori90(Estratto(es,NZ_,1) + 78)
n6(2) =Fuori90(Estratto(es,TO_,5) + 87)
'----------------------------------------------------- 7°AMBO
n7(1) =Fuori90(Estratto(es,NZ_,1) + 23)
n7(2) =Fuori90(Estratto(es,MI_,2) * 15)
'----------------------------------------------------- 8°AMBO
n8(1) =Fuori90(Estratto(es,NZ_,1) + 18)
n8(2) =Fuori90(Estratto(es,NZ_,5) + 36)

ImpostaGiocata 1,n1,rt,pt,clp,0
ImpostaGiocata 2,n2,rt,pt,clp,0
ImpostaGiocata 3,n3,rt,pt,clp,0
ImpostaGiocata 4,n4,rt,pt,clp,0
ImpostaGiocata 5,n5,rt,pt,clp,0
ImpostaGiocata 6,n6,rt,pt,clp,0
ImpostaGiocata 7,n7,rt,pt,clp,0
ImpostaGiocata 8,n8,rt,pt,clp,0
 
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " &CInt(co)
ScriviResoconto
End Sub

Grazie sig. Vecchione

scusate l'intromissione .

buona giornata a tutti

 

[venesian]

carissimo VECCHIONE, oggi è martedì ore 15,25 però ancora il nuovo metodo non è inserito, non è che si sia dimenticato? perchè mi
dispiacerebbe che avesse problemi di altra natura. Le auguro una buona giornata e naturalmente attendo.

 

[venesian]

sig Eugenio, lei scome mai a dirmi il sig.Vecchione non ha ancora inserito il nuovo metodo xche aveva detto che x martedi l'avrebbe inserito. La ringrazio.