fillotto
Advanced Member >PLATINUM<
mentre c'è da correggere il fatto che alla richiesta del sommatorio non si può mettere ne 1 ne 90 in quanto
sia il 1° che il 2° ambo da giocare verrebbero uguali chiedo agli esperti come si fa in modo che nel rendiconto vengano fuori solo le giocate positive , in questo modo,con un ciclo for controllerei (proverei) più numeri in una volta solo
ecco lo script modificato con un po di colore e la correzione diui sopra insomma pure l'occhio vuole la sua
parte
sia il 1° che il 2° ambo da giocare verrebbero uguali chiedo agli esperti come si fa in modo che nel rendiconto vengano fuori solo le giocate positive , in questo modo,con un ciclo for controllerei (proverei) più numeri in una volta solo
ecco lo script modificato con un po di colore e la correzione diui sopra insomma pure l'occhio vuole la sua
parte
Codice:
Sub Main
'Lo script trova 2 sommativi migliori per la formazione di 2 ambi da giocare su tutte
'il 1° num del 1° ambo così come il 1° num del 2° ambo sono identici e cambiano ogni
' ultima del mese
Dim Nu(2),aN(2),Ru(1),T,V,Posta(2)
Posta(2) = 1
Ini = EstrazioneFin - 200
fin = EstrazioneFin
som = InputBox("cambia e trova il sommativo migliore "," scegliere da 2 a 89 ",27) '
'For som = 68 To 70
z = InputBox("scegli la ruota 1 per BA ...10 per VE "," scegli ruota ",1) '
p = InputBox("scegli la posizione ",,1) '
For es = Ini To fin
If IsUltimaDelMese(es) Then
k = k + 1
a = Estratto(es,z,1) '
b = Fuori90(a + som - p)
Nu(1) = a
Nu(2) = b
aN(1) = a
aN(2) = Fuori90(b + som)
Ru(1) = 11
ImpostaGiocata 1,Nu,Ru,Posta,13,2
ImpostaGiocata 2,aN,Ru,Posta,13,2
co = co + 1
Scrivi" ...........MESE.............." & co,1,,,1,3
Scrivi " il Primo numero dei due ambi individuato nella " & p & "^" & " posiz. " & "dell'ultima estrazione del mese della ruota di " & SiglaRuota(z) & " è (in questo caso):" & a,1,,,1,3
Scrivi " il sommativo scelto per il 2° numero del 1° ambo è = al primo + " & som - 1 & " (" & som & " -1 " & ")",1,,,1,3
Scrivi " il sommativo Generato per il 2° numero del 2° ambo è = al primo + " & som*2 - 1 & " (" & som*2 & " -1 " & ") " & " eventualmente se>90 operarà Fuori90",1,,,1,3
Gioca es,,,1
End If
Next
ScriviResoconto
'Next
End Sub
