Ciccio90
Advanced Member >GOLD<
complimenti bravo44 a Bari e ambetto con il 45 al 6° colpo
complimenti bravo44 a Bari e ambetto con il 45 al 6° colpo
bravo anche tu per il 5Ciccio90, Pandit e scarfacetony solo ambata (senza polemica).
44 a Bari e ambetto con il 45 al 6° colpoCiccio90, Pandit e scarfacetony solo ambata (senza polemica).
Grazie Pandit sei bravissimoHo trovato questo script che presenta visivamente le uscite dei 90 numeri da minimo 4 in su,
è possibile inserire la quantità di estrazioni da analizzare, da 18 in su o in giu.
Spero vada bene.. for Missione 2
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,18))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
Un aggiustamento! Per BA/NA/PA nello script inserite +12 e' + veloce nell uscita della ambata, il +54 da casi negativi e' buono solo x BA/NA/VE.Quindi aggiungo PA a BA e VE per Ambata e per sorti maggiori mettendo la ricerca a 1530 a ritroso.
![]()
Ho trovato questo script che presenta visivamente le uscite dei 90 numeri da minimo 4 in su,
è possibile inserire la quantità di estrazioni da analizzare, da 18 in su o in giu.
Spero vada bene.. for Missione 2
Option Explicit
'Autore Sconosciuto, modifiche by Pandit
Sub Main
Dim p
p = CInt(InputBox("Quante Estrazioni a Ritroso?",,18))'
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 1 To 12
If aValori(Xx) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) >= 04 Then
Call SetColoreCella(01,RGB(255, 0, 0)) : Call SetColoreCella(13,RGB(255, 0, 0))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n." & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin),3,,4,,3)
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri"," Bari ","Cagliari",_
" Firenze"," Genova "," Milano "," Napoli "," Palermo",_
" Roma "," Torino "," Venezia","Nazionale","Numeri")
Call InitTabella(atitoli,RGB(0,71,171),,3,6,"Times")
End Function
bravoTutte le stade portano a Roma, ma questa riga
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
va assolutamente corretta in
Dim Ini,fin,X : Ini = EstrazioneFin - p + 1 : fin = EstrazioneFin
buon controllo.
Buongiorno alla fine ce l'hai fatta con Nik....VE/NZ
2X1
3-30 Ambo ambetto 8 colpi!
BA/NA
18-81 Ambo ambetto 8 colpi
Avete convergenze?
Scusate io non conosco gli script,ma che numeri sono?Tutte le stade portano a Roma, ma questa riga
Dim Ini,fin,X : Ini = EstrazioneFin - p : fin = EstrazioneFin
va assolutamente corretta in
Dim Ini,fin,X : Ini = EstrazioneFin - p + 1 : fin = EstrazioneFin
buon controllo.
già....ma non è il nick che fà sostanza...fosse per me (ma non sono nessuno,non lo sono mai stato e comunque frega cippa) avrei bannato a vita TUTTI i nick usati, NICK che ha usato per ingiurie ,comportamento scorretto,linguaggi a dir poco sconvenienti....ma non ci voglio piu entrare nella diatriba...SENZA RANCORE MA CON RICORDO...Buongiorno alla fine ce l'hai fatta con Nik....
buon relaxgià....ma non è il nick che fà sostanza...fosse per me (ma non sono nessuno,non lo sono mai stato e comunque frega cippa) avrei bannato a vita TUTTI i nick usati, NICK che ha usato per ingiurie ,comportamento scorretto,linguaggi a dir poco sconvenienti....ma non ci voglio piu entrare nella diatriba...SENZA RANCORE MA CON RICORDO...
By the Way,questa la chiudiamo qua: post 2043 pag 121:
Ciao a tutti !
MI 14.42 con 40.44.45
MI 47.74 con 41.42.43
okkio al 41.43 a Milano e Venezia secco......potrebbe ........vedremo !!!!
Condizioni valide anche per TO.VE.NZ
K7
Ultim'ora......io ci provo con le 2 cinquine.
SUERTE !!!!!!!!
A K7 come previsto ha' regalato 4 ambate , un ambo secco a VE ,4 ambetti con il gioco solo sugli estratti
Io la considero chiusa con ampio margine .....e comunque se qualcuno vuole....alla data del 10/08 ha prodotto ancora......4 estratti e altri 5 ambetti e una ambo in cinquina.....andate a controllare.Ripeto,io considero chiuso la "proposta"....non amo innamorarmi dei "numerelli" e quando "propongo" ,sempre coi colpi di attesa lascio sempre la scelta a TUTTI VOI se proseguire o meno.
Ora me ne vado a Saturnia a rigenerarmi un poco.Cià a tutti.
P.S. scusatemi se non hò ancora pubblicate le ambate....ma fra poco tempo e ferie davvero non ne hò voglia....anche perchè non vedo condizioni piu' che favorevoli...io gioco poco e se gioco e' perchè ci credo nelle condizioni.....non ad cazzum...Statemi bene TUTTI e "a maronnella nost ci accumpagn a tutti quanti.
Cià.