Novità

Max, c' è posta per te

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao Max,
per piacere mi ordini un pochino questo listatino che contempla
l' uscita di un gemello qualsiasi in 3^ o 4^ posizione su Milano ?
grazie anticipatamente e saluti cordiali

lola


Sub main()
Dim ruote(11), r(10)
Dim poste(5)
Dim am(10)
Dim num(10)
poste(1)=0
poste(2)=2


ruote(1)=0
ruote(2)=0
ruote(3)=0
ruote(4)=0
ruote(5)=0
ruote(6)=0
ruote(7)=0
ruote(8)=8
ruote(9)=0
ruote(10)=0
ruote(11)=0


num(1) =CInt(InputBox("Qual' è il Numero Spia?","Numero spia",77))
po =CInt(InputBox("Posizione Estratto Spia?",,3))
r(1) =CInt(InputBox("Ruota di ricerca Numero Spia?","Ruota ricerca",5))
ruote(1)=CInt(InputBox("Qual' è la ruota su cui vuoi giocare?","Ruota di gioco",5))
ruote(2)=CInt(InputBox("Qual' è la ruota su cui vuoi giocare?","Ruota di gioco",6))
c =CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))
rs =InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)



ini= 6670
fin=EstrazioneFin
For es =ini To fin
AvanzamentoElab ini,fin,es
a=0
a=SerieFreq(es,es,num,r,1)
If a>0 Then
co=co+1
Scrivi : ColoreTesto 0 : Scrivi String(75,"¤"),1 : Scrivi " [ sistema 1 spia su 1 ruota gioca su 2 ruote]",1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& NomeRuota(r(1)) &" "& StringaEstratti(es,r(1))&" "&"] sortito numero spia !!! = "&""& Format2(num(1)) &" ",1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 0 : Scrivi "gioca da " &" " &DataEstrazione(es+1,1),1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 0 : Scrivi

am(1)=23
am(2)=16
ImpostaGiocata 1,am,ruote,poste,c,2
am(1)=13
am(2)=17
ImpostaGiocata 2,am,ruote,poste,c,2
am(1)=15
am(2)=19
ImpostaGiocata 3,am,ruote,poste,c,2
am(1)=37
am(2)=9
ImpostaGiocata 4,am,ruote,poste,c,2
am(1)=41
am(2)=14
ImpostaGiocata 5,am,ruote,poste,c,2
am(1)=36
am(2)=63
ImpostaGiocata 6,am,ruote,poste,c,2
am(1)=55
am(2)=60
ImpostaGiocata 7,am,ruote,poste,c,2
am(1)=74
am(2)=78
ImpostaGiocata 8,am,ruote,poste,c,2

Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
End Sub






livia
 
Ciao, prova così:
Codice: 
Sub main()
Dim ruote(2)
Dim poste(2)
Dim n1(2)

poste(2)=3
r=InputBox("Ruota di ricerca","Ruota di ricerca",7)
p=InputBox("Posizione num.","Posizione num.",2)

fin=EstrazioneFin
ini=fin-300
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto (es,r,p)
If Gemello(a) Then

Scrivi String(75,"o"),1 
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=r
c=13
ng=0

n1(1)=23
n1(2)=16
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=13
n1(2)=17
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=15
n1(2)=19
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=37
n1(2)=9
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=41
n1(2)=14
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=36
n1(2)=63
ng=ng+1
ImpostaGiocata ng,n1,am,ruote,poste,c,2
n1(1)=55
n1(2)=60
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=74
n1(2)=78
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2

co=co+1
Gioca es 
End If
Next
scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub

max :)
 
Ciao Max,

grazie mille, va bene anche così.Sei gentilissimo e generoso
cordialità

lola

livia
 
Ciao Max,

il tuo listato va bene così come è stato impostato.
Ho provato ad inserire nuovi pronostici e non gira,
l' impianto è sempre quello, come mai ? Ciao grazie

lola

Sub main()
Dim ruote(2)
Dim poste(2)
Dim n(10)

poste(1)=1
poste(2)=1


r=InputBox("Ruota di ricerca","Ruota di ricerca",1)
p=InputBox("Posizione num.","Posizione num.",3)

fin= ini To Fin
ini= 6670


a = Estratto (n,r,p)
If Gemello(a) Then
co=co+1

Scrivi String(75,"o"),1
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=5
ruote(2)=6
c=13
'----------------------------------------------------------

b1 = Estratto(n,1,1)
b2 = Estratto(n,1,2)
b3 = Estratto(n,1,3)
b4 = Estratto(n,1,4)
b5 = Estratto(n,1,5)

b6 = Diametrale(b1)
b7 = Diametrale(b2)
b8 = Diametrale(b3)
b9 = Diametrale(b4)
b10 = Diametrale(b5)

b11 = Fuori90(b3+b4)
'-------------------------------------------------------------------

n(1)=b11
ImpostaGiocata 1,n,ruote,poste,c,2
n(1)=b11
n(2)=b8
ImpostaGiocata 2,n,ruote,poste,c,2

n(1)=b11
n(2)=b8
ImpostaGiocata 3,n,ruote,poste,c,2

n(1)=b11
n(2)=b8
ImpostaGiocata 4,n,ruote,poste,c,2



Gioca es
End If

scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub



livia
 
Scusami Max la quarta giocata è una terzina formata da
b11 b8 e b9 mi è sfuggita la correzione ciao lola

livia
 
Controlla le differenze

Codice: 
Sub main()
Dim ruote(2)
Dim posta(1),poste(2),post(3)
Dim n1(1),n2(2),n3(2),n4(2),n5(3)

posta(1)=1:poste(2)=1:post(2)=2:post(3)=1

r=InputBox("Ruota di ricerca","Ruota di ricerca",1)
p=InputBox("Posizione num.","Posizione num.",3)

fin=EstrazioneFin
ini=fin-300
For es = ini To fin
AvanzamentoElab ini,fin,es

a = Estratto (es,r,p)
If Gemello(a) Then

co=co+1

Scrivi String(75,"o"),1
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&_
" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=5
ruote(2)=6
c=13

'----------------------------------------------------------

b1 = Estratto(es,1,1)
b2 = Estratto(es,1,2)
b3 = Estratto(es,1,3)
b4 = Estratto(es,1,4)
b5 = Estratto(es,1,5)

b6 = Diametrale(b1)
b7 = Diametrale(b2)
b8 = Diametrale(b3)
b9 = Diametrale(b4)
b10 = Diametrale(b5)

b11 = Fuori90(b3+b4)
'-------------------------------------------------------------------

n1(1)=b11
ImpostaGiocata 1,n1,ruote,posta,c,1
n2(1)=b11
n2(2)=b1
ImpostaGiocata 2,n2,ruote,poste,c,2
n3(1)=b11
n3(2)=b2
ImpostaGiocata 3,n3,ruote,poste,c,2
n4(1)=b11
n4(2)=b3
ImpostaGiocata 4,n4,ruote,poste,c,2
n5(1)=b11
n5(2)=b8
n5(3)=b9
ImpostaGiocata 5,n5,ruote,post,c,3

Gioca es
End If
next
scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub

max
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 giugno 2026
    Bari
    42
    24
    70
    09
    58
    Cagliari
    27
    49
    43
    76
    40
    Firenze
    69
    03
    65
    72
    62
    Genova
    19
    28
    03
    85
    75
    Milano
    17
    05
    43
    40
    38
    Napoli
    24
    55
    02
    32
    69
    Palermo
    55
    70
    54
    90
    12
    Roma
    49
    88
    21
    02
    24
    Torino
    58
    16
    60
    38
    73
    Venezia
    84
    12
    69
    02
    44
    Nazionale
    75
    14
    79
    44
    47
    Estrazione Simbolotto
    Napoli
    29
    43
    41
    34
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto