Novità

Rivolto a tutti i professionisti di script

Asuniverso

Advanced Member >PLATINUM PLUS<
So che siete tutti bravi alla formulazione degli script, quindi chiedo cortesemente l'impegno di uno di voi di sviluppare uno script per il programma L8+6.1 per la formulazione del Triangolo Scaleno.

Per il momento colgo l'occasione per salutare e resto in attesa di un vostro riscontro e di conseguenza decidere le varie condizioni per la formulazione.

P.S: NEL LISTATO DELLO SCRIPT DI CHI RIESCE NELL'IMPRESA, CORTESEMENTE DEVE APPARIRE IL SUO NIK DA FORMULATORE DELLO SCRIPT ED IL MIO NIK ASuniverso (in arte Giacomo Scionti) COME IDEATORE DELLA TECNICA, MI SEMBRA UN CONTRIBUTO LOGICO.
 
Ultima modifica:

genios

Advanced Member >PLATINUM<
Creiamo tre variabili e le chiamiamo lato1, lato2 e lato3.

Per essere un triangolo si deve verificare che:

lato1<lato2+lato3
lato2<lato1+lato3
lato3<lato2+lato1

Quindi dopo aver chiesto in input i tre lati, verifichiamo che tutte e tre le condizioni siano vere. Se non sono vere facciamo visualizzare in output il messaggio: ‘Non è sempre possibile costruire un triangolo! In un triangolo ogni lato è minore della somma degli altri due!’

Se invece sono vere possiamo determinare se si tratta di un triangolo equilatero, isoscele oppure scaleno.

Come?



Dapprima verifichiamo se i tre lati sono uguali con la funzione logica And:

se lato1=lato2 And lato2=lato3

allora il triangolo è equilatero.

Dopo verifichiamo se i lati sono uguali a due a due, usando la funzione logica Or:

lato1=lato2 Or lato2=lato3 Or lato1=lato3

se ciò è vero allora il triangolo è isoscele.

Se le due condizioni sopra non sono vere allora il triangolo è scaleno.

Copiato e incollato

ciao Eugenio
 
Ultima modifica:

Asuniverso

Advanced Member >PLATINUM PLUS<
Il triangolo deve essere scaleno
1595499276466.png

La condizione è quella di trovare sulla stessa estrazione tre corpi di numeri di stessa figura su una ruota, ed il 4 corpo su un'altra ruota necessariamente isotopo

Ti riporto l'esempio:
1595499662172.png

I corpi sul cerchio ciclometrico devono rispettare la seguente figura di triangolo scaleno con le dovute misure.

1595499791712.png

PROCEDIMENTO PER IL CALCOLO DEL PRONOSTICO:

Adesso ragioniamo così: Dobbiamo proiettare il TRIANGOLO in modo che le misure 45,18,27 risultano al rovescio come da immagine

1595499886930.png

La proezione del secondo triangolo scaleno deve sempre riportare un solo numero ripetuto (nel nostro caso è il 47)

L’ambata in gioco scaturisce sempre dalla corda della misura 18, e come ambata risponde, sempre, il numero più piccolo della distanza menzionata.

In questo caso l’ambata è 02.

Il primo ambo scaturisce dalla distanza 18

quindi diventa 02-20

Il secondo ambo scaturisce dal dimezzare la distanza 18

quindi diventa 02-11

Il terzo ambo scaturisca dalla distanza 45

quindi diventa 02-47.

Altro esempio base:
Nell’estrazione del 29-12-2018 si presentavano i seguenti corpi in figura 02
1595500507626.png

1595500532534.png

Proiezione del secondo triangolo scaleno
1595500584022.png

Il nostro pronostico per le ruote in esame è:
CAGLIARI - GENOVA
AMBATA 29
Ambi secchi: 29-47 / 29-38 / 29-74


Avvertenze importanti: Prima di mettere in gioco la previsione, bisogna controllare ed accertarsi che nella estrazione di base non sia presente il numero capogioco, nel qual caso la previsione non viene posta in gioco.
I numeri iniziali, che compongono la figura base del TRIANGOLO SCALENO, devono, tassativamente, coincidere tutte o in parte alle posizioni estrattive di rilevamento, sarebbe a dire che se troviamo una terzina della stessa figura in una ruota, nelle restati ruote dobbiamo trovate il 4 numero che sia della stessa figura e che occupa perlomeno in verticale la posizione di un numero della terzina,( oppure a ritroso di una o un massimo tre estrazioni) lo stesso vale per le coppie di ambi.

questo è tutto
 

Mike58

Advanced Member >PLATINUM PLUS<
Asuniverso, dando una occhiata veloce alla condizione da rilevare, non mi sembra impossibile
Ripeto ho solo voluto trovare la prima parte.
Puoi verificare i dati trovati nella solo estrazione di riferimento ad esempio




Io purtroppo no uso l8 ma spaziometria e rilevo la condizione così come da esempio

Ciao
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Asuniverso, dando una occhiata veloce alla condizione da rilevare, non mi sembra impossibile
Ripeto ho solo voluto trovare la prima parte.
Puoi verificare i dati trovati nella solo estrazione di riferimento ad esempio




Io purtroppo no uso l8 ma spaziometria e rilevo la condizione così come da esempio

Ciao

Mike58 verifico il tutto e ti faccio sapere per l'esito finale, per il momento ti ringrazio per la tua disponibilità nella creazione dello script che a colpo d'occhio sembra quello giusto.
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Asuniverso, dando una occhiata veloce alla condizione da rilevare, non mi sembra impossibile
Ripeto ho solo voluto trovare la prima parte.
Puoi verificare i dati trovati nella solo estrazione di riferimento ad esempio




Io purtroppo no uso l8 ma spaziometria e rilevo la condizione così come da esempio

Ciao

Mike58 va perfetto delle 4 indicazione quella che rispettava le distanze è quella di FIRENZE E TORINO che hai evidenziato sul cerchio, quest'ultima ha realizzato l'ambo 2-11 su Torino.

Oltre a riportare le terne, bisogna riportare anche le coppie di ambi che risultano tutte 4 isotopi in verticale, se non cè la condizione si possono scegliere quelle coppie come da esempio sottostante.


1595520502900.png

1595520533168.png


Avvertenze importanti:

Prima di mettere in gioco la previsione, bisogna controllare ed accertarsi che nella estrazione di base non sia presente il numero capogioco, nel qual caso la previsione non viene posta in gioco.

I numeri iniziali, che compongono la figura base del TRIANGOLO SCALENO, devono, tassativamente, coincidere tutte o in parte alle posizioni estrattive di rilevamento, sarebbe a dire che se troviamo una terzina della stessa figura in una ruota, nelle restati ruote dobbiamo trovate il 4 numero che sia della stessa figura e che occupa perlomeno in verticale la posizione di un numero della terzina,( oppure a ritroso di una o un massimo tre estrazioni)

lo stesso vale per le coppie di ambi.

Mikè58 puoi procedere alla realizzazione, una cortesia nello script devi fare in modo che compare il tuo nik come elaboratore dello script, ed il mio nik ASuniverso in arte Giacomo Scionti, come realizzatore della teoria del triangolo scaleno.

Mille grazie!!!
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Un Certo Giacomo Scionti mi è capitato di leggerlo sui vari Giornali di Lotto.
Tranquillo come ti dicevo ho fatto solo la prima parte devo leggermi attentamente e meglio la condizione univoca.
Poi dopo metteremo tutte le scritte con i dettagli del caso.
Chiaro io procederò con spaziometria poi la ricerca di combinazione può funzionare anche con l'8.
Tranne il disegno del Cerchio Ciclometrico.

Ci aggiorniamo.

Nel frattempo altri amici volessero unirsi sono tutti benvenuti.
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Un Certo Giacomo Scionti mi è capitato di leggerlo sui vari Giornali di Lotto.
Tranquillo come ti dicevo ho fatto solo la prima parte devo leggermi attentamente e meglio la condizione univoca.
Poi dopo metteremo tutte le scritte con i dettagli del caso.
Chiaro io procederò con spaziometria poi la ricerca di combinazione può funzionare anche con l'8.
Tranne il disegno del Cerchio Ciclometrico.

Ci aggiorniamo.

Nel frattempo altri amici volessero unirsi sono tutti benvenuti.

Mike58 bravissimo per le tue capacità di realizzare il tutto, io uso molto il programma L8, preferirei se lo script funzionasse per quest'ultimo (poi al limite si usa spaziometria). In merito ai giornali mi sono ritirato, su qualche rivista si legge solo qualche mio pronostico, mi sono stancato di scrivere per i giornali.

Aspetto tue nuove notizie, ciao Mike58
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Giacomo, Sicuramente mi sfugge qualcosa nei calcoli, ma intanto c'è una bozza sulla quale lavorare,
fammi un controllo, utilizzando spaziometria.
Cosi siamo ancora in fase Work in Progress.
Se Hai direttive per migliorie suggerisci, poi vediamo.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),Ruote(2)
   Ini = 9548'EstrazioneFin - 100
   fin = ini+100'EstrazioneFin
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174)& "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                    
                                    Call OrdinaMatrice(Num,1,1)
                                    If Num(3) > 45 And Differenza(Num(1),Num(3)) = 18 Then
                                    k = k + 1
                                    Ruote(1) = r1
                                    Ruote(2) = r2
                                    ambata(1) = Diametrale(Num(3))
                                    ambo1(1) = ambata(1) : ambo1(2) = ambata(1)+18
                                    ambo2(1) = ambata(1) : ambo2(2) = ambata(1)+9
                                    
                                    ReDim MatCasella(4,1)
                                    MatCasella(1,0)  = r1' ruota
                                    MatCasella(1,1) = p1
                                    MatCasella(2,0) = r1
                                    MatCasella(2,1) = p2
                                    MatCasella(3,0) = r1
                                    MatCasella(3,1) = p3
                                    MatCasella(4,0) = r2
                                    MatCasella(4,1) = p4
                                    Scrivi String(100,"=") & "Caso N." & k,1
                                    Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1&p2&p3
                                    Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                    Scrivi
                                    
                                    Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                    Call DisegnaCerchioCiclometrico (Num,True,True,False,,True,True,True)
                                    Scrivi
                                    Call VerificaEsito(ambata,Ruote,es+1,1,10,,esitoA,clpA,esA,idA)
                                    Call VerificaEsito(ambo1,Ruote,es+1,2,10,,esitoB,clpB,esB,idB)
                                    Call VerificaEsito(ambo2,Ruote,es+1,2,10,,esitoC,clpC,esC,idC)
                                    Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                    If esitoA <> "" Then
                                    Scrivi esA & " Colpo... " & clpA
                                    Else                                     
                                    Scrivi "Negativo"
                                    End If
                                    Scrivi "Ambo 1    " & StringaNumeri(ambo1)& vbTab ,1,0
                                    If esitoB <> "" Then
                                    Scrivi esB & " Colpo... " & clpB
                                    Else
                                    Scrivi "Negativo"
                                    End If                                   
                                    Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                    If esitoC <> "" Then
                                    Scrivi EsC & " Colpo... " & clpC
                                    Else
                                    Scrivi "Negativo"
                                    End If
                                    
                                    
                                 End If
                                 End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Ciao Giacomo, Sicuramente mi sfugge qualcosa nei calcoli, ma intanto c'è una bozza sulla quale lavorare,
fammi un controllo, utilizzando spaziometria.
Cosi siamo ancora in fase Work in Progress.
Se Hai direttive per migliorie suggerisci, poi vediamo.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),Ruote(2)
   Ini = 9548'EstrazioneFin - 100
   fin = ini+100'EstrazioneFin
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174)& "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                               
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                   
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                   
                                    Call OrdinaMatrice(Num,1,1)
                                    If Num(3) > 45 And Differenza(Num(1),Num(3)) = 18 Then
                                    k = k + 1
                                    Ruote(1) = r1
                                    Ruote(2) = r2
                                    ambata(1) = Diametrale(Num(3))
                                    ambo1(1) = ambata(1) : ambo1(2) = ambata(1)+18
                                    ambo2(1) = ambata(1) : ambo2(2) = ambata(1)+9
                                   
                                    ReDim MatCasella(4,1)
                                    MatCasella(1,0)  = r1' ruota
                                    MatCasella(1,1) = p1
                                    MatCasella(2,0) = r1
                                    MatCasella(2,1) = p2
                                    MatCasella(3,0) = r1
                                    MatCasella(3,1) = p3
                                    MatCasella(4,0) = r2
                                    MatCasella(4,1) = p4
                                    Scrivi String(100,"=") & "Caso N." & k,1
                                    Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1&p2&p3
                                    Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                    Scrivi
                                   
                                    Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                    Call DisegnaCerchioCiclometrico (Num,True,True,False,,True,True,True)
                                    Scrivi
                                    Call VerificaEsito(ambata,Ruote,es+1,1,10,,esitoA,clpA,esA,idA)
                                    Call VerificaEsito(ambo1,Ruote,es+1,2,10,,esitoB,clpB,esB,idB)
                                    Call VerificaEsito(ambo2,Ruote,es+1,2,10,,esitoC,clpC,esC,idC)
                                    Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                    If esitoA <> "" Then
                                    Scrivi esA & " Colpo... " & clpA
                                    Else                                    
                                    Scrivi "Negativo"
                                    End If
                                    Scrivi "Ambo 1    " & StringaNumeri(ambo1)& vbTab ,1,0
                                    If esitoB <> "" Then
                                    Scrivi esB & " Colpo... " & clpB
                                    Else
                                    Scrivi "Negativo"
                                    End If                                  
                                    Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                    If esitoC <> "" Then
                                    Scrivi EsC & " Colpo... " & clpC
                                    Else
                                    Scrivi "Negativo"
                                    End If
                                   
                                   
                                 End If
                                 End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub




Mike58 la struttura che a noi interessa è solo questa con le relative misure
74-27 = misura 27
74-29 = misura 45
29-47 = misura 18

Il resto non ci interessano, quindi procediamo a rilevare solo queste strutture, di conseguenza ti do le direttive per la formulazione del pronostico.
 

Mike58

Advanced Member >PLATINUM PLUS<
Prova a vedere se la figura rovesciara è corretta, siamo ancora in fase di work in progress.
devo ancora capire qualche filtro.
Purtroppo vado a tentativi.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),Ruote(2),Corde(4)
   Ini = 9548'EstrazioneFin - 100
   fin = 9548'ini + 100'EstrazioneFin
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
                                       Corde(4) = (Num(3))
                                      
                                          k = k + 1
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(100,"=") & "Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          If esitoA <> "" Then
                                             Scrivi esA & " Colpo... " & clpA
                                          Else
                                             Scrivi "Negativo"
                                          End If
                                          Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          If esitoB <> "" Then
                                             Scrivi esB & " Colpo... " & clpB
                                          Else
                                             Scrivi "Negativo"
                                          End If
                                          Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          If esitoC <> "" Then
                                             Scrivi EsC & " Colpo... " & clpC
                                          Else
                                             Scrivi "Negativo"
                                          End If
                                       'End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Mike58 dei tre casi della videata finale: il 1° caso la figura non è idonea, il 2° caso la figura è idonea, ma non è idoneo il pronostico, mentre il 3° caso la figura è idonea e pure anche per lo svolgimento del pronostico.

Quello che ti suggerisco è di individuare per il momento tutte le figure del triangolo scaleno come nel caso 2° e 3° che hanno le misure 45/27/18 questa è la condizione, quelle che non hanno la condizione richiesta non devono essere prese inconsiderazione. Poi per ultimo applichiamo la formulazione del pronostico.

Per la condizione del pronostico oltre le terne, devi applicare anche le coppie di ambi che abbiano stesse condizioni di isotopia in verticale.
 

Mike58

Advanced Member >PLATINUM PLUS<
Grazie Cutoff, per l'apprezzamento.
Ciao Giacomo, non saprei con tutte queste condizioni if che lo script richiede, sto andando in confusione.
prova a vedere se così può andare con tutte le estrazioni in gioco (lo script si può interrompere prima di fine elaborazione).
I pronostici in gioco li ho inseriti per quello che ho capito (ma si possono rielaborare)

Poi per quanto riguarda la stessa tipologia di condizione ma in ambo su 2 ruote, per questa tipologia di condizione e meglio fare uno script a parte.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),Ruote(2),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   Ini = 9548'EstrazioneFin - 100
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
                                       Corde(4) = (Num(3))
                                       If Differenza(Num(1),Num(3)) = 18 And Differenza(Num(3),Num(4))= 27 And Differenza(Num(1),Num(4)) = 45 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          ImpostaGiocata 1,ambata,Ruote,Posta,10,1
                                          ImpostaGiocata 2,ambo1,Ruote,poste,10,2
                                          ImpostaGiocata 3,ambo2,Ruote,poste,10,2
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub

Direi di completare la parte 3 fig su ruota e 1 fig su ruota

ciao
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Grazie Cutoff, per l'apprezzamento.
Ciao Giacomo, non saprei con tutte queste condizioni if che lo script richiede, sto andando in confusione.
prova a vedere se così può andare con tutte le estrazioni in gioco (lo script si può interrompere prima di fine elaborazione).
I pronostici in gioco li ho inseriti per quello che ho capito (ma si possono rielaborare)

Poi per quanto riguarda la stessa tipologia di condizione ma in ambo su 2 ruote, per questa tipologia di condizione e meglio fare uno script a parte.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),Ruote(2),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   Ini = 9548'EstrazioneFin - 100
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
                                       Corde(4) = (Num(3))
                                       If Differenza(Num(1),Num(3)) = 18 And Differenza(Num(3),Num(4))= 27 And Differenza(Num(1),Num(4)) = 45 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          ImpostaGiocata 1,ambata,Ruote,Posta,10,1
                                          ImpostaGiocata 2,ambo1,Ruote,poste,10,2
                                          ImpostaGiocata 3,ambo2,Ruote,poste,10,2
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub

Direi di completare la parte 3 fig su ruota e 1 fig su ruota

ciao

Mike58 ora è perfetto sia per la condizione e sia per la formulazione di gioco, l'unica negatività non cè il terzo ambo in gioco; sarebbe l'ambata con la distanza 45, se ho visto bene tu menzioni solo due ambi anzichè di tre. Ciao finora ottimo lavoro!!!
 

Mike58

Advanced Member >PLATINUM PLUS<
Aggiunto ambo distanza 45,.
Giacomo in questo periodo non ho tempo,per la condizione 2 numeri + 2 numeri, la faccio appena possibile.
Ciao

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   Ini = 9548'EstrazioneFin - 100
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Num(3))
                                       If Differenza(Num(1),Num(3)) = 18 And Differenza(Num(3),Num(4)) = 27 And Differenza(Num(1),Num(4)) = 45 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          ImpostaGiocata 1,ambata,Ruote,Posta,10,1
                                          ImpostaGiocata 2,ambo1,Ruote,poste,10,2
                                          ImpostaGiocata 3,ambo2,Ruote,poste,10,2
                                          ImpostaGiocata 4,ambo3,Ruote,poste,10,2
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Aggiunto ambo distanza 45,.
Giacomo in questo periodo non ho tempo,per la condizione 2 numeri + 2 numeri, la faccio appena possibile.
Ciao

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   Ini = 9548'EstrazioneFin - 100
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  For r2 = 1 To 10
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Num(3))
                                       If Differenza(Num(1),Num(3)) = 18 And Differenza(Num(3),Num(4)) = 27 And Differenza(Num(1),Num(4)) = 45 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          ImpostaGiocata 1,ambata,Ruote,Posta,10,1
                                          ImpostaGiocata 2,ambo1,Ruote,poste,10,2
                                          ImpostaGiocata 3,ambo2,Ruote,poste,10,2
                                          ImpostaGiocata 4,ambo3,Ruote,poste,10,2
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub

Mike58 complimenti va molto bene ora, certamente quando sei disponibile mi fai sapere perchè si può ancora migliorare lo script con aggiunta di piccole variazioni. Per il momento ti saluto, ciao Mik58 e ancora grazie!!!
 

lota

Super Member >PLATINUM<
Ciao Tutti, chiedo ai due Maestri con l'estrazione di questa sera se non ho capito male si è venuto a creare sulle ruote di CA_MI un triangolo con i numeri dei lati 45.27.18. dato che lo script non lo rileva magari sbaglio io. Mi date un cenno? Grazie
Schermata 2020-08-04 alle 22.06.10.png
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Ciao Tutti, chiedo ai due Maestri con l'estrazione di questa sera se non ho capito male si è venuto a creare sulle ruote di CA_MI un triangolo con i numeri dei lati 45.27.18. dato che lo script non lo rileva magari sbaglio io. Mi date un cenno? Grazie
Vedi l'allegato 2202977

lota la condizione è valida, ti riporto anche la proiezione del triangolo di gioco.

Immagine triangolo.jpg

Pronostico:
Cagliari - Milano
Ambata 62
Ambi secchi su ruota e su tutte

62-71 / 62-80 / 62-17

Ciao lota!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto