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
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
Indietro
Alto