aiuto script sommativo

[i legend]

ciao a tutti non riesco a trovare il bandolo della matassa
Vorrei costruire un ciclo per calcolo sommativo
ecco abbozzo di codice
anche in pseudo codice va bene

Option Explicit
Sub Main
    'Dim aNum(90,5) ' devo dichiararlo cosi?
dim aNum(5)
    Dim idestr
    Dim P,R,x,m
    Dim sNum
    ReDim aRu(0)
    R = 1
    ScegliRuote(aRu)
    idestr = EstrazioneFin - 10
    m = 0
    For x = 1 To 90
        m = m + 1
        For P = 1 To 5
        
            aNum(P) = Fuori90(Estratto(idestr,R,P) + x)
            sNum = StringaNumeri(aNum,,True)
            ReDim Preserve aVer(m)
            'come Posso tener traccia di ogni Singolo Formazione?
            'in pratica ogni estrazione deve valutare 90 array e tenere presente quello che sortisce
'per un solo array sono in grado per 90 no
'ci vuole un array a due dimensioni,1 per ogni aNumCreato,e poi?
            aVer(m) = SerieFreqTurbo(idestr + 1,idestr + 9,aNum,aRu,2)
        Next
        Scrivi x & " + " & sNum
    Next
End Sub

Non ci sto riuscendo ,lascio poi riprendo, e da un po che vado avanti ma niente, sono arenato
grazie a tutti

 

[giorgioantonio]

Ciao I Legend,
da assoluto ignorante di script, te ne posto uno che tratta l'argomento.
Spero sia inerente l'argomento ma più di questo aiuto non e lo posso dare:
lo script
'costruttore sommativa
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

ruote(1) = r
fin = EstrazioneFin
Ini = fin - 140
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)

ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()


End Sub

Ciao

 

[i legend]

Ciao GiorgioAntonio grazie ma ho bisogno di capire la logica di come dovrei fare, nello script di mike ad un estratto sommo tre numeri in comb io dovrei fare il contrario, ad una comb sommare 1 numero..... Cmq grazie , lo script di mike merita studio

 

[i legend]

Up In attesa di Soccorso

 

[claudio8]

I legend, prova a ripartire dalla spiegazione passo passo, (non usare il codice) del progetto che hai in mente di realizzare.
Vedrai che qualche "maestro" verrà in tuo aiuto.

 

[i legend]

ciao Claudio
Devo tener traccia di ogni somma
per ogni estrazione devo calcolare tutte 90 le somme se sono positive tenerne traccia in un array
Se nessuno è intervenuto è perche deve essere banale oppure ho gia risolto la stessa problematica,,
cmq aspetto input
grazie a tutti

 

[i legend]

Up

 

[i legend]

Quello che vorrei ottenere non si puo codificare? E' solo curiosita a livello di codice, per imparare qualcosa di nuovo,
Vorrei andare oltre il solito script.Ciao

 

[LuigiB]

Ciao Legend sinceramente non ho capito bene quello che vorresti fare , o meglio ho un 'idea molto vaga, ma fa nulla non c'è bisogno che io lo sappia per darti il solito consiglio,
Avendo ormai visto tanti script avrai notato le istruzioni sono sempre quelle , io e altri le abbiamo spiegate tutte. le variabili,,i cicli , gli array , le scelte ,le classi .. tutta roba detta e ridetta
il vbscript (e lo spazioscript) è quello ...
il problema probabilmente è l'organizzazione del procedimento ovvero come congegnare tutte quelle istruzioni per raggiungere uno scopo prefissato.
Purtroppo questo non si puo insegnare , il mio consiglio è di continuare le tue prove ma non di procedere a tentativi , organizza un ragionamento individua i vari problemi trova le singole soluzioni e fai lo script...non lo faccio io non perche non voglio farti vedere come si fa ma perche lo ritengo inutile, si fa nello stesso modo degli altri script e visto che un metodo vale l'altro non ha senso implementare sempre quello specifico per far vedere "come si fa"
Dai Legend .. procedi nella tua missione ! Ciao

 

[i legend]

Ciao Luigi Grazie Purtroppo non trovo il bandolo della matassa, se proprio non ci arrivo ti chiedero ancora....
Luigi potresti riprendere (se hai tempo) le tue lezioni sulle classi?
Ho un manuale in vbNet, provo a studiare da li...(ma tu sei eccezionale come prof)
ciao e grazie per la fiducia

 

[LuigiB]

ciao Legend , il manuale di vb net non è adatto per il vbscript. Le poche nozioni che servono le ho spiegate e rispiegate ... mi sa che voi dovete riprendere le spiegazioni non io le lezioni Ciao

 

[i legend]

Mi riferivo alle classi
Cmq ho fatto oro delle tue lezioni e di quelle di Joe
Anche gli aiuti di mike sono stati molto utili.
Ciao e grazie