UN VECCHIO METODO DA FARE SCRIPT

cavaleri · 25 Settembre 2019

Ciao a Tutti.

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp
   Dim R1,R2,Caso,Casi,P1,P2,P3,E1,E2,SAB
   Dim CapGi1,CapGi2,Abb1,Abb2,Abb3,Abb4,A,B
   Dim Ruote(2),Posta(5),Penta1(5),Penta2(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)'ESTRAZIONE 7741 = PRIMO ESEMPIO IN SPIEGAZIONI
   Clp = InputBox("Per quanti colpi vuoi giocare le Cinquine?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CHIESTO DA ALIEN - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               SAB = A + B
               If SAB = 90 Then
                  CapGi1 = Diametrale(A)'Capogioco 1
                  CapGi2 = Diametrale(B)'Capogioco 2
                  Abb1 = Vert(CapGi1)'Abbinamento 1
                  Abb2 = Vert(CapGi2)'Abbinamento 2
                  Abb3 = Fuori90(Abb1 + 10)'Abbinamento 3
                  Abb4 = Fuori90(Abb2 + 10)'Abbinamento 4
                  Penta1(1) = CapGi1 : Penta1(2) = Abb1 : Penta1(3) = Abb2 : Penta1(4) = Abb3 : Penta1(5) = Abb4
                  Penta2(1) = CapGi2 : Penta2(2) = Abb1 : Penta2(3) = Abb2 : Penta2(4) = Abb3 : Penta2(5) = Abb4
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 2
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 1
                  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 P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A 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 P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(5) & " Diametrale Estratto " & Format2(A) & " Uguale " & Format2(CapGi1) & " Capogioco 1 ",1
                  Scrivi Space(5) & " Diametrale Estratto " & Format2(B) & " Uguale " & Format2(CapGi2) & " Capogioco 2 ",1
                  Scrivi Space(5) & " Vertibile           " & Format2(CapGi1) & " Uguale " & Format2(Abb1) & " Abbinamento 1 ",1
                  Scrivi Space(5) & " Vertibile           " & Format2(CapGi2) & " Uguale " & Format2(Abb2) & " Abbinamento 2 ",1
                  Scrivi Space(5) & " Abbinamento 1       " & Format2(Abb1) & " + 10 = " & Format2(Abb3) & " Abbinamento 3 ",1
                  Scrivi Space(5) & " Abbinamento 2       " & Format2(Abb2) & " + 10 = " & Format2(Abb4) & " Abbinamento 4 ",1
                  Scrivi
                  Scrivi Space(10) & "  Prima Cinquina " & StringaNumeri(Penta1," ",True),1
                  Scrivi Space(10) & "Seconda Cinquina " & StringaNumeri(Penta2," ",True),1
                  Scrivi
                  Ruote(1) = R1
                  Ruote(2) = R2
                  ImpostaGiocata 1,Penta1,Ruote,Posta,Clp
                  ImpostaGiocata 2,Penta2,Ruote,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Salve! non si potrebbe avere una versione per L8+?
Grazie Cavaleri

franca46 · 25 Settembre 2019

cavaleri ha scritto:
Salve! non si potrebbe avere una versione per L8+?
Grazie Cavaleri

ciao cavaleri spero sia giusto , controlla

Codice:

Sub main()
Dim ruote(10)
Dim ruot(1)
Dim nu1(2)
Dim nu2(6)
Dim nu3(6)
Dim posta(2)
Dim poste(5)

posta(1)=1
posta(2)=2
poste(2)=1
poste(3)=1

casi=casi

k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))

ini= 9550
fin=EstrazioneFin
For es =ini To fin
Messaggio "elab. estr. del < "&DataEstrazione (es)&" >"

For r1=1 To 10
For p=1 To 5
a=Estratto(es,r1,p)
r2=r1+1
If r1=10 Then r2=1 End If
b=Estratto(es,r2,p)
If (a+b) = 90 Then
co=co+1

Scrivi
ColoreTesto 2 : Scrivi String(65,"•"),1:ColoreTesto 0
Scrivi " < 2 numeri somma "&so&" su "&siglaruota(r1)&" e "&siglaruota(r2)&" >",1
Scrivi String(65,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" "& StringaEstratti(es,r1)&" ]"
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" "& StringaEstratti(es,r2)&" ]"
Scrivi "< numero [ "&format2(a)&" ] in "&(p)&"a pos. su " & SiglaRuota(r1)&" >"
Scrivi "< numero [ "&format2(b)&" ] in "&(p)&"a pos. su " & SiglaRuota(r2)&" >"
Scrivi String(65,"-")


ruote(1)=r1
ruote(2)=r2



nu1(1)=Diametrale(a)
nu1(2)=Diametrale(b)
ImpostaGiocata 1,nu1,ruote,posta,13
nu2(1)=nu1(1)
nu2(2)=Vert(nu1(1))
nu2(3)=Vert(nu1(2))
nu2(4)=Fuori90(nu2(1)+10)
nu2(5)=Fuori90(nu2(2)+10)
ImpostaGiocata 2,nu2,ruote,poste,13
ruot(1)=11
ImpostaGiocata 3,nu2,ruot,poste,13

nu3(1)=nu1(2)
nu3(2)=Vert(nu1(1))
nu3(3)=Vert(nu1(2))
nu3(4)=Fuori90(nu2(1)+10)
nu3(5)=Fuori90(nu2(2)+10)
ImpostaGiocata 4,nu3,ruote,poste,13
ruot(1)=11
ImpostaGiocata 5,nu3,ruot,poste,13

Gioca es
casi=casi+1
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub

buona giornata

cavaleri · 25 Settembre 2019

franca46 ha scritto:

ciao cavaleri spero sia giusto , controlla

Codice:

Sub main()
Dim ruote(10)
Dim ruot(1)
Dim nu1(2)
Dim nu2(6)
Dim nu3(6)
Dim posta(2)
Dim poste(5)

posta(1)=1
posta(2)=2
poste(2)=1
poste(3)=1

casi=casi

k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))

ini= 9550
fin=EstrazioneFin
For es =ini To fin
Messaggio "elab. estr. del < "&DataEstrazione (es)&" >"

For r1=1 To 10
For p=1 To 5
a=Estratto(es,r1,p)
r2=r1+1
If r1=10 Then r2=1 End If
b=Estratto(es,r2,p)
If (a+b) = 90 Then
co=co+1

Scrivi
ColoreTesto 2 : Scrivi String(65,"•"),1:ColoreTesto 0
Scrivi " < 2 numeri somma "&so&" su "&siglaruota(r1)&" e "&siglaruota(r2)&" >",1
Scrivi String(65,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" "& StringaEstratti(es,r1)&" ]"
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" "& StringaEstratti(es,r2)&" ]"
Scrivi "< numero [ "&format2(a)&" ] in "&(p)&"a pos. su " & SiglaRuota(r1)&" >"
Scrivi "< numero [ "&format2(b)&" ] in "&(p)&"a pos. su " & SiglaRuota(r2)&" >"
Scrivi String(65,"-")


ruote(1)=r1
ruote(2)=r2



nu1(1)=Diametrale(a)
nu1(2)=Diametrale(b)
ImpostaGiocata 1,nu1,ruote,posta,13
nu2(1)=nu1(1)
nu2(2)=Vert(nu1(1))
nu2(3)=Vert(nu1(2))
nu2(4)=Fuori90(nu2(1)+10)
nu2(5)=Fuori90(nu2(2)+10)
ImpostaGiocata 2,nu2,ruote,poste,13
ruot(1)=11
ImpostaGiocata 3,nu2,ruot,poste,13

nu3(1)=nu1(2)
nu3(2)=Vert(nu1(1))
nu3(3)=Vert(nu1(2))
nu3(4)=Fuori90(nu2(1)+10)
nu3(5)=Fuori90(nu2(2)+10)
ImpostaGiocata 4,nu3,ruote,poste,13
ruot(1)=11
ImpostaGiocata 5,nu3,ruot,poste,13

Gioca es
casi=casi+1
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub

buona giornata

Tutto OK! Grazie e ciao.

Cerca

Cerca

UN VECCHIO METODO DA FARE SCRIPT

cavaleri

Super Member >GOLD<

franca46

Advanced Member >PLATINUM PLUS<

cavaleri

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi