LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
TO-VE (1°estrazione del mese) EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
TO-VE (1°estrazione del mese) EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
TO-VE (1°estrazione del mese) EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
TO-VE (1°estrazione del mese) EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
TO-VE (1°estrazione del mese) EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
TO-VE (1°estrazione del mese) EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
TO-VE (1°estrazione del mese) EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
TO-VE (1°estrazione del mese) EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
TO-VE (1°estrazione del mese) EmptyMar 2 Apr - 20:57:27 Da DjNomade


TO-VE (1°estrazione del mese)

4 partecipanti

Andare in basso

TO-VE (1°estrazione del mese) Empty TO-VE (1°estrazione del mese)

Messaggio Da Marco Ven 31 Gen - 17:42:16

[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 4 Mar - 18:00:50 - modificato 1 volta.
Marco
Marco
amministratore

Messaggi : 843
Data d'iscrizione : 26.12.13

https://lottomatematico.forumattivo.it

Torna in alto Andare in basso

TO-VE (1°estrazione del mese) Empty X FANTOMAS

Messaggio Da Marco Lun 3 Mar - 18:47:09

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]
Marco
Marco
amministratore

Messaggi : 843
Data d'iscrizione : 26.12.13

https://lottomatematico.forumattivo.it

Torna in alto Andare in basso

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

Messaggio Da sax71 Lun 3 Mar - 20:59:15

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

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Torna in alto Andare in basso

L'autore di questo messaggio è stato bannato dal forum - Mostra il messaggio

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

Messaggio Da Mara* Mar 4 Mar - 23:38:46

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

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

TO-VE (1°estrazione del mese) Empty 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 in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.