Vari Sistemini da condizione statistica

[Beppignello]

a BARI è uscito 42 45 in 22 hanno vinto

 

[Beppignello]

Ruota di CAGLIARI (dinamici) ogni concorso cambiano i numeri

02.03.04.07.09.10
12.14.15.19.20
21.23.24.25.26.27.28
31.33.35.36.38
41.42.43.48.49
54.55.56.57.58
64.65.66.67.68.69.70
71.75.76.77.78.79
83.85.86.87.88.89.90

 

[edesimone]

Ruota di BARI / PALERMO numeri primi, 02 13 19 37 47 59 73 79 ritardo di gruppo x ambo 41 ritmax 44
sviluppato in sestine 2 ambi con 2 estratti.

2	47	37	13	19	73
13	79	59	2	47	19

47	79	37	59	73	19
73	59	13	2	79	37

 

[Beppignello]

a dire il vero mi sto rompendo un po, con questo sito e/o forum.
alla lentezza di caricamento, alle popup grandi che quasi non permettono nemmeno di aggiungere
un commento.
ogni 2 per tre c'è una interruzione del forum, la popup di fastweb che si apre in 2 pezzi continuamente nelle videate
all'aggiornamento delle risposte al thread, che non corrisponde con gli ultimi commenti........etcc.....

praticamente il forum è peggiorato di molto negli ultimi anni!
è lo specchio proprio di un'italia allo sbando.

al 10 e lotto 2 quartine in evidenza al serale.

81 85 86 88
82 83 85 88


ho premuto l'invio " Sto operando " , aspetta e spera !!!!!

 

[Membro cancellato 16574]

Buonanotte ,
Salutando tutti ,
Ci scusiamo per l' intromissione , ma i lavori di Beppignello ,
sono delle chicche da seguire e conservare .
Postiamo il listato di Beppignello , fatto su richiesta di edesimone ,
con delle modifiche , che crediamo siano quele desiderate dallo stesso richiedente .

Option Explicit
''''''''''crea da spaziometria archivio lotto su file txt, e stampa a video
''''''''''che a sua volta può essere copia "EdesimoneArchivioLotto"
'http://forum.lottoced.com/forum/lottoced/statistica/2060136-vari-sistemini-da-condizione-statistica/page8
Sub Main
Dim dal,al,filename,records,riga,r,n,dataEstr,y
Dim estrazione(99999,02)
dal = InputBox("Dall'estrazione n.",,3949)
al = InputBox("All'estrazione n.",,EstrazioneFin)
filename = "C:\temp\ArchivioLotto.txt"
Call EliminaFile(filename)
records = riga
''''''''''''''''''''''''''''''''''''''''''''''
For dal = dal + 01 To al
records = "" : riga = ""
Call Messaggio("Elaboro estraz.n. " & dal)
ReDim MatriceEstrRitorno(55)
Call GetEstrazioneCompleta(dal,MatriceEstrRitorno)
dataEstr = FormatSpace(Format2(giorno(dal)),02) & " " & FormatSpace(MeseNome(Mese(dal)),09) & " " & FormatSpace(Anno(dal),04)
'dataEstr = DataEstrazione(dal)
riga = dataEstr & " "
For r = 01 To 11
For n = 01 To 05
riga = riga & Format2(MatriceEstrRitorno(r,n))
If n <= 4 Then riga = riga & "."
Next
If r < 11 Then riga = riga & " "
Next
records = riga
estrazione(dal,01) = dal
estrazione(dal,02) = records
Scrivi estrazione(dal,01) & " " & records
Next
'''''''scrivi file ordinamento l'ultima estrazione sarà la prima in alto, la più vecchia è in fondo
Call OrdinaMatriceTurbo(estrazione,- 01,01)
For y = 1 To al
records = ""
If estrazione(y,01) > 00 Then
records = records & estrazione(y,02)
Call ScriviFile(filename,records)
End If
Next
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

 

[Beppignello]

ciao Magia

grazie per la collaborazione

 

[edesimone]

Grazie Magia
funziona perfetto
un saluto edesimone

 

[Beppignello]

al 10 e lotto 3 quartine in evidenza al serale.

82 84 87 88
81 85 86 88
82 83 85 88

e queste tre cinquine per ritardo

obiettivo almeno 3 punti minimo.



in attesa di sfaldamento

 

[Beppignello]

Ruota di CAGLIARI 3° colpo (prova filtri)

02 03 07 09 10
12 14 15 19 20
21 22 23 27 30
31 32 33 36 38
41 43 48 49 42
54 56 57 58 60
63 64 68 69 70
71 75 76 77 80
85 86 87 88 90