-
.
Salve e complimenti per questo stupendo forum, vorrei fare richiesta per un listato di un metodo interessante sulla ruota di Bari formato da una ambata e un solo ambo secco questa la procedura: Ambata :terzo estratto di Cagliari+primo estratto di
nazionale+4. Abbinamento ambo:quarto estratto di Napoli
+secondo estratto di nazionale+19.Grazie mille. -
.
Controlla se è giusto....
CiauzSPOILER (clicca per visualizzare)'https://illottodisean69.forumfree.it/?t=68058887#lastpost
Sub main()
Dim r(10)
Dim r1(10)
Dim aa(10)
Dim posta(5),poste(2)
posta(1)=1
poste(2)=1
r(1)=1
r1(1)=11
k=13
y=2
For n=8555 To EstrazioneFin
If IndiceMensile(n)=1 Then
aa(1)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
aa(2)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
EliminaRipetuti aa
ImpostaGiocata 1,aa,r,posta,k,y
aa(1)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
aa(2)=Fuori90(Estratto(n,6,4)+Estratto(n,12,2)+19)
EliminaRipetuti aa
ImpostaGiocata 2,aa,r,poste,k,y
For a=1 To 2
For b=1 To 2
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
End if
Next
ColoreTesto 2
Scrivi String(70,"=")&"listato by DjNomade ",1
ColoreTesto 0
ScriviResoconto
End Sub
Edited by DjNomade - 2/2/2014, 01:31. -
.
Gentilissimo si e giusto, ti chiedo una cortesia perchè non lo indicato prima, vorrei che il calcolo lo facesse ad ogni prima estrazione mensile se puoi modificarlo, grazie mille. . -
.
Riprendi quello sopra l'ho modificato...
Notte!!!!!. -
.
Grazie mille perfetto !! . -
.
Grazie anche da parte mia DJNomade,sempre gentilissimo.. . -
pippotass.
User deleted
Scusate sono un nuovo iscritto di questo forum gentilmente ho un metodo sommativo che sembra buono soltanto che non sono capace di fare il listato qualcuno di voi me lo puo sviluppare descrivo il procedimento da fare primi tre estatti ruota di BA esempio estrazione del 22/5/2014primi 3 estratti (41)(60)(14) Sottrarre il 90 da ogni numero e viene 49.30.76. dopo questa operazione sommare il 41+60=101 sottrarre -90=11
sommare il 41+14=55
sommare il 60+14=74
risultato dei 9 numeri da mettere in gioco per ambo terno quaterna su GE;MI;NA;PA;RO;TO;VE:
(41.60.14.49.30.76.11.55.74.) spero di avermi fatto capire .Comunque il gioco delle ruote e a scelta del giocatore . Ringrazio tutti coloro che mi vogliono aiutare il programma che ho per i listati e L8.06 ringrazio nuovamente e rimango in attesa di un V. Regalo graditissimo PIPPO. -
.
Se non ti riporta con l'esempio che hai fatto è perche' il terzo estratto bari non è 14 ma 12
controlla questo
CiauzSPOILER (clicca per visualizzare)'https://illottodisean69.forumfree.it/?t=68058887#lastpost
Sub main()
Dim r(10)
Dim aa(10)
Dim posta(5),poste(5)
poste(2)=5.4
poste(3)=4
poste(4)=.5
poste(5)=.1
r(1)=4
r(2)=5
r(3)=6
r(4)=7
r(5)=8
r(6)=9
r(7)=10
k=13
y=5
For n=8805 To EstrazioneFin
'If IndiceMensile(n)=1 Then
a1=90-Estratto(n,1,1)
a2=90-Estratto(n,1,2)
a3=90-Estratto(n,1,3)
a4=Fuori90(Estratto(n,1,1)+Estratto(n,1,2))
a5=Fuori90(Estratto(n,1,1)+Estratto(n,1,3))
a6=Fuori90(Estratto(n,1,2)+Estratto(n,1,3))
aa(1)=Estratto(n,1,1)
aa(2)=Estratto(n,1,2)
aa(3)=Estratto(n,1,3)
aa(4)=a1
aa(5)=a2
aa(6)=a3
aa(7)=a4
aa(8)=a5
aa(9)=a6
EliminaRipetuti aa
ImpostaGiocata 1,aa,r,poste,k,y
Gioca n
Next
ColoreTesto 2
Scrivi String(70,"=")&"listato by DjNomade ",1
ColoreTesto 0
ScriviResoconto
End Sub. -
pippotass.
User deleted
Ciao Seam69
ti ringrazio tantissimo per il listato inviatomi comunque sul programma L8 non mi gira forse mi sono sbagliato con la sigla del programma e L8. 6.0 . Comunque l'ho fatto girare sul programma di spaziometria ti sono molto grato di quanto hai fatto e ti ringrazio nuovamente ciao Pippotass. -
.Ciao Seam69
ti ringrazio tantissimo per il listato inviatomi comunque sul programma L8 non mi gira forse mi sono sbagliato con la sigla del programma e L8. 6.0 . Comunque l'ho fatto girare sul programma di spaziometria ti sono molto grato di quanto hai fatto e ti ringrazio nuovamente ciao Pippotass
grazie a te,ma devi ringraziare soprattutto Djnomade,sempre gentilissimo..contento che hai risolto....