| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 04 marzo 2016 : 23:07:12
Sub Main()
Scrivi
ColoreTesto 2:Scrivi String(40," ") & "Metodo 1 Quartina su VENEZIA vecchio ma ancora valido"
ColoreTesto 0: Scrivi:Scrivi
Dim ruote(10)
Dim numeri1(5)
Dim posta(5)
posta(1) = 1
posta(2) = 1
posta(3) = 1
ini = InputBox("Estrazione di partenza?",,6590)
k = InputBox("Inserisci i colpi di gioco",,10)
caso = 0
For n = ini To EstrazioneFin
If IndiceMensile(n) = 1 Then
caso = caso + 1
ruote(1) = 10
Scrivi String(100,"*") & "Caso n°" & Caso,1
ColoreTesto 1:Scrivi"Metodo Danilo CS1 -------> VENEZIA calcolo alla 1° Estrazione del mese quartina per 10 colpi per ambata,ambo e terno"
ColoreTesto 0:Scrivi
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,10,4) + 25)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,7,3) + 42)
numeri1(3) = Fuori90(Estratto(n,5,1) + Estratto(n,8,4) + 21)
numeri1(4) = Fuori90(Estratto(n,3,5) + Estratto(n,10,4) + 25)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| 2 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 05 marzo 2016 : 15:44:13
Al 1° colpo ha già dato l'estratto 66
si prosegue ancora per estratto , ambo e terno per altri
9 colpi. Sospendere prima se esce una sorte superiore. |
| vinci |
Posted - 04 marzo 2016 : 23:09:16
Numeri in gioco : 17.30.43.66 su VE per Estratto,Ambo,Terno |
|
|
