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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto