Per joe91 ed altri

korokoro · 11 Maggio 2012

Ciao Joe, potresti far si con questi script possano cercare e giocare soltanto di sabato ????
Ciao Leo

'Ambate-Ambi Freq dopo TRE Spie su due ruote (determinate)
'Ramco 23/09/2008
'25/09/2008 x LEO

Sub Main()
Dim num(90,2),rt(2),sp(3),nt(90,2)
Dim ru(2),ru1(1)
Dim ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
Erase ambi
Erase ambi1
ru1(1) = 11

r = eval(InputBox("La Prima ruota?","PRIMA RUOTA",2))
rt(1) = r
r1 = eval(InputBox("Seconda ruota?","SECONDA RUOTA",6))
rt(2) = r1
sp1 = eval(InputBox("Qual'è il 1^ numero Spia?","SPIA N° 1",30))
sp(1) = sp1
sp2 = eval(InputBox("Qual'è il 2^ numero Spia?","SPIA N° 2",64))
sp(2) = sp2
sp3 = eval(InputBox("Qual'è il 3^ numero Spia?","SPIA N° 3",47))
sp(3) = sp3
ee = CInt(InputBox("Quante estrazioni controllo?","ESTRAZIONI",4000))
colpi = eval(InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO",14))
gv1 = eval(InputBox("Quanti Risultati Ambate ?","Risultati",10))
gv2 = eval(InputBox("Quanti Risultati Ambi ?","Risultati",20))

ini = EstrazioneFin - ee
'ini=3950 '14.09.1946
fin = EstrazioneFin
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi "numeri più frequenti usciti dopo i numeri spia " & sp1 & "-" & sp2 & "-" & sp3 & " su " & NomeRuota(r) & " e " & NomeRuota(r1),1
casi = 0
For i = 1 To 90
num(i,1) = i : num(i,2) = 0 : nt(i,1) = 0 : nt(i,2) = 0
Next

For es = ini To fin
Messaggio " Spie : " & sp1 & "-" & sp2 & "-" & sp3 & " Estrazione : " & es
If SerieFreq(es,es,sp,rt,2) = 1 Then
For r3 = 1 To 12
If r3 <> 11 Then
If r3 = r Or r3 = r1 Then
For p1 = 1 To 5
e1 = Estratto(es,r3,p1)
For p2 = 1 To 5
e2 = Estratto(es,r3,p2)
For r4 = 1 To 12
If r4 <> 11 Then
If r4 = r Or r4 = r1 And r3 <> r4 Then
For p3 = 1 To 5
e3 = Estratto(es,r4,p3)
If(e1 = sp1 And e2 = sp2 And e3 = sp3)Or(e1 = sp1 And e2 = sp3 And e3 = sp2)Or(e1 = sp2 And e2 = sp3 And e3 = sp1) Then
casi = casi + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " / " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
'Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)
ess = es + colpi
If ess > fin Then ess = fin End If
For ae = es + 1 To ess
For v = 1 To 90
If Posizione(ae,r,num(v,1)) Then num(v,2) = num(v,2) + 1
If Posizione(ae,r1,num(v,1)) Then num(v,2) = num(v,2) + 1
Next
For rr = 1 To 10
For pp = 1 To 5
g = Estratto(ae,rr,pp)
nt(g,1) = g
nt(g,2) = nt(g,2) + 1
Next
Next

Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x : nn(2) = y : ru(1) = r :ru(2) = r1
ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x : nn1(2) = y
ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
Next
Next

End If
Next
End If
End If
Next
Next : Next
End If
End If
Next

End If
Next
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
OrdinaMatrice nt,- 1,2
OrdinaMatrice num,- 1,2
ColoreTesto 1
Scrivi String(80,"_"):Scrivi
Scrivi "Numeri spia : " & sp1 & "-" & sp2 & "-" & sp3 & " su " & NomeRuota(r) & "/" & NomeRuota(r1) & " casi = " & casi & " entro i " & colpi & " colpi",1
Scrivi : ColoreTesto 2
riga = "Num. "
riga1 = "Freq. "
For i = 1 To gv1
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),3) & " "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
ColoreTesto 0
Scrivi
Scrivi " Ambi a Ruota | Ambi a Tutte | Nu. Tutte "
ColoreTesto 2
Scrivi " Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x = 1 To gv2
rigas = " " & Format2(ambi(x,2)) & "-" & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & _
Format2(nt(x,2))
Scrivi rigas
rigas = ""
Next
Scrivi String(65,"*")

End Sub

************************************************************************************************************************

'Ramco ricerca 3num spia+gioco Ruote determinate(25-09-2008)
'25/09/2008 x LEO

Sub Main()
Dim rt(2),rtt(1),rtn(1)
Dim n1(2),nn(1),n2(7),n3(6)
Dim pt(5),ptt(5)
pt(1) = 1
ptt(2) = 1.5 : ptt(3) = 0.5
rtt(1) = 11 : rtn(1) = 12
tmp = CInt(InputBox("Quante estrazioni vuoi esaminare ?","ESTRAZIONI",4000))
rut1 = CInt(InputBox("Inserisci la prima ruota ","PRIMA RUOTA",2))
rut2 = CInt(InputBox("Inserisci la seconda ruota ","SECONDA RUOTA",6))
'----------------------in sp1,sp2,sp3 vanno le spie
sp1 = 30
sp2 = 64
sp3 = 47
'----------------------abt=ambata
abt = 51
abt0 = 54
'----------------------ab..=abbinamenti
ab1 = 30
ab2 = 40
ab3 = 64
ab4 = 52
ab5 = 00
'----------------------
ab6 = 5
ab7 = 33
ab8 = 8
ab9 = 69
ab10 = 83
ab11 = 48

'----------------------
ini = EstrazioneFin - tmp : fin = EstrazioneFin
For es = ini To Fin
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
If r = rut1 Or r = rut2 Then
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
If((a = sp1 And b = sp2)Or(a = sp2 And b = sp1)Or(a = sp1 And b = sp3)Or(a = sp3 And b = sp1)Or(a = sp2 And b = sp3)Or(a = sp3 And b = sp2)) Then
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
If r1 = rut1 Or r1 = rut2 Then
For pp = 1 To 5
c = Estratto(es,r1,pp)
'---------------------------------------------------------------------------------------------
If(r <> r1 And c <> a And c <> b) And(c = sp1 Or c = sp2 Or c = sp3) Then
nn(1) = c
prt = SerieFreq(es,es,nn,rtt,1) : prn = SerieFreq(es,es,nn,rtn,1)
'If (prt+prn)=1 Then
Scrivi String(65,"*")
Scrivi "" & DataEstrazione(es,1) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & nn(1)
rt(1) = r : rt(2) = r1
n1(1) = abt : n1(2) = abt0
rit = SerieRitardo(es - 250,es,n1,rt,1)
Scrivi "L'Ambata è sortita in una delle due ruote " & rit & " colpi fà ",1
n2(1) = abt : n2(2) = abt0 : n2(3) = ab1 : n2(4) = ab2
n2(5) = ab3 : n2(6) = ab4 : n2(7) = ab5
rit2 = SerieRitardo(es - 1000,es,n2,rt,2)

n3(1) = ab6 : n3(2) = ab7 : n3(3) = ab8 : n3(4) = ab9
n3(5) = ab10 : n3(6) = ab11 ': n3(7)=ab5

rit3 = SerieRitardo(es - 1000,es,n3,rt,2)

Scrivi "L'Ambo in sestina è sortito in una delle due ruote " & rit2 & " colpi fà ",1
Scrivi
ImpostaGiocata 1,n1,rt,pt,9,1
ImpostaGiocata 2,n2,rt,ptt,12,3
ImpostaGiocata 3,n3,rt,ptt,12,3

Gioca es
End If
'End If
Next
End If
Next
End If
Next : Next
End If
Next : Next
ScriviResoconto
End Sub

Joe91 · 12 Maggio 2012

Ciao Leo,

Credo che per un giocatore l'autocontrollo, al limitarsi, allo sfidare la sorte il solo sabato ... sia difficile da realizzarsi,

al punto che, i programmi non ... non prevedano questa opzione di giocata, avendola probabilmente, prima d'ora, ritenuta inutile.

"Conosco" in accezione forumistica, alcuni seri statistici conteggiare i ritardi al giorno della settimana ...

ma non leggendoli da tempo ... non saprei neppure ... consigliarti qualcuno "che sappia".

Ho applicato "If Sabato ( Es ) Then" al primo degli script.

Ti dovrebbe essere possibile modificare anche gli altri analogamente.

E come vedi .... ti è necessaria la formattazione per capire dove iniziare a "filtrare" (al Sabato) le estrazioni.

NON HO ESEGUITO NESSUN CONTROLLO.

Codice:

'Ambate-Ambi Freq dopo TRE Spie su due ruote (determinate)
'Ramco 23/09/2008
'25/09/2008 x LEO
'Function Sabato by Joe V.1.0. del 10/05/2012 (Vista/Spaziometria 1.3.73)
Sub Main()
 Dim num(90,2),rt(2),sp(3),nt(90,2)
 Dim ru(2),ru1(1)
 Dim ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
 Erase ambi
 Erase ambi1
 ru1(1) = 11
 r = eval(InputBox("La Prima ruota?","PRIMA RUOTA",2))
 rt(1) = r
 r1 = eval(InputBox("Seconda ruota?","SECONDA RUOTA",6))
 rt(2) = r1
 sp1 = eval(InputBox("Qual'è il 1^ numero Spia?","SPIA N° 1",30))
 sp(1) = sp1
 sp2 = eval(InputBox("Qual'è il 2^ numero Spia?","SPIA N° 2",64))
 sp(2) = sp2
 sp3 = eval(InputBox("Qual'è il 3^ numero Spia?","SPIA N° 3",47))
 sp(3) = sp3
 ee = CInt(InputBox("Quante estrazioni controllo?","ESTRAZIONI",4000))
 colpi = eval(InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO",14))
 gv1 = eval(InputBox("Quanti Risultati Ambate ?","Risultati",10))
 gv2 = eval(InputBox("Quanti Risultati Ambi ?","Risultati",20))
 ini = EstrazioneFin - ee : fin = EstrazioneFin
 'ini=3950 '14.09.1946
 Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
 Scrivi "numeri più frequenti usciti dopo i numeri spia " & sp1 & "-" & sp2 & "-" & sp3 & " su " & NomeRuota(r) & " e " & NomeRuota(r1),1
 casi = 0
 For i = 1 To 90
  num(i,1) = i : num(i,2) = 0 : nt(i,1) = 0 : nt(i,2) = 0
 Next
 For es = ini To fin 
  If Sabato(Es) Then
  Messaggio " Spie : " & sp1 & "-" & sp2 & "-" & sp3 & " Estrazione : " & es
  If SerieFreq(es,es,sp,rt,2) = 1 Then
   For r3 = 1 To 12
    If r3 <> 11 Then
     If r3 = r Or r3 = r1 Then
      For p1 = 1 To 5
       e1 = Estratto(es,r3,p1)
       For p2 = 1 To 5
        e2 = Estratto(es,r3,p2)
        For r4 = 1 To 12
         If r4 <> 11 Then
          If r4 = r Or r4 = r1 And r3 <> r4 Then
           For p3 = 1 To 5
            e3 = Estratto(es,r4,p3)
            If(e1 = sp1 And e2 = sp2 And e3 = sp3)Or(e1 = sp1 And e2 = sp3 And e3 = sp2)Or(e1 = sp2 And e2 = sp3 And e3 = sp1) Then
             casi = casi + 1
             Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " / " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
             'Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)
             ess = es + colpi
             If ess > fin Then ess = fin End If
             For ae = es + 1 To ess
              For v = 1 To 90
               If Posizione(ae,r,num(v,1)) Then num(v,2) = num(v,2) + 1
               If Posizione(ae,r1,num(v,1)) Then num(v,2) = num(v,2) + 1
              Next
              For rr = 1 To 10
               For pp = 1 To 5
                g = Estratto(ae,rr,pp)
                nt(g,1) = g
                nt(g,2) = nt(g,2) + 1
               Next
              Next
             Next
             co = 0
             For x = 1 To 90
              For y = x + 1 To 90
               co = co + 1
               nn(1) = x : nn(2) = y : ru(1) = r :ru(2) = r1
               ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
               yy = SerieFreq(es + 1,ess,nn,ru,2)
               ambi(co,4) = ambi(co,4) + yy
               If yy > 0 Then
                ambi(co,5) = ambi(co,5) + 1
               Else
                ambi(co,5) = ambi(co,5)
               End If
               nn1(1) = x : nn1(2) = y
               ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
               xx = SerieFreq(es + 1,ess,nn1,ru1,2)
               ambi1(co,4) = ambi1(co,4) + xx
               If xx > 0 Then
                ambi1(co,5) = ambi1(co,5) + 1
               Else
                ambi1(co,5) = ambi1(co,5)
               End If
              Next
             Next
            End If
           Next
          End If
         End If
        Next
       Next : Next
      End If
     End If
    Next
   End If
  End If 'SABATO 
  Next
  OrdinaMatrice ambi,- 1,5
  OrdinaMatrice ambi1,- 1,5
  OrdinaMatrice nt,- 1,2
  OrdinaMatrice num,- 1,2
  ColoreTesto 1
  Scrivi String(80,"_"):Scrivi
  Scrivi "Numeri spia : " & sp1 & "-" & sp2 & "-" & sp3 & " su " & NomeRuota(r) & "/" & NomeRuota(r1) & " casi = " & casi & " entro i " & colpi & " colpi",1
  Scrivi : ColoreTesto 2
  riga = "Num. "
  riga1 = "Freq. "
  For i = 1 To gv1
   riga = riga & FormatSpace(num(i,1),3) & " "
   riga1 = riga1 & FormatSpace(Eval(num(i,2)),3) & " "
  Next
  Scrivi riga,1
  ColoreTesto 1
  Scrivi riga1
  ColoreTesto 0
  Scrivi
  Scrivi " Ambi a Ruota | Ambi a Tutte | Nu. Tutte "
  ColoreTesto 2
  Scrivi " Ambo Freq | Ambo Fr | N°. Fr "
  ColoreTesto 0
  For x = 1 To gv2
   rigas = " " & Format2(ambi(x,2)) & "-" & _
   Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
   Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & _
   Format2(nt(x,2))
   Scrivi rigas
   rigas = ""
   
  Next
  
  Scrivi String(65,"*")
End Sub

Function Sabato(Es)
 Sabato = False
 Data = Replace(DataEstrazione(Es),".","/")
 Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
 Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
 If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

Buon_Week_End

Cerca

Cerca

Per joe91 ed altri

korokoro

Super member

Joe91

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi