SPAZIOMETRIA di Luigi e Baffoblu 7° POST

[scoglio2]

grazie luigi sei un grande

 

[rudivall]

Ciao Luigi,secondo me non sei umano, ho scaricato la nuova versione, sei grande, hai implementato la funzione di sript in automatico, non ho parole per ringraziarti, ancora grazie per quello che fai......sei un genio della programmazione

rodolfo

 

[LuigiB]

Grazie ! Speriamo che oltre ad essere un bel progrmma possa aiutare a vincere qualcosina ...

 

[peppe60]

ragazzi avete visto le funzioni che ha inserito in questa versione? anche la composizione dei listati in automatico che figataaaaaaaaaaaaaa
x me luigi e' un alienoooooooooooooooooo!!!!!!!!!!!!!!
non si puo' spiegare diversamente ciao

 

[arcor]

GRAZIE LUIGI X IL NUOVO AGGIORNAMENTO CONTINUIAMO COSI QUESTO DEVE DIVENTARE IL MIGLIOR PROGRAMMA FREE IN ASSOLUTO DEL PANORAMA LOTTISTICO ITALIANO
TI RICORDO CHE MOLTO E STATO FATTO MA C'E ANCORA MOLTISSIMO DA FARE
PIAN PIANO CON I CONSIGLI TUOI E DI NOI UTENTI IL PROGRAMMA CRESCERA SEMPRE DI PIU
TI SALUTO CON STIMA
ARCOR
UN GRAZIE ANCHE A THAUK IL LISTATINO MI è UTILE
PER QUANTO DETTO DA DBR CONCORDO CON LUI BISOGNEREBBE UNIFICARE I RESTANTI TUOI 3 PROGRAMMI IN QUESTO GRANDISSIMO PROGETTO

 

[arcor]

mannaggia luigi tutti gli script che non girano col tuo programma devo averli io
controlla questo
mi esce 13-tipo non corrispondente
errore di run-time91
variabile oggetto o variabile del blocco with non impostata


Scrivi Space(36)&"STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=")&"listedrobyca",1 :ColoreTesto 0
Sub main()
Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms=InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms=CInt(ms)
r=InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r=CInt(r):ru(1)=r

fin=EstrazioneFin: ini=3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di "&_
MeseNome(ms)&" del periodo che và"&chr(13)&"dal "&DataEstrazione (ini)&_
" al "& DataEstrazione (fin)&" sulla ruota di "& NomeRuota(r),1 : Call righeu
Scrivi Chr(13)&"Archivio degli ultimi 5 anni di estrazioni in "& MeseNome(ms)&Chr(13)&_
Chr(13)&"Nmr. Data Lotto"&Space(29)&"Superenalotto"&Chr(13)&Chr(13),1

c1=0: For x=1 To 9: For y=0 To 9:c1=c1+1:dn(x,y+1)=c1-1: Next : Next :dn(1,1)=90

For x=1 To 10: For y=0 To 8:cd(x,y+1)=x+(10*y): Next : Next
For x=1 To 9: For y=0 To 9:fg(x,y+1)=x+(9*y): Next : Next
gem(1)=11:gem(2)=22:gem(3)=33:gem(4)=44:gem(5)=55:gem(6)=66:gem(7)=77:gem(8)=88
For x=1 To 90:mtr(x,1)=x:nms(x,1)=x: Next

For es=ini To fin: Messaggio NomeRuota(r)&" "& MeseNome(ms)&" "& Anno(es)
If Mese(es)=ms Then
c0=c0+1

For x=1 To 90:nms(x,9)=nms(x,9)+1:fn=Posizione(es,r,x)
If fn=0 Then mtr(x,3)=mtr(x,3)+1
If fn>0 Then mtr(x,2)=mtr(x,2)+1:mtr(x,3)=0
If mtr(x,4)<mtr(x,3) Then mtr(x,4)=mtr(x,3)
Next

For p=1 To 6:ns=Estratto(es,,p,1):ena(p)=ns
nms(ns,8)=nms(ns,8)+1:nms(ns,p+1)=nms(ns,p+1)+1
If nms(ns,10)<nms(ns,9) Then nms(ns,10)=nms(ns,9)
nms(ns,9)=0: Next
OrdinaMatrice ena,+1
If es>(fin-520) Then : ColoreTesto 1: Scrivi es&" "& DataEstrazione(es)&_
" "& StringaEstratti(es,r)&Space(20)& StringaNumeri(ena),1: ColoreTesto 0

nm(0)=0: For x=1 To 9: For y=1 To 10:nm=dn(x,y): Next
fdn=0:fdn=SerieFreq(es,es,nm,ru,2)
If fdn=0 Then totradn(x)=totradn(x)+1
If fdn>0 Then totfrdn(x)=totfrdn(x)+fdn:totradn(x)=0
If totrsdn(x)<totradn(x) Then totrsdn(x)=totradn(x)
Erase nm : Next

nm(0)=0: For x=1 To 10: For y=1 To 9:nm=cd(x,y): Next
frcd=0:frcd=SerieFreq(es,es,nm,ru,2)
If frcd=0 Then totracd(x)=totracd(x)+1
If frcd>0 Then totfrcd(x)=totfrcd(x)+frcd:totracd(x)=0
If totrscd(x)<totracd(x) Then totrscd(x)=totracd(x)
Erase nm: Next

nm(0)=0: For x=1 To 9: For y=1 To 10:nm=fg(x,y): Next
frfg=0:frfg=SerieFreq(es,es,nm,ru,2)
If frfg=0 Then totrafg(x)=totrafg(x)+1
If frfg>0 Then totfrfg(x)=totfrfg(x)+frfg:totrafg(x)=0
If totrsfg(x)<totrafg(x) Then totrsfg(x)=totrafg(x)
Erase nm: Next

For x=1 To 30:trz(1)=x:trz(2)=x+30:trz(3)=x+60
ftrz=0:ftrz=SerieFreq(es,es,trz,ru,2)
If ftrz=0 Then datitrz(x,2)=datitrz(x,2)+1
If ftrz>0 Then datitrz(x,1)=datitrz(x,1)+ftrz:datitrz(x,2)=0
If datitrz(x,3)<datitrz(x,2) Then datitrz(x,3)=datitrz(x,2)
Next

For x=1 To 8:rdl(1)=x:rdl(2)=x*10:rdl(3)=rdl(2)+x:rdl(4)=rdl(2)+9
frdl=0:frdl=SerieFreq(es,es,rdl,ru,2)
If frdl=0 Then datirdl(x,2)=datirdl(x,2)+1
If frdl>0 Then datirdl(x,1)=datirdl(x,1)+frdl:datirdl(x,2)=0
If datirdl(x,3)<datirdl(x,2) Then datirdl(x,3)=datirdl(x,2)
Next

fgem=0:fgem=SerieFreq(es,es,gem,ru,2)
If fgem=0 Then datigem(2)=datigem(2)+1
If fgem>0 Then datigem(1)=datigem(1)+fgem:datigem(2)=0
If datigem(3)<datigem(2) Then datigem(3)=datigem(2)

For x=1 To 90:dativrt(x,1)=x:nr(1)=x:dativrt(x,2)=Vert(x):nr(2)=Vert(x)
fvrt=0:fvrt=SerieFreq(es,es,nr,ru,2)
If fvrt=0 Then dativrt(x,4)=dativrt(x,4)+1
If fvrt>0 Then dativrt(x,3)=dativrt(x,3)+fvrt:dativrt(x,4)=0
If dativrt(x,5)<dativrt(x,4) Then dativrt(x,5)=dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13)

 

[LuigiB]

Ciao Arcor , coraggio che a forza di segnalarmi situazioni piano piano tutti gli script saranno compatibili.
Ad onor del vero questo script che hai postato non si puo dire che sia
bello da un punto di vista di stile di programmazione.
E' incasinatissimo alcune funzioni sono scritte su una sola riga usando i due punti come separatore lineee ... mai visto ninete di simile non un buon modo di programmare... comunque a casa controllo e ti faccio sapere.
Ciao !

 

[imported_n/a]

quote:Originally posted by LuigiB

Ciao Arcor , coraggio che a forza di segnalarmi situazioni piano piano tutti gli script saranno compatibili.
Ad onor del vero questo script che hai postato non si puo dire che sia
bello da un punto di vista di stile di programmazione.
E' incasinatissimo alcune funzioni sono scritte su una sola riga usando i due punti come separatore lineee ... mai visto ninete di simile non un buon modo di programmare... comunque a casa controllo e ti faccio sapere.
Ciao !

ciao luigi non capisco perche non mi fa piu la verifica delle figure
guarda la foto mi da tutto a Zero

[/URL]

 

[LuigiB]

Ciao Cebino , la risposta è semplicissima e scommetto che l'esecuzione
è stata velocissima ... semplicemente come si capisce dalal figura che hai postato non hai selezionato manco una ruota !
eheh Ciao !

 

[imported_n/a]

Azzzz ...!!!!!

COLPITO E AFFONDATO [:0]

chiedo scusa

 

[luigino_lo]

ciao luigi
grazie, grazie e ancora grazie
per il nuovo aggiornamento e per
implementazione ne "ritardi piramide"

mi dispiace non poter contraccambiare
ma ti meriteresti per davvero un bel
regalo da parte di tutti noi

sei formidabile

salutoni

ciao

 

[arcor]

ciao luigi ti chiedo se è possibile aggiungere un modulo di ricerca automatica in spaziometria come è già presente in altro programmma di statistica sempre free
Nuovo modulo spaziometria con ricerca automatica delle figure spaziometriche con chiusure automatiche, ricerca di numeri uguali/diametrali, tracciamento figure direttamente sul tabellone estrazionale, evidenziazione manuale ed automatica delle celle e molto altro.

 

[ilgobbo60]

Ciao LuigiB è sempre un Onore seguire i Tuoi lavori vorrei chiederti
un cosa , non sò se realizzabile (lo spero) si potrebbe lavorare sul tabellone analitico con la spaziometria ? ovvero stesse funzioni ma su tabellone analitico ??? sarebbe un tipo di gioco con sviluppi troppo differenti rispetto agli attuali oppure un nuovo modo di vedere il futuro estraendo , in parole povere sono fuori tema o no ?
Un saluto ilgobbo60
PS : in attesa di una risposta da Te o anche da Ramco se possibile
e grazie ancora del tempo che dedichi a queste cose.

 

[LuigiB]

Ciao , si si potrebbe però c'è da considerare che comunque tutte le strutture che verrebebro trovate sono gia contenute nella ricerca sul tabellone normale perche comunque i numeri sono sempre quelli , uscirebbero ovviamente meno struttue perche si produrrebbe l'effetto che le figure avrebbero sempre lati obliqui proprio perche 2 vertici (numeri) uguali sulla stessa ruota nel caso di tabellone analitico non esistono.Comunque si nel complesso si potrebbe magari per fare scena lo metto eheheh ! Un saluto !

 

[oruam]

un  cordiale saluto a Ramco, e tanti ringraziamenti a Luigi che non smette mai di stupirci con il suo splendito programma,
il lotto per me è come una molla,ma quando vedo  queste "chicche" ,ritorno alla carica,e visto che il programma è stato
potenziato anche con una sezione  script, ne metto due  attinenti alla spaziometria, sono stati eseguiti dal "maestro  RAmco"
che ringrazio  pubblicamente ,per la sua squisita disponibilita.
IL primo si comporta come un metodo  spia sommativo,mentre il secondo 
 è  ,spia numerico. 

Sub main() 
'rif. 0903_40 quadro esteso - Rev Ros Modulo SPIA-Sommativa(Ramco) 
Dim nu(8,2),num(8),ru(5),poste(2),tt(1),post(1),nrp(8),nt(8),col(8),ruote(2),rt(2) 
Dim nw(1),nn(1),nr(1),nu1(4005,4),nu2(4005,4),nu3(90,3),nu4(90,3),a1(2),b1(2),c1(1) 
Dim ambi(4500,7),nu5(10),nam(10),ntm(90,2) 'aggiunta per il metodo sommativo 
perc=CInt(InputBox("Percentuale esiti(50-100):",,100))

For x=1 To 90 
   ntm(x,1)=x : ntm(x,2)=0 
Next  
tt(1)=11 
post(1)=1 
poste(2)=1 
colpi=12 
clp=12 
Scrivi : Scrivi "Prova: Ricerca di 2 parallepipedi su quadro esteso standard "&chr(10),1 
ruote(1)=11 : ruote(2)=12 

ch= 2 '< ---NOTA impostare qui il n° di chiusure desiderato 
ch=ch+1 
'---------------------------------------------- 
ini=EstrazioneFin -500 
fin=EstrazioneFin 
casi=0 
For es=ini To fin 
   Messaggio "Elaboro "& es 
   For p = 1 To 50 
      Erase ru : Erase nu : Erase num : co= 0 : caso=0
      '--------------------------------------------- 
      If p < 46 Then 'limite destro 
         p1=p+1 : p2=p1+1 : p3=p2+1 :p4=p3+1 : p5=p4+1 : p6=p5+1 :p7=p6+1 
'________________________________________________-in questo blocco

         nu(1,1)=Estratto(es,ricavaruota(p1), ricavaposizione(p1)) '<<< bisogna  disegnare la figura
         nu(2,1)=Estratto(es-1,ricavaruota(p2),ricavaposizione(p2)) 
         nu(3,1)=Estratto(es-2,ricavaruota(p),ricavaposizione(p)) 
         nu(4,1)=Estratto(es-3,ricavaruota(p1),ricavaposizione(p1)) 

         nu(5,1)=Estratto(es,ricavaruota(p5), ricavaposizione(p5)) 
         nu(6,1)=Estratto(es-1,ricavaruota(p6),ricavaposizione(p6)) 
         nu(7,1)=Estratto(es-2,ricavaruota(p4),ricavaposizione(p4)) 
         nu(8,1)=Estratto(es-3,ricavaruota(p5),ricavaposizione(p5)) 
         '----------------------- analisi dei numeri e ricerca dei ripetuti del listato 

         For x= 1 To 7 'creo tutte le coppie (ambi) coi nu 
            For y = x+1 To 8 
               If nu(x,2)< 3 Then ' se il 1° elemento è ancora da valutare o ancora senza assegnazioni positive 
                  If nu(x,1)=nu(y,1) Then nu(x,2)=(nu(x,2))+1 'se il num è uguale all'altro, gli aggiungo valore 1 
               End If 
               If nu(y,2)< 3 Then 'faccio la stessa cosa col 2° elemento 
                  If nu(x,1)=nu(y,1) Then nu(y,2)=(nu(y,2))+1 'se il num è uguale all'altro, gli aggiungo valore 1 
               End If 
            Next 
         Next 

         For i= 1 To 8 'terminata l'analisi di ciascun numero 
            If nu(i,2)=0 Then co= co+1 'verifico quali nu non sono doppi, cioè conto le chiusure spaziometriche 
            If nu(i,2)>1 Then cot= cot+1 'verifico quali nu hanno più di una ripetizioni 
         Next 

         c=0 : cp=0 
         If co < ch And cot>0 Then 'se le chiusure sono quelle volute allora le carico su un vettore per le giocate 
            For i= 1 To 8 
               If nu(i,2)=0 Then c= c+1 : num(c)=nu(i,1) 
            Next 
            ru(1)=ricavaruota(p) 
            ru(2)=ricavaruota(p1) 
            ru(3)=ricavaruota(p2) 
            ru(4)=ricavaruota(p3) 
            ru(5)=ricavaruota(p4) 
            casi=casi+1 '-------***** 
            '--------- blocco per il grassetto 
            Erase col 
            For i= 1 To 8 
               For y= 1 To c 
                  If nu(i,1)=num(y) Then col(i)=1 
               Next 
            Next 
            '--------------- close blocco grassetto 

Scrivi String(65,"=")&" Caso n°"&casi 
Scrivi "

 

[rudivall]

Ciao Luigi, ti faccio i più sentiti complimenti per il programma spaziometria, nella funzione strutture in gioco in questultima versione mi da questo problema, richiamando la struttura in gioco non mi evidenzia più i numeri, ti posto l'immagine così si capisce molto meglio, se riesci a risolvere, ti offro un gelatone, guardfa che è possibilissimo io abito a Ciampino, non siamo molto distanti, ciao e grazie

[/img]

rodolfo

 

[LuigiB]

Ciao Rodolfo , se clicchi sul menu Congigura-->Opzioni dovresti arrivare
a questa finestra

se anche qui i colori sono sfalsati prova a premere il pulsante PREDEFINITI e poi OK , se non si risolve hai qualche problema ignoto che senza essere li con te non è facile scoprire !

 

[imported_n/a]

faccio i miei complimenti a luigib,stanotte non ho dormito per studiarmi questo autentico capolavoro!!!
sero' dei vostri per avere delle dritte su come usarlo al meglio!!!
un saluto ad arcor e ramco che vedo tutti i giorni

sperem semper sperem!!

 

[LuigiB]

Grazie Occhi , grazie a tutti ragazzi ... le novit non sono finite ! Il prossimo week end (tempo permettendo) arriver un nuovo aggiornamento ..
Ciao a tutti !

 

[antonio-g]

Ciao a tutti

grazie LuigiB e complimenti!


help: la funzione creazione formazione numerica, non funziona!
(messaggio: ! nuovo elemento non inserito)

è un problema mio?