Help correzione listato UK49 per spaziometria

[Roby]

Ragazzi mi rivolgo a voi su un problema di un listato che avevo conservato ma che purtroppo mi da un errorein fase di esecuzione.Considerate che non sono uno che si intende di script per mi affido a qualche volontario per la correzione e magari variante
Lo script da come leggo puo gestire diverse lotterie e non so chi sia l'autore per cui mi scuso se qualcuno riconosce la partenità

Allego il istato

'coppie per ambata +freq (Lottoestero)
Sub Main()
Dim nn(2),ambi()
txx = "Lotteria ESTERA : LottoIrlandese= 2, LottoIrlPlus1= 3, LottoIrlPlus2= 4," & _
"LottoSpagnolo= 5, LottoTedesco= 6, LottoSvizzero= 7, LottoHong kong= 8, LottoGreco= 9, LottoFrancese= 10," & _
"LottoCanadese= 11, LottoUK49s= 12, LottoSingapore= 13, LottoNY= 14, LottoAustraliano=15, LottoOZ= 16," & _
"LottoUKNational= 17, LottoAustriaco= 18, LottoBrasiliano=19, LottoEuroMillions=20"
tpg = CInt(InputBox(txx,"LOTTO ESTERO",5))
qtt = InputBox("In base alla Lotteria scelta, la quantità totale dei numeri in gioco?","TOTALE NUMERI",49)
qta = CInt((qtt*(qtt - 1))/2)
ReDim ambi(qta,4)
nes = InputBox("Inserisci 0 ultima, 1 prima, ....","INDICE MENSILE",0)
ne = InputBox("Numero estrazioni: (ATTENZIONE!! porre attenzione al tipo di gioco scelto" & _
" le estrazioni mensili variano parecchio a seconda il tipo di Lotteria scelta!!)","ESTRAZIONI",120)
perc = InputBox("Percentuale minima (60-90%):","PERCENTUALE di RIFERIMENTO",95)
ncg = InputBox("Numero colpi di gioco","COLPI di GIOCO",6)
casi = 0
ini = EstrazioneFin(tpg) - ne
fin = EstrazioneFin(tpg)
For x = 1 To qta
For y = 1 To 4
ambi(x,y) = 0
Next
Next
For es = ini To fin
If eval(nes) = 0 Then
If IndiceMensile(es + 1,tpg) = 1 Then
casi = casi + 1 : co = 0
For r = 1 To(qtt - 1)
For p = r + 1 To qtt
co = co + 1 : c = 0
nn(1) = r : nn(2) = p
esncg = es + eval(ncg)
If esncg > EstrazioneFin(tpg) Then esncg = EstrazioneFin(tpg) End If
c = SerieFreq(es + 1,esncg,nn,,1,tpg,True)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = ambi(co,4) + 1
End If
Next
Next
End If
Else
If IndiceMensile(es,tpg) = eval(nes) Then
casi = casi + 1 : co = 0
For r = 1 To(qtt - 1)
For p = r + 1 To qtt
co = co + 1 : c = 0
nn(1) = r : nn(2) = p
esncg = es + eval(ncg)
If esncg > EstrazioneFin(tpg) Then esncg = EstrazioneFin(tpg) End If
c = SerieFreq(es + 1,esncg,nn,,1,tpg,True)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = ambi(co,4) + 1
End If
Next
Next
End If
End If
Next
ca = 0
ColoreTesto 1 : Scrivi : Scrivi String(80,"*")
Scrivi "ANALISI Dal " & DataEstrazione(ini,,tpg) & " al " & DataEstrazione(fin,,tpg),1
Scrivi
If eval(nes) = 0 Then
Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Else
Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1
End If
ColoreTesto 2
Scrivi : Scrivi "LOTTERIA ESTERA",1
Scrivi "LottoIrlandese= 2, LottoIrlPlus1= 3, LottoIrlPlus2= 4, LottoSpagnolo= 5, LottoTedesco= 6"
Scrivi "LottoSvizzero= 7, LottoHong kong= 8, LottoGreco= 9, LottoFrancese= 10, LottoCanadese= 11"
Scrivi "LottoUK49s= 12, LottoSingapore= 13, LottoNY= 14, LottoAustraliano=15, LottoOZ= 16"
Scrivi "LottoUKNational= 17, LottoAustriaco= 18, LottoBrasiliano=19, LottoEuroMillions=20"
Scrivi : Scrivi "GIOCO SCELTO " & tpg,1
Scrivi : ColoreTesto 1
Scrivi "GIOCO LOTTO ESTERO (Ambata 2x1) : ",1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To qta
If eval(ambi(ca,4)) = > per Then
Scrivi Format2(eval(ambi(ca,2))) & "-" & Format2(eval(ambi(ca,3))) & " su LottoEstero è uscito " & _
FormatSpace(ambi(ca,4),3) & " su " & FormatSpace(casi,3) & " casi"
End If
Next
End Sub

 

[milkANDcookies]

Cambia questa riga:

If eval(ambi(ca,4)) = > per Then

con questa:

If eval(ambi(ca,4))=> per Then

 

[imported_n/a]

quote:Originally posted by milkANDcookies

Cambia questa riga:

If eval(ambi(ca,4)) = > per Then

con questa:

If eval(ambi(ca,4))=> per Then

Grazie per la verifica pero ora da ques'altro errore

ini = EstrazioneFin(tpg) - ne

forse e un problema nelle quntita di estrazioni. Quando il imputbox mi chiede il numero di estrazioni mensili io scrivo 60, forse e qui che sbaglio ??

 

[arcor]

ciao fabio su quale programma lo fai girare?

 

[LuigiB]

quest oscript non va bene con spaziometria.
Per gestire il lotto ester oattraverso gli script con spaziometria bisogna esegure una procedura diversa , a suo tempo l'avevo spiegata.
Ciao

 

[Alien.]

Si ma poi l'archivio di uk49 dove lo trovi e lo metti?
o funziona senza?"non credo"
Sempre che Luigi si ripeta in quanto ha detto::::a suo tempo l'avevo spiegata.

 

[imported_n/a]

quote:Originally posted by LuigiB

quest oscript non va bene con spaziometria.
Per gestire il lotto ester oattraverso gli script con spaziometria bisogna esegure una procedura diversa , a suo tempo l'avevo spiegata.
Ciao

Ragazzi vi chiedo scusa avete ragione non avevo considerato l'archivio. Cerchero di rifare la procedura
grazie comunque

 

[imported_n/a]

ciao ragazzi
no mi dite che esiste un lottoscript del lotto estero?



cebino

grazie del programma sei favoloso.. grazie grazie

dove si da il daunload?

 

[stef]

quote:Originally posted by LuigiB

quest oscript non va bene con spaziometria.
Per gestire il lotto ester oattraverso gli script con spaziometria bisogna esegure una procedura diversa , a suo tempo l'avevo spiegata.
Ciao

Scusa Luigi, mi puoi indicare il messaggio dove spieghi questa procedura?
Grazie