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
    giovedì 18 dicembre 2025
    Bari
    72
    48
    90
    14
    52
    Cagliari
    11
    78
    87
    47
    53
    Firenze
    50
    08
    32
    71
    74
    Genova
    20
    18
    09
    76
    07
    Milano
    13
    34
    68
    07
    16
    Napoli
    75
    61
    50
    16
    10
    Palermo
    32
    44
    38
    16
    70
    Roma
    13
    67
    32
    44
    69
    Torino
    45
    64
    49
    37
    63
    Venezia
    81
    19
    30
    79
    36
    Nazionale
    21
    85
    89
    35
    77
    Estrazione Simbolotto
    Venezia
    38
    12
    34
    27
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto