X FRANCA46

[Roby]

Ciao Franca46, è possibile avere il listato del metodo per superenalotto posato qui:
http://forum.lottoced.com/topic.asp?TOPIC_ID=59930&whichpage=3

a me da un errore "Errore 13: Type mismatch: 'EstrattoSuper' riga 50"
come mai, devo cambiare qiualcosa?
Uso l8+
Grazie ancora

 

[maxma62]

Ciao, se a te non dispiace rispondo io, basta guardare l'help di L8 e si vede come è ora l'estratto per il super.
Se hai la versione 6.1. cambia così:

tutte le istruzioni :

r(1)= EstrattoSuper (n+1,1) 'vecchia versione
r(2)= EstrattoSuper (n+1,2)
r(3)= EstrattoSuper (n+1,3)
r(4)= EstrattoSuper (n+1,4)
r(5)= EstrattoSuper (n+1,5)
r(6)= EstrattoSuper (n+1,6)

dovranno essere convertite nella nuova sintassi:

r(1)= Estratto(n+1,,1,1) 'nuova versione
r(2)= Estratto(n+1,,2,1)
r(3)= Estratto(n+1,,3,1)
r(4)= Estratto(n+1,,4,1)
r(5)= Estratto(n+1,,5,1)
r(6)= Estratto(n+1,,6,1)

ciao, max

 

[cico_32]

Grazie max per la risposta.
Questi come devo cambiarli?
es(1)= Estratto(n,1)
es(2)= Estratto(n,2)
es(3)= Estratto(n,3)
es(4)= Estratto(n,4)
es(5)= Estratto(n,5)
es(6)= Estratto(n,6)

Ho provato a fare
es(1)= Estratto(n,1,,1)
es(2)= Estratto(n,2,,1)
ma nell'output non ho niente.
Devo variare quancos'altro?
Grazie ancora per l'aiuto

 

[maxma62]

Guarda bene dove hai messo le virgole.

 

[franca46]

grazie max - ciao cico
la mia è l'ultima versione di L8

Sub main() 
Dim numeri(35) 
Dim gg(7) 
ri = InputBox ("Da quale data controllo?",,"01/01/2000") 
For n=PrimaSuccessiva(ri) To EstrazioneFin 
If IndiceMensile(n+1)=1 Then 
'1.5.8.11.14.15.17.19.20.21.23.26.28.30.36.33.38.35.40.42.44.45.46.49.51.
'60.62.69.71.77.78.81.82.86.88. 
numeri(1)=1 
numeri(2)=5
numeri(3)=8 
numeri(4)=17
numeri(5)=19
numeri(6)=11
numeri(7)=15
numeri(8)=14
numeri(9)=26 
numeri(10)=21
numeri(11)=28 
numeri(12)=23
numeri(13)=20
numeri(14)=38
numeri(15)=33
numeri(16)=30
numeri(17)=36
numeri(18)=35
numeri(19)=44
numeri(20)=45
numeri(21)=46
numeri(22)=42
numeri(23)=40
numeri(24)=49
numeri(25)=51
numeri(26)=60
numeri(27)=62
numeri(28)=69
numeri(29)=71
numeri(30)=77
numeri(31)=78
numeri(32)=81
numeri(33)=82
numeri(34)=86
numeri(35)=88


Scrivi : Scrivi "========================================" : Scrivi 
For i=1 To 12 
gg(1)=SerieFreq(n+i,n+i,numeri,,1,1,False) 
gg(2)=SerieFreq(n+i,n+i,numeri,,2,1,False) 
gg(3)=SerieFreq(n+i,n+i,numeri,,3,1,False) 
gg(4)=SerieFreq(n+i,n+i,numeri,,4,1,False) 
gg(5)=SerieFreq(n+i,n+i,numeri,,5,1,False) 
gg(6)=SerieFreq(n+i,n+i,numeri,,5,1,True) 
gg(7)=SerieFreq(n+i,n+i,numeri,,6,1,False) 
If gg(3)<1 Then 
s="Negativo" 
Else If gg(3)=1 Then 
ColoreTesto 1 
s=" un 3" 
Else If gg(3)=4 Then 
ColoreTesto 2 
s=" un 4 e quattro 3" 
Else If gg(3)=10 Then 
ColoreTesto 2 
s=" un 5, cinque 4 e dieci 3" 
Else If gg(3)=10 And gg(6)=1 Then 
ColoreTesto 2 
s=" un 5+1, cinque 4 e dieci 3" 
Else If gg(7)=1 Then 
ColoreTesto 2 
s=" un 6 e tutto il resto..." 
End If : End If : End If : End If : End If : End If 
Scrivi DataEstrazione(n+i) & " " & Format2(i) & "° colpo - "& "Esito: "& s 
ColoreTesto 0 
Erase gg 
Next 
End If 
Next 
End Sub

fammi sapere se è tutto ok .

ciaooooooooo

Franca46

 

[cico_32]

Si Franca, tutto ok
Grazie a te e max.
Alla prossima