Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'ambata
pta(1) = 0.50 'la puntata sull'ambata((1) è di 1 euro
SetPremioPagatoFT 2,1,2.25,0.50 ' Ambo per Ambata
Dim pnr(2) ' i prossimi nr in gioco sono 2
'Dim po(5)
cicli = InputBox("inserire il num dei cicli(cicli di 3 estraz)di cui si vuol conoscere gli esiti ...",,12)
estraz = cicli*3
dal = EstrazioniArchivioFT - estraz
po = CInt(InputBox("Quale posizione conteggio Qui VERA ",,1))
al = EstrazioniArchivioFT
k = 3 ' i Kolpi in gioco sono 3
Scrivi FormatSpace("Range Statistico : " & GetInfoEstrazioneFT(dal) & "- - -" & GetInfoEstrazioneFT(al),86),True,True,,vbRed,3
Scrivi FormatSpace("Intervallo estrazioni : " & al - dal,86),True,True,,vbRed,3
Scrivi FormatSpace(" N° CICLI di 3 ESTRAZIONI : " & cicli,86),True,True,,vbRed,3
Call GetCipECiop(dal,al,k,cip,ciop)
If cip > 0 And ciop > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....
For n = dal To al Step 3 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 3 a cominciare dalla variabile " dal " ...+ 3.....+ 3 ecc fino alla fine
'al 1° numero di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così un numero e una volta " ciop " per l'ultreiore numero
Scrivi " giochiamo su " & "PE" & " e al " & po & "° di " & "PE" & " " & StringaEstrattiFT(n) & " " & " aggiugiamo una volta " & cip & " " & " e una volta " & ciop
'ng = 0
nr(1) = FuoriX(EstrattoFT(n,po) + cip,30)
nr(2) = FuoriX(EstrattoFT(n,po) + ciop,30)
Call ImpostaGiocataFT(1,nr,pta,k,1) ' imposto la giocata e la stoppo all'uscita dell'ambata = 1
GiocaFT n,,,1
Next
es = EstrazioniArchivioFT + 1
Scrivi " la prossima giocata da effettuare dall'estr n° " & n & " " & " su " & "PE " & " e al " & po & "° di " & " PE" & " " & StringaEstrattiFT(n)
pnr(1) = FuoriX(EstrattoFT(es - 1,po) + cip,30)
pnr(2) = FuoriX(EstrattoFT(es - 1,po) + ciop,30)
Scrivi " aggiugiamo una volta " & cip & " " & " e una volta " & ciop & " " & "cosi da avere i num da giocare " & pnr(1) & " " & pnr(2)
ScriviResocontoFT
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub
Sub Sviluppoambi(aRetAmbi)' questa seconda routine combina i numeri in ambi
ReDim aN(30)
Dim k
For k = 1 To 30 ' k sono i 30 numeri
aN(k) = k
Next
aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,Colpi,Cip,Ciop)'Questa terza Sub cerca la prima coppia che soddisfa la condizione ed esce.
Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
po = CInt(InputBox("Metti la posiz Vera -1 (0 per la 1^, 1 x la 2^ ..4 per la 5^ ",,0))
Cip = 0
Ciop = 0
Call Sviluppoambi(arrAmbi)
For k = 1 To UBound(arrAmbi)
bFound = True 'bFound è una variabile che assume il valore di vero
For idEstr = Inizio To Fine - 1 Step 3'ciclo delle estrazioni
ReDim aNumInGioco(2)
i = 0
e = 1 ' "e" è la posizione
aNumInGioco(e) = FuoriX(EstrattoFT(idEstr,e + po) + arrAmbi(k,1),30)
aNumInGioco(i) = FuoriX(EstrattoFT(idEstr,e + po) + arrAmbi(k,2),30)
'Next
If VerificaEsitoFT(aNumInGioco,idEstr + 1,1,Colpi) = False Then
bFound = False
Exit For
End If
Next
If bFound Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata all'estrazione Base (step 3) ha sempre generato un' ambata")
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))
Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next
End Sub
