Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

SCRIPT IN EXCEL

80Sete

Advanced Member >PLATINUM PLUS<
Ciao, credo che tu debba mettere qui lo script, se sono metodi sommativi qualcuno potrà combinare.
 
Ciao 80Sete grazie mille per il suggerimento !


Option Explicit
Sub Main
Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
Dim TOTO2,TOTO,TOTODI,POS,SM
Dim Posta(2),Num1(3)
Posta(1) = 1 : Posta(2) = 1
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6188)
Call ScegliRange(Ini,FIn,Ini,FIn)
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 9
R2 = R1 + 1
For Po1 = 1 To 4
PO2 = Po1 + 1
A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
R3 = R2
R4 = R3 + 1
If R4 = 11 Then R4 = 1
For PO3 = 1 To 4
PO4 = PO3 + 1
C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
'--------------------------------------
SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
'----------------------------------------------
SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
'-------------- DISTANZA ORIZZONTALE
DSOB = Distanza(SOB,SOBB)
DSOBB1 = Distanza(SOB1,SOBB1)
'--------------- SOMME VERT
SOSOB = Fuori90(SOB + SOB1)
SOSOB1 = Fuori90(SOBB + SOBB1)
'--------------- SOMME ORIZ
SORIZ = Fuori90(SOB + SOBB)
SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
'------------------ DIAGONALI
SODIA = Fuori90(SOB + SOBB1)
SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
'-------------------- DIVISIONI
TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
Co = Co + 1
Scrivi String(100,"=") & " " & Co
'=======================================================
Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
ScriviEstrazione(Es)
Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
 

80Sete

Advanced Member >PLATINUM PLUS<
Ciao mister1729, con un po' di pazienza, ti ho fatto questo in excel (a modo mio) il foglio è protetto, potrai solo scrivere l'estrazione e l'ambo che troverai di volta in volta, che abbia la stessa distanza, tutti i calcoli sono in automatico, e alla fine hai i numeri da giocare in alto a destra. Le righe orizzontali, con valori (GRIGI) Lettere-Numero,(es.P13-R14) sopra il 19 Rosso sono il riferimento alla riga e colonna della tabella SOMME, dove ci sarà l'ambo da riportare come in figura .Questa è solo un'immagine, appena possibile, devo spedire a Lottoced il file in excel, poi sarà disponibile (se accettato) nell'area download, .....dove potrai divertirti.;)🤣 è sottinteso che in excel, tutti questi valori saranno tanto più che visibili.
Ciao e buona giornata.....dovrai avere un po' di pazienza, prima che sia disponibile nell'area download. Ciao✍️

Somme.jpg
 
Ciao 80Sete, cosa dire grazie mille per la tua disponibilità e non stò scherzando !
E' veramente bello conoscere/incontrare persone che in qualche modo si rendono disponibili perchè l'esperienza insegna !
Rinnovo i ringraziamenti a te e a Lottoced per la gente che ha nel forum, grazie , Mister1729.
 

80Sete

Advanced Member >PLATINUM PLUS<
Ciao mister1729, ho appena inviato il file excel a Lottoced, tra qualche giorno fai una visita nell'area download, spero sia accettato e pubblicato, avevo messo nella prima risposta.....qualcuno prima o poi potrà combinare, aspettavo qualche esperto che di sicuro l'avrebbe composto più ristretto, io l'ho fatto con molto piacere e nel modo più semplice, poi è bastato fare la prima riga di ogni tabella, e trascinare il tutto verso il basso.....il resto è venuto di conseguenza.
Ho visto che il tuo 1729 è uscito sulla Nazionale il 19 dicembre ;):ROFLMAO:(y)
L'ho protetto, in modo che non si possano cancellare le caselle fisse di calcolo, invece sono libere (come dicevo) solo x inserire l'estrazioni, gli ambi trovati, e le Ruote che saranno in gioco.
Buona serata
80Sete
 
:ROFLMAO::ROFLMAO::ROFLMAO:poi è bastato fare la prima riga di ogni tabella, e trascinare il tutto verso il basso.....il resto è venuto di conseguenza!

non mi conosci eppure hai speso del tuo tempo e devo dire che va benissimo cosi come l'hai realizzato.
Invece il tuo 80sete è uscito sulla mia ruota del cuore ieri sera (BA 87), scherzo naturalmente!
Comunque scherzi a parte ti ringrazio dinuovo 80Sete e spero di "risentirti" ciao e buona serate anche a te
Mister1729.
 

80Sete

Advanced Member >PLATINUM PLUS<
Ciao mister1729, purtroppo ad oggi, neppure l'ombra del programmino in download, avrò sbagliato qualcosa e sarà stato cestinato, non mi sembrava il caso di zipparlo, visto che è solo di 29 Kb, cosa dire...... mi dispiace :cautious:
Ciao e buona domenica.✍️
 
Ciao 80sete, tranquillo ciò che conta è il pensiero, peccato che hai perso tempo, comunque ribadisco ho apprezzato tanto il tuo gesto e spero di risentirti, ciao e buona domenica anche a te!
miste1729.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 25 febbraio 2021
    Bari
    17
    74
    14
    27
    05
    Cagliari
    45
    35
    88
    47
    48
    Firenze
    58
    42
    19
    03
    88
    Genova
    42
    52
    19
    01
    51
    Milano
    31
    54
    70
    34
    61
    Napoli
    48
    47
    77
    17
    40
    Palermo
    26
    30
    23
    69
    03
    Roma
    52
    83
    82
    17
    16
    Torino
    62
    85
    88
    40
    43
    Venezia
    26
    68
    39
    63
    42
    Nazionale
    53
    40
    89
    33
    47
    Estrazione Simbolotto
    Cagliari
    13
    29
    12
    28
    37

Ultimi Messaggi

Alto