Buon Pomeriggio a Tutti,
Volendo imparare e migliorare nell' utilizzare la function VerificaEsitoTurbo volevo elaborare un controllo di un ambata ed un ambo è così nel cercare di capire come fare ho realizzato uno script creando 2 esiti uno per l'ambata ed uno per l'ambo ( sperando di Aver capito come fare ), sembra tutto funzionare ma non capisco come mai mi va a capo quando non deve ( se ho capito bene quando non ho esito positivo) con un ambo negativo e ultimo.
Ambo 24-90 e ultimo 77-90
Per capire meglio posto immaggine
Per completezza posto anche lo script
Forse ho sbagliato ad usare qualcosa o forse l'intero costrutto, il mio solo un tentativo, ma ci tengo anche ad avere una grafica visiva corretta e quell'andare a capo non mi piace, forse esagero, ma se sbaglio qualcosa vorrei capire in cosa sbaglio.
Spero che qualcuno possa aiutarmi a correggere questo "piccolo" errore... Forse
Cerco solo di imaparare da autodidatta ma se non ci riesco chiedo
Grazie come sempre
Volendo imparare e migliorare nell' utilizzare la function VerificaEsitoTurbo volevo elaborare un controllo di un ambata ed un ambo è così nel cercare di capire come fare ho realizzato uno script creando 2 esiti uno per l'ambata ed uno per l'ambo ( sperando di Aver capito come fare ), sembra tutto funzionare ma non capisco come mai mi va a capo quando non deve ( se ho capito bene quando non ho esito positivo) con un ambo negativo e ultimo.
Ambo 24-90 e ultimo 77-90
Per capire meglio posto immaggine
Per completezza posto anche lo script
Forse ho sbagliato ad usare qualcosa o forse l'intero costrutto, il mio solo un tentativo, ma ci tengo anche ad avere una grafica visiva corretta e quell'andare a capo non mi piace, forse esagero, ma se sbaglio qualcosa vorrei capire in cosa sbaglio.
Spero che qualcuno possa aiutarmi a correggere questo "piccolo" errore... Forse
Codice:
Option Explicit
Sub Main
Dim Ini,Fin,es,QE,TotEstr,IM,K,K1,K2
Dim A,B,E,Pos
Dim Ambata(1),r,Ruota(2),Ambo(2)
Dim qClp,nColpo
Dim Esito,Estratti,id,Esito1
'----------------------------------------------- Range Estrazioni
QE = 130 ' Scelgo Quante estrazioni
IM = 6 '--------> Scegli Indice Diverso da Ultima Mese
Ini = EstrazioneFin - QE
Fin = EstrazioneFin
TotEstr = Fin - Ini
'-----------------------------------------------
qClp = 10 ' Quanti Colpi di Gioco
'----------------------------------------------- Scelgo le Ruote
'-----> Ruota di Calcolo <----
r = PA_
'----- > Ruote di Gioco >-----
Ruota(1) = FI_
Ruota(2) = NA_
'----> Scelgo L'estratto da Sommare ad un Fisso Scelto <----
Pos = 4 ' --------------------> Cambio la Posizione Dell'Estratto
A = Estratto(es,r,Pos)' ------> Scelgo l' Estratto in Posizione
B = 20 ' --------------------------> Scelgo il Numero da Sommare
'------------------------------------------------------------------------------
ReDim aClp(qClp)
For E = 1 To qClp
aClp(E) = 0
Next
Scrivi "Metodo -----> Sommativo ",1,,,1,3
Scrivi "Estrazione inizio : " & Ini & " - " & DataEstrazione(Ini),1
Scrivi "Estrazione Fine : " & Fin & " - " & DataEstrazione(Fin),1
Scrivi "Totali in Analisi : " &(Fin - Ini) + 1,1
Scrivi
Scrivi "Estratto Scelto Per il Calcolo ---> " & " il " & Pos & "°" & SiglaRuota(r) & " Sommato al Fisso " & "[" & B & "]" & " Per ---> " & qClp & " Colpi",1,,,1
Scrivi
Scrivi "Data di Rilev." & " Ruota Di Calcolo " & " Calcolo " & " Ambata " & " Ruota di Verifica" & " Data E Colpo Esito" & " Ambo " & " Ruota di Verifica" & " Data E Colpo Esito",1,,,2
'---------------------------------------------------------------------------------------------------------------- Se Uso una Sola Ruota di Gioco
'Scrivi String(61,"-"),1,0
'Scrivi " " & SiglaRuota(Ruota(1)) & " ",1,0,,2
'Scrivi String(32,"-"),1,0
'---------------------------------------------------------------------------------------------------------------- Se Uso due Ruote di Gioco
Scrivi String(59,"-"),1,0
Scrivi " " & SiglaRuota(Ruota(1)) & " * " & SiglaRuota(Ruota(2)) & " ",1,0,,2
Scrivi String(14,"-") & " Ambata ",1,0,,2
Scrivi String(26,"-") & SiglaRuota(Ruota(1)) & " * " & SiglaRuota(Ruota(2)) & " ",1,0,,2
Scrivi String(14,"-") & " Ambo ",1,0,,2
Scrivi String(10,"-"),1,0
'---------------------------------------------------------------------------------------------------------------- Nota Per L'Indice Mese Usato
Scrivi " -----> " & IM & "° Estrazione Mensile",1,,,2
'Scrivi " -----> " & "Ultima Estrazione Mensile",1,,,2 ' ----> Attivi Per Ultima Del Mese
'----------------------------------------------------------------------------------------------------------------
For es = Ini To Fin
'---------------------------------------------- Vedi Sopra in Base All'Indice Usato
If IndiceMensile(es) = IM Then
'If IsUltimaDelMese(es) Then
'----------------------------------------------
K = K + 1
'--------> Calcolo Dell'Ambata <----
A = Estratto(es,r,Pos)
Ambata(1) = Fuori90(A + B)
Ambo(1) = Ambata(1)
Ambo(2) = 90
'----------------------------------------------
Scrivi Format2(K) & ") " & DataEstrazione(es) & " ",1,0,,1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) & " ",1,0
Scrivi Format2(A) & " + " & Format2(B),1,0,,1
Call VerificaEsitoTurbo(Ambata,Ruota,es + 1,1,qClp,,Esito,nColpo,Estratti,id)
Scrivi " " & Format2(Ambata(1)),1,0,,7
Scrivi " " & Estratti & " ",1,0
If Esito <> "" Then
K1 = K1 + 1
Scrivi "" & DataEstrazione(id),1,0
Else Scrivi ""
End If
If Esito <> "" Then
Scrivi " " & " Colpo = " & Format2(nColpo),1,0
aClp(nColpo) = aClp(nColpo) + 1
Else
End If
Call VerificaEsitoTurbo(Ambo,Ruota,es + 1,2,qClp,,Esito1,nColpo,Estratti,id)
Scrivi " " & Format2(Ambo(1)) & "-" & Format2(Ambo(2)),1,0,,7
Scrivi " " & Estratti & " ",1,0
If Esito1 <> "" Then
K2 = K2 + 1
Scrivi "" & DataEstrazione(id),1,0
Else Scrivi "",1
End If
If Esito1 <> "" Then
Scrivi " " & " Colpo = " & Format2(nColpo),1
aClp(nColpo) = aClp(nColpo) + 1
Else
End If
End If ' Chiude Indice Mensile
Next
Scrivi
Scrivi "Casi analizzati: " & K,1
Scrivi "Esiti Positivi Ambata: " & K -(K - K1) & " Su " & K,1,,,2
Scrivi "Esiti Positivi Ambo: " & K -(K - K2) & " Su " & K,1,,,2
End SubCerco solo di imaparare da autodidatta ma se non ci riesco chiedo
Grazie come sempre
