Novità

Rivolto a tutti i professionisti di script

Asuniverso

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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 >GOLD<
Messaggi
865
Punti reazione
14
Punti
18
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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.
 

cutoff

Advanced Member >PLATINUM<
Messaggi
1.010
Punti reazione
70
Punti
48
Un enorme GRAZIE a Mike58 per la creazione ed a Asuniverso per il metodo. Presto avremo questa autentica 'perla' ;)
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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 >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
211
Punti
43
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
    giovedì 24 settembre 2020
    Bari
    04
    30
    73
    82
    79
    Cagliari
    32
    17
    07
    74
    66
    Firenze
    65
    41
    23
    88
    85
    Genova
    79
    78
    60
    88
    73
    Milano
    22
    69
    02
    80
    27
    Napoli
    59
    53
    67
    13
    86
    Palermo
    81
    90
    39
    11
    65
    Roma
    53
    72
    39
    54
    52
    Torino
    62
    70
    10
    54
    82
    Venezia
    52
    43
    10
    80
    75
    Nazionale
    17
    23
    52
    76
    78
    Estrazione Simbolotto
    Palermo
    39
    08
    29
    03
    09

Ultimi Messaggi

Alto