A-T in quartina X TT

[flapis]

Ambo e Terno in quartina per Tutte per 7 colpi dalla 1°

Sub main()
Dim ruota (1)
Dim numeri(10)
Dim posta(5)
posta(2)=1
posta(3)=1
posta(4)=0
posta(5)=0
ruota(1)=11
For n=7196 To EstrazioneFin
If IndiceMensile=1 Then
Messaggio DataEstrazione
numeri(1)=Fuori90((Estratto(n,3,5)*2)+Estratto(n,6,5))
numeri(4)=Fuori90((Estratto(n,6,2)+90)-Estratto(n,3,5))
numeri(5)=Fuori90((Estratto(n,6,5)+90)-Estratto(n,8,5))
numeri(6)=Fuori90(Estratto(n,7,5)+77)
ImpostaGiocata 1,numeri,ruota,posta,12
Gioca n
End If
Next
ScriviResoconto
End Sub

spero vi piaccia
Vorrei capire perchè nel copiarlo fa sempre un errore.Chi cura il sito dovrebbe preoccuparsi, se lo copiate vi darà un errore che non capisco.
Forse cosi modificato va meglio

 

[jack69]

Mancano istruzioni
sub main e dim ruota(11)
Jack

 

[Abitte]

Premesso che sono un pollo.....a che metodo si riferisce? E di chi? Mi ricorda qualcosa e qualcuno (forse Black....) ma mi interesserebbe avere il link di riferimento così mi posso ricavare la previsione con il vecchio metodo "cartapen", antichissimo strumento di calcolo

 

[flapis]

non è la prima volta che capita, lo copio pari pari ma si perde sempre un pezzo e non gira. Abitt... non so di chi sia, è un vecchio metodo per il superenalotto che ho modificato perchè non dava risultati, non è male, ma 4 numeri a tutte danno solo 8 volte la posta, bisogna accontentarsi, spero che dopo l'ultima modifica non si sia perso nulla e giri bene, se posterò qualcos'altro prima lo testo dopo il copia-incolla......a scanso di figure barbine.

 

[Roby]

Buon pomeriggio

Mi permetto segnalare un piccolo pensiero,
Non è che dipenda dalla combatibilità dello sscript? provo a spiegarmi
alcuni girano solo su spaziometria altri abilitati anche per noti programmi spesso la prima situazione entra in conflitto con la seconda
creando errori di lettura ... Altro non so dirvi anche perchè vado a preferire quei script cui sono abilitati per entrambi le situazioni

Buon lotto a tutti
IB63