ciao luigi potresti?

[mastrogino]

ciao e buon inizio di settimana
ti volevo chiedere se era possibile un script per tutti gli amici del forum??

il concetto e semplice

sullo script devo inserire due numeri " un ambo"
deve fare la somma tra loro è lambata principale da mettere in gioco con il vertibile e l'ambo di calcolo
fare la ricerca sull'estrazione reale e quella in passato


esempio

ambo 45.34 ....45+34=79 ambata principale 77 secondario
in prev.
ambate 79.77
x ambo 79.45.
x ambo 79.34.
x terno 79.45.34.
x quaterna 79.45.34.77.
grazie

 

[LuigiB]

ciao , magari si potrebbe pensare è una cavolata che ci vuole come quando si va dal meccanico per farsi stringere solo una vite .. e invece stavolta proprio per quanto è banale mi rifiuto di farlo , dirò anche che sono estremamente dispiaciuto che nonostante il mio impegno nelle spiegazioni qui nessuno si adopera a imparare cose concrete come gli script.. .tutti prediligono dedicarsi a cose inverosimili e sensa alcun senso ...magari in qualche altra circostanza faro ancora qualche script ma ora non ne ho voglia anche se per far questo basterebbero solo 2 minuti ... gli amici del forum se devono da da fa ! Ciao

 

[mastrogino]

ok .....
nel mio caso.....se mi metto a fare gli script che x me è arabo.
perdo del tempo x gli studi .....e il tempo e tiranno.
ciao e grazie lo stesso .

 

[Mike58]

Purtroppo condivido il pensiero di Luigi e mi rammarico anch'io che di vbscript pochi hanno voglia di imparare, se non altro per trarne insegnamento reciproco.

x schirò ecco lo script richiesto.

Sub Main
 'x schirò ........ ambo spia a scelta .......
 Dim rt(1),num(10),ambo1(2),ambo2(2),lun(4),p1(1),p2(2),p3(3),p4(4)
 r = CInt(InputBox("quale ruota analizzo... ? ",,1))
 sp = CInt(InputBox("quale numero spia 1 ? ",,45))
 s2 = CInt(InputBox("quale numero spia 2 ? ",,34))
 ini = EstrazioneFin - 600
 fin = EstrazioneFin
 co = 0
 p1(1) = 1
 p2(2) = 1
 p3(2) = 1
 p3(3) = 1
 p4(2) = 1
 p4(3) = 5
 p4(4) = .5
 k = 14 ' colpi
 For es = ini To fin
  Messaggio "Elaborazione estrazioni... [ " & es & " ]   --->  script by Mike58"
  Call AvanzamentoElab(Ini,fin,es)
  rt(1) = r
  For p = 1 To 4
   For pp = p + 1 To 5
    a = Estratto(es,r,p)
    b = Posizione(es,r,sp)
    c = Estratto(es,r,pp)
    d = Posizione(es,r,s2)
    If a = sp And c = s2 Then
     co = co + 1
     Scrivi String(130,"="),1
     ReDim MatriceCaselleDaEvid(2,2)
     ' Primo e unico elemento
     MatriceCaselleDaEvid(1,0) = r ' = a ruota
     MatriceCaselleDaEvid(1,1) = b ' = a posizione
     MatriceCaselleDaEvid(2,0) = r ' = a ruota
     MatriceCaselleDaEvid(2,1) = d ' = a posizione
     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
     Scrivi String(85,"-") & " Caso n°" & co
     ColoreTesto 1 : Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r),0,0
     Scrivi " < ambo spia > " & sp & "-" & s2,0,0
     Scrivi " - posiz. " & b & "/" & d,2
     ColoreTesto 0
     Scrivi String(130,"-")
     '--------- calcolo giocate ----------
     num(1) = Fuori90(sp + s2)
     num(2) = Vert(num(1))
     ambo1(1) = num(1)
     ambo1(2) = a
     ambo2(1) = num(1)
     ambo2(2) = c
     lun(1) = num(1)
     lun(2) = num(2)
     lun(3) = a
     lun(4) = c
     ImpostaGiocata 1,num,rt,p1,k,1
     ImpostaGiocata 2,ambo1,rt,p2,k,2
     ImpostaGiocata 3,ambo2,rt,p3,k,2
     ImpostaGiocata 4,lun,rt,p4,k,2
     Gioca es,,,1
    End If
   Next
  Next
 Next
 ScriviResoconto
End Sub

 

[Roby]

Quoto Luigi... che saluto

Per Gioacchino: il listato cerca in tutte e 10 le ruote, puoi cambiare l'ambo da inputbox
Ciao

Sub Main()
	Scrivi
	Scrivi String(36," ") & "METODO DI SCHIRO'GIOACCHINO - LISTATO BY BLACKMORE",1
	Scrivi
	Dim ruota(10) : Dim a1(2)
	Dim posta(5) : Dim poste(5) : Dim poste2(5) : Dim poste3(5)
	posta(1) = 1 : poste(2) = 1 : poste2(2) = 1 : poste2(3) = 1 : poste3(2) = 1 : poste3(3) = 1 : poste3(4) = 0.50
	Dim num(2) : Dim ambo1(2) : Dim ambo2(2) : Dim terzina(3) : Dim quartina(4)
	ww = CInt(InputBox("DA QUALE ESTRAZIONE VUOI PARTIRE?",,8040))
	kkk = CInt(InputBox("COLPI DI GIOCO?",,10))
	'------------------------------------------------------------------------------------
	ff = InputBox("INSERISCI L'AMBO SEPARATO DA UN PUNTO ","BLACK","45.34")
	ff = "0." & ff
	h = Split(ff,".")
	f1 = CInt(h(1)): f2 = CInt(h(2))
	a1(1) = f1 : a1(2) = f2
	'------------------------------------------------------------------------------------
	co = 0
	ini = ww
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ Listato By Black ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If a = f1 And b = f2 Or a = f2 And b = f1 Then
						casi = casi + 1
						Scrivi String(99,"*") & " Caso n° " & casi,1
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & "  AMBO SPIA:  " & f1 & " - " & f2 & "  Rilevato su " & NomeRuota(r),1
						ColoreTesto 0: Scrivi String(76,"°"),1
						co = co + 1
						ruota(1) = r
						num(1) = Fuori90(f1 + f2)
						num(2) = Vert(num(1))
						ambo1(1) = num(1)
						ambo1(2) = f1
						ambo2(1) = num(1)
						ambo2(2) = f2
						terzina(1) = num(1)
						terzina(2) = f1
						terzina(3) = f2
						quartina(1) = num(1)
						quartina(2) = f1
						quartina(3) = f2
						quartina(4) = num(2)
						ImpostaGiocata 1,num,ruota,posta,kkk,1
						ImpostaGiocata 2,ambo1,ruota,poste,kkk,2
						ImpostaGiocata 3,ambo2,ruota,poste,kkk,2
						ImpostaGiocata 4,terzina,ruota,poste2,kkk,2
						ImpostaGiocata 5,quartina,ruota,poste3,kkk,2
						Gioca es
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	Scrivi : Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

 

[Roby]

Scusa Mike, non avevo visto....

 

[LuigiB]

onore a Mike e a Black , a Schiro voglio dire che proprio perche è uno studioso dovrebbe investire un po' di tempo in ciò che senza dubbio alcuno lo potrebbe favorire elle sue ricerche.
Io sono ancora pronto a spiegare ove ce ne fosse bisogno , sono molto orgoglioso di ragazzi tipo Mike e Black , mi sa che nessuno dei due conosceva l'ambito della programmazione eppure eccoli qui. Almeno il mio non è stato proprio un lavoro vano e perdonatemi se ogni tanto traspare un po' di sconforto in quanto scrivo.
ciao a tutti

 

[Mike58]

Grazie Luigi soprattutto l'insegnamento che in questi anni ci hai dato, nel mio piccolo aggiungo che ho voluto imparare per testare da me i metodi e far da me le mie statistiche e di questo ne vado fiero e soprattutto non smetterò mai di ringraziare te e tutti gli amici del forum
( i Rubino, claudio, blackmore,djnomade,baffo ,fillotto ecc.) che hanno contribuito a raggiungere questo mio piccolo ma soddisfacente livello.
Ci sarebbe ancora da imparare ma negli ultimi tempi ci sono poche idee e poco impegno da parte di molti.

Come esempio giusto per scopiazzare allego uno script di metodo in tabella.

Sub Main()
 Dim ru(1),posta(10),anum(10),nu(5),aruo(2),ruo2(1),ruo1(1)
 r1 = CInt(InputBox("1°RUOTA DI RICERCA?",,1))
 SP = CInt(InputBox("Quale spia ",,79))
 dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI  2=NO",,2)
 Scrivi "Ruota di " & NomeRuota(r1) & " - SPIA 79 metodo by ROB    ****  listato in tabella by Mike58  **** ",1,- 1,3
 Scrivi
 ru(1) = r1
 r2 = CA_
 posta(2) = 9
 posta(3) = 1
 fin = EstrazioneFin
 ini = fin - 300
 ReDim atitoli(19)
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " ESTRAZ PREC "
 atitoli(3) = " SPIA "
 atitoli(4) = " ESITO "
 atitoli(5) = " RUOTA DI " & NomeRuota(r2)
 atitoli(6) = " STRINGA ESITO"
 atitoli(7) = "N° Colpi"
 atitoli(13) = " NUMERI IN GIOCO "
 atitoli(14) = " RUOTA DI " & NomeRuota(r1)
 atitoli(15) = "  SPESA  "
 atitoli(16) = " VINCITA "
 atitoli(17) = " UTILE "
 atitoli(18) = " Data esito "
 atitoli(19) = " Utile prog "
 Call InitTabella(atitoli,1,,2,5)
 For es = ini To fin
  If Posizione(es,r1,sp) > 0 Then
   Messaggio es
   AvanzamentoElab Ini,fin,es
   anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
   anum(2) = Fuori90(Estratto(es,FI_,1)*53)
   anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
   anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
   anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
   anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
   a1 = anum(1)
   a2 = anum(2)
   a3 = anum(3)
   a4 = anum(4)
   a5 = anum(5)
   a6 = anum(6)
   aruo(1) = BA_
   aruo(2) = CA_
   ruo2(1) = CA_
   ruo1(1) = BA_
   Call VerificaEsito(anum,aruo,es + 1,2,11,,retesito,retcolpi,retestratti,retidestr)
   ReDim avalori(19)
   avalori(1) = DataEstrazione(es)
   avalori(2) = StringaEstratti(es,r1)
   avalori(3) = SP
   avalori(4) = retesito
   If VerificaEsito(anum,ruo2,es + 1,2,11,,esito2,colpi2,estratti2,retidestr2) Then
    avalori(5) = StringaEstratti(retidestr2,r2)
   Else
    avalori(5) = ""
   End If
   avalori(6) = retestratti
   avalori(7) = retcolpi & "°"
   If retcolpi = 1 Then retcolpi1 = retcolpi1 + 1
   If retcolpi = 2 Then retcolpi2 = retcolpi2 + 1
   If retcolpi = 3 Then retcolpi3 = retcolpi3 + 1
   If retcolpi = 4 Then retcolpi4 = retcolpi4 + 1
   If retcolpi = 5 Then retcolpi5 = retcolpi5 + 1
   If retcolpi = 6 Then retcolpi6 = retcolpi6 + 1
   If retcolpi = 7 Then retcolpi7 = retcolpi7 + 1
   If retcolpi = 8 Then retcolpi8 = retcolpi8 + 1
   If retcolpi = 9 Then retcolpi9 = retcolpi9 + 1
   If retcolpi = 10 Then retcolpi10 = retcolpi10 + 1
   If retcolpi >= 11 Then retcolpi11 = retcolpi11 + 1
   If retcolpi > 0 Then retcolpitot = retcolpitot + 1
   avalori(13) = StringaNumeri(anum)
   If VerificaEsito(anum,ruo1,es + 1,2,11,,esito1,colpi1,estratti1,retidestr1) Then
    avalori(14) = StringaEstratti(retidestr1,r1)
   Else
    avalori(14) = ""
   End If
   If retcolpi >= 11 Then
    avalori(15) =(posta(2) + posta(3))*retcolpi -(posta(2) + posta(3))*2
   Else
    avalori(15) =(posta(2) + posta(3))*retcolpi*2
   End If
   sm = sm + avalori(15)
   If retcolpi < 11 Then
    If retesito = "Ambo" Then avalori(16) = Vincita(2,6)* posta(2) * 0.94
    If retesito = "Terno" Then avalori(16) = Vincita(3,6)* posta(3) * 0.94 +(Vincita(2,6)*3)* posta(2) * 0.94
   End If
   If retcolpi > 10 Then avalori(16) = 0
   sv = sv + avalori(16)
   avalori(17) = Int(avalori(16) - avalori(15))
   su = su + avalori(17)
   avalori(18) = DataEstrazione(es + retcolpi)
   avalori(19) = su
   Call AddRigaTabella(avalori,,,2)
   Call SetColoreCella(5,,7)
   Call SetColoreCella(6,,2)
   Call SetColoreCella(7,,1)
   Call SetColoreCella(8,,7)
   Call SetColoreCella(9,,7)
   Call SetColoreCella(10,,7)
   Call SetColoreCella(11,,7)
   Call SetColoreCella(12,,7)
   Call SetColoreCella(14,,1)
   If avalori(17) < 0 Then Call SetColoreCella(17,,2)
   If retesito = "Estratto" Then
    Totali = Totali + 1
   End If
   If retesito = "Ambo" Then
    Totambi = Totambi + 1
    Call SetColoreCella(4,vbMagenta)
   End If
   If retesito = "Terno" Then
    Call SetColoreCella(4,vbGreen)
    Totterni = Totterni + 1
   End If
   Totspesa = Totspesa + 1
   If avalori(19) < 0 Then Call SetColoreCella(19,,2)
  End If
 Next
 ReDim avalori(19)
 avalori(1) = "Totali "
 avalori(2) = "  "
 avalori(4) = Totali
 avalori(5) = "  "
 avalori(8) = ev1
 avalori(9) = ev2
 avalori(10) = ev3
 avalori(11) = ev4
 avalori(12) = ev5
 avalori(14) = "Totali..."
 avalori(15) = sm
 avalori(16) = Int(sv)
 avalori(17) = su
 avalori(18) = " Rend%"
 rend = avalori(16) / avalori(15) * 100
 avalori(19) = Int(rend) & "%"
 Call AddRigaTabella(avalori,vbGreen,,3)
 ReDim avalori(19)
 avalori(1) = "Tot. Ambi  "
 avalori(2) = "  "
 avalori(4) = Totambi
 Call AddRigaTabella(avalori,vbRed,,3)
 ReDim avalori(19)
 avalori(1) = "Tot.Terni  "
 avalori(2) = "  "
 avalori(4) = Totterni
 Call AddRigaTabella(avalori,vbMagenta,,3)
 CreaTabella
 Scrivi"Casi e colpi..... "
 ReDim atitoli(14)
 atitoli(1) = " Colpo 1 "
 atitoli(2) = " Colpo 2 "
 atitoli(3) = " Colpo 3 "
 atitoli(4) = " Colpo 4 "
 atitoli(5) = " Colpo 5 "
 atitoli(6) = " Colpo 6 "
 atitoli(7) = " Colpo 7 "
 atitoli(8) = " Colpo 8 "
 atitoli(9) = " Colpo 9 "
 atitoli(10) = " Colpo 10 "
 atitoli(11) = " Colpi Negativi "
 atitoli(12) = " Casi Totali "
 atitoli(13) = " Casi Positivi "
 atitoli(14) = " Rendimento % "
 Call InitTabella(atitoli,1,,2,4)
 ReDim avalori(14)
 avalori(1) = retcolpi1
 avalori(2) = retcolpi2
 avalori(3) = retcolpi3
 avalori(4) = retcolpi4
 avalori(5) = retcolpi5
 avalori(6) = retcolpi6
 avalori(7) = retcolpi7
 avalori(8) = retcolpi8
 avalori(9) = retcolpi9
 avalori(10) = retcolpi10
 avalori(11) = retcolpi11
 avalori(12) = retcolpiTot
 avalori(13) = avalori(12) - avalori(11)
 rend = avalori(13) / avalori(12) * 100
 avalori(14) = Int(rend) & "%"
 Call AddRigaTabella(avalori,4,,3)
 Call SetColoreCella(13,4,2)
 Call SetColoreCella(12,4,7)
 CreaTabella
 If dett = 1 Then
  Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
  For es = Ini To fin
   If Posizione(es,r1,sp) > 0 Then
    nu(1) = Estratto(es,r1,1)
    aruo(1) = BA_
    aruo(2) = CA_
    anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
    anum(2) = Fuori90(Estratto(es,FI_,1)*53)
    anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
    anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
    anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
    anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
    ImpostaGiocata 1,anum,aruo,posta,10,2
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi String(125,"="),1
    Gioca es,,,1
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi"Spesa Parziale....." & gs
    Scrivi"Vincite Parziale..." & gv
    Scrivi"Guadagno Parziale.." & gg
   End If
  Next
  ScriviResoconto
 End If
 If dett = 2 Then
  TestoInBandaPassante(" Listed by Mike58 "),1,3,0
 End If
End Sub

 

[LuigiB]

eheh visto che siamo in tema di script e non c'è piu il post a cui lo script che ho fatto si riferisce ho deciso di postarlo qui.
Il titolo altisonante è I terni Rilevatori ... (per me rivelano solo che con sto metodo ci si va sotto di brutto .... ad ogni modo...)
ciao

Option Explicit
Class clsTerno
	Private m_IdRuota
	Private aNum(3)
	Private m_diff

	Public Property Let aN(index,newVal)
		aNum(index) = newVal
	End Property
	Public Property Get aN(index)
		aN = aNum(index)
	End Property
	Public Property Let Diff(newVal)
	 m_diff = newVal
	End Property
	Public Property Get Diff()
	 Diff = m_diff
	End Property
	Public Property Let IdRuota(newVal)
	 m_IdRuota = newVal
	End Property
	Public Property Get IdRuota()
	 IdRuota = m_IdRuota
	End Property
	Function GetStringaNumeri()
	 GetStringaNumeri = StringaNumeri(aNum)
	End Function
End Class
Class clsContTerni
	Dim idEstr
	Dim coll
	Private Sub Class_Initialize()
		Set coll = GetNewCollection
	End Sub
	Sub AddTerno(cTerno)
		coll.add cTerno
	End Sub
	Function Count
		Count = coll.count
	End Function
End Class
Sub Main
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim collEstr
	Dim cContTerni 'as clsContTerni
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Set collEstr = GetNewCollection
	For idEstr = Inizio To Fine
		ReDim aEstr(11,5)
		If GetEstrazioneCompleta(idEstr,aEstr) Then
			Set cContTerni = New clsContTerni
			cContTerni.idEstr = idEstr
			Call AggiungiTerni(cContTerni,aEstr)
			If cContTerni.count > 0 Then
				collEstr.add cContTerni
			End If
		End If
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	Call InitGiocaCasi(collEstr)
	Call ScriviResoconto
	
End Sub
Sub InitGiocaCasi(CollEstr)
	Dim cContTerni
	Dim cContTerniTmp
	Dim k,kk,idEstr
	Dim nLimite
	nLimite = 4
	Call AvanzamentoElab(1,CollEstr.count - 1,1)
	DoEventsEx
	
	For k = 1 To CollEstr.count - 1
		Set cContTerni = CollEstr(k)
		idEstr = cContTerni.idEstr
		For kk = k + 1 To k + nLimite
			If kk <= CollEstr.count Then
				Set cContTerniTmp = CollEstr(kk)
				If cContTerniTmp.IdEstr - idEstr <= nLimite Then
					Call CercaCasiDaGiocare(cContTerni,cContTerniTmp,cContTerniTmp.IdEstr)
				End If
			End If
		Next
		Call DoEventsEx
		Call AvanzamentoElab(1,CollEstr.count - 1,k)
		If ScriptInterrotto Then Exit For
	Next
End Sub
Sub CercaCasiDaGiocare(cContTerni,cContTerniTmp,idEstrInizioGioco)
	Dim cTerno,cTernoTmp
	Dim e
	Dim SommaDelleSommeVert1
	Dim SommaDelleSommeVert2
	Dim SommaDelleSommeVert3
	Dim SommaDelleSommeVert4
	Dim nGiocata
	
	Call Messaggio("Ricerca casi in estrazione " & idEstrInizioGioco)
	For Each cTerno In cContTerni.Coll
		
		For Each cTernoTmp In cContTerniTmp.coll
			nGiocata = 0
			'==================
			ReDim aSommeVert1(3)
			For e = 1 To 3
				aSommeVert1(e) = Fuori90(cTerno.aN(e) + cTernoTmp.aN(e))
			Next
			SommaDelleSommeVert1 = 0
			For e = 1 To 3
				SommaDelleSommeVert1 = SommaDelleSommeVert1 + aSommeVert1(e)
			Next
			SommaDelleSommeVert1 = Fuori90(SommaDelleSommeVert1)
			'==================
			ReDim aSommeVert2(3)
			For e = 1 To 3
				aSommeVert2(e) = Fuori90(aSommeVert1(e) + SommaDelleSommeVert1)
			Next
			SommaDelleSommeVert2 = 0
			For e = 1 To 3
				SommaDelleSommeVert2 = SommaDelleSommeVert2 + aSommeVert2(e)
			Next
			SommaDelleSommeVert2 = Fuori90(SommaDelleSommeVert2)
			'==================
			ReDim aSommeVert3(3)
			For e = 1 To 3
				aSommeVert3(e) = Fuori90(aSommeVert2(e) + SommaDelleSommeVert2)
			Next
			SommaDelleSommeVert3 = 0
			For e = 1 To 3
				SommaDelleSommeVert3 = SommaDelleSommeVert3 + aSommeVert3(e)
			Next
			SommaDelleSommeVert3 = Fuori90(SommaDelleSommeVert3)
			'==================
			ReDim aSommeVert4(3)
			For e = 1 To 3
				aSommeVert4(e) = Fuori90(aSommeVert3(e) + SommaDelleSommeVert3)
			Next
			SommaDelleSommeVert4 = 0
			For e = 1 To 3
				SommaDelleSommeVert4 = SommaDelleSommeVert4 + aSommeVert4(e)
			Next
			SommaDelleSommeVert4 = Fuori90(SommaDelleSommeVert4)
			ReDim aB(90)
			aB(SommaDelleSommeVert1) = True
			aB(SommaDelleSommeVert2) = True
			aB(SommaDelleSommeVert3) = True
			aB(SommaDelleSommeVert4) = True
			If QuantitaNumSel(aB) = 2 Then
				Call ColoreTesto(Blu_)
				Call Scrivi(String(100,"-"))
				Call Scrivi(GetInfoEstrazione(cContTerni.IdEstr))
				Call Scrivi(SiglaRuota(cTerno.idRuota) & " " & cTerno.GetStringaNumeri & " (diff. " & cTerno.diff & ")")
				Call Scrivi(GetInfoEstrazione(cContTerniTmp.IdEstr))
				Call Scrivi(SiglaRuota(cTernoTmp.idRuota) & " " & cTernoTmp.GetStringaNumeri & " (diff. " & cTernoTmp.diff & ")")
				Call Scrivi("Ambo comune tra le somme verticali : " & SommaDelleSommeVert1 & "." & SommaDelleSommeVert2)
				Call ColoreTesto(0)
				Call GiocaCasiTrovati(SommaDelleSommeVert1,SommaDelleSommeVert2,cTerno.idRuota,cTernoTmp.IdRuota,idEstrInizioGioco,nGiocata)
			End If
		Next
	Next
	
End Sub
Sub GiocaCasiTrovati(n1,n2,Ruota1,Ruota2,idEstrInizioGioco,nGiocata)
	
	If Fuori90(n1 + n2) <> n1 And Fuori90(n1 + n2) <> n2 Then
		
		
		ReDim aN(1)
		aN(1) = Fuori90(n1 + n2)
		ReDim aRuote(2)
		aRuote(1) = Ruota1
		aRuote(2) = Ruota2
		ReDim aPoste(1)
		aPoste(1) = 1
		
		nGiocata = nGiocata + 1
		
		Call ImpostaGiocata(nGiocata,aN,aRuote,aPoste,10,1,,1)
		'Call Gioca (idEstrInizioGioco  )
		
		'ambo
		ReDim aN(2)
		aN(1) = Fuori90(n1 + n2)
		aN(2) = n1
		ReDim aRuote(2)
		aRuote(1) = Ruota1
		aRuote(2) = Ruota2
		ReDim aPoste(2)
		aPoste(2) = 1
		
		nGiocata = nGiocata + 1
		
	
		Call ImpostaGiocata(nGiocata,aN,aRuote,aPoste,10,2,,1)
		'Call Gioca (idEstrInizioGioco  )
		
		nGiocata = nGiocata + 1
		
		aN(2) = n2
		Call ImpostaGiocata(nGiocata,aN,aRuote,aPoste,10,2,,1)
		'Call Gioca (idEstrInizioGioco  )
		
	
		
		' ambo as tutte
		
		nGiocata = nGiocata + 1
		ReDim aRuote(1)
		aRuote(1) = 11
		aN(2) = n1
	
		Call ImpostaGiocata(nGiocata,aN,aRuote,aPoste,10,2,,1)
		'Call Gioca (idEstrInizioGioco  )
		
		nGiocata = nGiocata + 1
		ReDim aRuote(1)
		aRuote(1) = 11
		aN(2) = n2
	
		Call ImpostaGiocata(nGiocata,aN,aRuote,aPoste,10,2,,1)
		
		
		Call Gioca(idEstrInizioGioco)
	End If


	
End Sub
Sub AggiungiTerni(cContTerni,aEstr)
	Dim r,e,i,k
	Dim aColonne
	Dim cTerno
	Dim bEstrValida
	For r = 1 To 11
		ReDim aB(90)
		For e = 1 To 90
			aB(e) = False
		Next
		bEstrValida = False
		For e = 1 To 5
			If aEstr(r,e) > 0 Then
				bEstrValida = True
				aB(aEstr(r,e)) = True
			End If
		Next
		If bEstrValida Then
			i = 0
			ReDim aN(5)
			For e = 1 To 90
				If aB(e) Then
					i = i + 1
					aN(i) = e
				End If
			Next
			aColonne = SviluppoIntegrale(aN,3)
			For k = 1 To UBound(aColonne)
				If aColonne(k,3) - aColonne(k,2) = aColonne(k,2) - aColonne(k,1) Then
					Set cTerno = New clsTerno
					cTerno.idRuota = Iif(r = 11,12,r)
					cTerno.Diff = aColonne(k,3) - aColonne(k,2)
					For e = 1 To 3
						cTerno.aN(e) = aColonne(k,e)
					Next
					cContTerni.AddTerno(cTerno)
				End If
			Next
		End If
	Next
End Sub
Function QuantitaNumSel(aB)
	Dim k
	Dim t
	t = 0
	For k = 1 To 90
		If aB(k) Then t = t + 1
	Next
	QuantitaNumSel = t
End Function

 

[mastrogino]

ringrazio di vero cuore Mike58 e black per lo script grazie per la disponibilita dandomi lo script

x luigi ti considero in primibis una brava persona e anche un guru nel dimostrare il tuo talento
con il pc,
nn ho voluto inferire poiche ho capito la tua decisione e lo condivido in pieno
essendo che e assomigliante al mio .......nel chiedermi favori sulle metologie etc.

in verita e da alcuni mesi che ci provo ad iniziare a fare gli script ed come dice luigi ....
e uno strumento fondamentale x per ....per voi
ma mi rorrei impegnare ad impararlo .

domanda da dove comincio ??
se mi volete aiutarmi io sono pronto.