Per LuigiB o chi altro vorrà

[LuigiB]

certo .. .se tu fossi un mio carissimo amico ..

 

[hettro]

certo .. .se tu fossi un mio carissimo amico ..

Dimostri di non esserlo!

CMQ ci arriverò da solo. Solo del tempo.

Ciao, Hettro

 

[LuigiB]

non ci crederai ma tutte le guide e il tempo che ho dedicato servono proprio a questo. Ovvero permettere a chi ha voglia di imparare a fare gli script.
Ad ogni modo stavo solo scherzando .. puoi sia scrivere direttamente in excel sia creare un output adatto per essere importato in excel.
La cosa è abbastanza semplice .. ci sono degli esempi su come interagire con excel gia nel programma...ora sono in ufficio e non posso aiutarti
Riguardo all'amicizia quella è una cosa molto rara .. ahime ... ciao !

 

[Lanfranco60]

ciao , dando per assodato che lo script che hai messo nel primo messaggio faccia quello che ti serve il problema consiste nel vedere come si puo fare ad analizzare piu combinazioni senza doverle scrivere tutte nel nuovo script.
Ebbene riporto parte del codice preso dal tuo script.

For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        n1(1) = 66
        n1(2) = 61
        n1(3) = 07
        ruote(1) = r
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        ImpostaGiocata 1,n1,ruote,poste,ColpiDiGioco,3
        Gioca idEstr,1,,1
        If ScriptInterrotto Then Exit For
    Next

questo pezzetto di codice esegue l'analisi sui numeri contenuti nell'array n1.

Benissimo è questo il pezzetto di codice che va inserito all'interno del ciclo che ho fatto io.
Sappiamo perche te l'ho spiegato che ad ogni iterazione del ciclo il mio script ti fornisce un array con i numeri della combinazione , è la stessa cosa del tuo array n1.
Devi mettere al posto di n1 l'array ottenuto dal mio script.
Per ora tralasciamo il fatto che per fare quello che interessa te questo che hai adoperato non sia il metodo migliore ma visto che sei agli inizi e per capire puo anche andare.
Non faccio io la modifica che ti serve perche è solo sbattendoci la testa che cairai bene come si fa ..
Un saluto

Grazie LuigiB ci proverò ( ma adesso mi hai messo il verme...) c'è un metodo migliore ?

 

[LuigiB]

bhese lo scopo è vedere quando e se sono usciti i terni secondo me non è il caso di usare le funzioni impostagiocata e gioca ... in quel senso intendevo.

 

[hettro]

Questo il mio script, manca solo la parte di creazione file ed invio ad excel.

'Terzine x Terno
Sub main()
Dim rur(1),ruo(1),n(3)
r=InputBox("Ruota di gioco. ",,1)
ruo(1)=r
fin=EstrazioneFin
ini=3950
For es=ini To fin 
For a = 1 To 88
For a1 = a + 1 To 89
For a2 = a1 + 1 To 90
n(1) = a
n(2) = a1
n(3) = a2
s=SeriePrima(es+1,fin,n,ruo,3)
rc = SerieRitardo(ESTR_INI,EstrazioneFin,n,ruo,3)
sto = SerieStorico(ESTR_INI,EstrazioneFin,n,ruo,3)
If s>0 Then 
rt=s-es
casi=casi+1
If rt>mx Then mx=rt
If s=fin Then 
ColoreTesto 2
Scrivi FormatSpace(es,4,1)&"   "&siglaruota(r)&"   "&stringanumeri(n)&"  st "&FormatSpace(rt,4,1)&"   "&s
ColoreTesto 0
Else
ColoreTesto 0
Scrivi FormatSpace(es,4,1)&"   "&siglaruota(r)&"   "&stringanumeri(n)&"  st "&FormatSpace(rt,4,1)&"   "&s
ColoreTesto 0
End If
Else
If s=0 Then
s1=fin
at=fin-es
casi1=casi1+1
If at>max Then max=at
Scrivi FormatSpace(es,4,1)&"   "&siglaruota(r)&"   "&stringanumeri(n)&"  at "&FormatSpace(at,4,1)&"   "&s1,1
End If
End If
Next
Next
Next
Next
Scrivi "casi Storici "&casi&" / mx sto "&mx
Scrivi "casi attuali "&casi1&" / mx att "&max
End Sub

Questo uno stralcio di output

3950   Ba   01.04.30  at 4788   8738
3950   Ba   01.04.31  st  272   4222
3950   Ba   01.04.32  at 4788   8738
3950   Ba   01.04.33  at 4788   8738
3950   Ba   01.04.34  at 4788   8738
3950   Ba   01.04.35  st  272   4222
3950   Ba   01.04.36  st  783   4733
3950   Ba   01.04.37  at 4788   8738
3950   Ba   01.04.38  at 4788   8738
3950   Ba   01.04.39  st  930   4880
3950   Ba   01.04.40  st 2076   6026
3950   Ba   01.04.41  st  783   4733
3950   Ba   01.04.42  st 3771   7721
3950   Ba   01.04.43  st 2076   6026
3950   Ba   01.04.44  at 4788   8738
3950   Ba   01.04.45  at 4788   8738
3950   Ba   01.04.46  at 4788   8738
3950   Ba   01.04.47  st 3319   7269
3950   Ba   01.04.48  st  783   4733
3950   Ba   01.04.49  at 4788   8738
3950   Ba   01.04.50  at 4788   8738
3950   Ba   01.04.51  st 3319   7269
3950   Ba   01.04.52  at 4788   8738
3950   Ba   01.04.53  at 4788   8738
3950   Ba   01.04.54  at 4788   8738
3950   Ba   01.04.55  at 4788   8738
3950   Ba   01.04.56  at 4788   8738
3950   Ba   01.04.57  st  272   4222
3950   Ba   01.04.58  st 3000   6950
3950   Ba   01.04.59  at 4788   8738
3950   Ba   01.04.60  st 1747   5697
3950   Ba   01.04.61  st  183   4133
3950   Ba   01.04.62  at 4788   8738
3950   Ba   01.04.63  st  301   4251
3950   Ba   01.04.64  at 4788   8738
3950   Ba   01.04.65  at 4788   8738
3950   Ba   01.04.66  st 3116   7066
3950   Ba   01.04.67  st  428   4378
3950   Ba   01.04.68  at 4788   8738
3950   Ba   01.04.69  at 4788   8738
3950   Ba   01.04.70  st 3000   6950
3950   Ba   01.04.71  at 4788   8738

Si potrebbe anche evitare di inserire l'automatismo x l'excel.
Basta fare " seleziona tutto " " copia " " incolla in txt " " caricare in excel " fatto !

 

[LuigiB]

si , trale altre cose è anche piu veloce che scrivere direttamente in excel.
In alternativa dovresti creare un file di testo da script dove i vari valori delle singole righe siano separati da punto e virgola , in quel caso otterresti un file csv che puoi leggere direttamente da excel

 

[hettro]

si , trale altre cose è anche piu veloce che scrivere direttamente in excel.
In alternativa dovresti creare un file di testo da script dove i vari valori delle singole righe siano separati da punto e virgola , in quel caso otterresti un file csv che puoi leggere direttamente da excel

Il problema e che le stringhe numeriche, con LD, mi escono col punto come puoi vedere.
Sarebbe un problema sostituire i punti col punto e vingola.

 

[LuigiB]

ecco la mia versione dello script
Questo alla fine ti apre direttamente excel... credo tu sia capace di aggistartelo eventualmente.

Option Explicit
Sub Main
		
	
	Dim Inizio,Fine,nClasse,nColonneTot,nSorte,sRiga,sFileCsv,RitAtt,RitMax,Freq,aCol,k
	ReDim aRuote(1)
	
	nClasse = 3 ' sviluppo in terni
	Inizio = EstrazioneIni ' range analisi
	Fine = EstrazioneFin
	aRuote(1) = ScegliRuota ' sceglie ruota
	nSorte = ScegliEsito(nClasse,1,nClasse)
	
	' prepara il file csv
	sFileCsv = GetDirectoryAppData & "temp\Analisi.csv"
	Call EliminaFile(sFileCsv)
	
	' scrive i titoli delle colonne nel file csv
	sRiga = "Numeri;Ruota;Ritardo;RitardoMax;Frequenza"
	Call ScriviFile(sFileCsv,sRiga,False)
	' imposta i numeri da sviluppare (tutti e 90)
	ReDim aNumeri(90)
	For k = 1 To 90
		aNumeri(k) = k
	Next
	nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)'inizializza lo sviluppo
	k = 0
	' ciclo che continua fiono a quando le colonne da sviluppare non finiscono
	Do While GetCombSviluppo(aCol)
		Call StatisticaFormazioneTurbo(aCol,aRuote,nSorte,RitAtt,RitMax,0,Freq,Inizio,Fine)
		k = k + 1 ' conteggio colonna corrente
		sRiga = StringaNumeri(aCol) & ";"
		sRiga = sRiga & NomeRuota(aRuote(1)) & ";"
		sRiga = sRiga & RitAtt & ";"
		sRiga = sRiga & RitMax & ";"
		sRiga = sRiga & Freq & ";"
		Call ScriviFile(sFileCsv,sRiga,False)
		Call AvanzamentoElab(1,nColonneTot,k)
		If ScriptInterrotto Then Exit Do
	Loop
	Call CloseFileHandle(sFileCsv)
	Call LanciaFile(sFileCsv)
End Sub

p.s. che giri solo in spaziometria è scontato

 

[hettro]

Grazie LuigiB.

Domani lo provo e confronto i risultati col mio.

Ciao, Hettro

 

[Lanfranco60]

dire che sono un po incazzato è dire poco................

Ma come, io apro un 3D per chiedere aiuto, invece si infila un pinco-pallino qualsiasi fa la sua richiesta e ottiene quello che vuole.....
e praticamente il 3D si è trasformato in un altra cosa, DICO IO, PERCHE IL PINCO PALLINO NON SI APRE UN 3D TUTTO SUO ?
:-(

 

[LuigiB]

eheh tipico di questo forum ... non arrabbiarti e sfozati di capire come fare lo script che hai in mente .. io sono qui pronto a dare cosnsigli non ti preoccupare ..

 

[Lanfranco60]

Non fa niente Luigi, non ho tempo per questo script, mi serviva una soluzione veloce........

 

[Lanfranco60]

Ciao Luigi, ti comunico che con le tue dritte, sono riuscito a fare lo script funzionante.

Grazie

 

[LuigiB]

vedi .. mi fa molto piacere ..ora per le altre cose sforzati non prendertela se non entro sempre nel merito dei vostri script ..io non sono manco un giocatore .. pero mi fa piacere che i 3 moschettieri ora siano diventati 4 naturalmente i moschettieri sono gli scripter ufficiali del forum

 

[Lanfranco60]

Luigi, tu sei la colonna portante, senza i tuoi aiuti e consigli non si va facilmente avanti
quando puoi intervieni, che senza di te.............................
Se per quello nemmeno io sono un giocatore, in un anno giocherò sennò 3-4 volte....

Woaw!, sono un moschettiere e non lo sapevo !