Chi può aiutarmi con i listati

[Roby]

Ciao a tutti, c'è in mezzo a noi qualcuno in grado di aiutarmi a creare un listato che possa mettere in gioco una previsione alla prima del mese(il primo di Bari + il quinto di Bari) metterne unaltra alla seconda del mese(il primo di Bari + il primo di Cagliari) e un'altra alla terza del mese (il terzo di Bari + il terzo di Cagliari) unendo i numeri delle previsioni in un'unica previsione e portarli avanti per le estrazioni desiderate? HO tentato in tutti i modi ma inutilmente.

rodolfo

 

[domenicogian]

Ciao , io credo che ogni metodo vada giocato dall' estrazione di ricavo credo che non si possano unire come dici tu.

Saluti Mimmo

 

[domenicogian]

Ciao , io credo che ogni metodo vada giocato dall' estrazione di ricavo credo che non si possano unire come dici tu.

Saluti Mimmo

 

[gianni_d]

Lo puoi fare, ma devi fare i conteggi alla terza estrazione (n=3), fare i conteggi della seconda (n=n-1), e poi quelli della prima (n=n-2) e cominciare la giocata con i 3 numeri dalla quarta (n=4).
Almeno credo.
ciao

 

[gianni_d]

Lo puoi fare, ma devi fare i conteggi alla terza estrazione (n=3), fare i conteggi della seconda (n=n-1), e poi quelli della prima (n=n-2) e cominciare la giocata con i 3 numeri dalla quarta (n=4).
Almeno credo.
ciao

 

[domenicogian]

QUESTI SONO I METODI UNO PER LA 1ª, UNO X LA 2ª, UNO X LA 3ª;
MA COME TI DICEVO IO NON SO UNIRLI.

----------------------------------------------------------------
Sub main()
'1ª DEL MESE
'1° BA + 5°BA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1
For n=7000 To EstrazioneFin
If IndiceMensile(n)=1 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
--------------------------------------------------------------
Sub main()
'2ª DEL MESE
'1° BA + 5° CA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=2 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------
Sub main()
'3ª DEL MESE
'3°BA + 3°CA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=3 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------

Saluti Mimmo

 

[domenicogian]

QUESTI SONO I METODI UNO PER LA 1ª, UNO X LA 2ª, UNO X LA 3ª;
MA COME TI DICEVO IO NON SO UNIRLI.

----------------------------------------------------------------
Sub main()
'1ª DEL MESE
'1° BA + 5°BA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1
For n=7000 To EstrazioneFin
If IndiceMensile(n)=1 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
--------------------------------------------------------------
Sub main()
'2ª DEL MESE
'1° BA + 5° CA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=2 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------
Sub main()
'3ª DEL MESE
'3°BA + 3°CA 

Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=3 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------

Saluti Mimmo

 

[gianni_d]

Adesso??????????

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1
For n=7000 To EstrazioneFin
If IndiceMensile=3 Then
numeri1(1)=Fuori90(Estratto(n,1,3)+Estratto(n,2,3)) '3ª DEL MESE '3°BA + 3°CA
numeri1(2)=Fuori90(Estratto(n-1,1,1)+Estratto(n-1,2,5)) '2ª DEL MESE '1° BA + 5° CA
numeri1(3)=Fuori90(Estratto(n-2,1,1)+Estratto(n-2,1,5)) '1ª DEL MESE '1° BA + 5°BA
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[gianni_d]

Adesso??????????

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1
For n=7000 To EstrazioneFin
If IndiceMensile=3 Then
numeri1(1)=Fuori90(Estratto(n,1,3)+Estratto(n,2,3)) '3ª DEL MESE '3°BA + 3°CA
numeri1(2)=Fuori90(Estratto(n-1,1,1)+Estratto(n-1,2,5)) '2ª DEL MESE '1° BA + 5° CA
numeri1(3)=Fuori90(Estratto(n-2,1,1)+Estratto(n-2,1,5)) '1ª DEL MESE '1° BA + 5°BA
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[domenicogian]

bravo

Saluti Mimmo

 

[domenicogian]

bravo

Saluti Mimmo

 

[Enplein]

.... per chiarezza, ho inserito alcune righe al listato postato.

Ciao, Enplein.

Sub main() 
'1ª DEL MESE 
'1° BA + 5°BA 
'2ª DEL MESE 
'1° BA + 5° CA 
'3ª DEL MESE 
'3°BA + 3°CA 
'---------------
Dim ruote(10) 
Dim numeri(3) 
Dim posta(2) 
posta(1)=1 
posta(2)=1 
ruote(1)=BA_ 
For es=7000 To EstrazioneFin 
If IndiceMensile(es)=1 Then 
a=Estratto(es,1,1)
b=Estratto(es,1,5)
c=Estratto(es+1,1,1)
d=Estratto(es+1,2,1)
e=Estratto(es+2,1,3)
f=Estratto(es+2,2,3)
numeri(1)=Fuori90(a+b) 
numeri(2)=Fuori90(c+d)
numeri(3)=Fuori90(e+f)
Scrivi
Scrivi DataEstrazione(es)&" 1° BA "& Format2(a)&" + 5° BA " & Format2(b)
Scrivi DataEstrazione(es+1)&" 1° BA "& Format2(c)&" + 1° CA " & Format2(d)
Scrivi DataEstrazione(es+2)&" 3° BA "& Format2(e)&" + 3° CA " & Format2(f)
ImpostaGiocata 1,numeri,ruote,posta,10,2 
Gioca es 
End If 
Next 
ScriviResoconto 
End Sub

 

[Enplein]

.... per chiarezza, ho inserito alcune righe al listato postato.

Ciao, Enplein.

Sub main() 
'1ª DEL MESE 
'1° BA + 5°BA 
'2ª DEL MESE 
'1° BA + 5° CA 
'3ª DEL MESE 
'3°BA + 3°CA 
'---------------
Dim ruote(10) 
Dim numeri(3) 
Dim posta(2) 
posta(1)=1 
posta(2)=1 
ruote(1)=BA_ 
For es=7000 To EstrazioneFin 
If IndiceMensile(es)=1 Then 
a=Estratto(es,1,1)
b=Estratto(es,1,5)
c=Estratto(es+1,1,1)
d=Estratto(es+1,2,1)
e=Estratto(es+2,1,3)
f=Estratto(es+2,2,3)
numeri(1)=Fuori90(a+b) 
numeri(2)=Fuori90(c+d)
numeri(3)=Fuori90(e+f)
Scrivi
Scrivi DataEstrazione(es)&" 1° BA "& Format2(a)&" + 5° BA " & Format2(b)
Scrivi DataEstrazione(es+1)&" 1° BA "& Format2(c)&" + 1° CA " & Format2(d)
Scrivi DataEstrazione(es+2)&" 3° BA "& Format2(e)&" + 3° CA " & Format2(f)
ImpostaGiocata 1,numeri,ruote,posta,10,2 
Gioca es 
End If 
Next 
ScriviResoconto 
End Sub

 

[rudivall]

Fantastici grazie mille ora so' che è una cosa fattibile non vorrei sembrare sfacciato e approfittare della vostra disponibilità, ma posso chiedervi un'altro favore?
Se prendo come prima previsione alla prima estrazione del mese il primo di Bari + il quinto di Bari il suo vertibile e lo metto in gioco per 12 colpi, poi seconda previsione alla quarta estrazione del mese prendo il primo di Bari + il primo di Cagliari il suo vertibile e lo metto in gioco per otto colpi, quindi ora i numeri in gioco diventerebbero quattro, poi terza previsione alla nona esrazione del mese prendo il quarto estratto di Bari + il quarto estratto di Cagliari + 20 e lo metto in gioco per tre colpi ora i numeri sono cinque e chiudo la previsione entro il mese, quindi dalla prima del mese successivo ricominciano i calcoli,non so se è una cosa che si puo' fare , ma se fosse possibile si potrebbero trovare metodi con un buon introito monetario, grazie a chi puo' provare questa mia richiesta.

rodolfo

 

[rudivall]

Fantastici grazie mille ora so' che è una cosa fattibile non vorrei sembrare sfacciato e approfittare della vostra disponibilità, ma posso chiedervi un'altro favore?
Se prendo come prima previsione alla prima estrazione del mese il primo di Bari + il quinto di Bari il suo vertibile e lo metto in gioco per 12 colpi, poi seconda previsione alla quarta estrazione del mese prendo il primo di Bari + il primo di Cagliari il suo vertibile e lo metto in gioco per otto colpi, quindi ora i numeri in gioco diventerebbero quattro, poi terza previsione alla nona esrazione del mese prendo il quarto estratto di Bari + il quarto estratto di Cagliari + 20 e lo metto in gioco per tre colpi ora i numeri sono cinque e chiudo la previsione entro il mese, quindi dalla prima del mese successivo ricominciano i calcoli,non so se è una cosa che si puo' fare , ma se fosse possibile si potrebbero trovare metodi con un buon introito monetario, grazie a chi puo' provare questa mia richiesta.

rodolfo

 

[gianni_d]

Forse tra tutti non siamo stati chiari, provo a rispiegarti.
Con L8 devi andare all'ultima estrazione che Ti serve ( la n. 9 ), calcolare la previsione, andare indietro alla seconda estrazione che ti serve ( la n. 4), calcolare la previsione, andare indietro alla prima e calcolare anche questa previsione e poi metto in gioco il tutto.
Si ma sono alla estrazione di calcolo n.9 e quindi gioco x i soli 3 colpi finali, 10, 11 e 12.
Chiaro adesso?????????
Il file come lo vuoi Tu si può quindi fare ma Ti dice solo quali vincite hai perso nei colpi di gioco corrispondenti alle estrazioni n. 2, 3, 4 per la previzione dalla prima, nei colpi corrispondenti alle estrazioni 5,6,7,8,9 per le previzioni che nascono dall'unione della prima previzione e della seconda ( quella dalla n. 4) e Ti resta da giocare la previsione che nasce dall'unione della prima, dalla seconda e dalla terza ( quella che calcoli alla 9 ) per i colpi rimanenti fino alla fine del mese a per i colpi che vuoi impostare.
Che casino di spiegazione!!!!!!!!!!!!! vergognoso !!!!!!!!!!!!!!
Non sò se sono riuscito a spiegarmi.
Ciao

 

[gianni_d]

Forse tra tutti non siamo stati chiari, provo a rispiegarti.
Con L8 devi andare all'ultima estrazione che Ti serve ( la n. 9 ), calcolare la previsione, andare indietro alla seconda estrazione che ti serve ( la n. 4), calcolare la previsione, andare indietro alla prima e calcolare anche questa previsione e poi metto in gioco il tutto.
Si ma sono alla estrazione di calcolo n.9 e quindi gioco x i soli 3 colpi finali, 10, 11 e 12.
Chiaro adesso?????????
Il file come lo vuoi Tu si può quindi fare ma Ti dice solo quali vincite hai perso nei colpi di gioco corrispondenti alle estrazioni n. 2, 3, 4 per la previzione dalla prima, nei colpi corrispondenti alle estrazioni 5,6,7,8,9 per le previzioni che nascono dall'unione della prima previzione e della seconda ( quella dalla n. 4) e Ti resta da giocare la previsione che nasce dall'unione della prima, dalla seconda e dalla terza ( quella che calcoli alla 9 ) per i colpi rimanenti fino alla fine del mese a per i colpi che vuoi impostare.
Che casino di spiegazione!!!!!!!!!!!!! vergognoso !!!!!!!!!!!!!!
Non sò se sono riuscito a spiegarmi.
Ciao

 

[franca46]

nel listato alla 2° del mese

numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))

questa riga non trova il 1° ba + 1° di Ca

nel listato alla 3° del mese

numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))

questa riga non trova il 3° Ba + 3° Ca

i numeri non combaciano

ciao

 

[franca46]

nel listato alla 2° del mese

numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))

questa riga non trova il 1° ba + 1° di Ca

nel listato alla 3° del mese

numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))

questa riga non trova il 3° Ba + 3° Ca

i numeri non combaciano

ciao