xCinzia27...adattatori sui numeri estratti..

[Zetrix]

Ciao Cinzia.
volevo chiederti se tra i tuoi script ai uno script che calcola l'adattatore su ogni numero estratto,
scrivo un esempio sul 1 estratto di BA si sommano gli adattatori da 1 a 90
in seguito lo script deve scrivere l'adattatore che a dato esito dell'estratto su BA la estr successiva quindi non dopo 8 o 9 estr..
in questo modo lo script farà il calcolo su 30 estr solo sul 1 estratto di BA
in modo che lo script ci dirà quale e l'adattatore che non si e mai sommato sul 1 estratto di BA..
e non a dato mai la vincita dell'estratto nella estr successiva..
ho diversi script che usano gli adattatori ma sono impostati tutte con gli indici mensili
ma con l'aggiunta della quarta estr i sommativi e gli indici mensili saranno tutti sballati..
quindi meglio sommare gli adattatori su un numero estratto e su una ruota ad ogni estr..
una volta mi ricordo che uno l'aveva scritto uno script fatto in questo modo ma non lo trovo tra i miei script

 

[Zetrix]

Sub Main
   Dim ambata1(2),ambata2(2),ruota(5),ruote(5),posta(1),poste(2)
   Dim rs,rv,rx,rk,sr
   Dim adattatori(1)
   Dim a,b,c,d,e,f,g,h,i,l,x,y,k
   Dim r1,r2,r3,r4
   posta(1) = 1
   poste(2) = 1
   sr = ScegliRuota
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = sr To sr
         For y = 1 To 90
            '
            '
            a = Estratto(es - 1,r1,1)
            b = Estratto(es - 1,r1,2)
            c = Estratto(es - 1,r1,3)
            d = Estratto(es - 1,r1,4)
            e = Estratto(es - 1,r1,5)
            '
            x = Fuori90(y + a)
            '
            f = Estratto(es,r1,1)
            g = Estratto(es,r1,2)
            h = Estratto(es,r1,3)
            i = Estratto(es,r1,4)
            l = Estratto(es,r1,5)
            '
            If x = f Or x = g Or x = h Or x = i Or x = l Then
               '
               ambata1(1) = x
               '------------------------------
               adattatori(1) = y
               '
               ruota(1) = r1
               '-----------------------------
               '----------------------------
               ReDim MatriceCaselleDaEvid(5,1)
               '
               MatriceCaselleDaEvid(1,0) = r1
               MatriceCaselleDaEvid(1,1) = 1
               '
               MatriceCaselleDaEvid(2,0) = r1
               MatriceCaselleDaEvid(2,1) = 2
               '
               MatriceCaselleDaEvid(3,0) = r1
               MatriceCaselleDaEvid(3,1) = 3
               '
               MatriceCaselleDaEvid(4,0) = r1
               MatriceCaselleDaEvid(4,1) = 4
               '
               MatriceCaselleDaEvid(5,0) = r1
               MatriceCaselleDaEvid(5,1) = 5
               '
               Call DisegnaEstrazione(es-1,MatriceCaselleDaEvid)
               '
               Scrivi("1°estratto " & a & " su " & SiglaRuota(r1) & " adattatore + " & y & "") & "",0,1,1,5,4
               Scrivi
               ImpostaGiocata 1,ambata1,ruota,posta,k,1
               Gioca es - 1,1,,1
               Scrivi
            End If
         Next
         Scrivi StringaNumeri(adattatori) & ".",0,1
      Next
   Next
End Sub

ho scritto questo script ma si deve scrivere quale e l'adattatore
che non si e mai sommato al 1 estratto di BA e non a mai dato la vincita nella estr successiva

 

[Cinzia27]

Ciao, Zetrix.
Fai i dovuti controlli.

' Per Zetrix: metodo il sommativo per ogni numero che non ha mai dato esito a colpo (Cinzia27)
Sub Main()
Dim ru(1),n(1)
w=1'colpi
ini=EstrazioneFin-100
Scrivi "Dall'estrazione "&ini&" all'estrazione "&EstrazioneFin
For r=1 To 10
If ScriptInterrotto Then Exit For

cc=0
ru(1)=r
For x=1 To 90
cc=0


For es=ini To EstrazioneFin

If ScriptInterrotto Then Exit For
p=1'qui puoi cambiare la posizione dell'estratto estratto
x1=Estratto(es,r,p)
n(1)=Fuori90(x+x1)
fr= SerieFreq(es+1,es+1,n,ru,1)
If fr>0 Then 
cc=cc+1
'Scrivi "Sommativo"& FormatSpace(x,3,1)&" n. "&Format2(x1)&" "& _
'FormatSpace(es,5,1)&" "&FormatSpace(es+1,5,1)&" "& _
'SiglaRuota(r)&" "&FormatSpace(co,4,1)

End If


Next
If cc=0 Then Scrivi "A "&siglaruota(r)&" il sommativo "& Format2(x)&" con il "& p&"° estratto ha dato ambata al 1° colpo per "&cc&" volte"
Next
Next



End Sub

 

[Zetrix]

Cinzia lo script e perfetto brava, volevo chiedere un altra cosa si puo inserire il calcolo della previsione
in corso sulla successiva estr..
se no dovrei fare i calcoli con carta e penna..

 

[Zetrix]

Cinzia vuoi giocare una ambata su TO..per domani..
ho scritto uno script che calcola le triangolazioni dei numeri sulle estr su ogni ruota..

 

[Cinzia27]

Vai con 'l'ambata, Zetrix.
Per quanti colpi?

 

[Zetrix]

Cinzia l'ambata la tentiamo solo per domani e anche in Pos..
adesso ti farò vedere le triangolazioni dei numeri IN TABELLA..

 

[Zetrix]

Cinzia questa e la prima triangolazione del numero 62 , ai visto che tabelle..

 

[Zetrix]

Cinzia e questa e la seconda triangolazione del numero 62, questa ambata e fortissima a TO..
ho convergenza anche con l'ambata contata, la tentiamo nella 3°POS
che abb ai a TO.. ?
vogliamo tentare con il sommativo a TO ..se no devo vedere domani se ho qualche abb per ambo..

 

[Zetrix]

Cinzia forse ho trovato l'abb con il 62 a TO
aspetta adesso aggiorno le tabelle dei cruciverba

 

[Cinzia27]

Ciao, Zetrix.
Non ho capito i calcoli che fai.

Ti ho aggiunto la situazione in corso.

' Per Zetrix: metodo il sommativo per ogni numero che non ha mai dato esito a colpo (Cinzia27)
Sub Main()
Dim ru(1),n(1)
w=1'colpi
ini=EstrazioneFin-100
Scrivi "Dall'estrazione "&ini&" all'estrazione "&EstrazioneFin
For r=1 To 10
If ScriptInterrotto Then Exit For

cc=0
ru(1)=r
For x=1 To 90
cc=0


For es=ini To EstrazioneFin

If ScriptInterrotto Then Exit For
p=1'qui puoi cambiare la posizione dell'estratto estratto
x1=Estratto(es,r,p)
n(1)=Fuori90(x+x1)
fr= SerieFreq(es+1,es+1,n,ru,1)
If fr>0 Then 
cc=cc+1
'Scrivi "Sommativo"& FormatSpace(x,3,1)&" n. "&Format2(x1)&" "& _
'FormatSpace(es,5,1)&" "&FormatSpace(es+1,5,1)&" "& _
'SiglaRuota(r)&" "&FormatSpace(co,4,1)

End If


Next
If cc=0 Then xx=x:xx1=x1:Scrivi "A "&siglaruota(r)&" il sommativo "& Format2(x)&" con il "& p _
&"° estratto ha dato ambata al 1° colpo per "&cc _
&" volte":ri="  In corso sulla successiva estrazione 1° estratto "&xx1&" più sommativo "&xx&"="&fuori90(xx1+xx)


Next
If ri<>ri1 Then Scrivi ri
ri1=ri
Next



End Sub

 

[Zetrix]

ok CINZIA, i calcoli sulle tabelle uso degli algoritmi e poi le tabelle mettono in ordine i numeri in sequenza
di queste tabelle ne ho scritti piu di cinquanta tabelle a tre numeri a quattro numeri a cinque numeri
e anche a sei numeri..
qualche giorno ti farò vedere altre tabelle e rimarrai meravigliata di queste tabelle..

 

[Zetrix]

Na_________64__63_________
Pa_________62__61_________
Ro_________42__41_________

wow Cinzia ,
mannaggia io scrivo nel gruppo privato adesso le mie amiche mi devono rimprovare..
questo e l'ambo e lo tentiamo a TO ..

Numeri in gioco 62.41 su TT per Ambo
In corso

 

[Zetrix]

Cinzia se vuoi giocare l'ambo con il numero ORO e a tua scelta
se uno dei numeri esce nella 5 POS vinciamo 600 euro..
ma in caso non dovesse sortire nessuno numero nella 5 POS si vincono 230 euro
ecco il gioco del numero ORO che a fatto il banco
ce la trappola e questo per tentare di vincere 140 euro in piu (con il numero ORO)
ma se ci metti 2 euro solo sull'ambo vinci 460 euro sicuri (senza trappola) senza indovinare il numero ORO
insomma chi a ideato il gioco del numero ORO lo a fatto con la trappola e non e giusto il gioco che hanno fatto
ma siamo in italia il paese dei balocchi per non scrivere un altra parola..

 

[Zetrix]

Cinzia grazie per lo script sei piu brava di me a scrivere gli script..
un altro giorno ti farò vedere un altro gioco sulle tabelle con i numeri ordinati in sequenza..