Novità

X Maxma62

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
....ciao max, ho visto e provato il listato non mi tornano i

conti , fallo come quello su ca , cioè le ambate ed infine

la lunghetta senza gli ambi .


ciao
 
Intendi cosi'?

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)

posta(1)=1
posta(2)=1

poste(2)=2
poste(3)=1
poste(4)=0.5
poste(5)=0.5

ruote(1)=2 'ca

For es=EstrazioneFin-200 To EstrazioneFin
If IndiceMensile(es+1)=1 Then 'ultima estr. mensile

Scrivi String(65,"*")
Scrivi " < metodo di pasquale59 >",1
Scrivi String(42,"-")& "gioca da "&dataestrazione(es+1,1)
Scrivi

a=Fuori90(Estratto(es,1,3)+Estratto(es,5,4)+28)'1a ambata
b=Fuori90(Estratto(es,2,2)+Estratto(es,6,3)+89)'2a ambata

numeri1(1)=a 'ambata
numeri1(2)=b
ImpostaGiocata 1,numeri1,ruote,posta,12,2
numeri2(1)=a 'lunghetta
numeri2(2)=b
numeri2(3)=5
numeri2(4)=30
numeri2(5)=31
numeri2(6)=61
numeri2(7)=68
numeri2(8)=81
ImpostaGiocata 2,numeri2,ruote,poste,12,3

Gioca es
End If
Next
ScriviResoconto
End Sub

ciao, max
 
'ultima estr. mensile :
'3° estratto di BA + il 4° di MI + 28 = Prima ambata
'2° estratto di CA + il 3° di NA + 89 = Seconda ambata
'giocare le due ambate su TO
'abbinamento i fissi : 5-30-31-61-68-81 = A-T-Q-C

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)

posta(1)=1
posta(2)=1

poste(2)=2
poste(3)=1
poste(4)=0.5
poste(5)=0.5

ruote(1)=9 'to

For es=EstrazioneFin-200 To EstrazioneFin
If IndiceMensile(es+1)=1 Then 'ultima estr. mensile

Scrivi String(65,"*")
Scrivi " < metodo di pasquale59 >",1
Scrivi String(42,"-")& "gioca da "&dataestrazione(es+1,1)
Scrivi

a=Fuori90(Estratto(es,1,3)+Estratto(es,5,4)+28)'1a ambata
b=Fuori90(Estratto(es,2,2)+Estratto(es,6,3)+89)'2a ambata

numeri1(1)=a 'ambata
numeri1(2)=b
ImpostaGiocata 1,numeri1,ruote,posta,12,2
numeri2(1)=a 'lunghetta
numeri2(2)=b
numeri2(3)=5
numeri2(4)=30
numeri2(5)=31
numeri2(6)=61
numeri2(7)=68
numeri2(8)=81
ImpostaGiocata 2,numeri2,ruote,poste,12,3

Gioca es
End If
Next
ScriviResoconto
End Sub

adesso va bene?.
Ciao, max
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto