Buongiorno a Tutti
Sto Creando uno script sulle somme degli estratti, ma mi da un errore a cui non riesco porre rimedio,
inoltre ho voluto evidenziare gli estratti per una visuale più carina, ma nel farla non riesco a mettere a capo una riga come sarebbe più giusto ma anche quì non riesco a farlo
Vorrei che fosse così esposta
Estrazione n.9791 del 07.07.2020 NA 88 44 31 06 08 - Somma Estratti = 87
Estrazione n.9791 del 07.07.2020 VE 82 62 87 73 59
Qui non sono colorati ma nello script si, ma mette tutto sulla stessa linea,
come posso fare?
Per quanto riguarda l'errore è certamente un if o una condizione da me scritta male ma proprio non comrendo dove...
Questo è lo script
Grazie come sempre
Sto Creando uno script sulle somme degli estratti, ma mi da un errore a cui non riesco porre rimedio,
inoltre ho voluto evidenziare gli estratti per una visuale più carina, ma nel farla non riesco a mettere a capo una riga come sarebbe più giusto ma anche quì non riesco a farlo
Vorrei che fosse così esposta
Estrazione n.9791 del 07.07.2020 NA 88 44 31 06 08 - Somma Estratti = 87
Estrazione n.9791 del 07.07.2020 VE 82 62 87 73 59
Qui non sono colorati ma nello script si, ma mette tutto sulla stessa linea,
come posso fare?
Per quanto riguarda l'errore è certamente un if o una condizione da me scritta male ma proprio non comrendo dove...
Questo è lo script
Codice:
Option Explicit
Sub Main
Dim R1,R2,P1,P2,P3,Clp,K
Dim Ruote(2),Poste(2),Posta(5),Num1(10)
Dim Ini,FIn,Es,QE
Dim A,B,E1,E2
Posta(1) = 1 : Poste(1) = 1 : Poste(2) = 1
QE = CInt(InputBox("Quante estrazioni vuoi controllare?",,50))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,9))
FIn = EstrazioneFin
Ini = FIn - QE
Scrivi String(90,"-") & " By Xeroxs " & "-----",1,,,0
Scrivi String(41," ") & "****** Resoconto ****** ",1,,,2
Scrivi String(41," ") & DataEstrazione(Ini) & " - " & DataEstrazione(FIn),1,,,2
Scrivi String(7," ") & " Metodo - La Somma Comune Tra Gli Estratti di Una Ruota ed il Terzo Estratto di Altra Ruota ",1,,,0
Scrivi String(106,"-"),1,,,0
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Messaggio " * Script By Xeroxs *"
For R1 = 1 To 10
A = Fuori90(SommaEstratti(Es,R1))
'R2 = R1 + 1 ' -------------------------------------------------- Attivare Per Ruote Consecutive
' Ricerca la Condizione Su Tutte le Ruote
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
' -------------------------------------------------------------------
B = Estratto(Es,R2,P1)
'
If Posizione(Es,R2,A) = 3 Then
'------------------------------------------------------------------------- Ambate
Num1(1) = 90
'Num1(2) = A
'------------------------------------------------------------------------------------
ColoreTesto 1 : K = K + 1 : Scrivi String(96,"*") & " Caso n°" & Format2(K),1
ColoreTesto 0
Scrivi
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
Call ColoreTesto(2)
'Else
'Call ColoreTesto(0)
'End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi " - Somma Estratti = ",1,0
Call ColoreTesto(2)
Call Scrivi(Format2(A) & " ",1,0)
Call ColoreTesto(0)
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 = A Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi
Ruote(1) = R1
Ruote(2) = R2
ImpostaGiocata 1,Num1,Ruote,Posta,Clp
Gioca Es
End If
Next ' Chiude R2 = Ogni Ruota
Next
Next
ScriviResoconto
End SubGrazie come sempre
