Aiuto script per Salvo.Ambo distanza 30 e numero ripetuto stessa posizione.

Juri · 2 Dicembre 2018

Ciao a tutti.

Vorrei,per piacere,uno script con queste caratteristiche sotto.Ambo 4-64 distanza 30 e 46 numero ripetuto.Ambata 34 n° mancante con 16 e 76 distanza 30 del numero ripetuto.

Le ruote vanno ben anche non unite.Se sono uniti o isotopi va bene.Poi anche solo uniti ma è da vedere.

Grazie mille.

Buona domenica.

Cagliari	32	14	4	46	54
Firenze	84	65	64	46	74

Juri · 5 Dicembre 2018

Ciao Salvo,hai visto anche questo per caso?

Grazie.

salvo50 · 5 Dicembre 2018

Visto

Juri · 5 Dicembre 2018

Si puo' fare anche ad 1 ruota?Va bene lo stesso script o 2.Fa te.

Grazie mille.

salvo50 · 6 Dicembre 2018

Non riesco a farlo col numero ripetuto stessa posizione

Juri · 6 Dicembre 2018

C'è bisogno di aiuto?Qualcuno del forum?

Ti viene con il numero ripetuto non nella stessa posizione che vedo se va?

Grazie mille.

beppone · 6 Dicembre 2018

In data 27 11 ha dato su ca due ambetti 34 con 15 77
C i a o

salvo50 · 6 Dicembre 2018

Juri;n2142910 ha scritto:
C'è bisogno di aiuto?Qualcuno del forum?

Ti viene con il numero ripetuto non nella stessa posizione che vedo se va?

Grazie mille.

Si, allora lo finisco, perchè l'avevo abbandonato

salvo50 · 6 Dicembre 2018

Con una sola ruota non si può fare, perchè c'è il numero ripetuto, se si vuole che almeno un estratto sia isotopo togliere la spunta a questa riga:

'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then

e al relativo END-IF

Codice:

'Chiesto da Juri
'Script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca
   Dim Dac,Dad,Dbc,Dbd,M1,M2,M3,S1,S2,MM1,MM2
   Dim Som1,Som2,Caso,Casi,Clp1,Clp2
   Dim Ruote(2),Posta(2),Num(3)
   Fin = EstrazioneFin
   Posta(1) = 1
   Posta(2) = 1
   Clp1 = InputBox("Per quanti colpi vuoi giocare la terzina?",Salvo50,8)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9550)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R1,P2)
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        Dac = Differenza(A,C) : Dad = Differenza(A,D) : Dbc = Differenza(B,C) : Dbd = Differenza(B,D)
                        If((Dac = 30 Or Dac = 60)And B = D)Or((Dad = 30 Or Dad = 60)And B = C) _
                           Or((Dbc = 30 Or Dbc = 60)And A = D)Or((Dbd = 30 Or Dbd = 60)And A = C) Then
                           If(Dac = 30 Or Dac = 60) And B = D Then
                              If A > C And(A - C) = 60 Then Manca = Fuori90(A - 30)
                              If A > C And(A - C) = 30 Then Manca = Fuori90(A + 30)
                              If C > A And(C - A) = 60 Then Manca = Fuori90(C - 30)
                              If C > A And(C - A) = 30 Then Manca = Fuori90(C + 30)
                              Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                              S1 = Space(8) & Format2(A) & Space(2) & Format2(C)
                              S2 = Space(8) & Format2(B) & Space(2) & Format2(D)
                           End If
                           '
                           If(Dad = 30 Or Dad = 60) And B = C Then
                              If A > D And(A - D) = 60 Then Manca = Fuori90(A - 30)
                              If A > D And(A - D) = 30 Then Manca = Fuori90(A + 30)
                              If D > A And(D - A) = 60 Then Manca = Fuori90(D - 30)
                              If D > A And(D - A) = 30 Then Manca = Fuori90(D + 30)
                              Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
                              S1 = Space(8) & Format2(A) & Space(2) & Format2(D)
                              S2 = Space(8) & Format2(B) & Space(2) & Format2(C)
                           End If
                           If(Dbc = 30 Or Dbc = 60) And A = D Then
                              If B > C And(B - C) = 60 Then Manca = Fuori90(B - 30)
                              If B > C And(B - C) = 30 Then Manca = Fuori90(B + 30)
                              If C > B And(C - B) = 60 Then Manca = Fuori90(C - 30)
                              If C > B And(C - B) = 30 Then Manca = Fuori90(C + 30)
                              Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                              S1 = Space(8) & Format2(B) & Space(2) & Format2(C)
                              S2 = Space(8) & Format2(A) & Space(2) & Format2(D)
                           End If
                           If(Dbd = 30 Or Dbd = 60)And A = C Then
                              If B > D And(B - D) = 60 Then Manca = Fuori90(B - 30)
                              If B > D And(B - D) = 30 Then Manca = Fuori90(B + 30)
                              If D > B And(D - B) = 60 Then Manca = Fuori90(D - 30)
                              If D > B And(D - B) = 30 Then Manca = Fuori90(D + 30)
                              Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
                              S1 = Space(8) & Format2(B) & Space(2) & Format2(D)
                              S2 = Space(8) & Format2(A) & Space(2) & Format2(C)
                           End If
                           Scrivi
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi "   Estratti con Distanza 30 o 60   " &(S1),1
                           Scrivi "   Estratti con numeri uguali      " &(S2),1
                           Scrivi
                           Scrivi "   Numeri Mancanti per completare le terzine Simmetriche",1,0
                           Scrivi Space(5) & Format2(Manca) & " " & Format2(MM1) & " " & Format2(MM2)
                           Num(1) = Manca : Num(2) = MM1 : Num(3) = MM2
                           Ruote(1) = R1
                           Ruote(2) = R2
                           ImpostaGiocata 1,Num,Ruote,Posta,Clp1
                           Gioca Es
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
   If B < 31 Then M1 = B : M2 = B + 30 : M3 = B + 60 : MM1 = M2 : MM2 = M3
   If B > 30 And B < 61 Then M1 = B - 30 : M2 = B : M3 = B + 30 : MM1 = M1 : MM2 = M3
   If B > 60 Then M1 = B - 60 : M2 = B - 30 : M3 = B : MM1 = M1 : MM2 = M2
End Function
Function Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
   If A < 31 Then M1 = A : M2 = A + 30 : M3 = A + 60 : MM1 = M2 : MM2 = M3
   If A > 30 And A < 61 Then M1 = A - 30 : M2 = A : M3 = A + 30 : MM1 = M1 : MM2 = M3
   If A > 60 Then M1 = A - 60 : M2 = A - 30 : M3 = A : MM1 = M1 : MM2 = M2
End Function

Juri · 6 Dicembre 2018

Grazie mille.

Quando controllo vedo che succede.

Juri · 6 Dicembre 2018

salvo50;n2142938 ha scritto:

Con una sola ruota non si può fare, perchè c'è il numero ripetuto, se si vuole che almeno un estratto sia isotopo togliere la spunta a questa riga:

'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then

e al relativo END-IF

Codice:

'Chiesto da Juri
'Script by Salvo50
Option Explicit
Sub Main()
Dim Ini,Fin,Es,R1,R2,E1,E2,Salvo50
Dim P1,P2,P3,P4,P5,P6,A,B,C,D,Manca
Dim Dac,Dad,Dbc,Dbd,M1,M2,M3,S1,S2,MM1,MM2
Dim Som1,Som2,Caso,Casi,Clp1,Clp2
Dim Ruote(2),Posta(2),Num(3)
Fin = EstrazioneFin
Posta(1) = 1
Posta(2) = 1
Clp1 = InputBox("Per quanti colpi vuoi giocare la terzina?",Salvo50,8)
Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9550)
Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
For Es = Ini To Fin
Caso = 0
Messaggio Es
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
'If P3 = P1 Or P3 = P2 Or P4 = P1 Or P4 = P2 Then
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
Dac = Differenza(A,C) : Dad = Differenza(A,D) : Dbc = Differenza(B,C) : Dbd = Differenza(B,D)
If((Dac = 30 Or Dac = 60)And B = D)Or((Dad = 30 Or Dad = 60)And B = C) _
Or((Dbc = 30 Or Dbc = 60)And A = D)Or((Dbd = 30 Or Dbd = 60)And A = C) Then
If(Dac = 30 Or Dac = 60) And B = D Then
If A > C And(A - C) = 60 Then Manca = Fuori90(A - 30)
If A > C And(A - C) = 30 Then Manca = Fuori90(A + 30)
If C > A And(C - A) = 60 Then Manca = Fuori90(C - 30)
If C > A And(C - A) = 30 Then Manca = Fuori90(C + 30)
Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
S1 = Space(8) & Format2(A) & Space(2) & Format2(C)
S2 = Space(8) & Format2(B) & Space(2) & Format2(D)
End If
'
If(Dad = 30 Or Dad = 60) And B = C Then
If A > D And(A - D) = 60 Then Manca = Fuori90(A - 30)
If A > D And(A - D) = 30 Then Manca = Fuori90(A + 30)
If D > A And(D - A) = 60 Then Manca = Fuori90(D - 30)
If D > A And(D - A) = 30 Then Manca = Fuori90(D + 30)
Call Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
S1 = Space(8) & Format2(A) & Space(2) & Format2(D)
S2 = Space(8) & Format2(B) & Space(2) & Format2(C)
End If
If(Dbc = 30 Or Dbc = 60) And A = D Then
If B > C And(B - C) = 60 Then Manca = Fuori90(B - 30)
If B > C And(B - C) = 30 Then Manca = Fuori90(B + 30)
If C > B And(C - B) = 60 Then Manca = Fuori90(C - 30)
If C > B And(C - B) = 30 Then Manca = Fuori90(C + 30)
Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
S1 = Space(8) & Format2(B) & Space(2) & Format2(C)
S2 = Space(8) & Format2(A) & Space(2) & Format2(D)
End If
If(Dbd = 30 Or Dbd = 60)And A = C Then
If B > D And(B - D) = 60 Then Manca = Fuori90(B - 30)
If B > D And(B - D) = 30 Then Manca = Fuori90(B + 30)
If D > B And(D - B) = 60 Then Manca = Fuori90(D - 30)
If D > B And(D - B) = 30 Then Manca = Fuori90(D + 30)
Call Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
S1 = Space(8) & Format2(B) & Space(2) & Format2(D)
S2 = Space(8) & Format2(A) & Space(2) & Format2(C)
End If
Scrivi
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Estratti con Distanza 30 o 60 " &(S1),1
Scrivi " Estratti con numeri uguali " &(S2),1
Scrivi
Scrivi " Numeri Mancanti per completare le terzine Simmetriche",1,0
Scrivi Space(5) & Format2(Manca) & " " & Format2(MM1) & " " & Format2(MM2)
Num(1) = Manca : Num(2) = MM1 : Num(3) = MM2
Ruote(1) = R1
Ruote(2) = R2
ImpostaGiocata 1,Num,Ruote,Posta,Clp1
Gioca Es
'End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Function Trova1(A,B,C,D,M1,M2,M3,MM1,MM2)
If B < 31 Then M1 = B : M2 = B + 30 : M3 = B + 60 : MM1 = M2 : MM2 = M3
If B > 30 And B < 61 Then M1 = B - 30 : M2 = B : M3 = B + 30 : MM1 = M1 : MM2 = M3
If B > 60 Then M1 = B - 60 : M2 = B - 30 : M3 = B : MM1 = M1 : MM2 = M2
End Function
Function Trova2(A,B,C,D,M1,M2,M3,MM1,MM2)
If A < 31 Then M1 = A : M2 = A + 30 : M3 = A + 60 : MM1 = M2 : MM2 = M3
If A > 30 And A < 61 Then M1 = A - 30 : M2 = A : M3 = A + 30 : MM1 = M1 : MM2 = M3
If A > 60 Then M1 = A - 60 : M2 = A - 30 : M3 = A : MM1 = M1 : MM2 = M2
End Function

Per togliere la spunta dici all'inizio quando mi chiedo cosa fare o devo tirarlo via nello script?Tiro via la prima riga che dici o 2?

grazie.

salvo50 · 6 Dicembre 2018

Dentro lo script, comunque riprendilo di nuovo, la spunta l'ho tolta io

rudivall · 6 Dicembre 2018

Caro Salvo complimenti, sempre più bravo nell'eseguire questi ottimi lavori.

salvo50 · 7 Dicembre 2018

Grazie Rudivall, Buone Feste

rudivall · 7 Dicembre 2018

Carissimo grazie, anche per te e famiglia buone e serene feste.

Cerca

Cerca

Aiuto script per Salvo.Ambo distanza 30 e numero ripetuto stessa posizione.

Juri

Super Member >GOLD<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

beppone

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

rudivall

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

rudivall

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi