Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


TO-VE (1°estrazione del mese)

Andare in basso

TO-VE (1°estrazione del mese)

Messaggio Da Marco il Ven Gen 31, 2014 4:42 pm

[size=18.18181800842285]A gentile richiesta di Farfalla2....inserisco il listato
del metodo sommativo
[/size]

Codice:
Sub Main() ColoreTesto 2
   Scrivi "2 AMBI + 1 TERNO SU TO-VE ALLA 1° ESTRAZIONE MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim ambo1(2): Dim ambo2(2) : Dim terno1(3) : Dim poste(2) : Dim postee(3)
   poste(2) = 1
   postee(2) = 1
   postee(3) = 1
   ruote(1) = 9
   ruote(2) = 10
   klp = 10
   ini = 8600
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"*")
         ColoreTesto 0
         ambo1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
         ambo1(2) = Fuori90((Estratto(es,1,2) + 90) - Estratto(es,5,3) + 69)
         ImpostaGiocata 1,ambo1,ruote,poste,klp,2
         ambo2(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
         ambo2(2) = Fuori90(Estratto(es,5,2)  + Estratto(es,8,4) + 78)
         ImpostaGiocata 2,ambo2,ruote,poste,klp,2
         terno1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,5) + 1)
         terno1(2) = Fuori90((Estratto(es,1,2) + 90) - Estratto(es,5,3) + 69)
         terno1(3) = Fuori90(Estratto(es,5,2) + Estratto(es,8,4) + 78)
         ImpostaGiocata 3,terno1,ruote,postee,klp,3
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub



Ultima modifica di Marco il Mar Mar 04, 2014 5:00 pm, modificato 1 volta
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

X FANTOMAS

Messaggio Da Marco il Lun Mar 03, 2014 5:47 pm

Ciao Fantomas,
i miei listati sono ottimizzati per Spaziometria e a volte capita che non girano su Desk o L8
perchè alcune funzioni sono diverse.Se non hai il programma ti metto il link dell'ultima versione.
Il programma è del tutto gratuito  e molto bello e utilie
[Devi essere iscritto e connesso per vedere questo link]
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Re: TO-VE (1°estrazione del mese)

Messaggio Da sax71 il Lun Mar 03, 2014 7:59 pm

Ciao Marco,riguardo spaziometria e arrivata alla versione 1_4_69. Ciao e buona serata!

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Visualizza il profilo

Torna in alto Andare in basso

L'autore di questo messaggio è stato rimosso dal forum - Vedere il messaggio

Re: TO-VE (1°estrazione del mese)

Messaggio Da Mara* il Mar Mar 04, 2014 10:38 pm

adesso e' perfetto Marco...grazie mille Smile
avatar
Mara*
moderatore

Messaggi : 1018
Data d'iscrizione : 27.12.13

Visualizza il profilo

Torna in alto Andare in basso

Re: TO-VE (1°estrazione del mese)

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum