L
LuigiB
Guest
eh ... male !!! gli aggiornamenti servono ...
- Stato
imported_n/a
Advanced Premium Member
ma se a me non funziona nulla eppure li faccio..
mahaa[B)]
mahaa[B)]
L
LuigiB
Guest
dipende dal fatto che il programma è dotato di un anima intelligente e siccome ti ha riconosciuto ti punisce 
imported_n/a
Advanced Premium Member
quote:Originally posted by LuigiB
dipende dal fatto che il programma è dotato di un anima intelligente e siccome ti ha riconosciuto ti punisce
X LUIGI
Mi puoi spiegare come posso intervenire per andare avanti con la possibilità di selezionare (con scegli opzioni menù)il tipo di calcolo da fare per la verifica del metodo sotto scriptato ?
'1° Script di Claudio su base e Rubino x "Dalla coppia alla doppia ambata"
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim aVoci(7) ' Inserire il tot. casi+1
Dim k(7)
Dim r
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,2000) ' 2000
ruote(1) = ScegliRuota
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,3))
ruote(2) = ScegliRuota
r2 = ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,1)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,5)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' serve a quanto richiesto
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If
posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno
Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata Edito da Rubino"
Scrivi " Metodologia e modifiche di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi
ini = EstrazioneFin - meno
For es = ini To EstrazioneFin
AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione
a = Estratto(es,r1,p)
a1 = Fuori90(a + 30)
a2 = Fuori90(a + 60)
a3 = Fuori90(a + 45)
b1 = Fuori90(b + 30)
b2 = Fuori90(b + 60)
b3 = Fuori90(b + 45)
ok = 0
b = Estratto(es,r2,p2)
If a = b Then '1 Or b = a2 Then
ok = ok + 1
'Scrivi "============================================================================================================"
Scrivi String(96,"=") & " Caso n°" & cg +1
ok = ok + 1
'Dim aVoci(7) ' Inserire il tot. casi+1
'aVoci(0)= "Somma elementi"
'aVoci(1)= "Compl/90 somma"
'aVoci(2)= "Diam/45 somma"
'aVoci(3)= "Diam/45 del 1°" '
'aVoci(4)= "Mancante terzina"
'aVoci(5)= "Diam/45 del 1°"
'aVoci(6)= "Diam/45 del 2°"
'aVoci(6)= "Ripetiz 1° Elem "
'aVoci(7)= "Ripetiz 2° Elem "
'aVoci(8)= "Diam/45 del 1°"
'Dim k(7)
' Dim r
'
' preparo un array per le voci
For k = 0 To UBound (aVoci)
aVoci(k) = " " & k
'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu (aVoci,0," ELENCO ALGORITMI ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
c = Fuori90(a + b )
'MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna -1
Case 0
c = 90 - Fuori90(a + b)
Case 1
c = Fuori90(a + b + 45 )
Case 2
c = Diametrale (a )
Case 3
c = Diametrale ( b )
Case 4
c = 90 - a
Case 5
c = 90 - b
End Select
'c = Fuori90(a + b)
Scrivi "Trovato --> " & p & " " & NomeRuota(r1) & " " & a & " e " & p2 & " " & NomeRuota(r2) & " " & b & " <--
Mi puoi spiegare come posso intervenire per andare avanti con la possibilità di selezionare (con scegli opzioni menù)il tipo di calcolo da fare per la verifica del metodo sotto scriptato ?
'1° Script di Claudio su base e Rubino x "Dalla coppia alla doppia ambata"
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim aVoci(7) ' Inserire il tot. casi+1
Dim k(7)
Dim r
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,2000) ' 2000
ruote(1) = ScegliRuota
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,3))
ruote(2) = ScegliRuota
r2 = ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,1)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,5)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' serve a quanto richiesto
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If
posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno
Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata Edito da Rubino"
Scrivi " Metodologia e modifiche di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi
ini = EstrazioneFin - meno
For es = ini To EstrazioneFin
AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione
a = Estratto(es,r1,p)
a1 = Fuori90(a + 30)
a2 = Fuori90(a + 60)
a3 = Fuori90(a + 45)
b1 = Fuori90(b + 30)
b2 = Fuori90(b + 60)
b3 = Fuori90(b + 45)
ok = 0
b = Estratto(es,r2,p2)
If a = b Then '1 Or b = a2 Then
ok = ok + 1
'Scrivi "============================================================================================================"
Scrivi String(96,"=") & " Caso n°" & cg +1
ok = ok + 1
'Dim aVoci(7) ' Inserire il tot. casi+1
'aVoci(0)= "Somma elementi"
'aVoci(1)= "Compl/90 somma"
'aVoci(2)= "Diam/45 somma"
'aVoci(3)= "Diam/45 del 1°" '
'aVoci(4)= "Mancante terzina"
'aVoci(5)= "Diam/45 del 1°"
'aVoci(6)= "Diam/45 del 2°"
'aVoci(6)= "Ripetiz 1° Elem "
'aVoci(7)= "Ripetiz 2° Elem "
'aVoci(8)= "Diam/45 del 1°"
'Dim k(7)
' Dim r
'
' preparo un array per le voci
For k = 0 To UBound (aVoci)
aVoci(k) = " " & k
'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu (aVoci,0," ELENCO ALGORITMI ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
c = Fuori90(a + b )
'MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna -1
Case 0
c = 90 - Fuori90(a + b)
Case 1
c = Fuori90(a + b + 45 )
Case 2
c = Diametrale (a )
Case 3
c = Diametrale ( b )
Case 4
c = 90 - a
Case 5
c = 90 - b
End Select
'c = Fuori90(a + b)
Scrivi "Trovato --> " & p & " " & NomeRuota(r1) & " " & a & " e " & p2 & " " & NomeRuota(r2) & " " & b & " <--
L
LuigiB
Guest
Cla come si fa si capisce dagli esempi ..che c'è che non ti è chiaro ?
imported_n/a
Advanced Premium Member
credevo che era un sito diverso dagli altri
ma vedo che qui non cè affatto collaborazione
un programma non utilizzabile
il programmatore non propenso ad risolvere il problema
spirito umoristico che non capisco
sembra una silo nido
con tanti bambini
cerchero' altrove
l'armonia virtuale di una comunità lotto
perchè qui oltre essere assente non si ha la capacità
a trovarla.
Disinstallo il programma anche perchè non serve a nulla.
Addio.
n.b.
ogni commento successivo risparmiatevelo che nemmeno lo leggo
se poi diverte ed appaga il vostro inconscio soddisfando la vostra anima
allora vi prego postate rispondete a questa mia replica assolutamente.
ma vedo che qui non cè affatto collaborazione
un programma non utilizzabile
il programmatore non propenso ad risolvere il problema
spirito umoristico che non capisco
sembra una silo nido
con tanti bambini
cerchero' altrove
l'armonia virtuale di una comunità lotto
perchè qui oltre essere assente non si ha la capacità
a trovarla.
Disinstallo il programma anche perchè non serve a nulla.
Addio.
n.b.
ogni commento successivo risparmiatevelo che nemmeno lo leggo
se poi diverte ed appaga il vostro inconscio soddisfando la vostra anima
allora vi prego postate rispondete a questa mia replica assolutamente.
L
LuigiB
Guest
Ecco bravo disinstallalo e usa il tuo ! Ciao Ciao
elephantbig
Advanced Member >PLATINUM<
Addio DUMBO,che peccato che ci lasci !!!!
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.
PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.
PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche
APPROVO, MA non diamogli occasione di farlo tornare sui suoi passi.quote:Originally posted by elephantbig
Addio DUMBO,che peccato che ci lasci !!!!
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.
PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche
claudio
quote:Originally posted by claudio8
APPROVO, MA non diamogli occasione di farlo tornare sui suoi passi.quote:Originally posted by elephantbig
Addio DUMBO,che peccato che ci lasci !!!!
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.
PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche
claudio
torneraaa torneraa l'erba cattiva cresce sempre
pico2005
Super Member >GOLD<
Claudio è quello che cercavi? Scusa la 2a correzzione ma ne occorre qualcun'altra a più tardi
Codice:
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim ini
Dim aVoci(7) ' Inserire il tot. casi+1
Dim k(7)
Dim r
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,200)
ruote(1) = ScegliRuota
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,3))
ruote(2) = ScegliRuota
r2 = ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,1)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,5)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' serve a quanto richiesto
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If
'aVoci(6)= "Ripetiz 1° Elem "
'aVoci(7)= "Ripetiz 2° Elem "
'aVoci(8)= "Diam/45 del 1°"
r = InputBox("Somma elementi = 0" & Chr(13) & "Compl/90 somma = 1" & Chr(13) & "Diam/45 somma = 2" & Chr(13) & "Compl/90 del 2° = 3" & Chr(13) & "Compl/90 del 1° = 4" & Chr(13) & "Diam/45 del 1° = 5" & Chr(13) & "Diam/45 del 2° = 6" & Chr(13) & Chr(13) & "Quale opzione scegli? ",,0)
posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno
Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata Edito da Rubino"
Scrivi " Metodologia e modifiche di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi
ini = EstrazioneFin - meno
For es = ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin,es 'disegna barra progressione azzera il numero di pronostici per questa estrazione
a = Estratto(es,r1,p)
a1 = Fuori90(a + 30)
a2 = Fuori90(a + 60)
a3 = Fuori90(a + 45)
b1 = Fuori90(b + 30)
b2 = Fuori90(b + 60)
b3 = Fuori90(b + 45)
ok = 0
b = Estratto(es,r2,p2)
Scelta
If a <> b Then '1 Or b = a2 Then
ok = ok + 1
'Scrivi "============================================================================================================"
Scrivi String(96,"=") & " Caso n°" & cg + 1
ok = ok + 1
'c = Fuori90(a + b)
Scrivi "Trovato --> " & p & " " & NomeRuota(r1) & " " & a & " e " & p2 & " " & NomeRuota(r2) & " " & b & " <-- Numeri in gioco per Ambate " & c & " " & Fuori90(c + 30)
Scrivi" ----------------------------------------------------------------------------------------------------------"
nm(1) = c
nm(2) = Fuori90(c + 30)
End If
If ok >= 1 Then
For z = - 1 To colpi
Scrivi " | " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & " | " & " | " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2) & " | " '& "esito estrazione n.del.." & es + z & "-" & DataEstrazione(es + z,1)
Next
End If
If elenco = 0 Then
If ok >= 1 Then
cg = cg + 1 ' che cosa è il CONTATORE GIOCATE ???
ImpostaGiocata cg,nm,ruote,posta,colpi,stpgiocata ' 0)la giocata termina alla fine dei colpi - 1)la giocata termina alla 1a uscita dell'esito
Gioca es 'con ",True" vengono elencate per tutti i csi solo le estrazioni che sono positive
End If
End If
Next
ScriviResoconto
End Sub
Function Scelta
Select Case r
Case 0
Call zero
'MsgBoxx pico2005
Grazie hai perfettamente capito l'esigenza, però io volevo usare una funzione che ha inserito Luigi.
che ho inserito in questo listato.
'1° Script di Claudio su base e Rubino x "Dalla coppia UGUALE alla doppia ambata"
NON VI SPAVENTATE SONO ALLE PRIME ARMI
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim aVoci(20) ' Inserire il tot. casi+1
Dim k '
Dim r
' NB: elementi uguali
aVoci(0) = " "
aVoci(1) = "Comp./ 90 elem "
aVoci(2) = "Diametr/45 1°"
aVoci(3) = "Diam./decina 1°" 'DiametraleD
aVoci(4) = "Somma gli elementi" 'Doppio
aVoci(5) = "Comp./90 della somma"
aVoci(6) = "Diametr/45 di somma" 'Diametrale
aVoci(7) = "Diam/decina somma" '
aVoci(8) = "Diam/45 del compl/somma" '
aVoci(9) = "Diam/decina compl/somma"
aVoci(10) = "1° elemento + 1 "
'aVoci(4) = "Mancante terzina" ' If(Fuori90(a - b) = 30 Then
'c= Fuori90(a - b)
'ElseIf c=Fuori90(A+60)
'c = If(Fuori90(a-b)=30;Fuori90(A+30) Then Fuori90(A+60) trova il mancante in excel
'aVoci(..) = "USCIRE"
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
'ruote(1) = ScegliRuota esclusa perchè poco pratica
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
'ruote(2) = ScegliRuota
r2 = ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If
' preparo un array per le voci
For k = 0 To UBound(aVoci)
'aVoci(k) = " " & k
'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
Case 0
Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata + 30 Edito da Rubino"
Scrivi " Metodo del " & aVoci(r) & " di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi
posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno
ini = EstrazioneFin - meno
For es = ini To EstrazioneFin
AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione
a = Estratto(es,r1,p)
ok = 0
b = Estratto(es,r2,p2)
If a = b Then '1 Or b = a2 Then
ok = ok + 1
c = a
Scrivi String(96,"=") & " Caso n°" & cg + 1
nm(1) = c
nm(2) = Fuori90(c + 30)
Scrivi "Trovato --> " & p & "° " & NomeRuota(r1) & " " & a & " e " & p2 & "° " & N
Grazie hai perfettamente capito l'esigenza, però io volevo usare una funzione che ha inserito Luigi.
che ho inserito in questo listato.
'1° Script di Claudio su base e Rubino x "Dalla coppia UGUALE alla doppia ambata"
NON VI SPAVENTATE SONO ALLE PRIME ARMI
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim aVoci(20) ' Inserire il tot. casi+1
Dim k '
Dim r
' NB: elementi uguali
aVoci(0) = " "
aVoci(1) = "Comp./ 90 elem "
aVoci(2) = "Diametr/45 1°"
aVoci(3) = "Diam./decina 1°" 'DiametraleD
aVoci(4) = "Somma gli elementi" 'Doppio
aVoci(5) = "Comp./90 della somma"
aVoci(6) = "Diametr/45 di somma" 'Diametrale
aVoci(7) = "Diam/decina somma" '
aVoci(8) = "Diam/45 del compl/somma" '
aVoci(9) = "Diam/decina compl/somma"
aVoci(10) = "1° elemento + 1 "
'aVoci(4) = "Mancante terzina" ' If(Fuori90(a - b) = 30 Then
'c= Fuori90(a - b)
'ElseIf c=Fuori90(A+60)
'c = If(Fuori90(a-b)=30;Fuori90(A+30) Then Fuori90(A+60) trova il mancante in excel
'aVoci(..) = "USCIRE"
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
'ruote(1) = ScegliRuota esclusa perchè poco pratica
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
'ruote(2) = ScegliRuota
r2 = ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If
' preparo un array per le voci
For k = 0 To UBound(aVoci)
'aVoci(k) = " " & k
'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
Case 0
Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata + 30 Edito da Rubino"
Scrivi " Metodo del " & aVoci(r) & " di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi
posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno
ini = EstrazioneFin - meno
For es = ini To EstrazioneFin
AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione
a = Estratto(es,r1,p)
ok = 0
b = Estratto(es,r2,p2)
If a = b Then '1 Or b = a2 Then
ok = ok + 1
c = a
Scrivi String(96,"=") & " Caso n°" & cg + 1
nm(1) = c
nm(2) = Fuori90(c + 30)
Scrivi "Trovato --> " & p & "° " & NomeRuota(r1) & " " & a & " e " & p2 & "° " & N
X Pico
Riusciresti a fare uno script, o utilizzare quello da me postato che realizzi una matrice o archivio avente il seguente schema:
--------------------------------------------------------------------
ambata riveniente da quanto espresso nel post precedente 84 o 85
--------------------------------------------------------------------
ruota To ruota VE - concorso 1/2011
estrazioni precedenti rilevamento |67 12 80 62 03 | 45 57 37 59 66|
estrazioni rilevamento ................|59 19 63 84 40 | 14 62 84 06 87|
1a estrazioni con esito ambata ....|69 17 84 37 07|
eventuali 2a con esito di ambata ..|85 89 17 65 37|
eventuali 3a con esito di ambata
---------------------------------------------------------------------
che comprenda tutti i casi che vengono rilevati nel range di analisi.
Da esso occorrerebbe ricavare dei "fissi o algoritmi" (metodo sommativi) che sommati all'ambata o a qualsiasi elemento esistente nell'estrazione di rilevamento diano abbinamenti x ambo con detreminate % di esito.
Sostanzialmente questo procedimento esiste in spaziometria però è esclusivamente riferito ai "fissi" sommabili solo agli (dal 1° al 5°) estratti della specifica estrazione di rilevamento ed a rilevamenti di eventi su 1 sola ruota.
In attesa di una tua risposta ti saluto.
claudio
Riusciresti a fare uno script, o utilizzare quello da me postato che realizzi una matrice o archivio avente il seguente schema:
--------------------------------------------------------------------
ambata riveniente da quanto espresso nel post precedente 84 o 85
--------------------------------------------------------------------
ruota To ruota VE - concorso 1/2011
estrazioni precedenti rilevamento |67 12 80 62 03 | 45 57 37 59 66|
estrazioni rilevamento ................|59 19 63 84 40 | 14 62 84 06 87|
1a estrazioni con esito ambata ....|69 17 84 37 07|
eventuali 2a con esito di ambata ..|85 89 17 65 37|
eventuali 3a con esito di ambata
---------------------------------------------------------------------
che comprenda tutti i casi che vengono rilevati nel range di analisi.
Da esso occorrerebbe ricavare dei "fissi o algoritmi" (metodo sommativi) che sommati all'ambata o a qualsiasi elemento esistente nell'estrazione di rilevamento diano abbinamenti x ambo con detreminate % di esito.
Sostanzialmente questo procedimento esiste in spaziometria però è esclusivamente riferito ai "fissi" sommabili solo agli (dal 1° al 5°) estratti della specifica estrazione di rilevamento ed a rilevamenti di eventi su 1 sola ruota.
In attesa di una tua risposta ti saluto.
claudio
pico2005
Super Member >GOLD<
Tutto si può, ma per lavorare con tranquillità e sicurezza di risultati, cioè che non sia un semplice esercizio di matematica, occorre conoscere la logica di trattamento dei dati e gli scopi che si prefigge il listato.
Oppure bisogna addentrarsi in una analisi al fine di sviscerarne tutti gli aspetti che il listato deve possedere.
Certo, a prescindere dall'indentazione, il listato che presenti, ha una logica ben precisa e matura, quello che chiedi e di analizzare questa logica e da questa estrapolare un esercizio matematico, ......ma ai fini del lotto?
Ti ringrazio della fiducia .....con un poco di tempo ci proverò....come esercizio di pensiero.
Ciao
[:I]
Oppure bisogna addentrarsi in una analisi al fine di sviscerarne tutti gli aspetti che il listato deve possedere.
Certo, a prescindere dall'indentazione, il listato che presenti, ha una logica ben precisa e matura, quello che chiedi e di analizzare questa logica e da questa estrapolare un esercizio matematico, ......ma ai fini del lotto?
Ti ringrazio della fiducia .....con un poco di tempo ci proverò....come esercizio di pensiero.
Ciao
[:I]
L
LuigiB
Guest
claudio Ho preso il tuo listato e l'ho modificato leggermente
a scopo didattico nele senso che non ne ho cambiato il senso ma l'ho reso piu pulito per farti capire qual'è la regola fondamentale :
L'ordine e l'indentatura.
Faccio alcune osservazioni :
1) Dichiara sempre tutte le variabili a tale scopo in testa allo script
usa l'istruzione
che una volta usata impone la dichiarazioen obbigatoria
2) Cerca di distribuire il codice in piu funzoni e procedure
in modo da renderlo piu chiaro e consistente
3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma
4) ho visto una riga
è una svista o un errore concettuale non saprei .. non vuol dire terno
ma che giochi 3 euro su Ambo
ecco infine il tuo listato , ripeto non ne ho modificato la logica l'ho solo normalizzato
A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto cosi l'indentatura rimane e non fai passare la voglia alla gente che vede una confusione totale ...
a scopo didattico nele senso che non ne ho cambiato il senso ma l'ho reso piu pulito per farti capire qual'è la regola fondamentale :
L'ordine e l'indentatura.
Faccio alcune osservazioni :
1) Dichiara sempre tutte le variabili a tale scopo in testa allo script
usa l'istruzione
Codice:
Option Explicitche una volta usata impone la dichiarazioen obbigatoria
2) Cerca di distribuire il codice in piu funzoni e procedure
in modo da renderlo piu chiaro e consistente
3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma
4) ho visto una riga
Codice:
Posta(2) = 3 '3 ternoè una svista o un errore concettuale non saprei .. non vuol dire terno
ma che giochi 3 euro su Ambo
ecco infine il tuo listato , ripeto non ne ho modificato la logica l'ho solo normalizzato
A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto cosi l'indentatura rimane e non fai passare la voglia alla gente che vede una confusione totale ...
Codice:
Option Explicit
Sub Main()
Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim aVoci(10) ' Inserire il tot. casi+1
Dim k,r,r1,r2,p2,colpi,elenco,stpgiocata,Meno,p
' NB: elementi uguali
Call AlimentaArrayVoci(aVoci)
Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
Case 0
Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 1
Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 2
Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 3
Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 4
Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 5
Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 6
Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 7
Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 8
Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 9
Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 10
Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case Else
MsgBox " Indice errato " & r & " -" & aVoci(r)
End Select
End Sub
Sub AlimentaArrayVoci(a)
a(0) = " "
a(1) = "Comp./ 90 elem "
a(2) = "Diametr/45 1°"
a(3) = "Diam./decina 1°" 'DiametraleD
a(4) = "Somma gli elementi" 'Doppio
a(5) = "Comp./90 della somma"
a(6) = "Diametr/45 di somma" 'Diametrale
a(7) = "Diam/decina somma" '
a(8) = "Diam/45 del compl/somma" '
a(9) = "Diam/decina compl/somma"
a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
Ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
r1 = Ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
Ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
r2 = Ruote(2)
p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _x LUIGI,
SONO CONTENTO CHE TU MI DIA DEI SUGGERIMENTI, CHE POSSONO ESSERE DI AUSILIO ANCHE AD ALTRI, ACCETTO VOLENTIERI LE OSSERVAZIONI CHE MI HAI FATTO; IN PARTICOLARE SULL'INDENTATURA E L'ORDINE, HO VISTO SOLO ORA CHE C'E UN TASTO DI INDENT
. AUTOMATICA, PER LA COPIA INVIATA, NON INDENTATA, E' TUTTA COLPA DELLA FRETTA, NON SAREI PROPRIO IN GRADO DI SCRIVERE NIENTE SE NON INDENTO IL TUTTO.
1) BEN VENGA l'Option Explicit
che una volta usata impone la dichiarazioen obbigatoria - OK
'
'2) Cerca di distribuire il codice In piu funzoni e procedure
'In modo da renderlo piu chiaro e consistente - CI PROVERO'
'
'3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma. VA BENE
'
'4) ho visto una riga
'Posta(2) = 3 '3 terno - SI, MI SONO SBAGLIATO A SCRIVERE INTENDEVO DIRE CHE IL 3 in parentesi = terno
'A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto - SI, LO AVEVI GIA DETTO A RUBINO.
GRAZIE,però non ci tormentare con altre versioni.. che barba
CIAO LUIGI..
claudio
SONO CONTENTO CHE TU MI DIA DEI SUGGERIMENTI, CHE POSSONO ESSERE DI AUSILIO ANCHE AD ALTRI, ACCETTO VOLENTIERI LE OSSERVAZIONI CHE MI HAI FATTO; IN PARTICOLARE SULL'INDENTATURA E L'ORDINE, HO VISTO SOLO ORA CHE C'E UN TASTO DI INDENT
. AUTOMATICA, PER LA COPIA INVIATA, NON INDENTATA, E' TUTTA COLPA DELLA FRETTA, NON SAREI PROPRIO IN GRADO DI SCRIVERE NIENTE SE NON INDENTO IL TUTTO.
1) BEN VENGA l'Option Explicit
che una volta usata impone la dichiarazioen obbigatoria - OK
'
'2) Cerca di distribuire il codice In piu funzoni e procedure
'In modo da renderlo piu chiaro e consistente - CI PROVERO'
'
'3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma. VA BENE
'
'4) ho visto una riga
'Posta(2) = 3 '3 terno - SI, MI SONO SBAGLIATO A SCRIVERE INTENDEVO DIRE CHE IL 3 in parentesi = terno
'A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto - SI, LO AVEVI GIA DETTO A RUBINO.
GRAZIE,
però non ci tormentare con altre versioni.. che barba CIAO LUIGI..
claudio
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 10 maggio 2024Bari6966182088Cagliari6852492248Firenze1233806275Genova7510536571Milano8074520812Napoli6710238840Palermo3089689002Roma0641805078Torino7124891806Venezia4145904828Nazionale8915642031Estrazione Simbolotto
Milano
1907091039
