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
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto