Novità

Tecnica per la Nazionale

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
ciao marinaio!
piacere di rileggerti!
sarebbe troppo lungo spiegarti tutto quello che è successo

Diciamo che uno dei problemi era la linea telefonica,non riuscivo a
connettermi,troppo lento,ora hanno potenziato la linea e sembra che possa
andare un pò meglio.
Ho ripreso da poco,sai in inverno ho un pò di tempo libero ,ho molti impegni,
oltre al mio lavoro,e il tempo per il lotto e il forum è pochissimo,il nipotino
(sai sono diventato nonno),i cani,(oltre ai miei 7 ne ho altri 3 da addestrare per
alcuni amici)....e tutto il resto.


Baffowilly
 
baffowilly grazie per i listati ma...

questo è quello che leggo dopo averli lanciati

Codice:
 < metodo di Paolo V Per la Nazionale>
 < All'ultima estrazione del mese>
*********************************************
 < 3°estratto.Ruota Nazionale = >0
 <Vertibile =9 <2°ambata
 <Terzina simmetrica della cadenza della 1° ambata =0/30/60
 <Terzina simmetrica della cadenza della 2° ambata =9/39/69

*****************************************************************

*****************************************************************

*****************************************************************

sicuramente si possono aggiustare.



Franca46
 
Ora ci guardo
Ma non riesco a capire perchèfacendo il copia incolla
il listato viene scritto tutto su una o due righe,
penso che lìerrore sia lì

Baffowilly
 
Qesto gira...
copia e incolla

ColoreTesto 2 : Scrivi " < metodo di Paolo V Per la Nazionale>",1
ColoreTesto 2 : Scrivi " < All'ultima estrazione del mese>",1
ColoreTesto 0 : Scrivi String(45,"*")
ColoreTesto 2 : Scrivi " < 3°estratto.Ruota Nazionale = >"& Estratto(7702,12,3)
ColoreTesto 2 : Scrivi " <Completamento a 90 ="& 90-(Estratto(7702,12,3))&" <1°ambata"
ColoreTesto 2 : Scrivi " <Vertibile ="&Vert( 90-(Estratto(7702,12,3)))&" <2°ambata"
ColoreTesto 2 : Scrivi " <Terzina simmetrica della cadenza della 1° ambata ="&Cadenza( 90-(Estratto(7702,12,3)))&"/"&(Cadenza( 90-(Estratto(7702,12,3)))+30)&"/"&(Cadenza( 90-(Estratto(7702,12,3)))+60)
ColoreTesto 2 : Scrivi " <Terzina simmetrica della cadenza della 2° ambata ="&Cadenza(Vert( 90-(Estratto(7702,12,3))))&"/"&(Cadenza(Vert( 90-(Estratto(7702,12,3))))+30)&"/"&(Cadenza(Vert( 90-(Estratto(7702,12,3))))+60)
Sub main() Dim ruote1(12)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
'posta x ambata posta(2)=1
posta(3)=1
posta(4)=1
posta(5)=1
c=InputBox("Colpi Gioco?","Colpi di Gioco",9)
ruote1(12)=12
For n=EstrazioneFin-262To EstrazioneFin
'If IndiceMensile(n)=1 Then 'numero estr. mensile
If IndiceMensile(n+1)=1 Then 'per ultima estr. mensile
'If IndiceMensile(n) Then 'numero estr. mensile
Scrivi
Scrivi String(65,"*")
numeri1(1)=90-(Estratto(n,12,3))
numeri1(2)=Vert( 90-(Estratto(n,12,3)))
ImpostaGiocata 1,numeri1,ruote1,poste,c,1
numeri2(1)=numeri1(1)
numeri2(2)=Cadenza(numeri1(1))
numeri2(3)=Cadenza(numeri1(1))+30
numeri2(4)=Cadenza(numeri1(1))+60
numeri2(5)=numeri1(2)
numeri2(6)=Cadenza(numeri1(2))
numeri2(7)=Cadenza(numeri1(2))+30
numeri2(8)=Cadenza(numeri1(2))+60
ImpostaGiocata 2,numeri2,ruote1,posta,c,4
TabellaGiocate
Gioca n
End If
Next
ScriviResoconto 1
ScriviResoconto 2
ColoreTesto 1 : scrivi" In bocca al lupo da baffowilly",1
End Sub


Baffowilly
 
E anche questo gira
fai copia incolla
da qesto post..altrimenti non saprei cosa può essere
forse la versione del programma??? io ho la L8+6.19

Sub main()
Dim ruote1(12)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)
Dim numeri5(10)
Dim numeri6(10)
Dim numeri7(10)
Dim numeri8(10)
Dim numeri9(10)
Dim numeri10(10)
Dim numeri11(10)
Dim numeri12(10)
Dim numeri13(10)
Dim numeri14(10)
Dim numeri15(10)
Dim numeri16(10)
Dim numeri17(10)
Dim poste(5)
poste(1)=1
c=InputBox("Colpi Gioco?","Colpi di Gioco",18)
ruote1(12)=12
For n=EstrazioneFin-262To EstrazioneFin
If IndiceMensile(n) Then
Scrivi
Scrivi String(65,"*")
ColoreTesto 2 : Scrivi " < metodo di Paolo V Per la Nazionale>",1
ColoreTesto 0 : Scrivi String(45,"*")
ColoreTesto 2 : Scrivi " < 1°estr. Fig >"& Figura(Estratto(n,12,1))
ColoreTesto 2 : Scrivi " < 2°estr. Fig>"& Figura(Estratto(n,12,2))
ColoreTesto 2 : Scrivi " < 3°estr. Fig >"& Figura(Estratto(n,12,3))
ColoreTesto 2 : Scrivi " < 4°estr. Fig >"& Figura(Estratto(n,12,4))
ColoreTesto 2 : Scrivi " < 5°estr. Fig >"& Figura(Estratto(n,12,5))
ColoreTesto 2 : Scrivi " < Somma figure ="& (Figura(Estratto(n,12,1))+Figura(Estratto(n,12,2))+Figura(Estratto(n,12,3))+Figura(Estratto(n,12,4))+Figura(Estratto(n,12,5)))
numeri1(1)=Fuori90(Figura(Estratto(n,12,1))+Figura(Estratto(n,12,2))+Figura(Estratto(n,12,3))+Figura(Estratto(n,12,4))+Figura(Estratto(n,12,5)))

numeri3(1)=Numeri1(1)
ImpostaGiocata 1,numeri3,ruote1,poste,c,1


TabellaGiocate

Gioca n
End If
Next

ScriviResoconto 1
ScriviResoconto

ColoreTesto 1 : scrivi" In bocca al lupo da baffowilly",1

End Sub




Baffowilly
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto