Novità

PER GLI SCRIPTER UN FAVORE

S

stefania1972

Senior Member
Ragazzi io avevo parecchi script poi per colpa di un virus ho dovuto formattare il pc , di consequenza ho perso tutto , siccome ho bisogno di due script in particolare volevo chiedere per favore se qualcuno li ha e li puo' postare cosi me li copio , ve li spiego :

Il primo calcolava la somma 90 in verticale su due ruote e con ambi isotopi uniti ( 1-2 ) ( 2-3 ) ( 3-4 ) ( 4-5 ) ( 1-5 )
ESEMPIO :
BARI = 1 - 2 - 3 - 4 - 5
NAPOLI= 89 - 88- 6 - 7 - 8

Quindi bari ( 1-2 )
NAPOLI ( 89 - 88 )
Due somme 90 in verticale.


Il secondo calcolava a scelta la distanza orizzontale e la distanza verticale su due ruote in qualsiasi posizione
ESEMPIO:
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 1
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 2 , e lui mi calcolava il tutto,

Spero di essere stata chiara , grazie a tutti.
 
Ciao stefania, benvenuta
Guarda nel topic "MEGA RACCOLTA SCRIPT" sempre in questa sezione, potresti trovare qualcosa a riguardo...
Ciao :)

Blackmore
 
Ciao Blackmore ho quardato e' un bel post pero non ho trovato quello di cui avrei bisogno , speriamo che qualcuno puo' fare qualcosa , grazie , ciao .
 
quote:Originally posted by stefania1972

Ragazzi io avevo parecchi script poi per colpa di un virus ho dovuto formattare il pc , di consequenza ho perso tutto , siccome ho bisogno di due script in particolare volevo chiedere per favore se qualcuno li ha e li puo' postare cosi me li copio , ve li spiego :

Il primo calcolava la somma 90 in verticale su due ruote e con ambi isotopi uniti ( 1-2 ) ( 2-3 ) ( 3-4 ) ( 4-5 ) ( 1-5 )
ESEMPIO :
BARI = 1 - 2 - 3 - 4 - 5
NAPOLI= 89 - 88- 6 - 7 - 8

Quindi bari ( 1-2 )
NAPOLI ( 89 - 88 )
Due somme 90 in verticale.
Clicca per espandere...

...qualcosa del genere??
:)

Codice: 
===========================================================================
mar 12.07.2011 [ Na - 52.87.22.78.73 ] [ 87.78 in 2/4 ^ pos. ] | 90 |
mar 12.07.2011 [ Ro - 66.03.32.12.43 ] [ 03.12 in 2/4 ^ pos. ] |vert|
---------------------------------------------------------------- caso n° 6
===========================================================================
sab 30.07.2011 [ Ca - 45.15.44.82.02 ] [ 45.15 in 1/2 ^ pos. ] | 90 |
sab 30.07.2011 [ Pa - 75.45.72.04.01 ] [ 75.45 in 1/2 ^ pos. ] |diag|
---------------------------------------------------------------- caso n° 7
===========================================================================
gio 11.08.2011 [ Ca - 34.55.05.87.36 ] [ 55.87 in 2/4 ^ pos. ] | 90 |
gio 11.08.2011 [ Ve - 19.35.16.03.17 ] [ 35.03 in 2/4 ^ pos. ] |vert|
---------------------------------------------------------------- caso n° 8

<center>
10gmnnd.png
</center>
 
Ciao genlotto questo per la somma 90 in verticale va benissimo , grazie , potresti postarmi anche lo script per favere , e se hai anche quell'altro per favore , grazie , ciao .
 
quote:Originally posted by stefania1972

Ciao genlotto questo per la somma 90 in verticale va benissimo , grazie , potresti postarmi anche lo script per favere , e se hai anche quell'altro per favore , grazie , ciao .
Clicca per espandere...
..il listato e stato creato dal sottoscritto in base alla Tua richiesta!, detto questo, il listato fa solo la ricerca non genera previsioni.-
eccolo :)
Codice: 
'x stefania1972 somma 90 verticale&diagonale
'[[url]http://forum.lottoced.com/topic.asp?TOPIC_ID=136820][/url]
Sub main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
For es=ini To fin 
   Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r1=1 To 11 
    For r2=r1+1 To 12
       If r2=11 Then r2=12 
       For p1=1 To 4
	   For p2=p1+1 To 5
           a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2) 
           c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2) 
	     sv1=Fuori90(a+c) :sv2=Fuori90(b+d)
	     sd1=Fuori90(a+d) :sd2=Fuori90(b+c)
	     If (sv1=90 And sv2=90) Or (sd1=90 And sd2=90) Then
             casi=casi+1:Scrivi String(75,"="),1 
		 If sv1=90 Then xx="|vert|" Else xx="|diag|"
             Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
             " ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ] | 90 |"
             Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
             " ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] "&xx
             Scrivi String(64,"-")&" caso n° "&(casi) 
           End If
 	  Next 
      Next 
    Next 
  Next
Next 
End Sub
:D[8]:D

<center>
10gmnnd.png
</center>
 
Grazie genlotto il listato va benissimo e' proprio quello che cercavo , mica per favore riesci a fare anche il secondo :

Il secondo calcolava a scelta la distanza orizzontale e la distanza verticale su due ruote in qualsiasi posizione
ESEMPIO:
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 1
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 2 , e lui mi calcolava il tutto,te ne sarei infinitamente grata , grazie ancora , ciao .
 
quote:Originally posted by stefania1972

Grazie genlotto il listato va benissimo e' proprio quello che cercavo , mica per favore riesci a fare anche il secondo :

Il secondo calcolava a scelta la distanza orizzontale e la distanza verticale su due ruote in qualsiasi posizione
ESEMPIO:
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 1
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 2 , e lui mi calcolava il tutto,te ne sarei infinitamente grata , grazie ancora , ciao .
Clicca per espandere...
Con il permesso di genlotto vedi se è di tuo gradimento questa soluz
ti chiede quale somma sia vert che dg fino a qui ci arrivo:D:D
'x stefania1972 somma 90 verticale&diagonale
'[<http://forum.lottoced.com/topic.asp?TOPIC_ID=136820>]
Sub Main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
x=CInt(InputBox("Quale somma ?","da 1 a 90",90))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. n° "&es&" del "&DataEstrazione(es)&" [ by Genlotto ]"
For r1=1 To 11
For r2=r1+1 To 12
If r2=11 Then r2=12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2)
sv1=Fuori90(a+c) :sv2=Fuori90(b+d)
sd1=Fuori90(a+d) :sd2=Fuori90(b+c)
If (sv1=x And sv2=x) Or (sd1=x And sd2=x) Then
casi=casi+1:Scrivi String(75,"="),1
If sv1=x Then xx="|vert|" Else xx="|diag|"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ]"&" " & x
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] "&xx
Scrivi String(64,"-")&" caso n° "&(casi)
End If
Next
Next
Next
Next
Next
End Sub
 
Grazie tante fillotto sei stato gentilissimo anche se il listato era gia stato fatto da genlotto , ma a me serviva il secondo listato :

Il secondo calcolava a scelta la distanza orizzontale e la distanza verticale su due ruote in qualsiasi posizione
ESEMPIO:
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 1
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 2 , e lui mi calcolava il tutto,se ti e possibile fare questo listato te ne sarei grata , ciao e grazie ancora.

MI spiego meglio ancora :
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 30
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 15
Il listato che mi usciva mi calcolava due ambi su due ruote con distanza 30 in orizzontale e 15 in verticale , e mi dava ad esempio ,
DATA ...... BARI = 30 - 60
NAPOLI = 15 - 45

Spero di aver reso l'idea , grazie , ciao.
 
quote:Originally posted by stefania1972

Grazie tante fillotto sei stato gentilissimo anche se il listato era gia stato fatto da genlotto , ma a me serviva il secondo listato :

Il secondo calcolava a scelta la distanza orizzontale e la distanza verticale su due ruote in qualsiasi posizione
ESEMPIO:
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 1
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 2 , e lui mi calcolava il tutto,se ti e possibile fare questo listato te ne sarei grata , ciao e grazie ancora.

MI spiego meglio ancora :
Mi chiedeva qual'e la distanza orizzontale , e io ci mettevo 30
Mi chiedeva qual'e' la distanza verticale , e io ci mettevo 15
Il listato che mi usciva mi calcolava due ambi su due ruote con distanza 30 in orizzontale e 15 in verticale , e mi dava ad esempio ,
DATA ...... BARI = 30 - 60
NAPOLI = 15 - 45

Spero di aver reso l'idea , grazie , ciao.
Clicca per espandere...
..ecco il secondo listato!
P.S.
solo x curiosità, i due listati sono incompleti ovvero senza un criterio di metodo/calcolo... il suo utilizzo sarebbe?

Codice: 
'x stefania1972 Distanza xx verticale&orizzontale
'[[url]http://forum.lottoced.com/topic.asp?TOPIC_ID=136820][/url]
Sub main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
ds1=CInt(InputBox("Quale distanza Orizzontale ?","ORIZZONTALE",15))
ds2=CInt(InputBox("Quale distanza Verticale ?","VERTICALE",10))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
For es=ini To fin 
   Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r1=1 To 10 
       For p1=1 To 4 
         For p2=p1+1 To 5
           a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2) : Do1=Distanza(a,b)
    	   For r2=r1+1 To 12
             If r2=11 Then r2=12 
             c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2) : Do2=Distanza(c,d)
             Dv1=Distanza(a,c) :Dv2=Distanza(b,d)
	         If do1=do2 And do1=ds1 Then 
		       If  dv1=dv2 And dv1=ds2 Then
                 casi=casi+1:Scrivi String(75,"="),1 
                 Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
                 " ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ] O. > "&ds1
                 Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
                 " ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] V. > "&ds2
                 Scrivi String(64,"-")&" caso n° "&(casi) 
			   End If 
             End If
 	       Next 
        Next 
     Next 
   Next
Next 
End Sub

:):):)

Codice: 
===========================================================================
sab 23.07.2011 [ Ba - 28.82.26.65.67 ] [ 82.67 in 2/5 ^ pos. ] O. > 15
sab 23.07.2011 [ Ca - 06.72.26.74.57 ] [ 72.57 in 2/5 ^ pos. ] V. > 10
---------------------------------------------------------------- caso n° 2
===========================================================================
mar 30.08.2011 [ Ro - 85.09.37.52.45 ] [ 37.52 in 3/4 ^ pos. ] O. > 15
mar 30.08.2011 [ Ve - 29.24.27.42.89 ] [ 27.42 in 3/4 ^ pos. ] V. > 10
---------------------------------------------------------------- caso n° 3

<center>
10gmnnd.png
</center>
 
Grazie genlotto e proprio quello che volevo sei stato gentilissimo , pero' volevo chiederti una cosa , come mai quando vado a fare una ricrca il risultato mi esce o a scermo bianco , vuoto , oppure mi trova solo una condizione , forse sbaglio qualcosa , fammi sapere per favore se io sbaglio qualcosa , grazie , ciao .
 
Gentilissimo genlotto volevo chiederti il secondo script che hai fatto calcola ambi isotopi , esiste un modo per far controllare tutto , cioe' ambi isotopi e ambi non isotopi , grazie , ciao .
 
quote:Originally posted by stefania1972

Gentilissimo genlotto volevo chiederti il secondo script che hai fatto calcola ambi isotopi , esiste un modo per far controllare tutto , cioe' ambi isotopi e ambi non isotopi , grazie , ciao .
Clicca per espandere...
[?][?][?][?][?][?][?]
Codice: 
'x stefania1972 Distanza xx verticale&orizzontale
'[[url]http://forum.lottoced.com/topic.asp?TOPIC_ID=136820][/url]
Sub main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",20))
ds1=CInt(InputBox("Quale distanza Orizzontale ?","ORIZZONTALE",15))
ds2=CInt(InputBox("Quale distanza Verticale ?","VERTICALE",30))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
For es=ini To fin 
  Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r1=1 To 10 
     For p1=1 To 4 
       For p2=p1+1 To 5
         a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2) : Do1=Distanza(a,b)
    	   For r2=r1+1 To 12
           If r2=11 Then r2=12 
             For p3=1 To 4 
               For p4=p3+1 To 5
                c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4) : Do2=Distanza(c,d)
                Dv1=Distanza(a,c) :Dv2=Distanza(b,d)
	          If do1=do2 And do1=ds1 Then 
		     If  dv1=dv2 And dv1=ds2 Then
                  casi=casi+1:Scrivi String(75,"="),1 
                  Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
                  " ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ] O. > "&ds1
                  Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
                  " ] [ "&Format2(c)&"."&Format2(d)&" in "&p3&"/"&p4&" ^ pos. ] V. > "&ds2
                  Scrivi String(64,"-")&" caso n° "&(casi) 
		     End If 
               End If
 	      Next 
          Next 
       Next 
     Next
   Next
 Next 
Next 
End Sub

<center>
10gmnnd.png
</center>
 
Grazie genlotto gentilissimo , lo script va benissimo sei stato fantastico .
Volevo chiederti solo un ultima cosa ma questo calcola sia ambi isotopi che non isotopi , oppure calcola solo ambi non isotopi ,
perche' a me interessava che calcoli tutti e due , attendo una tua risposta , grazie , ciao .
 
quote:Originally posted by stefania1972

Grazie genlotto gentilissimo , lo script va benissimo sei stato fantastico .
Volevo chiederti solo un ultima cosa ma questo calcola sia ambi isotopi che non isotopi , oppure calcola solo ambi non isotopi ,
perche' a me interessava che calcoli tutti e due , attendo una tua risposta , grazie , ciao .
Clicca per espandere...
.... calcola(tutto) Ambi Isotopi</u> e Ambi non Isotopi</u>

:D[8]:D

<center>
10gmnnd.png
</center>
 
Grazie genlotto sei stato fantastico , ora faro' le mie prove e ti diro' a cosa servono questi due listati , dopo che mi hai fatto i listati ci mancherebbe che non ti dica che cosa fanno , mi faccio viva io , non preoxccuparti saro' io stessa a contattarti , per il momento un bacio e un abbraccio grande , ciao .
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto