X Nicotina costruttore sommativo

Lanfranco60 · 28 Settembre 2013

Avevo questo script fatto tempo fa, gli ho fatto giusto
qualche modifica.
Vedi se ti va bene, puoi scegliere quasi tutto, fra ruote,posizioni, somme e sottrazioni.

Stai attento a cosa ti chiede l'inputBox......

Codice:

Option Explicit
Sub Main()
    ' Script Costruttore Metodi Sommativi By Lanfranco60
    Dim es,ini,fIn,ruote(12),poste(10)
    Dim ee,Clp,nr(10)
    Dim pnr(10)
    Dim qtr,rg(3),idm,co,ok
    Dim calA(5),calB(5)
    Dim som1(5),ultest
    Dim nu1(5)
    Dim num1(5)
    poste(2) = 1
    poste(3) = 1
    'Ricava 5 numeri da giocare sulle ruote scelte
    nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)'12 X la Nazionale
    pnr(1) = InputBox("Scegli la posizione:","",1)
    '-----------------------------------------------------
    nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
    pnr(2) = InputBox("Scegli la posizione:","",1)
    '-----------------------------------------------------
    nr(3) = InputBox("Inserisci la 3a ruota : 1=Ba/2=Ca...","Scegli il numero della 3a Ruota su cui Lavorare",3)
    pnr(3) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(4) = InputBox("Inserisci la 4a ruota : 1=Ba/2=Ca...","Scegli il numero della 4a Ruota su cui Lavorare",4)
    pnr(4) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(5) = InputBox("Inserisci la 5a ruota : 1=Ba/2=Ca...","Scegli il numero della 5a Ruota su cui Lavorare",5)
    pnr(5) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(6) = InputBox("Inserisci la 6a ruota : 1=Ba/2=Ca...","Scegli il numero della 6a Ruota su cui Lavorare",6)
    pnr(6) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(7) = InputBox("Inserisci la 7a ruota : 1=Ba/2=Ca...","Scegli il numero della 7a Ruota su cui Lavorare",7)
    pnr(7) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(8) = InputBox("Inserisci la 8a ruota : 1=Ba/2=Ca...","Scegli il numero della 8a Ruota su cui Lavorare",8)
    pnr(8) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(9) = InputBox("Inserisci la 9a ruota : 1=Ba/2=Ca...","Scegli il numero della 9a Ruota su cui Lavorare",9)
    pnr(9) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    nr(10) = InputBox("Inserisci la 10a ruota : 1=Ba/2=Ca...","Scegli il numero della 10a Ruota su cui Lavorare",10)
    pnr(10) = InputBox("Scegli la posizione del numero:","",1)
    '-----------------------------------------------------
    qtr = InputBox(" Su quante ruote vuoi giocare ?: Max. 3"," Scegli quante Ruote in gioco",1)
    '-----------------------------------------------------
    If qtr = 1 Then
        rg(1) = InputBox("Scegli la ruota di gioco:","",1)
        ruote(1) = rg(1)
    End If
    If qtr = 2 Then
        rg(1) = InputBox("Scegli la 1a ruota di gioco:","",1)
        rg(2) = InputBox("Scegli la 2a ruota di gioco:","",2)
        ruote(1) = rg(1)
        ruote(2) = rg(2)
    End If
    If qtr = 3 Then
        rg(1) = InputBox("Scegli la 1a ruota di gioco:","",1)
        rg(2) = InputBox("Scegli la 2a ruota di gioco:","",2)
        rg(3) = InputBox("Scegli la 3a ruota di gioco:","",3)
        ruote(1) = rg(1)
        ruote(2) = rg(2)
        ruote(3) = rg(3)
    End If
    '-------------------------------------------------------------
    idm = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'indice mensile x analisi",0)
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
    '-------------------------------------------------------------
    calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
    calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
    som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
    '-------------------------------------------------------------
    calA(2) = InputBox("Al 1° Num. 3a Ruota, + o - con un altro Num. 4a ruota?"," 1= + / 2= - ",1)
    calB(2) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
    som1(2) = CInt(InputBox("Inserire il Num. sommativo ",,"2"))
    '-------------------------------------------------------------
    calA(3) = InputBox("Al 1° Num. 5a Ruota, + o - con un altro Num. 6a ruota?"," 1= + / 2= - ",1)
    calB(3) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
    som1(3) = CInt(InputBox("Inserire il Num. sommativo ",,"3"))
    '-------------------------------------------------------------
    calA(4) = InputBox("Al 1° Num. 7a Ruota, + o - con un altro Num. 8a ruota?"," 1= + / 2= - ",1)
    calB(4) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
    som1(4) = CInt(InputBox("Inserire il Num. sommativo ",,"4"))
    '-------------------------------------------------------------
    calA(5) = InputBox("Al 1° Num. 9a Ruota, + o - con un altro Num. 10a ruota?"," 1= + / 2= - ",1)
    calB(5) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
    som1(5) = CInt(InputBox("Inserire il Num. sommativo ",,"5"))
    '------------------------------------------------------------
    ini = EstrazioneFin - ee
    fIn = EstrazioneFin
    co = 0
    For es = ini To fIn
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(ini,fIn,es)
        If(((eval(idm) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(idm)And(eval(idm) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(idm) = 0)))) Then
            '---------------------------------------------------------------------
            If calA(1) = 1 Then
                nu1(1) = Estratto(es,nr(1),pnr(1)) + Estratto(es,nr(2),pnr(2))
            End If
            If calA(1) = 2 Then
                nu1(1) = Differenza(Estratto(es,nr(1),pnr(1)),Estratto(es,nr(2),pnr(2)))
            End If
            If calA(2) = 1 Then
                nu1(2) = Estratto(es,nr(3),pnr(3)) + Estratto(es,nr(4),pnr(4))
            End If
            If calA(2) = 2 Then
                nu1(2) = Differenza(Estratto(es,nr(3),pnr(3)),Estratto(es,nr(4),pnr(4)))
            End If
            If calA(3) = 1 Then
                nu1(3) = Estratto(es,nr(5),pnr(5)) + Estratto(es,nr(6),pnr(6))
            End If
            If calA(3) = 2 Then
                nu1(3) = Differenza(Estratto(es,nr(5),pnr(5)),Estratto(es,nr(6),pnr(6)))
            End If
            If calA(4) = 1 Then
                nu1(4) = Estratto(es,nr(7),pnr(7)) + Estratto(es,nr(8),pnr(8))
            End If
            If calA(4) = 2 Then
                nu1(4) = Differenza(Estratto(es,nr(7),pnr(7)),Estratto(es,nr(8),pnr(8)))
            End If
            If calA(5) = 1 Then
                nu1(5) = Estratto(es,nr(9),pnr(9)) + Estratto(es,nr(10),pnr(10))
            End If
            If calA(5) = 2 Then
                nu1(5) = Differenza(Estratto(es,nr(9),pnr(9)),Estratto(es,nr(10),pnr(10)))
            End If
            '--------------------
            If calB(1) = 1 Then
                num1(1) = Fuori90(nu1(1) + som1(1))
            End If
            If calB(1) = 2 Then
                num1(1) = Differenza(nu1(1),som1(1))
            End If
            If calB(2) = 1 Then
                num1(2) = Fuori90(nu1(2) + som1(2))
            End If
            If calB(2) = 2 Then
                num1(2) = Differenza(nu1(2),som1(2))
            End If
            If calB(3) = 1 Then
                num1(3) = Fuori90(nu1(3) + som1(3))
            End If
            If calB(3) = 2 Then
                num1(3) = Differenza(nu1(3),som1(3))
            End If
            If calB(4) = 1 Then
                num1(4) = Fuori90(nu1(4) + som1(4))
            End If
            If calB(4) = 2 Then
                num1(4) = Differenza(nu1(4),som1(4))
            End If
            If calB(5) = 1 Then
                num1(5) = Fuori90(nu1(5) + som1(5))
            End If
            If calB(5) = 2 Then
                num1(5) = Differenza(nu1(5),som1(5))
            End If
            co = co + 1
            Scrivi String(100,"=") & " Caso n°" & co,1
            ImpostaGiocata 1,num1,ruote,poste,Clp
            Gioca es,,,1
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" *** Costruttore *** Listed By Lanfranco60 *** "),1,3,0
    ScriviResoconto
End Sub

nicotina · 28 Settembre 2013

In Primis ringrazio per la tua celere collaborazione veramente siete un gruppo Fantastico
Ora devo fare qualche prova poi ti scrivo com'è andata
Grazie
A presto Nicotina

Lanfranco60 · 29 Settembre 2013

Salve a tutti

Migliorazioni allo script precedente.......

Questo script è un costruttore di metodi cosidetti sommativi,
con cui fare le proprie prove sui metodi che vi vengono in mente.

Agisce solo con addizioni e sottrazioni.

Istruzioni per l'uso :

Ci sono molte inputBox (finestre che chiedono cosa fare/scegliere)

Vi verrà chiesto la quantità di numeri che vogliamo mettere in gioco
in questo caso massimo 5 numeri.

ovviamente per ogni nuovo numero da giocare, ci chiederà la ruota e la posizione
dell'estratto con cui fare operazioni di somma o sottrazione e in più
ci chiederà se vogliamo sommare/sottrarre un ulteriore (sommativo/numero).

esempio per un numero da giocare :

la prima ruota da cui prelevare un estratto e relativa posizione,
poi un altra ruota in cui prendere un altro estratto e relativa posizione
e relativi calcoli di somma o sottrazione, e somma/sottrazione di
un sommativo.

Tipo : 1° di BA +/- 4° di Mi +/- sommativo inserito dall'utente

le scelte sono quasi infinite.....

siete voi che scegliete quello che volete fare, anche se ha limitazioni
in confronto a programmi dedicati solo a quello.....

Guardate se funziona come vorreste......(l'errore e sempre dietro l'angolo...)

Codice:

Option Explicit
Sub Main()
    ' Script Costruttore Metodi Sommativi (solo somme e sottrazioni) By Lanfranco60
    Dim es,ini,fIn,ruote(12),poste(10)
    Dim ee,Clp,nr(10)
    Dim pnr(10),QtN,Opt
    Dim qtr,rg(3),idm,co,ok
    Dim calA(5),calB(5)
    Dim som1(5),ultest
    Dim nu1(5)
    Dim num1(5)
    QtN = InputBox("Quanti numeri vuoi ricavare ? * Max 5","",1)
    '-----------------------------------------------------------
    If QtN = 1 Then
        nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)
        pnr(1) = InputBox("Scegli la posizione:","",1)
        nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
        pnr(2) = InputBox("Scegli la posizione:","",1)
        poste(1) = 1
    End If
    If QtN = 2 Then
        nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)
        pnr(1) = InputBox("Scegli la posizione:","",1)
        nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
        pnr(2) = InputBox("Scegli la posizione:","",1)
        nr(3) = InputBox("Inserisci la 3a ruota : 1=Ba/2=Ca...","Scegli il numero della 3a Ruota su cui Lavorare",3)
        pnr(3) = InputBox("Scegli la posizione del numero:","",1)
        nr(4) = InputBox("Inserisci la 4a ruota : 1=Ba/2=Ca...","Scegli il numero della 4a Ruota su cui Lavorare",4)
        pnr(4) = InputBox("Scegli la posizione del numero:","",1)
        poste(1) = 1
        poste(2) = 1
    End If
    If QtN = 3 Then
        nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)
        pnr(1) = InputBox("Scegli la posizione:","",1)
        nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
        pnr(2) = InputBox("Scegli la posizione:","",1)
        nr(3) = InputBox("Inserisci la 3a ruota : 1=Ba/2=Ca...","Scegli il numero della 3a Ruota su cui Lavorare",3)
        pnr(3) = InputBox("Scegli la posizione del numero:","",1)
        nr(4) = InputBox("Inserisci la 4a ruota : 1=Ba/2=Ca...","Scegli il numero della 4a Ruota su cui Lavorare",4)
        pnr(4) = InputBox("Scegli la posizione del numero:","",1)
        nr(5) = InputBox("Inserisci la 5a ruota : 1=Ba/2=Ca...","Scegli il numero della 5a Ruota su cui Lavorare",5)
        pnr(5) = InputBox("Scegli la posizione del numero:","",1)
        nr(6) = InputBox("Inserisci la 6a ruota : 1=Ba/2=Ca...","Scegli il numero della 6a Ruota su cui Lavorare",6)
        pnr(6) = InputBox("Scegli la posizione del numero:","",1)
        poste(2) = 1
        poste(3) = 1
    End If
    If QtN = 4 Then
        nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)
        pnr(1) = InputBox("Scegli la posizione:","",1)
        nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
        pnr(2) = InputBox("Scegli la posizione:","",1)
        nr(3) = InputBox("Inserisci la 3a ruota : 1=Ba/2=Ca...","Scegli il numero della 3a Ruota su cui Lavorare",3)
        pnr(3) = InputBox("Scegli la posizione del numero:","",1)
        nr(4) = InputBox("Inserisci la 4a ruota : 1=Ba/2=Ca...","Scegli il numero della 4a Ruota su cui Lavorare",4)
        pnr(4) = InputBox("Scegli la posizione del numero:","",1)
        nr(5) = InputBox("Inserisci la 5a ruota : 1=Ba/2=Ca...","Scegli il numero della 5a Ruota su cui Lavorare",5)
        pnr(5) = InputBox("Scegli la posizione del numero:","",1)
        nr(6) = InputBox("Inserisci la 6a ruota : 1=Ba/2=Ca...","Scegli il numero della 6a Ruota su cui Lavorare",6)
        pnr(6) = InputBox("Scegli la posizione del numero:","",1)
        nr(7) = InputBox("Inserisci la 7a ruota : 1=Ba/2=Ca...","Scegli il numero della 7a Ruota su cui Lavorare",7)
        pnr(7) = InputBox("Scegli la posizione del numero:","",1)
        nr(8) = InputBox("Inserisci la 8a ruota : 1=Ba/2=Ca...","Scegli il numero della 8a Ruota su cui Lavorare",8)
        pnr(8) = InputBox("Scegli la posizione del numero:","",1)
        poste(2) = 1
        poste(3) = 1
    End If
    If QtN = 5 Then
        nr(1) = InputBox("Inserisci la 1a ruota : 1=Ba/2=Ca...","Scegli il numero della 1a Ruota su cui Lavorare",1)
        pnr(1) = InputBox("Scegli la posizione:","",1)
        nr(2) = InputBox("Inserisci la 2a ruota : 1=Ba/2=Ca...","Scegli il numero della 2a Ruota su cui Lavorare",2)
        pnr(2) = InputBox("Scegli la posizione:","",1)
        nr(3) = InputBox("Inserisci la 3a ruota : 1=Ba/2=Ca...","Scegli il numero della 3a Ruota su cui Lavorare",3)
        pnr(3) = InputBox("Scegli la posizione del numero:","",1)
        nr(4) = InputBox("Inserisci la 4a ruota : 1=Ba/2=Ca...","Scegli il numero della 4a Ruota su cui Lavorare",4)
        pnr(4) = InputBox("Scegli la posizione del numero:","",1)
        nr(5) = InputBox("Inserisci la 5a ruota : 1=Ba/2=Ca...","Scegli il numero della 5a Ruota su cui Lavorare",5)
        pnr(5) = InputBox("Scegli la posizione del numero:","",1)
        nr(6) = InputBox("Inserisci la 6a ruota : 1=Ba/2=Ca...","Scegli il numero della 6a Ruota su cui Lavorare",6)
        pnr(6) = InputBox("Scegli la posizione del numero:","",1)
        nr(7) = InputBox("Inserisci la 7a ruota : 1=Ba/2=Ca...","Scegli il numero della 7a Ruota su cui Lavorare",7)
        pnr(7) = InputBox("Scegli la posizione del numero:","",1)
        nr(8) = InputBox("Inserisci la 8a ruota : 1=Ba/2=Ca...","Scegli il numero della 8a Ruota su cui Lavorare",8)
        pnr(8) = InputBox("Scegli la posizione del numero:","",1)
        nr(9) = InputBox("Inserisci la 9a ruota : 1=Ba/2=Ca...","Scegli il numero della 9a Ruota su cui Lavorare",9)
        pnr(9) = InputBox("Scegli la posizione del numero:","",1)
        nr(10) = InputBox("Inserisci la 10a ruota : 1=Ba/2=Ca...","Scegli il numero della 10a Ruota su cui Lavorare",10)
        pnr(10) = InputBox("Scegli la posizione del numero:","",1)
        poste(2) = 1
        poste(3) = 1
    End If
    '---------------------------------------------------------
    qtr = InputBox(" Su quante ruote vuoi giocare ?: Max. 3"," Scegli quante Ruote in gioco",1)
    If qtr = 1 Then
        rg(1) = InputBox("Scegli la ruota di gioco:","",1)
        ruote(1) = rg(1)
    End If
    If qtr = 2 Then
        rg(1) = InputBox("Scegli la 1a ruota di gioco:","",1)
        rg(2) = InputBox("Scegli la 2a ruota di gioco:","",2)
        ruote(1) = rg(1)
        ruote(2) = rg(2)
    End If
    If qtr = 3 Then
        rg(1) = InputBox("Scegli la 1a ruota di gioco:","",1)
        rg(2) = InputBox("Scegli la 2a ruota di gioco:","",2)
        rg(3) = InputBox("Scegli la 3a ruota di gioco:","",3)
        ruote(1) = rg(1)
        ruote(2) = rg(2)
        ruote(3) = rg(3)
    End If
    '-------------------------------------------------------------
    idm = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'indice mensile x analisi",0)
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
    '-------------------------------------------------------------
    If QtN = 1 Then
        calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
        If Opt = 1 Then
            calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
            som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
        End If
    End If
    If QtN = 2 Then
        calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
        If Opt = 1 Then
            calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
            som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
            calA(2) = InputBox("Al 1° Num. 3a Ruota, + o - con un altro Num. 4a ruota?"," 1= + / 2= - ",1)
            Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
            If Opt = 1 Then
                calB(2) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                som1(2) = CInt(InputBox("Inserire il Num. sommativo ",,"2"))
            End If
        End If
    End If
    If QtN = 3 Then
        calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
        If Opt = 1 Then
            calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
            som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
            calA(2) = InputBox("Al 1° Num. 3a Ruota, + o - con un altro Num. 4a ruota?"," 1= + / 2= - ",1)
            Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
            If Opt = 1 Then
                calB(2) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                som1(2) = CInt(InputBox("Inserire il Num. sommativo ",,"2"))
                calA(3) = InputBox("Al 1° Num. 5a Ruota, + o - con un altro Num. 6a ruota?"," 1= + / 2= - ",1)
                Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                If Opt = 1 Then
                    calB(3) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                    som1(3) = CInt(InputBox("Inserire il Num. sommativo ",,"3"))
                End If
            End If
        End If
    End If
    If QtN = 4 Then
        calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
        If Opt = 1 Then
            calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
            som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
            calA(2) = InputBox("Al 1° Num. 3a Ruota, + o - con un altro Num. 4a ruota?"," 1= + / 2= - ",1)
            Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
            If Opt = 1 Then
                calB(2) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                som1(2) = CInt(InputBox("Inserire il Num. sommativo ",,"2"))
                calA(3) = InputBox("Al 1° Num. 5a Ruota, + o - con un altro Num. 6a ruota?"," 1= + / 2= - ",1)
                Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                If Opt = 1 Then
                    calB(3) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                    som1(3) = CInt(InputBox("Inserire il Num. sommativo ",,"3"))
                    calA(4) = InputBox("Al 1° Num. 7a Ruota, + o - con un altro Num. 8a ruota?"," 1= + / 2= - ",1)
                    Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                    If Opt = 1 Then
                        calB(4) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                        som1(4) = CInt(InputBox("Inserire il Num. sommativo ",,"4"))
                    End If
                End If
            End If
        End If
    End If
    If QtN = 5 Then
        calA(1) = InputBox("Al 1° Num. 1a Ruota, + o - con un altro Num. 2a ruota?"," 1= + / 2= - ",1)
        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
        If Opt = 1 Then
            calB(1) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
            som1(1) = CInt(InputBox("Inserire il Num. sommativo ",,"1"))
            calA(2) = InputBox("Al 1° Num. 3a Ruota, + o - con un altro Num. 4a ruota?"," 1= + / 2= - ",1)
            Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
            If Opt = 1 Then
                calB(2) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                som1(2) = CInt(InputBox("Inserire il Num. sommativo ",,"2"))
                calA(3) = InputBox("Al 1° Num. 5a Ruota, + o - con un altro Num. 6a ruota?"," 1= + / 2= - ",1)
                Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                If Opt = 1 Then
                    calB(3) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                    som1(3) = CInt(InputBox("Inserire il Num. sommativo ",,"3"))
                    calA(4) = InputBox("Al 1° Num. 7a Ruota, + o - con un altro Num. 8a ruota?"," 1= + / 2= - ",1)
                    Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                    If Opt = 1 Then
                        calB(4) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                        som1(4) = CInt(InputBox("Inserire il Num. sommativo ",,"4"))
                        calA(5) = InputBox("Al 1° Num. 9a Ruota, + o - con un altro Num. 10a ruota?"," 1= + / 2= - ",1)
                        Opt = InputBox("Vuoi fare altre operazioni ?"," 1= Si / 2= No ",1)
                        If Opt = 1 Then
                            calB(5) = InputBox("Al Risultato fai + o - con un (sommativo)?"," 1= + / 2= - ",1)
                            som1(5) = CInt(InputBox("Inserire il Num. sommativo ",,"5"))
                        End If
                    End If
                End If
            End If
        End If
    End If
    ini = EstrazioneFin - ee
    fIn = EstrazioneFin
    co = 0
    For es = ini To fIn
        Messaggio "Mini Costruttore Sommativo By Lanfranco60"
        Call AvanzamentoElab(ini,fIn,es)
        If(((eval(idm) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(idm)And(eval(idm) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(idm) = 0)))) Then
            '---------------------------------------------------------------------
            If calA(1) = 1 Then
                nu1(1) = Estratto(es,nr(1),pnr(1)) + Estratto(es,nr(2),pnr(2))
            End If
            If calA(1) = 2 Then
                nu1(1) = Differenza(Estratto(es,nr(1),pnr(1)),Estratto(es,nr(2),pnr(2)))
            End If
            If calA(2) = 1 Then
                nu1(2) = Estratto(es,nr(3),pnr(3)) + Estratto(es,nr(4),pnr(4))
            End If
            If calA(2) = 2 Then
                nu1(2) = Differenza(Estratto(es,nr(3),pnr(3)),Estratto(es,nr(4),pnr(4)))
            End If
            If calA(3) = 1 Then
                nu1(3) = Estratto(es,nr(5),pnr(5)) + Estratto(es,nr(6),pnr(6))
            End If
            If calA(3) = 2 Then
                nu1(3) = Differenza(Estratto(es,nr(5),pnr(5)),Estratto(es,nr(6),pnr(6)))
            End If
            If calA(4) = 1 Then
                nu1(4) = Estratto(es,nr(7),pnr(7)) + Estratto(es,nr(8),pnr(8))
            End If
            If calA(4) = 2 Then
                nu1(4) = Differenza(Estratto(es,nr(7),pnr(7)),Estratto(es,nr(8),pnr(8)))
            End If
            If calA(5) = 1 Then
                nu1(5) = Estratto(es,nr(9),pnr(9)) + Estratto(es,nr(10),pnr(10))
            End If
            If calA(5) = 2 Then
                nu1(5) = Differenza(Estratto(es,nr(9),pnr(9)),Estratto(es,nr(10),pnr(10)))
            End If
            '--------------------
            If calB(1) = 1 Then
                num1(1) = Fuori90(nu1(1) + som1(1))
            End If
            If calB(1) = 2 Then
                num1(1) = Differenza(nu1(1),som1(1))
            End If
            If calB(2) = 1 Then
                num1(2) = Fuori90(nu1(2) + som1(2))
            End If
            If calB(2) = 2 Then
                num1(2) = Differenza(nu1(2),som1(2))
            End If
            If calB(3) = 1 Then
                num1(3) = Fuori90(nu1(3) + som1(3))
            End If
            If calB(3) = 2 Then
                num1(3) = Differenza(nu1(3),som1(3))
            End If
            If calB(4) = 1 Then
                num1(4) = Fuori90(nu1(4) + som1(4))
            End If
            If calB(4) = 2 Then
                num1(4) = Differenza(nu1(4),som1(4))
            End If
            If calB(5) = 1 Then
                num1(5) = Fuori90(nu1(5) + som1(5))
            End If
            If calB(5) = 2 Then
                num1(5) = Differenza(nu1(5),som1(5))
            End If
            co = co + 1
            Scrivi String(100,"=") & " Caso n°" & co,1
            ImpostaGiocata 1,num1,ruote,poste,Clp
            Gioca es,,,1
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" *** Costruttore *** Listed By Lanfranco60 *** "),1,3,0
    ScriviResoconto
End Sub

Cerca

Cerca

X Nicotina costruttore sommativo

Lanfranco60

Super Member >GOLD<

nicotina

Super Member >PLATINUM<

Lanfranco60

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi