Non capisco...

Missione Impossibile. · 23 Agosto 2023

Se io voglio fare una sottrazione del 5° di bari esempio: Bari 75, a cagliari 5° estratto 5 (75-5= 70 vertibile 7.70.
Se invece il 75 si trova a cagliari,e il 5 a bari,mi fa il fuori90 75+5=80-90= 10 vert.1.10.qualcuno puo' aiutarmi solo sulla sottrazione dal minore al maggiore,o dal maggiore al minore senza il fuori90 Grazie.

Cinzia27 · 23 Agosto 2023

Non so se ho ben capito.
Prova così

Sub Main
Scrivi Abs( 5-75)
End Sub

Zetrix · 23 Agosto 2023

BA 05 58 -------------->58-5=53 -------------------> 05 58 differenza 53 e la stessa cosa..

Mike58 · 23 Agosto 2023

Ciao batter, visto che hai citato il fuori90 presumo stai parlando di vbscript.
In questo caso si può fare la sottrazione con un if then
if b5 > c5 then a = b5-c5
if b5 < c5 then a c5-b5
oppure usare il codice Differenza(b5,c5)
vedi codice

Codice:

Sub Main
  b5 = 5
  c5 = 75
  If b5 > c5 Then a = b5-c5
  If b5 < c5 Then a = c5-b5
  diff = Differenza(b5,c5)
  Scrivi a
  Scrivi diff
End Sub

Missione Impossibile. · 23 Agosto 2023

Grazie a tutti,ma io parlavo di uno script a scelta delle posizioni

Missione Impossibile. · 23 Agosto 2023

A ruote scelte da me, in qualsiasi estrazioni del mese.

Gordon9 · 24 Agosto 2023

5-75=20 e non 10 come scrivi tu

Mike58 · 24 Agosto 2023

Batter è sempre meglio spiegarsi con specifiche ben definite cosi da non generare confusione negli aiuti.
Comunque se ho capito meglio vedi lo script.
Ps. senza input box ( quello lo potete fare da voi)

Codice:

Sub Main
Dim Po(2),Ru(2)
ritroso = 10
r1 = 1
p1 = 5
r2 = 2
p2 = 5
Ru(1) = r1 : Ru(2) = r2
Po(1) = p1 : Po(2) = p2
Scrivi "Ruote Analizzate " & StringaRuote(Ru)
Scrivi "Posizioni Estratti analizzati " & StringaNumeri(Po)
Scrivi
  For es = EstrazioneFin-ritroso To EstrazioneFin
  a = Estratto(es,r1,p1)
  b = Estratto(es,r2,p2)
  ab = Differenza(a,b)
  Scrivi Es & "  Differenza Estratti in Posizione scelte " & "( " & Format2(a) & " - " & Format2(b) & " ) " & " = " & Format2(ab)
  Next
End Sub

Ruote Analizzate BA.CA
Posizioni Estratti analizzati 5.5

10277 Differenza Estratti in Posizione scelte ( 01 - 03 ) = 02
10278 Differenza Estratti in Posizione scelte ( 90 - 78 ) = 12
10279 Differenza Estratti in Posizione scelte ( 20 - 18 ) = 02
10280 Differenza Estratti in Posizione scelte ( 17 - 17 ) = 90
10281 Differenza Estratti in Posizione scelte ( 82 - 90 ) = 08
10282 Differenza Estratti in Posizione scelte ( 05 - 83 ) = 78
10283 Differenza Estratti in Posizione scelte ( 41 - 39 ) = 02
10284 Differenza Estratti in Posizione scelte ( 02 - 36 ) = 34
10285 Differenza Estratti in Posizione scelte ( 16 - 12 ) = 04
10286 Differenza Estratti in Posizione scelte ( 62 - 60 ) = 02
10287 Differenza Estratti in Posizione scelte ( 59 - 09 ) = 50

Missione Impossibile. · 24 Agosto 2023

Esatto Mike58,si potrebbe fare un resoconto in un tot di colpi da me scelti degli estratti sulle due ruote grazie.

Mike58 · 24 Agosto 2023

ok vedi

Codice:

Sub Main
   Dim Po(2),Ru(2),Posta(1),Nu(2)
   Posta(1) = 1
   '----------------------
   ritroso = 20
   r1 = 1
   p1 = 5
   r2 = 2
   p2 = 5
   colpi = 10
   '----------------------
   Ru(1) = r1 : Ru(2) = r2
   Po(1) = p1 : Po(2) = p2
   Scrivi "Ruote Analizzate " & StringaRuote(Ru)
   Scrivi "Posizioni Estratti analizzati " & StringaNumeri(Po)
   Scrivi
   For es = EstrazioneFin - ritroso To EstrazioneFin
      a = Estratto(es,r1,p1)
      b = Estratto(es,r2,p2)
      ab = Differenza(a,b)
      Nu(1) = ab : Nu(2) = Vert(Nu(1))
      Scrivi Es & "  Differenza Estratti in Posizione scelte " & "( " & Format2(a) & " - " & Format2(b) & " ) " & " = ",1,0,,1
      Scrivi Nu(1) & " Vertibile " & Nu(2),1,1,,2
      Call ImpostaGiocata(1,Nu,Ru,Posta,colpi,1)
      Gioca es
   Next
   ScriviResoconto
End Sub

Missione Impossibile. · 24 Agosto 2023

E' perfetto Mike,ultima correzione, la scelta dal 1 del mese all'ultima del mese. Grazie
Scusa se chiedo troppo, potrei scegliere le ruote a piacere grazie di nuovo, dopo non ti chiedo piu' niente.

Mike58 · 24 Agosto 2023

eccolo, solo che l'indice a tua scelta lo devi attivare tra il primo o indice a scelta e ultima con codice
'If IndiceMensile(es) = 1 Then ' attiva 1 del mese
If IsUltimaDelMese(es) Then ' attiva ultima del mese

Codice:

Sub Main
   Dim Po(2),Ru(2),Posta(1),Nu(2)
   Posta(1) = 1
   '----------------------
   ritroso = 160
   r1 = 1
   p1 = 5
   r2 = 2
   p2 = 5
   colpi = 10
  
   '----------------------
   Ru(1) = r1 : Ru(2) = r2
   Po(1) = p1 : Po(2) = p2
   Scrivi "Ruote Analizzate " & StringaRuote(Ru)
   Scrivi "Posizioni Estratti analizzati " & StringaNumeri(Po)
   Scrivi
   For es = EstrazioneFin - ritroso To EstrazioneFin
   'If IndiceMensile(es) = 1 Then ' attiva 1 del mese
   If IsUltimaDelMese(es) Then  ' attiva ultimo del mese
      a = Estratto(es,r1,p1)
      b = Estratto(es,r2,p2)
      ab = Differenza(a,b)
      Nu(1) = ab : Nu(2) = Vert(Nu(1))
      Scrivi Es & "  Differenza Estratti in Posizione scelte " & "( " & Format2(a) & " - " & Format2(b) & " ) " & " = ",1,0,,1
      Scrivi Nu(1) & " Vertibile " & Nu(2),1,1,,2
      Call ImpostaGiocata(1,Nu,Ru,Posta,colpi,1)
      Gioca es
      End If ' chiude indicemensile
   Next
   ScriviResoconto
End Sub

Missione Impossibile. · 24 Agosto 2023

Ok e' perfetto sei un mago. Hai letto sopra la scelta delle ruote.

Mike58 · 24 Agosto 2023

i parametri sono questi basta modificarli a piacere
ritroso = 160
r1 = 1 ' ruota 1 = Ba
p1 = 5
r2 = 2 ' ruota 2 = Ca
p2 = 5
colpi = 10
per L'input Box puoi benissimo crealo
esempio
r1 = InputBox("Quale RUOTA 1",,1)
r2 = InputBox("Quale RUOTA 2",,2)
p1 = InputBox("Quale Posizione Ruota 1",,5)
p2 = InputBox("Quale Posizione Ruota 2",,5)

Missione Impossibile. · 24 Agosto 2023

Grazie di cuore Mike sei stato molto gentile, ora e' veramente perfetto!!!

Missione Impossibile. · 28 Agosto 2023

Da questo listato creato da MIKE, con la mia idea, se prendete il 2° estratto di Bari, e il 5°estratto di Venezia dal 1° del mese-
Dal 1/6/21 al 1/8/2023 per 9 colpi, da sempre le ambate al 100%.ora chiedo a Mike l'ultimo sforzo, quali sono i 3/4 abbinamenti che si presentano con i 2 vertibili? Spero di avere fatto cosa gradita a tutti.

Mike58 · 29 Agosto 2023

Batter per gli abbinamenti è possibile farli ma ahimè c'è bisogno di tante righe di codice e fare interagire il tutto.
Francamente visto che sono situazioni e studi personali non ho molta voglia di cimentarmi con il costrutto.
Tuttavia ti posto lo script che elenca per ogni numero e vertibile ricavato e per ogni ruota in esame i suoi 4 migliori abbinamenti.
Come puoi vedere fare interagire il numero con i suoi abbinamenti e complesso senza parlare poi della verifica dei singoli ambi.
Ti posto questo per osservazioni personali tue.

Codice:

Sub Main
   Dim Nu(2),Ru(2),T,abb1,abb2,abb3,abb4
   Ini = EstrazioneFin-160
   fin = EstrazioneFin
   r1 = 1
   r2 = 10
   p1 = 2
   p2 = 5
   colpo = 10
   T = Array(T,"INFO ES","Ruote","Calcolo Estratti","Numero + Vertibile","Verifica Ambate","Colpo","Abb N1 R1","Abb2 N2 R1", _
   "Abb N1 R2","Abb N2 R2" )
   Call InitTabella(T)
   For es = Ini To fin
   If IndiceMensile(es) = 1 Then
   a = Estratto(es,r1,p1)
   b = Estratto(es,r2,p2)
   ab = Differenza(a,b)
   ac = Vert(ab)
   Nu(1) = ab
   Nu(2) = ac
   Ru(1) = r1
   Ru(2) = r2
   Call VerificaEsito(Nu,Ru,es+1,1,colpi,,esito,clp,esA,id)
   Call Abbinamenti(Nu(1),abb1,8072,fin,r1)
   ReDim aN(4)
   For k1 = 1 To 4
   aN(k1) = abb1(k1,1)
   Next
   ReDim aM(4)
   Call Abbinamenti(Nu(1),abb2,8072,fin,r2)
   For k2 = 1 To 4
   aM(k2) = abb2(k2,1)
   Next
   ReDim aNN(4)
   Call Abbinamenti(Nu(2),abb3,8072,fin,r1)
   For k3 = 1 To 4
   aNN(k3) = abb3(k3,1)
   Next
   ReDim aMM(4)
   Call Abbinamenti(Nu(2),abb4,8072,fin,r2)
   For k4 = 1 To 4
   aMM(k4) = abb4(k4,1)
   Next

   T = Array(T,GetInfoEstrazione(es),StringaRuote(Ru),a & " + " & b,StringaNumeri(Nu),esA,clp,StringaNumeri(aN,,1),  _
   StringaNumeri(aM,,1),StringaNumeri(aNN,,1),StringaNumeri(aMM,,1))
   Call AddRigaTabella(T)
   End If
   Next
   CreaTabella
 
End Sub

[

Mike58 · 29 Agosto 2023

Codice:

Sub Main
   Dim Nu(2),Ru(2),T,abb1,abb2,abb3,abb4
   Ini = EstrazioneFin-160
   fin = EstrazioneFin
   r1 = 1
   r2 = 10
   p1 = 2
   p2 = 5 
   colpo = 10
   T = Array(T,"INFO ES","Ruote","Calcolo Estratti","Numero + Vertibile","Verifica Ambate","Colpo","Abb N1 R1","Abb2 N2 R1", _
   "Abb N1 R2","Abb N2 R2" )
   Call InitTabella(T)
   For es = Ini To fin
   If IndiceMensile(es) = 1 Then
   a = Estratto(es,r1,p1)
   b = Estratto(es,r2,p2)
   ab = Differenza(a,b)
   ac = Vert(ab)
   Nu(1) = ab
   Nu(2) = ac
   Ru(1) = r1
   Ru(2) = r2
   Call VerificaEsito(Nu,Ru,es+1,1,colpi,,esito,clp,esA,id)
   Call Abbinamenti(Nu(1),abb1,8072,fin,r1)
   ReDim aN(4)
   For k1 = 1 To 4
   aN(k1) = abb1(k1,1)
   Next
   ReDim aM(4)
   Call Abbinamenti(Nu(1),abb2,8072,fin,r2)
   For k2 = 1 To 4
   aM(k2) = abb2(k2,1)
   Next
   ReDim aNN(4)
   Call Abbinamenti(Nu(2),abb3,8072,fin,r1)
   For k3 = 1 To 4
   aNN(k3) = abb3(k3,1)
   Next
   ReDim aMM(4)
   Call Abbinamenti(Nu(2),abb4,8072,fin,r2)
   For k4 = 1 To 4
   aMM(k4) = abb4(k4,1)
   Next

   T = Array(T,GetInfoEstrazione(es),StringaRuote(Ru),a & " + " & b,StringaNumeri(Nu),esA,clp,StringaNumeri(aN,,1),  _
   StringaNumeri(aM,,1),StringaNumeri(aNN,,1),StringaNumeri(aMM,,1))
   Call AddRigaTabella(T)
   End If
   Next
   CreaTabella
  
End Sub

INFO ES	Ruote	Calcolo Estratti	Numero + Vertibile	Verifica Ambate	Colpo	Abb N1 R1	Abb2 N2 R1	Abb N1 R2	Abb N2 R2
[10141] [118] 01.10.2022	BA.VE	36 + 45	9.90	VE .. .. 09 .. ..	1	05.20.26.01	77.58.14.45	56.84.70.60	45.60.55.17
[10154] [131] 02.11.2022	BA.VE	20 + 76	56.65	VE 65 .. .. .. ..	1	36.53.61.01	53.32.66.52	83.68.86.57	53.07.82.13
[10167] [144] 01.12.2022	BA.VE	30 + 22	8.80	BA .. .. .. .. 80	2	03.60.62.41	73.32.23.81	47.26.61.14	86.38.82.34
[10181] [ 1 ] 03.01.2023	BA.VE	60 + 49	11.19	BA .. 11 .. .. ..	1	68.81.51.23	68.06.53.50	31.26.84.16	39.32.90.86
[10194] [ 14] 02.02.2023	BA.VE	8 + 43	35.53	VE .. 53 .. .. ..	6	47.54.30.26	33.54.76.10	66.49.56.35	04.56.68.81
[10206] [ 26] 02.03.2023	BA.VE	82 + 40	42.24	VE 42 .. .. .. ..	1	15.70.32.16	10.88.87.13	06.39.26.10	52.63.86.51
[10219] [ 39] 01.04.2023	BA.VE	14 + 76	62.26	VE .. .. 62 .. ..	1	74.10.07.37	54.04.84.60	83.57.09.35	48.46.41.30
[10232] [ 52] 02.05.2023	BA.VE	90 + 4	86.68	BA 68 .. .. .. ..	3	23.65.77.59	34.80.75.44	11.65.23.33	53.82.11.34
[10245] [ 65] 01.06.2023	BA.VE	72 + 11	61.16	BA .. .. .. 16 ..	2	60.01.46.64	45.84.44.49	66.30.15.19	89.18.48.81
[10258] [ 78] 01.07.2023	BA.VE	38 + 57	19.11	BA 11 .. .. .. ..	1	31.26.84.16	39.32.90.86	68.81.51.23	68.06.53.50
[10275] [ 95] 01.08.2023	BA.VE	77 + 9	68.86	VE .. .. 86 .. ..	3	11.65.23.33	53.82.11.34	23.65.77.59	34.80.75.44

Mike58 · 29 Agosto 2023

Per fare sperimentazioni con il tuo numero in esame e la tua ruota di gioco, e ogni volta che ti serve, ecco un semplice script per test ABBINAMENTI.

Codice:

Sub Main
Dim abb,k,Nu(2),Ru(1)
  n = InputBox("Numero in Esame",,59)
  r = InputBox("Ruota in esame",,5)
  Ru(1) = r
  Ini = EstrazioneFin -(156*5)
  fin = EstrazioneFin
  ef = EstrattoFrequenza(r,n,Ini,fin)
  Scrivi "Frequenza Numero in esame.... " & ef & " in Estrazioni...Tot : " & fin - Ini + 1
  Call Abbinamenti(n,abb,Ini,fin,r)
  'Scrivi abb(1,1) & " ( " & abb(1,2) & " )"
  'Scrivi abb(2,1) & " ( " & abb(2,2) & " )"
  Scrivi
 
  For k = 1 To 10
  Nu(1) = n
  Nu(2) = abb(k,1)
 
  perc = Round(Dividi(abb(k,2),ef),2)*100
  sr = SerieRitardo(Ini,fin,Nu,Ru,2)
  sf = SerieFreq(Ini,fin,Nu,Ru,2)
  Call VerificaEsitoTurbo(Nu,Ru,fin - sr,2,,,,,esa,id)
   Scrivi n & "-" & Format2(abb(k,1)) & " ( " & abb(k,2) & " )" & vbTab & "Ritardo da.... " & sr & vbTab & fin - sr & _
    vbTab & perc & " % " & vbTab & esa & vbTab & GetInfoEstrazione(id)
   Next


End Sub

Missione Impossibile. · 29 Agosto 2023

Grazie Mike va bene cosi.Notte

Non capisco...

Banned

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned