x BAFFO O CHI HA VOGLIA

rosa962 · 31 Marzo 2012

ciao BAFFOBLU e ha tutti gli scripter che vogliono darmi una mano

vorrei farti una richiesta di uno listato che riguarda gli adattatori

lo scripter deve essere così composto

a) ruota di scelta e ruota in gioco
b) scelta degli adattori da 2 a 10 ( mi serve per mettere le varie famiglie di numeri cadenze, decine, ecc...)
c) posizione dell' adattatore a scelta pos...1-2-3-4-5 e su tutte le posizioni
d) scelta x ambo x terno ( x esempio voglio vedere il ritardo x ambo o terno di 7,8 o 10 adattatori a mia scelta )
e) elenco con relativo ritardo min e ritardo max ( il ritardo deve essere riferito sempre agli adattatori da me inseriti )

mi è venuta questa idea guardando tutti i vari listati degli adattatori
ti faccio un esempio

con questo listato immettendo alcuni adattatori
dall'80 all'89 o altri a scelta mia su tutte e cinque posizioni
i ritardi x ambo e x terno non siano tanto grandi
inoltre con la scelta della posizione e dei numeri in ritardo posso adattarli sul 1°, 2°, 4° ecc
numero della ruota scelta

spero di essere stata chiara ma soprattutto di essere accontentata

ciaoo

Baffoblu · 31 Marzo 2012

rosa962 ha scritto:
ciao BAFFOBLU e ha tutti gli scripter che vogliono darmi una mano

vorrei farti una richiesta di uno listato che riguarda gli adattatori

lo scripter deve essere così composto

a) ruota di scelta e ruota in gioco
b) scelta degli adattori da 2 a 10 ( mi serve per mettere le varie famiglie di numeri cadenze, decine, ecc...)
c) posizione dell' adattatore a scelta pos...1-2-3-4-5 e su tutte le posizioni
d) scelta x ambo x terno ( x esempio voglio vedere il ritardo x ambo o terno di 7,8 o 10 adattatori a mia scelta )
e) elenco con relativo ritardo min e ritardo max ( il ritardo deve essere riferito sempre agli adattatori da me inseriti )

mi è venuta questa idea guardando tutti i vari listati degli adattatori
ti faccio un esempio

con questo listato immettendo alcuni adattatori
dall'80 all'89 o altri a scelta mia su tutte e cinque posizioni
i ritardi x ambo e x terno non siano tanto grandi
inoltre con la scelta della posizione e dei numeri in ritardo posso adattarli sul 1°, 2°, 4° ecc
numero della ruota scelta

spero di essere stata chiara ma soprattutto di essere accontentata

ciaoo

Ho fatto questo script.....

Quando lo inserisci in spaziometria, devi attendere qualche secondo in più,
data la sua lunghezza......

Riepilogo di cosa fa :

- scelta della ruota di elaborazione.

- scelta della ruota di gioco.

- scelta delle estrazioni da analizzare.

- scelta dei colpi di gioco.

- scelta della quantità degli adattatori (da Min 2 a Max 10).

- scelta degli adattatori ( secondo la loro quantità).

- scelta della posizione dell'estratto (a cui sommare gli adattatori).

- messa in gioco x Estratto, Ambo e Terno dei numeri ricavati dai calcoli.

Quindi si avranno da un minimo di 2 numeri ad un massimo di 10 numeri in gioco.

Io ancora non mi sono studiato tutto quello che concerne i ritardi negli script.

Quindi per quanto riguarda i vari ritardi, vedi se "qualcuno" può inserirti
nel listato le righe giuste occorrenti......

Lo script corretto è piu avanti.......

Baffoblu · 1 Aprile 2012

rosa962 · 1 Aprile 2012

SCUSA BAFFOBLU per il ritardo a risponderti

ho fatto girare il listato ma mi dispiace per il tempo
che mi hai dedicato
ma non rispecchia quello che io vorrei

per adattatore come tu sai è quel numero che va sommato col fuori 90 al 1° o al 2° ecc, ecc,
estratto di una ruota ed il tuo listato nella scelta dell'adattatore non si va a sommare nella posizione
scelta ( o non sono io a capirlo )

va bene scelta ruota e scelta in gioco ( che deve essere sempre la stessa )

va bene la quantità degli adattatori da 2 a 10

la scelta delle estrazioni indietro non mi interessa
perchè l'adattatore o gli adattatori vanno sommati agli ultimi estratti

determinare i ritardi degli adattatori min. e max x ambo e terno
sempre sugli adattatori da me inseriti

va bene la posizione ma manca anche quella di tutte le posizioni ( l'adattatore su tutte e 5 posizioni )

la scelta dei colpi in gioco non serve perchè mi interessa il ritardo x ambo x terno degli adattatori da me inseriti

alla fine il calcolo con i numeri da giocare ricavati dalla somma dell'adattatore o degli adattatori di mia scelta

elenco con relativo ritardo x ambo e terno degli adattatori da me inseriti ( fino a 10 )

praticamente uno script statistico ma sugli adattatori a mia scelta e nelle posizioni da me scelte

tipo :

gli adattatori da me inseriti : 80-81-82-83-84-85-86-87-88,89 in 1° posizione

( QUINDI VANNO SOMMATI AL 1° ESTRATTO DELLA RUOTA SCELTA )

il ritardo min e max per ambo e terno

la coppia o più coppie più ritardata x ambo

la terzina o le terzine più ritardate x terno

il tutto nelle posizioni di mia scelta

non posseggo nessun listato il mio era solo un esempio di come potessi fare
una ricerca di quel tipo

SCUSAMI TANTO BAFFOBLU speriamo di essermi spiegata bene

ma non voglio abusare della tua bontà

un sincero saluto

ciaoo

Mike58 · 1 Aprile 2012

Ciao Baffo molto articolato lo script, ma comunque raggiunge lo scopo della richiesta.
Per quanto riguarda i numeri dei ritardi e frequenze si potrebbe usare un solo codice da mette alla fine listato tipo:

End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Call StatisticaFormazione(n,ruota,1,ritardo,,,frequenza,idEstr-nColpiDiGioco,Fine)

Scrivi"Ritardo.... " & ritardo & " Frequenza...." & frequenza

Scrivi String(100,"*")

Un saluto Mike

Baffoblu · 1 Aprile 2012

Mike58 ha scritto:
Ciao Baffo molto articolato lo script, ma comunque raggiunge lo scopo della richiesta.
Per quanto riguarda i numeri dei ritardi e frequenze si potrebbe usare un solo codice da mette alla fine listato tipo:

End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Call StatisticaFormazione(n,ruota,1,ritardo,,,frequenza,idEstr-nColpiDiGioco,Fine)

Scrivi"Ritardo.... " & ritardo & " Frequenza...." & frequenza

Scrivi String(100,"*")

Un saluto Mike

Ciao Mike

Tu dici che raggiunge lo scopo della richiesta,

ma rosa962 dice di no.....

Quindi o io non ho capito o lei non si è spiegata bene.....

Se puoi, fai tu le modifiche necessarie,

che io sono indaffarato con problemi "esterni" al lotto.....

Grazie

un saluto a te e rosa

rosa962 · 2 Aprile 2012

ciao BAFFOBLU ti ringrazio lo stesso

mi dispiace per non essere riuscita

a farmi capire

spero che mike58 abbia capito qualcosa
e che accolga la mia richiesta

se c'è qualcosa che ancora non avete capito
ditemelo

grazie ancora

ciaoo

Mike58 · 2 Aprile 2012

Ciao Baffo, mi hai passato la palla ma non sono riuscito a prenderla come si deve.
Tuttavia ho fatto una bozza di script e con un pò di buona volontà Rosa può forse utilizzare, e magari anche tu puoi trarre indicazioni circa i ritardi e frequenze.

Spero comunque apprezziate l'impegno.

Codice:

Sub Main
 Dim Ru(1),num(10),ad(10)
 Dim posta(2)
 posta(1) = 1
 posta(2) = 1
 est = InputBox("Quante estrazioni analizzo",,100)
 qt = InputBox("Quanti adattatori",,5)
 r = InputBox("Quale ruota",,1)
 p = InputBox("Quale posizione",,1)
 Ru(1) = r
 ScegliNumeri(ad)
 Fin = EstrazioneFin
 Ini = EstrazioneFin - est
 TT = fin - Ini
 Scrivi NomeRuota(Ru(1)),1,0
 Scrivi " - analisi ",0,0
 Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),0,0
 Scrivi" - Totali estrazioni.." & tt
 Scrivi
 For es = Ini To fin
 Messaggio"Script by Mike58   ---> Elaboro estrazioni...." &  es
 Call AvanzamentoElab(Ini,fin,es)
  bb = Estratto(es,r,p)
  For x = 1 To qt
   For y = 1 To UBound(ad)
    num(x) = Fuori90(bb + ad(x))
   Next
  Next
  colpi = 10
  ess = es + colpi
  If ess > fin Then ess = fin
  Call StatisticaFormazione(num,Ru,1,ritardo,ritardomax,,frequenza,es + 1,ess)
  Call StatisticaFormazione(num,Ru,2,rit,ritardomax,,freq,es + 1,ess)
  ss = SerieRitardo(Ini,fin,num,Ru,2)
  ff = SerieFreq(Ini,fin,num,Ru,2)
  Scrivi String(120,"=")
  Scrivi DataEstrazione(es) & " [" & StringaEstratti(es,r) & " ]",0,0
  Scrivi"  ADATTATORI " & StringaNumeri(ad),0,0
  Scrivi " su ESTRATTO " & bb,0,0
  Scrivi " ---> Genera combinazione " & StringaNumeri(num)
  Scrivi String(120,"=")
  ImpostaGiocata 1,num,Ru,posta,10
  Gioca es
  Scrivi String(120,"-")
  Scrivi StringaNumeri(num) & " - Analisi numeri colpi di gioco - " & " Presenza per Ambata " & frequenza & "  -  Ritardo per Ambata : " & ritardo
  Scrivi StringaNumeri(num) & " - Analisi numeri colpi di gioco - " & " Presenza per Ambo   " & freq & "  -  Ritardo per Ambo     " & rit
  
  ColoreTesto 1
  Scrivi"RITARDO X AMBO SUL TOTALE ANALIZZATO....." & ss
  Scrivi"FREQUENZA X AMBO SUL TOTALE ANALIZZATO..." & FF
  ColoreTesto 0
  'Scrivi String(120,"-")
 Next
 ScriviResoconto
End Sub

rosa962 · 2 Aprile 2012

ciaoo MIKE58

sei stato grandioso
e ti ringrazio molto per l'impegno
che mi hai dedicato

spero che un giorno
anche io riuscirò a fare qualcosa
anche per gli altri

ora lo vedrò per bene
ma già hai indovinato in pieno quello che voglio
ma se ci sarebbe da fare un piccolo miglioramento
abuserò ancora della tua disponibilità

grazie tante

Mike58 · 2 Aprile 2012

Ciao Baffo, è sicuramente una svista ma è inutile far calcolare allo script dei dati statistici se poi non si usano in scrittura.
Mi riferisco ai codici statistichaformazione sono calcolati ma non sono in alcun modo utilizzati in scrittura.
Tuttavia si può inserire anche il codice di seriestorico per scrivere il ritardostorico della combinazione.

'Call StatisticaFormazione(n,ruote,1,ritardo,ritardomax,,frequenza,idEstr + 1,ess)
'Call StatisticaFormazione(n,ruote,2,rit,ritardomax,,freq,idEstr + 1,ess)
ss = SerieRitardo(Inizio,Fine,n,ruote,2)
ST = SerieStorico(Inizio,Fine,n,ruote,2)
ff = SerieFreq(Inizio,Fine,n,ruote,2)
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2),1
ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
Gioca idEstr
ColoreTesto 1
Scrivi"RITARDO X AMBO SUL TOTALE ANALIZZATO....." & ss & " - Massimo ritardo storico " & st
Scrivi"FREQUENZA X AMBO SUL TOTALE ANALIZZATO..." & FF
ColoreTesto 0
If ScriptInterrotto Then Exit For

rosa962 · 3 Aprile 2012

anche a te BAFFOBLU
ti ringrazio tantissimo per l'impegno nel listato

ma ad entrambi chiedo un ultimo sforzo
anche facendo un altro listato
solo sugli adattatori di tipo statistico

spero di spiegarmi meglio

non il ritardo e la frequenza sui numeri che gli adattatori
hanno generato ma il min e max ritardo che gli adattatori stessi
non hanno dato ambi e terni e quaterne

sempre nelle posizioni come nei listati precedente

ed ovviamente gli adattatori da 2 a 10 di libera scelta

sempre se il tutto è fattibile

il discorso mi sembra ovvio questo mi servirà
ad una ricerca mirata sugli adattatori da sceglire
poi sarà mio impegno a selezionare le giuste posizioni
e gli adattatori idonei in base alle mie ricerche

vi ringrazio ancora per il vostro altruismo dimostrato

un sincero saluto

ciaoo

Baffoblu · 3 Aprile 2012

Mike58 ha scritto:
Ciao Baffo, è sicuramente una svista ma è inutile far calcolare allo script dei dati statistici se poi non si usano in scrittura.
Mi riferisco ai codici statistichaformazione sono calcolati ma non sono in alcun modo utilizzati in scrittura.
Tuttavia si può inserire anche il codice di seriestorico per scrivere il ritardostorico della combinazione.

'Call StatisticaFormazione(n,ruote,1,ritardo,ritardomax,,frequenza,idEstr + 1,ess)
'Call StatisticaFormazione(n,ruote,2,rit,ritardomax,,freq,idEstr + 1,ess)
ss = SerieRitardo(Inizio,Fine,n,ruote,2)
ST = SerieStorico(Inizio,Fine,n,ruote,2)
ff = SerieFreq(Inizio,Fine,n,ruote,2)
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2),1
ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
Gioca idEstr
ColoreTesto 1
Scrivi"RITARDO X AMBO SUL TOTALE ANALIZZATO....." & ss & " - Massimo ritardo storico " & st
Scrivi"FREQUENZA X AMBO SUL TOTALE ANALIZZATO..." & FF
ColoreTesto 0
If ScriptInterrotto Then Exit For

Hai ragione....

Più che una svista, ho gente per casa con relativa
prole numerosa e casinista

Ho fatto tutte le correzioni, grazie.

Comunque il tuo script è migliore.....(meno lungo e articolato...)

beh, ecco il mio....

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruota(11)
    Dim ruote(11)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(10)
    poste(1) = 1
    poste(2) = 1
    poste(3) = 1
    r1 = CInt(InputBox(" Scegli la ruota di Elaborazione ",,"1"))
    r2 = CInt(InputBox(" Scegli la ruota di Gioco ",,"1"))
    ruota(1) = r1
    ruote(1) = r2
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
    Ad = CInt(InputBox(" Quanti adattatori ? * da MIn 2 a Max 10 ",,"2"))
    If Ad = 2 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
    End If
    If Ad = 3 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
    End If
    If Ad = 4 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
    End If
    If Ad = 5 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
    End If
    If Ad = 6 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
        Ad6 = CInt(InputBox(" Immetti il 6° adattatore ",,"6"))
    End If
    If Ad = 7 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
        Ad6 = CInt(InputBox(" Immetti il 6° adattatore ",,"6"))
        Ad7 = CInt(InputBox(" Immetti il 7° adattatore ",,"7"))
    End If
    If Ad = 8 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
        Ad6 = CInt(InputBox(" Immetti il 6° adattatore ",,"6"))
        Ad7 = CInt(InputBox(" Immetti il 7° adattatore ",,"7"))
        Ad8 = CInt(InputBox(" Immetti il 8° adattatore ",,"8"))
    End If
    If Ad = 9 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
        Ad6 = CInt(InputBox(" Immetti il 6° adattatore ",,"6"))
        Ad7 = CInt(InputBox(" Immetti il 7° adattatore ",,"7"))
        Ad8 = CInt(InputBox(" Immetti il 8° adattatore ",,"8"))
        Ad9 = CInt(InputBox(" Immetti il 9° adattatore ",,"9"))
    End If
    If Ad = 10 Then
        Ad1 = CInt(InputBox(" Immetti il 1° adattatore ",,"1"))
        Ad2 = CInt(InputBox(" Immetti il 2° adattatore ",,"2"))
        Ad3 = CInt(InputBox(" Immetti il 3° adattatore ",,"3"))
        Ad4 = CInt(InputBox(" Immetti il 4° adattatore ",,"4"))
        Ad5 = CInt(InputBox(" Immetti il 5° adattatore ",,"5"))
        Ad6 = CInt(InputBox(" Immetti il 6° adattatore ",,"6"))
        Ad7 = CInt(InputBox(" Immetti il 7° adattatore ",,"7"))
        Ad8 = CInt(InputBox(" Immetti il 8° adattatore ",,"8"))
        Ad9 = CInt(InputBox(" Immetti il 9° adattatore ",,"9"))
        Ad10 = CInt(InputBox(" Immetti il 10° adattatore ",,"10"))
    End If
    pos = CInt(InputBox(" Scegli la Posizione * da 1 a 5 ",,"1"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    Tot = Fine - Inizio
    Scrivi NomeRuota(ruote(1)),1,0
    Scrivi " - analisi ",0,0
    Scrivi " dal " & DataEstrazione(Inizio) & " al " & DataEstrazione(Fine),0,0
    Scrivi" - Totali estrazioni.." & Tot
    Scrivi
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruota(1) = r1
        ruote(1) = r2
        If pos = 1 Then
            e1 = Estratto(idEstr,r1,pos)
        End If
        If pos = 2 Then
            e2 = Estratto(idEstr,r1,pos)
        End If
        If pos = 3 Then
            e3 = Estratto(idEstr,r1,pos)
        End If
        If pos = 4 Then
            e4 = Estratto(idEstr,r1,pos)
        End If
        If pos = 5 Then
            e5 = Estratto(idEstr,r1,pos)
        End If
        If Ad = 2 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
        End If
        If Ad = 3 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
        End If
        If Ad = 4 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
        End If
        If Ad = 5 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
        End If
        If Ad = 6 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
            n(6) = Fuori90(Ad6 + e1)
        End If
        If Ad = 7 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
            n(6) = Fuori90(Ad6 + e1)
            n(7) = Fuori90(Ad7 + e1)
        End If
        If Ad = 8 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
            n(6) = Fuori90(Ad6 + e1)
            n(7) = Fuori90(Ad7 + e1)
            n(8) = Fuori90(Ad8 + e1)
        End If
        If Ad = 9 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
            n(6) = Fuori90(Ad6 + e1)
            n(7) = Fuori90(Ad7 + e1)
            n(8) = Fuori90(Ad8 + e1)
            n(9) = Fuori90(Ad9 + e1)
        End If
        If Ad = 10 And pos = 1 Then
            n(1) = Fuori90(Ad1 + e1)
            n(2) = Fuori90(Ad2 + e1)
            n(3) = Fuori90(Ad3 + e1)
            n(4) = Fuori90(Ad4 + e1)
            n(5) = Fuori90(Ad5 + e1)
            n(6) = Fuori90(Ad6 + e1)
            n(7) = Fuori90(Ad7 + e1)
            n(8) = Fuori90(Ad8 + e1)
            n(9) = Fuori90(Ad9 + e1)
            n(10) = Fuori90(Ad10 + e1)
        End If
        If Ad = 2 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
        End If
        If Ad = 3 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
        End If
        If Ad = 4 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
        End If
        If Ad = 5 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
        End If
        If Ad = 6 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
            n(6) = Fuori90(Ad6 + e2)
        End If
        If Ad = 7 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
            n(6) = Fuori90(Ad6 + e2)
            n(7) = Fuori90(Ad7 + e2)
        End If
        If Ad = 8 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
            n(6) = Fuori90(Ad6 + e2)
            n(7) = Fuori90(Ad7 + e2)
            n(8) = Fuori90(Ad8 + e2)
        End If
        If Ad = 9 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
            n(6) = Fuori90(Ad6 + e2)
            n(7) = Fuori90(Ad7 + e2)
            n(8) = Fuori90(Ad8 + e2)
            n(9) = Fuori90(Ad9 + e2)
        End If
        If Ad = 10 And pos = 2 Then
            n(1) = Fuori90(Ad1 + e2)
            n(2) = Fuori90(Ad2 + e2)
            n(3) = Fuori90(Ad3 + e2)
            n(4) = Fuori90(Ad4 + e2)
            n(5) = Fuori90(Ad5 + e2)
            n(6) = Fuori90(Ad6 + e2)
            n(7) = Fuori90(Ad7 + e2)
            n(8) = Fuori90(Ad8 + e2)
            n(9) = Fuori90(Ad9 + e2)
            n(10) = Fuori90(Ad10 + e2)
        End If
        If Ad = 2 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
        End If
        If Ad = 3 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
        End If
        If Ad = 4 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
        End If
        If Ad = 5 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
        End If
        If Ad = 6 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
            n(6) = Fuori90(Ad6 + e3)
        End If
        If Ad = 7 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
            n(6) = Fuori90(Ad6 + e3)
            n(7) = Fuori90(Ad7 + e3)
        End If
        If Ad = 8 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
            n(6) = Fuori90(Ad6 + e3)
            n(7) = Fuori90(Ad7 + e3)
            n(8) = Fuori90(Ad8 + e3)
        End If
        If Ad = 9 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
            n(6) = Fuori90(Ad6 + e3)
            n(7) = Fuori90(Ad7 + e3)
            n(8) = Fuori90(Ad8 + e3)
            n(9) = Fuori90(Ad9 + e3)
        End If
        If Ad = 10 And pos = 3 Then
            n(1) = Fuori90(Ad1 + e3)
            n(2) = Fuori90(Ad2 + e3)
            n(3) = Fuori90(Ad3 + e3)
            n(4) = Fuori90(Ad4 + e3)
            n(5) = Fuori90(Ad5 + e3)
            n(6) = Fuori90(Ad6 + e3)
            n(7) = Fuori90(Ad7 + e3)
            n(8) = Fuori90(Ad8 + e3)
            n(9) = Fuori90(Ad9 + e3)
            n(10) = Fuori90(Ad10 + e3)
        End If
        If Ad = 2 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
        End If
        If Ad = 3 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
        End If
        If Ad = 4 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
        End If
        If Ad = 5 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
        End If
        If Ad = 6 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
            n(6) = Fuori90(Ad6 + e4)
        End If
        If Ad = 7 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
            n(6) = Fuori90(Ad6 + e4)
            n(7) = Fuori90(Ad7 + e4)
        End If
        If Ad = 8 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
            n(6) = Fuori90(Ad6 + e4)
            n(7) = Fuori90(Ad7 + e4)
            n(8) = Fuori90(Ad8 + e4)
        End If
        If Ad = 9 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
            n(6) = Fuori90(Ad6 + e4)
            n(7) = Fuori90(Ad7 + e4)
            n(8) = Fuori90(Ad8 + e4)
            n(9) = Fuori90(Ad9 + e4)
        End If
        If Ad = 10 And pos = 4 Then
            n(1) = Fuori90(Ad1 + e4)
            n(2) = Fuori90(Ad2 + e4)
            n(3) = Fuori90(Ad3 + e4)
            n(4) = Fuori90(Ad4 + e4)
            n(5) = Fuori90(Ad5 + e4)
            n(6) = Fuori90(Ad6 + e4)
            n(7) = Fuori90(Ad7 + e4)
            n(8) = Fuori90(Ad8 + e4)
            n(9) = Fuori90(Ad9 + e4)
            n(10) = Fuori90(Ad10 + e4)
        End If
        If Ad = 2 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
        End If
        If Ad = 3 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
        End If
        If Ad = 4 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
        End If
        If Ad = 5 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
        End If
        If Ad = 6 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
            n(6) = Fuori90(Ad6 + e5)
        End If
        If Ad = 7 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
            n(6) = Fuori90(Ad6 + e5)
            n(7) = Fuori90(Ad7 + e5)
        End If
        If Ad = 8 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
            n(6) = Fuori90(Ad6 + e5)
            n(7) = Fuori90(Ad7 + e5)
            n(8) = Fuori90(Ad8 + e5)
        End If
        If Ad = 9 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
            n(6) = Fuori90(Ad6 + e5)
            n(7) = Fuori90(Ad7 + e5)
            n(8) = Fuori90(Ad8 + e5)
            n(9) = Fuori90(Ad9 + e5)
        End If
        If Ad = 10 And pos = 5 Then
            n(1) = Fuori90(Ad1 + e5)
            n(2) = Fuori90(Ad2 + e5)
            n(3) = Fuori90(Ad3 + e5)
            n(4) = Fuori90(Ad4 + e5)
            n(5) = Fuori90(Ad5 + e5)
            n(6) = Fuori90(Ad6 + e5)
            n(7) = Fuori90(Ad7 + e5)
            n(8) = Fuori90(Ad8 + e5)
            n(9) = Fuori90(Ad9 + e5)
            n(10) = Fuori90(Ad10 + e5)
        End If
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        ess = idEstr + nColpiDiGioco
        If ess > Fine Then ess = Fine
        Call StatisticaFormazione(n,ruote,1,ritardo,ritardomax,,frequenza,idEstr + 1,ess)
        Call StatisticaFormazione(n,ruote,2,rit,ritardomax,,freq,idEstr + 1,ess)
        ss = SerieRitardo(Inizio,Fine,n,ruote,2)
        ff = SerieFreq(Inizio,Fine,n,ruote,2)
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2),1
        '------------------------------------------------------
        ColoreTesto 1
        Scrivi "N° " & ad & " ADATTATORI : " & Format2(Ad1) & "-" & Format2(Ad2) & "-" & Format2(Ad3) & "-" & Format2(Ad4) & "-" & Format2(Ad5) & "-" & Format2(Ad6) & "-" & Format2(Ad7) & "-" & Format2(Ad8) & "-" & Format2(Ad9) & "-" & Format2(Ad10) & " --> ",0,0
        Scrivi " sul " & pos & "°" & " Estratto di " & SiglaRuota(r1),0,0
        Scrivi " ---> Genera combinazione " & StringaNumeri(n)
        '------------------------------------------------------
        ColoreTesto 0
        ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
        Gioca idEstr
        Scrivi String(100,"-")
        Scrivi StringaNumeri(n) & " - Analisi numeri colpi di gioco - " & " Presenza per Ambata " & frequenza & "  -  Ritardo per Ambata : " & ritardo
        Scrivi StringaNumeri(n) & " - Analisi numeri colpi di gioco - " & " Presenza per Ambo   " & freq & "  -  Ritardo per Ambo     " & rit
        ColoreTesto 1
        Scrivi"RITARDO X AMBO SUL TOTALE ANALIZZATO....." & ss
        Scrivi"FREQUENZA X AMBO SUL TOTALE ANALIZZATO..." & FF
        Scrivi String(100,"=")
        ColoreTesto 0
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" X rosa962  <>  LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

Mike58 · 3 Aprile 2012

Ciao Baffo, comunque complimentissimi e da poco che ti occupi di script ma la tua capacità di analisi e di concetto va evidenziata.
Ci sarebbe e mi metto anch'io da passare oltre con gli script, ovvero passare alla fase 2 quella delle FUNCTION, così da sfruttare tutte le potenzialità che Luigi e il nostro SPAZIOMETRIA ci offre.
Ma purtroppo anch'io a questo proposito ho molte lacune, e mi piacerebbe che qualcuno un pò più capace cominciasse a fare qualche script con le function, così da essere da guida.
C'erano amici (Rubino,Claudio,Gennaro) che usavano queste funzioni ma ahinoi è un pò di tempo che non partecipano al forum e alle quale va sempre il mio saluto e ringraziamento.

Per l'utimo quesito di Rosa, qui è abbastanza complesso trovare il sommativo e fare una statistica per ogni estrazione ci vorrebbe un punto di partenza esempio solo 1^ estrazione e da li calcolare i sommativi per i colpi di gioco.

Vedi se tu con la tua immensa analisi di concetto riesci a trovare il punto da quale partire per l'algoritmo.

Un saluto e grazie della tua presenza.

rosa962 · 3 Aprile 2012

COMPLIMENTI ANCHE DA PARTE MIA BAFFOBLU
hai aggiunto anche il ritardo x ambata

anche se da poco iscritta vedo che sui listati
sei diventato anche tu bravissimo, al contrario
di me che sto iniziando adesso a leggere le tue
guide cercando di comprendere qualcosa in più

ringrazio anche MIKE58
speriamo di riuscire a finire

ciaoo vi seguo molto anche se in silenzio

Baffoblu · 3 Aprile 2012

X Mike58 e rosa962

Grazie dei complimenti,
le mie capacità di analisi e di concetto
mi derivano dal basic preistorico che ho
assimilato nelle vene, anche se molte cose
le ho scordate, le sto riscoprendo con
questo nuovo linguaggio che inizia a diventarmi familiare,
Ma in una scala da 1 a 10, io mi do come voto 5,
cioè al di sotto della "sufficienza/deficienza".

Se sembra che all'improvviso ho imparato a scriptare,
lo devo solo al fatto che ho deciso di leggere
il minimo di quello che c'era da leggere per iniziare....

Come dice Mike.... per passare alla fase 2 (quella delle FUNCTION),
dovrò decidermi di mettermi a leggere e studiare per colmare
le innumerevoli lacune.....

Io grazie a Luigi ho fatto passi da gigante e
la fase 2 arriverà con il tempo.....

Io però sono un pigro che non ha mai abbastanza tempo,
ma quando lo trova, non si tira indietro......

--------------------------------------------

Tornando al discorso di rosa962......

Mi sembra che su spaziometria ci sia qualcosa
sugli adattatori di tipo statistico,
Io non li ho mai usati, Mike tu ne sai qualcosa ?

Io la verità non ho capito la richiesta di rosa962

non so proprio da dove iniziare.....

ritardi, frequenze, min e max ritardo sono cose
che "digerisco" ancora male......

ciao

Mike58 · 3 Aprile 2012

Ciao Baffo, mi fa piacere che hai accolto il mio invito per cominciare a vedere la fase 2 e credi i complmenti sono tutti meritati.
Io ho voglia di passare a questa fase per facilitare le stesure degli script è riuscire a fare magari calcoli più complessi, però c'è bisogno di linee guida.

Per il problema di Rosa effettivamente c'è la sezione Metodi -> statistica adattatori è fa in effetti quello che Rosa chiede.

Rosa prova a vedere...

Ciao

LuigiB · 3 Aprile 2012

ciao Mike , visto che il vostro discorso riguardo le function mi fa molto piacere voglio indirizzarvi un pochino.
la prima regola è questa : LE FUNCTION NON SI MANGIANO NESSUNO !!! Gia è una battuta ma ha il suo senso
infatti io stesso ormai 15 anni e più fa quando andai al primo corso di programmazione ne avevo paura, mi sembravano delle
cose inutili perche mi dicevo ma che devo scrivere a fare le function se posso tranquillamente fare tutto in un unico blocco
di codice ? In realtà era un po' la pigrizia ma soprattutto la paura a farmele evitare come la peste. Nulla di piu sbagliato ovviamente !
Infatti il primo motivo per il quale conviene suddividere il codice facendo uso di piu funzioni è quello della chiarezza del codice stesso e sulla successiva facilità di poterlo modificare.
Le function sono pezzetti di codice tali e quali agli altri non c'è niente di spaventoso ma anzi sono molto utili.
Vi faccio subito un esempio chiarificatore.
Ammettiamo il fatto che ci sia bisogno di realizzare un piccolo script che faccia un certo numero di semplici calcoli stabiliti da un ipotetico metodo
Questi calcoli pero vanno fatti in un certo modo ,facciamo finta che il metodo stabilisca le seguenti regole

1)il calcolo sara operato sempre su una coppia di numeri
2) se i numeri sono pari si sommano
3) se sono dispari si fa la distanza ciclometrica
4) e se uno è pari e l'altro è dispari si moltiplicano.

Facciamo finta che si debbano fare calcoli con le seguenti 3 coppie numeri
2 - 3
3 - 3
4 - 4

vediamo come sarebbe uno script che non fa uso di funzioni,

Codice:

Option Explicit
Sub Main
	Dim a,b,risultato
	'primo calcolo
	a = 2
	b = 3
	If a Mod 2 = 0 And b Mod 2 = 0 Then ' verifico se numeri tutti pari
		risultato = Fuori90(a + b)
		ElseIf(a Mod 2 = 0 And b Mod 2 <> 0) Or(a Mod 2 <> 0 And b Mod 2 = 0) Then ' verifico se un numero è pari e l'altro dispari
		risultato = Distanza(a,b)
	ElseIf a Mod 2 <> 0 And b Mod 2 <> 0 Then ' verifico se numeri tutti dispari
		risultato = Fuori90(a*b)
	End If
	Call Scrivi("Il risultato è " & risultato)
	'secondo calcolo
	a = 3
	b = 3
	If a Mod 2 = 0 And b Mod 2 = 0 Then ' verifico se numeri tutti pari
		risultato = Fuori90(a + b)
		ElseIf(a Mod 2 = 0 And b Mod 2 <> 0) Or(a Mod 2 <> 0 And b Mod 2 = 0) Then ' verifico se un numero è pari e l'altro dispari
		risultato = Distanza(a,b)
	ElseIf a Mod 2 <> 0 And b Mod 2 <> 0 Then ' verifico se numeri tutti dispari
		risultato = Fuori90(a*b)
	End If
	Call Scrivi("Il risultato è " & risultato)
	'terzo calcolo
	a = 4
	b = 4
	If a Mod 2 = 0 And b Mod 2 = 0 Then ' verifico se numeri tutti pari
		risultato = Fuori90(a + b)
		ElseIf(a Mod 2 = 0 And b Mod 2 <> 0) Or(a Mod 2 <> 0 And b Mod 2 = 0) Then ' verifico se un numero è pari e l'altro dispari
		risultato = Distanza(a,b)
	ElseIf a Mod 2 <> 0 And b Mod 2 <> 0 Then ' verifico se numeri tutti dispari
		risultato = Fuori90(a*b)
	End If
	Call Scrivi("Il risultato è " & risultato)
End Sub

vediamo ora uno script che fa la stessa cosa ma si avvale di un'aposita funzione il cui compito è fare il calcolo
e restituirci il risultato.

Codice:

Option Explicit
Sub Main
	Dim a,b,risultato
	'primo calcolo
	a = 2
	b = 3
	Call Scrivi("Il risultato è " & GetRisultato(a,b))
	'secondo calcolo
	a = 3
	b = 3
	Call Scrivi("Il risultato è " & GetRisultato(a,b))
	'terzo calcolo
	a = 4
	b = 4
	Call Scrivi("Il risultato è " & GetRisultato(a,b))
End Sub
Function GetRisultato(a,b)
	If a Mod 2 = 0 And b Mod 2 = 0 Then ' verifico se numeri tutti pari
		GetRisultato = Fuori90(a + b)
	ElseIf(a Mod 2 = 0 And b Mod 2 <> 0) Or(a Mod 2 <> 0 And b Mod 2 = 0) Then ' verifico se un numero è pari e l'altro dispari
		GetRisultato = Distanza(a,b)
	ElseIf a Mod 2 <> 0 And b Mod 2 <> 0 Then ' verifico se numeri tutti dispari
		GetRisultato = Fuori90(a*b)
	End If
End Function

come si puo vedere il codice è molto piu compatto.
questo semplice esempio è la base per capire quando è il caso di scrivere una funzione ..spero di aver fatto cosa gradita .. ciao !

Baffoblu · 3 Aprile 2012

Ciao Luigi

I tuoi interventi sono sempre "rivelatori"
e fanno "scuola".....

Una volta vista una funzione, se non è troppo complessa,
la capisco o cerco di capirla....

e' crearla dall'inizio che non mi viene ancora spontaneo.

Credo che ci vorrà solo tempo e pratica incessante....

Io sono ancora a livelli Junior.....

Per esempio, queste sono alcune righe dello
script di Mike58 x rosa962

In pratica il succo di tutto il calcolo....

Codice:

---------------------------
---------------------------
---------------------------
qt = InputBox("Quanti adattatori",,5)
r = InputBox("Quale ruota",,1)
p = InputBox("Quale posizione",,1)
Ru(1) = r
ScegliNumeri(ad)
---------------------------
---------------------------
---------------------------
bb = Estratto(es,r,p)
For x = 1 To qt
For y = 1 To UBound(ad)
num(x) = Fuori90(bb + ad(x))
Next
Next
.................................

Io invece ho fatto uno script lungo
dichiarando ogni singolo fattore.....
Ma con i stessi risultati.

è quel ( UBound ) che mi ha fregato,
non mi ricordavo il funzionamento......

hehehe.....devo studiare.......

Mike58 · 3 Aprile 2012

Grazie Luigi, per adesso cominciamo da qui spero che altri vogliano seguire..
Malgrado ci sia in corso la partita ho un po studiato...

Ciao un grazie e salutissimo.

Codice:

Option Explicit
Sub Main
 Dim a,b,risultato
 'primo calcolo
 a = 2
 b = 3
 Call Scrivi("Il risultato è " & GetRisultato(a,b))
 'secondo calcolo
 a = 3
 b = 3
 Call Scrivi("Il risultato è " & GetRisultato(a,b))
 'terzo calcolo
 a = 4
 b = 4
 Call Scrivi("Il risultato è " & GetRisultato(a,b))
End Sub
Function GetRisultato(a,b)
 If a Mod 2 = 0 And b Mod 2 = 0 Then  ' verifico se numeri tutti pari
  GetRisultato = Fuori90(a + b)
  Scrivi "   HO FATTO LA SOMMA ",0,0  
  Scrivi a & "+" & b
 ElseIf(a Mod 2 = 0 And b Mod 2 <> 0) Or(a Mod 2 <> 0 And b Mod 2 = 0) Then ' verifico se un numero è pari e l'altro dispari
  GetRisultato = Distanza(a,b) 
   Scrivi "   HO FATTO LA DISTANZA ",0,0
  Scrivi a & "-" & b
 ElseIf a Mod 2 <> 0 And b Mod 2 <> 0 Then  ' verifico se numeri tutti dispari
  GetRisultato = Fuori90(a*b) 
  Scrivi "   HO FATTO LA MOLTIPLICAZIONE ",0,0
  Scrivi a & "*" & b
 End If
End Function

x BAFFO O CHI HA VOGLIA

Advanced Member

Baffoblu

Guest

Baffoblu

Guest

Advanced Member

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<