Novità

Resoconto economico di ulimi 2 colpi..è possibile?

Marcorun

Marcorun

Advanced Member >GOLD<
In uno script come quello che segue...è possibile vedere quanto sarebbe stato il guadagno(PERDITA),se avessi giocato solo gli ulimi 2 colpi?
GRAZIE,Salvo...Lottotom....e altri

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Dis
Dim Diam_M4,DiamD_DiamM4
Dim Ruo(1),Po1(1),Po2(2),M(4)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
FIn = EstrazioneFin
Ini = EstrazioneFin - 200' CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9690))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Dis = CInt(InputBox(" Distanza?",Salvo50,30))
Scrivi Space(20) & " Due Ruote Ambi Distanza " & Dis & Space(20),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
'If IsUltimaDelMese(Es) Then
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If Distanza(A,B) = Dis Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If Distanza(C,D) = Dis Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
Diam_M4 = Diametrale(M(4))
DiamD_DiamM4 = DiametraleD(Diam_M4)
Amba(1) = M(4)
Ambo1(1) = Diam_M4 : Ambo1(2) = DiamD_DiamM4
Ambo2(1) = M(4) : Ambo2(2) = Diam_M4
Ambo3(1) = M(4) : Ambo3(2) = DiamD_DiamM4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
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 " <-- Evidenziati Distanza " & Dis,1
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 " <-- Evidenziati Distanza " & Dis,1
Scrivi
Scrivi "-----------------> " & SiglaRuota(R2) & " ",1,0,,2
Scrivi
Scrivi Space(10) & " Ambata = " & Format2(M(4)) & " Numero Maggiore ",1
Scrivi
Scrivi Space(10) & " Ambo 1 = " & Format2(Diam_M4) & " Diametrale Ambata",1
Scrivi Space(10) & " Ambo 1 = " & Format2(DiamD_DiamM4),1,0
Scrivi " Diametrale in Decina, di Diametrale Ambata",1
Scrivi
Scrivi Space(10) & " Ambo 2 = " & Format2(M(4)) & " Ambata ",1
Scrivi Space(10) & " Ambo 2 = " & Format2(Diam_M4) & " Diametrale Ambata",1
Scrivi
Scrivi Space(10) & " Ambo 3 = " & Format2(M(4)) & " Ambata ",1
Scrivi Space(10) & " Ambo 3 = " & Format2(DiamD_DiamM4),1,0
Scrivi " Diametrale in Decina, di Diametrale Ambata",1
Scrivi
Ruo(1) = R2
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo1,Ruo,Po1,Clp
ImpostaGiocata 3,Ambo2,Ruo,Po1,Clp
ImpostaGiocata 4,Ambo3,Ruo,Po1,Clp

ImpostaInterruzioni 1,2,1
ImpostaInterruzioni 2,2,1
ImpostaInterruzioni 3,2,1
ImpostaInterruzioni 4,2,1
ImpostaInterruzioni 1,1,1
ImpostaInterruzioni 2,1,1
ImpostaInterruzioni 3,1,1
ImpostaInterruzioni 4,1,1
ImpostaInterruzioni 1,3,1
ImpostaInterruzioni 2,3,1
ImpostaInterruzioni 3,3,1
ImpostaInterruzioni 4,3,1
ImpostaInterruzioni 1,4,1
ImpostaInterruzioni 2,4,1
ImpostaInterruzioni 3,4,1
ImpostaInterruzioni 4,4,1
Gioca Es
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
' End If
Next
ScriviResoconto
End Sub


PS:chiedo scusa a Lottotom x non aver capito come inserire il codice nel modo corretto(tag/code)
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Per avere il resoconto richiesto ci possono essere soluzioni.
Giocare 2 colpi e attendere 6 colpi in ImpostaGiocata ( infatti nel codice è prevista l'attesa (impostare 6) colpi )
Per il riepilogo colpi c'è il codice
ScriviDistribuzioneEsiti (False) ' true elenca anche il dettaglio
ScriviDistribuzioneCasiInCorso(True) ' false solo elenco
da mettere a chiusura dei cicli for e dopo impostaGiocata e Gioca.

vedi esempio

Codice: 
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Dis
Dim Diam_M4,DiamD_DiamM4
Dim Ruo(1),Po1(1),Po2(2),M(4)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
FIn = EstrazioneFin
Ini = EstrazioneFin - 200' CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9690))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,2))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Dis = CInt(InputBox(" Distanza?",Salvo50,30))
Scrivi Space(20) & " Due Ruote Ambi Distanza " & Dis & Space(20),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
'If IsUltimaDelMese(Es) Then
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If Distanza(A,B) = Dis Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If Distanza(C,D) = Dis Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
Diam_M4 = Diametrale(M(4))
DiamD_DiamM4 = DiametraleD(Diam_M4)
Amba(1) = M(4)
Ambo1(1) = Diam_M4 : Ambo1(2) = DiamD_DiamM4
Ambo2(1) = M(4) : Ambo2(2) = Diam_M4
Ambo3(1) = M(4) : Ambo3(2) = DiamD_DiamM4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
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 " <-- Evidenziati Distanza " & Dis,1
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 " <-- Evidenziati Distanza " & Dis,1
Scrivi
Scrivi "-----------------> " & SiglaRuota(R2) & " ",1,0,,2
Scrivi
Scrivi Space(10) & " Ambata = " & Format2(M(4)) & " Numero Maggiore ",1
Scrivi
Scrivi Space(10) & " Ambo 1 = " & Format2(Diam_M4) & " Diametrale Ambata",1
Scrivi Space(10) & " Ambo 1 = " & Format2(DiamD_DiamM4),1,0
Scrivi " Diametrale in Decina, di Diametrale Ambata",1
Scrivi
Scrivi Space(10) & " Ambo 2 = " & Format2(M(4)) & " Ambata ",1
Scrivi Space(10) & " Ambo 2 = " & Format2(Diam_M4) & " Diametrale Ambata",1
Scrivi
Scrivi Space(10) & " Ambo 3 = " & Format2(M(4)) & " Ambata ",1
Scrivi Space(10) & " Ambo 3 = " & Format2(DiamD_DiamM4),1,0
Scrivi " Diametrale in Decina, di Diametrale Ambata",1
Scrivi
Ruo(1) = R2
ImpostaGiocata 1,Amba,Ruo,Po1,Clp,,6
ImpostaGiocata 2,Ambo1,Ruo,Po1,Clp,,6
ImpostaGiocata 3,Ambo2,Ruo,Po1,Clp,,6
ImpostaGiocata 4,Ambo3,Ruo,Po1,Clp,,6

ImpostaInterruzioni 1,2,1
ImpostaInterruzioni 2,2,1
ImpostaInterruzioni 3,2,1
ImpostaInterruzioni 4,2,1
ImpostaInterruzioni 1,1,1
ImpostaInterruzioni 2,1,1
ImpostaInterruzioni 3,1,1
ImpostaInterruzioni 4,1,1
ImpostaInterruzioni 1,3,1
ImpostaInterruzioni 2,3,1
ImpostaInterruzioni 3,3,1
ImpostaInterruzioni 4,3,1
ImpostaInterruzioni 1,4,1
ImpostaInterruzioni 2,4,1
ImpostaInterruzioni 3,4,1
ImpostaInterruzioni 4,4,1
Gioca Es
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
' End If
Next
ScriviDistribuzioneEsiti (False) ' true elenca anche il dettaglio
ScriviDistribuzioneCasiInCorso(True) ' false solo elenco
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 aprile 2024
    Bari
    36
    14
    82
    54
    13
    Cagliari
    30
    22
    07
    06
    10
    Firenze
    15
    90
    28
    24
    51
    Genova
    67
    14
    23
    85
    90
    Milano
    67
    53
    40
    90
    84
    Napoli
    62
    58
    64
    29
    05
    Palermo
    61
    36
    90
    70
    83
    Roma
    71
    49
    72
    12
    54
    Torino
    16
    41
    78
    17
    75
    Venezia
    52
    09
    56
    85
    81
    Nazionale
    17
    84
    54
    28
    15
    Estrazione Simbolotto
    Genova
    33
    25
    27
    15
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto