Ciao a Tutti, dopo aver avuto il vostro aiuto e compreso alcune basi per la realizzazione dei Listati Voglio condividere quanto ho potuto creare da alcuni Test fatti a mano cercando di trovare ambate per pochi colpi, 3 in questo caso, ho cercato di crearlo in modo dinamico volendo cercare soluzioni alternative a quella attuale.
Al momento la soluzione trovata sta dando discreti risultati in pochi colpi.
L'unica cosa che non sono riuscito a completare è dove ho voluto scrivere l'estratto dei calcoli (è scritto manualmente)
chiedo se qualcuno mi aiuta a completarlo, premetto che così è comunque funzionante.
Eccolo, magari è scritto non nel modo migliore ma io sono ancora grezzo nel creare nel modo migliore un Listato.
Sub Main()
ColoreTesto 1:Scrivi String(22," ") & "Previsione Rilevata Nelle Estrazioni del Sabato",1
ColoreTesto 1:Scrivi String(33," ") & " Listato By Xeroxs",1
Scrivi
Dim ruote(10),ruota(2)
Dim numeri(7)
Dim poste(2)
poste(1) = 1 ' Per Ambata
poste(2) = 1 ' Per Ambo
Dim Sabato
es = InputBox("Quante estrazioni vuoi analizzare?",,50)
ruota(1) = CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",6))
ruota(2) = CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",7))
cp = InputBox("Per quanti colpi vuoi giocare?",,3)
Scrivi " Ambata su " & NomeRuota(ruota(1)) & " E " & NomeRuota(ruota(2)),1
Scrivi
ColoreTesto 0
ini = EstrazioneFin -(es)
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
Sabato = WeekDay(Replace(DataEstrazione(Es),".","/"))
If Sabato = 7 Then
a = Estratto(es,6,4) '1°Estratto
b = Estratto(es,7,4) '2° Estratto
c = Fuori90(a + b) ' Somma degli Estratti
d = Fuori90(Figura(a) & Figura(b)) 'unione Figure degli Estratti
'numeri(1) = DiametraleD(c) ' Questo è il Diametrale dei due Estratti sommati
'numeri(2) = Fuori90(a + b)
'numeri(3) = Fuori90(a + 34)
'numeri(4) = Fuori90(a + 77)
'numeri(5) = Fuori90(a + 84)
numeri(6) = d ' Questa è L'unione delle Figure degli Estratti
numeri(7) = Vert(d)
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ImpostaGiocata 1,numeri,ruota,poste,(cp),2
ImpostaGiocata 2,numeri,ruote,poste,(cp),2
ColoreTesto 1
cont = cont + 1 : Scrivi String(100,"*") & " Caso n°" & Format2(cont),1,,,1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(1)) & " [ " & StringaEstratti(es,ruota(1)) & " ] " & "- "& Left(NomeRuota(ruota(1)),9) & " " &(4) & "° Estratto ",1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(2)) & " [ " & StringaEstratti(es,ruota(2)) & " ] " & "- "& Left(NomeRuota(ruota(2)),9) & " " &(4) & "° Estratto ",1
Scrivi
ColoreTesto 0
Gioca es
End If
Next
ScriviResoconto
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Xeroxs = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Xeroxs) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Queste sono le righe di codice da completare
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(1)) & " [ " & StringaEstratti(es,ruota(1)) & " ] " & "- "& Left(NomeRuota(ruota(1)),9) & " " &(4) & "° Estratto ",1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(2)) & " [ " & StringaEstratti(es,ruota(2)) & " ] " & "- "& Left(NomeRuota(ruota(2)),9) & " " &(4) & "° Estratto ",1
dove & " " &(4) & "° Estratto ",1 vorrei ceracre di riportare la posizione dell'estratto in modo automatico.
Grazie se qualcuno può aiutarmi a migliorare il listato
Al momento la soluzione trovata sta dando discreti risultati in pochi colpi.
L'unica cosa che non sono riuscito a completare è dove ho voluto scrivere l'estratto dei calcoli (è scritto manualmente)
chiedo se qualcuno mi aiuta a completarlo, premetto che così è comunque funzionante.
Eccolo, magari è scritto non nel modo migliore ma io sono ancora grezzo nel creare nel modo migliore un Listato.
Sub Main()
ColoreTesto 1:Scrivi String(22," ") & "Previsione Rilevata Nelle Estrazioni del Sabato",1
ColoreTesto 1:Scrivi String(33," ") & " Listato By Xeroxs",1
Scrivi
Dim ruote(10),ruota(2)
Dim numeri(7)
Dim poste(2)
poste(1) = 1 ' Per Ambata
poste(2) = 1 ' Per Ambo
Dim Sabato
es = InputBox("Quante estrazioni vuoi analizzare?",,50)
ruota(1) = CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",6))
ruota(2) = CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",7))
cp = InputBox("Per quanti colpi vuoi giocare?",,3)
Scrivi " Ambata su " & NomeRuota(ruota(1)) & " E " & NomeRuota(ruota(2)),1
Scrivi
ColoreTesto 0
ini = EstrazioneFin -(es)
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
Sabato = WeekDay(Replace(DataEstrazione(Es),".","/"))
If Sabato = 7 Then
a = Estratto(es,6,4) '1°Estratto
b = Estratto(es,7,4) '2° Estratto
c = Fuori90(a + b) ' Somma degli Estratti
d = Fuori90(Figura(a) & Figura(b)) 'unione Figure degli Estratti
'numeri(1) = DiametraleD(c) ' Questo è il Diametrale dei due Estratti sommati
'numeri(2) = Fuori90(a + b)
'numeri(3) = Fuori90(a + 34)
'numeri(4) = Fuori90(a + 77)
'numeri(5) = Fuori90(a + 84)
numeri(6) = d ' Questa è L'unione delle Figure degli Estratti
numeri(7) = Vert(d)
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ImpostaGiocata 1,numeri,ruota,poste,(cp),2
ImpostaGiocata 2,numeri,ruote,poste,(cp),2
ColoreTesto 1
cont = cont + 1 : Scrivi String(100,"*") & " Caso n°" & Format2(cont),1,,,1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(1)) & " [ " & StringaEstratti(es,ruota(1)) & " ] " & "- "& Left(NomeRuota(ruota(1)),9) & " " &(4) & "° Estratto ",1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(2)) & " [ " & StringaEstratti(es,ruota(2)) & " ] " & "- "& Left(NomeRuota(ruota(2)),9) & " " &(4) & "° Estratto ",1
Scrivi
ColoreTesto 0
Gioca es
End If
Next
ScriviResoconto
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Xeroxs = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Xeroxs) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Queste sono le righe di codice da completare
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(1)) & " [ " & StringaEstratti(es,ruota(1)) & " ] " & "- "& Left(NomeRuota(ruota(1)),9) & " " &(4) & "° Estratto ",1
Scrivi DataEstrazione(es) & " - " & NomeRuota(ruota(2)) & " [ " & StringaEstratti(es,ruota(2)) & " ] " & "- "& Left(NomeRuota(ruota(2)),9) & " " &(4) & "° Estratto ",1
dove & " " &(4) & "° Estratto ",1 vorrei ceracre di riportare la posizione dell'estratto in modo automatico.
Grazie se qualcuno può aiutarmi a migliorare il listato
