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 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto