Modifica su script grazie per Salvo50 o altro esperto

sorujoe · 8 Ottobre 2018

Ho trovato il lottofacile 1 di manara vi chiedo se è possibile di fare in modo che prenda tutti i casi anche quelli non isotopi ….al momento prende solo quelli isotopi.
questo script gira su lottodesk e mi va bene eventualmente mi andrebbe bene anche su spaziometria del grande Luigi.

Sub main()

Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)

Dim posta(1),poste(2),post(3)

posta(1)=5

oste(2)=5post(2)=4post(3)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)

k=InputBox ("per quanti colpi?","colpi di gioco",14)

ini=ce

fin=EstrazioneFin

Scrivi "lotto facile 1 di o_manara (script by maxma62)",1

Scrivi String(76,"="),1

Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_

DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"

For es=ini ToEstrazioneFin

Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 9

For p1=1 To 4

For p2=p1+1 To 5

a=Estratto (es,r1,p1)

b=Estratto (es,r1,p2)

a1=Fuori90(a+b)

For r2=r1+1 To 10

IfDistanza(r2,r1)=5 Or r2=r1+1 Or r2=r1-11 Then'lasciare per solo diametr. consec e gemm

For p3=1 To 4

For p4=p3+1 To 5

c=Estratto(es,r2,p3)

d=Estratto(es,r2,p4)

If p3=p1 And p4=p2 Then'ambi isotopi

a2=Fuori90(c+d)

If (a1)=(a2) Then

n1=Abs(a-d) 'diff matem diag

n2=Abs(b-c) 'diff matem diag

n3=Abs(a-c) 'diff matem vert

n4=Abs(b-d) 'diff matem vert

If n1=n2 And n3=n4 Then'se le diff sono uguali

n5=Abs(n2-n4)

n6=Fuori90(a2+n5) 'ambata

n7=90-a2 '1^ abb

If n7=0 Then n7=90

n8=Vert(n7) '2^ abb

casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1

ScriviDataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_

" ] ambo somma [ " & Format2(a) &"."& Format2 (b)&" ] "&(p1)&"^/"&(p2)&"^ pos."

ScriviDataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_

" ] ambo somma [ "& Format2 (c) &"."& Format2 (d)&" ] "&(p3)&"^/"&(p4)&"^ pos."

ColoreTesto 0:Scrivi String(64,"-")&" caso n° "&casi

ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0

nu1(1)=n6

co=co+1

ImpostaGiocata co,nu1,ruote,posta,k,1

nu2(1)=n6:nu2(2)=n7

co=co+1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2)=n8

co=co+1

ImpostaGiocata co,nu2,ruote,poste,k

nu3(1)=n6:nu3(2)=n7:nu3(3)=n8

co=co+1

ImpostaGiocata co,nu3,ruote,post,k

co=co+1

ImpostaGiocata co,nu3,ruota,post,k

Gioca es

EndIf

EndIf

EndIf'ambi isotopi

Next:Next

EndIf'lasciare per solo diametr. e consec

Next:Next:Next:Next:Next

Scrivi String(58,"=")&" script by maxma62",1

ScriviResoconto

ColoreTesto 1:scrivi "lotto facile 1 di o_manara (script by maxma62)",1

EndSub

sorujoe · 8 Ottobre 2018

Sub main()

Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)

Dim posta(1),poste(2),post(3)

posta(1)=5

oste(2)=5

ost(2)=4

ost(3)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)

k=InputBox ("per quanti colpi?","colpi di gioco",14)

ini=ce

fin=EstrazioneFin

Scrivi "lotto facile 1 di o_manara (script by maxma62)",1

Scrivi String(76,"="),1

Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_

DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"

For es=ini To EstrazioneFin

Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 9

For p1=1 To 4

For p2=p1+1 To 5

a=Estratto (es,r1,p1)

b=Estratto (es,r1,p2)

a1=Fuori90(a+b)

For r2=r1+1 To 10

If Distanza(r2,r1)=5 Or r2=r1+1 Or r2=r1-11 Then 'lasciare per solo diametr. consec e gemm

For p3=1 To 4

For p4=p3+1 To 5

c=Estratto(es,r2,p3)

d=Estratto(es,r2,p4)

If p3=p1 And p4=p2 Then 'ambi isotopi

a2=Fuori90(c+d)

If (a1)=(a2) Then

n1=Abs(a-d) 'diff matem diag

n2=Abs(b-c) 'diff matem diag

n3=Abs(a-c) 'diff matem vert

n4=Abs(b-d) 'diff matem vert

If n1=n2 And n3=n4 Then 'se le diff sono uguali

n5=Abs(n2-n4)

n6=Fuori90(a2+n5) 'ambata

n7=90-a2 '1^ abb

If n7=0 Then n7=90

n8=Vert(n7) '2^ abb

casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1

Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_

" ] ambo somma [ " & Format2(a) &"."& Format2 (b)&" ] "&(p1)&"^/"&(p2)&"^ pos."

Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_

" ] ambo somma [ "& Format2 (c) &"."& Format2 (d)&" ] "&(p3)&"^/"&(p4)&"^ pos."

ColoreTesto 0:Scrivi String(64,"-")&" caso n° "&casi

ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0

nu1(1)=n6

co=co+1

ImpostaGiocata co,nu1,ruote,posta,k,1

nu2(1)=n6:nu2(2)=n7

co=co+1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2)=n8

co=co+1

ImpostaGiocata co,nu2,ruote,poste,k

nu3(1)=n6:nu3(2)=n7:nu3(3)=n8

co=co+1

ImpostaGiocata co,nu3,ruote,post,k

co=co+1

ImpostaGiocata co,nu3,ruota,post,k

Gioca es

End If

End If

End If 'ambi isotopi

Next:Next

End If 'lasciare per solo diametr. e consec

Next:Next:Next:Next:Next

Scrivi String(58,"=")&" script by maxma62",1

ScriviResoconto

ColoreTesto 1:scrivi "lotto facile 1 di o_manara (script by maxma62)",1

End Sub

salvo50 · 9 Ottobre 2018

Ciao a Tutti

Vedi se ho capito la tua richiesta

Codice:

Sub Main()
   Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
   Dim posta(1),poste(2),post(3)
   posta(1) = 5 : poste(2) = 5 : post(2) = 4 : post(3) = 1
   ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",9500)
   k = InputBox("per quanti colpi?","colpi di gioco",14)
   ini = ce
   fin = EstrazioneFin
   Scrivi "lotto facile 1 di o_manara (script by maxma62)",1
   Scrivi String(76,"="),1
   Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
   DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
   For es = ini To EstrazioneFin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      For r1 = 1 To 9
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               a1 = Fuori90(a + b)
               For r2 = r1 + 1 To 10
                  If Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = r1 - 11 Then'lasciare per solo diametr. consec e gemm
                     For p3 = 1 To 4
                        For p4 = p3 + 1 To 5
                           c = Estratto(es,r2,p3)
                           d = Estratto(es,r2,p4)
                           'If p3 = p1 And p4 = p2 Then'ambi isotopi
                           a2 = Fuori90(c + d)
                           If(a1) =(a2) Then
                              n1 = Abs(a - d) 'diff matem diag
                              n2 = Abs(b - c) 'diff matem diag
                              n3 = Abs(a - c) 'diff matem vert
                              n4 = Abs(b - d) 'diff matem vert
                              If n1 = n2 And n3 = n4 Then'se le diff sono uguali
                                 n5 = Abs(n2 - n4)
                                 n6 = Fuori90(a2 + n5) 'ambata
                                 n7 = 90 - a2 '1^ abb
                                 If n7 = 0 Then n7 = 90
                                 n8 = Vert(n7) '2^ abb
                                 casi = casi + 1:Scrivi String(58,"=") & " script by maxma62",1
                                 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                                 " ] ambo somma [ " & Format2(a) & "." & Format2(b) & " ] " &(p1) & "^/" &(p2) & "^ pos."
                                 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                                 " ] ambo somma [ " & Format2(c) & "." & Format2(d) & " ] " &(p3) & "^/" &(p4) & "^ pos."
                                 ColoreTesto 0:Scrivi String(64,"-") & " caso n° " & casi
                                 ruote(1) = r1:ruote(2) = r2:ruota(1) = 11:co = 0
                                 nu1(1) = n6
                                 co = co + 1
                                 ImpostaGiocata co,nu1,ruote,posta,k,1
                                 nu2(1) = n6:nu2(2) = n7
                                 co = co + 1
                                 ImpostaGiocata co,nu2,ruote,poste,k
                                 nu2(2) = n8
                                 co = co + 1
                                 ImpostaGiocata co,nu2,ruote,poste,k
                                 nu3(1) = n6:nu3(2) = n7:nu3(3) = n8
                                 co = co + 1
                                 ImpostaGiocata co,nu3,ruote,post,k
                                 co = co + 1
                                 ImpostaGiocata co,nu3,ruota,post,k
                                 Gioca es
                              End If
                           End If
                           'End If'ambi isotopi
                        Next
                     Next
                  End If'lasciare per solo diametr. e consec
               Next
            Next
         Next
      Next
   Next
   Scrivi String(58,"=") & " script by maxma62",1
   ScriviResoconto
   ColoreTesto 1:Scrivi "lotto facile 1 di o_manara (script by maxma62)",1
End Sub

sorujoe · 9 Ottobre 2018

Al solito impeccabile grazie Salvo

Cerca

Cerca

Modifica su script grazie per Salvo50 o altro esperto

sorujoe

Advanced Member

sorujoe

Advanced Member

salvo50

Advanced Member >PLATINUM PLUS<

sorujoe

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi