Ciccio90
Advanced Member >PLATINUM<
complimenti bravo
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.
A volte basta uno script facile per tutti.
- Creatore Discussione Missione Impossibile.
- Data di inizio
Ciccio90
Advanced Member >PLATINUM<
bravo anche tu per il 5
Missione Impossibile2
Banned
44 a Bari e ambetto con il 45 al 6° colpo
E' vero Sig Claudio8 solo ambata 44, sono stato precipitoso senza consultare il genera ambetti grazie per l errore.
Pandit
Super member
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
è 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
'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
Missione Impossibile2
Banned
Grazie Pandit sei bravissimo
Missione Impossibile2
Banned
VE/NZ
2X1
3-30 Ambo ambetto 8 colpi!
BA/NA
18-81 Ambo ambetto 8 colpi
Avete convergenze?
2X1
3-30 Ambo ambetto 8 colpi!
BA/NA
18-81 Ambo ambetto 8 colpi
Avete convergenze?
Missione Impossibile2
Banned
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.
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.
ps: sistema anche questa :
Call Scrivi(" Estrazioni Esaminate : " & fin - Ini,True,False,,,04)
Ultima modifica:
Father
Banned
bravo
Buongiorno alla fine ce l'hai fatta con Nik....
Scusate io non conosco gli script,ma che numeri sono?
Codicebinario
Advanced Member >PLATINUM<
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...
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à.
Father
Banned
buon relax
Missione Impossibile2
Banned
post 2.544
Missione Impossibile2
Banned
Ecco continui a non essere nessuno,perche' io a lei non la conosco proprio e mi sa un po' polemico da parte sua.Se lo staff mi ha cambiato nik ci sara' un motivo o no?
Missione Impossibile2
Banned
post 2.544
Missione Impossibile2
Banned
Ma perche hanno bannato father?
Si anche io non capisco il perché,è successo un'altra discussione?
Che due...
Baciccia4251
Advanced Member
Il 22, come doveva essere è uscito (personalmente ero sicuro che prima uscisse l'86, ma mi sbagliavo).
I numeri dal 76 al 90, dal 16 luglio quando sono entrati in alta frequenza hanno dato 9 ambi e un terno.
La mia previsione per l'estrazione di questa sera era 22.86.87.88 per estratto, ambo, terno, quaterna e ambetto.
Sarebbero stati un bel po' di soldini. Ma... non l'ho giocata.
Ho giocato il 22 e l'86, ma non la previsione sopra. Un accidenti all'Alzheimer.
Inoltre la terzina 86.87.88 per tutte era in notevole ritardo.
Comunque, chi si accontenta gode. Beh! Ora vado a buttarmi giù dal ponte...
Scherzo naturalmente, con la testa che mi ritrovo, cadendo, finirei per distruggere la strada. E, poi, dovrei pagare anche i danni!
Buena suerte a totos el mundo, come dicono in Norvegia
Baciccia
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 22 novembre 2024Bari2745811755Cagliari7866450314Firenze1490728855Genova3323828124Milano2579134215Napoli3935650114Palermo2583695036Roma2571221055Torino5930437449Venezia3990770535Nazionale8260626559Estrazione Simbolotto
Torino
4412320613
