arcor
Advanced Member
ciao peppe60 la pass è spazioscriptquote:Originally posted by peppe60
ciao luigib grazie come sempre ho scaricato la versione 1.96
ma non capisco quale' la parola chiave ciao grazie
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
ciao peppe60 la pass è spazioscriptquote:Originally posted by peppe60
ciao luigib grazie come sempre ho scaricato la versione 1.96
ma non capisco quale' la parola chiave ciao grazie
mannaggia queste faccinequote:Originally posted by arcor
ciao peppe60 la pass è spazioscriptquote:Originally posted by peppe60
ciao luigib grazie come sempre ho scaricato la versione 1.96
ma non capisco quale' la parola chiave ciao grazie
Sub main()
ini = EstrazioneFin - 50
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es
For r = 1 To 12
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es - 1,r,p)
b = Estratto(es - 1,r,q)
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r,p1)
d = Estratto(es,r,q1)
If c = a And d = b Or c = b And d = a Then
If r <> 11 Then
Scrivi DataEstrazione(es - 1) & " " & NomeRuota(r) & " " & StringaEstratti(es - 1,r),1
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r),1
ColoreTesto 1 : Scrivi Space(11) & "Ambo ripetuto: " & Format2(a) & "." & Format2(b),1
Scrivi : ColoreTesto 0
End If
End If
Next
Next
Next
Next
Next
Next
End Sub
Hai perfettamente ragione! È uno script che ho fatto in velocità per un utente del forum (caiomok), pensando che lo usasse solo per cercare gli ultimi casi... sto proprio invecchiando.quote:Originally posted by LuigiB
P.S.
Thauk ti conviene modificare questa linea con
If c = a And d = b Or c = b And d = a Then
in
If c = a And d = b Or c = b And d = a and c <> 0 Then
ciao, scoglio2. controlla se va bene...quote:Originally posted by scoglio2
x luigi o chi x lui
ho visto che hai fatto lo script di un metodo a cutoff e ti chiedo se posso averlo pure io di un mio metodo.
ti posto il metodo e se non è possibile pazienza.
numero spia 5 a pa
controllo dal 2006 ad oggi
definizioni-secondo di pa+29-----prima ambata
secondo di-pa+89------seconda ambata
abbinamento x ambo e terno il fisso-5
si gioka su ge-pa---colpi-9
se puoi inserire il resoconto di quante ambate ambi sono usciti dal 2006 ad oggi e le ambate da giokare ad ogni uscita del 5 a pa
grazie
ciao
naturalmente script da inserire in spaziometria
Sub main()
Dim ruota(2),poste(1),posta(3),nr(3),am(2)
poste(1) = 1
posta(2) = 1
posta(3) = 1
ruota(1) = 4
ruota(2) = 7
k = 9
ini = 7538 ' estrazione iniziale 03.01.2006
For es = ini To EstrazioneFin
Messaggio "Estrazione: " & es
ng = 0
sp = 5 ' numero spia
r = 7 ' ruota di ricerca
For p = 1 To 5
a = Estratto(es,r,p)
If a = sp Then
am(1) = Fuori90(Estratto(es,7,2) + 29)
am(2) = Fuori90(Estratto(es,7,2) + 89)
ng = ng + 1
ImpostaGiocata ng,am,ruota,poste,k,1
nr(1) = am(1)
nr(2) = am(2)
nr(3) = 5
ng = ng + 1
ImpostaGiocata ng,nr,ruota,posta,k,2
casi = casi + 1
ColoreTesto 1 : Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
Scrivi : ColoreTesto 0
Gioca es
End If
Next
Next
Scrivi : ColoreTesto 1
Scrivi "Casi totali: " & casi,1
Scrivi : ColoreTesto 0
ScriviResoconto
End Sub