Richiesta script x DjNomade

[Blackmore]

Non ho Spaziometria, ma so che nell'output col tasto destro poi esportare in excel
prova così, una volta che hai l'output esporta in excel e vedi se formatta come vuoi
PS: se funziona, gli altri script dovrai modificarli tu, o dj etc...
ciao

Codice: Seleziona tutto

' Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi
Sub Main()
   Dim mt(4005,5),n(2),ru(2),ambo(3),poste(5),ruote(2)
   Scrivi ""
   ' Scrivi " • Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi ",1
   ' Scrivi ""
   poste(1) = 1
   poste(2) = 1
   a = InputBox("Digita 1°  Numero Spia "," SPIA","44")
   b = InputBox("Digita 2°  Numero Spia "," SPIA","66")
   r = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",2))
   r1 = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",3))
   'rr = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",2))
   'rr1 = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",3))
   cl = CInt(InputBox("Per quanti colpi ?","COLPI",6))'colpi
   ca = CInt(InputBox("QUANTI CASI A RITROSO ESAMINO ?","",10))
   ru(1) = r
   ru(2) = r1
   ruote(1) = r
   ruote(2) = r1
   caso = 0
   ini = EstrazioneFin - ca
   fin = EstrazioneFin'-cl  'estrazione finale
   cc = 0
   For es = ini To 1 Step - 1
      If(Posizione(es,r,a) > 0 And Posizione(es,r1,b) > 0)Or(Posizione(es,r,b) > 0 And Posizione(es,r1,a) > 0) Then
         caso = caso + 1
         If caso < ca + 1 Then
            cc = cc + 1
            co = 0
            For i = 1 To 90
               n(1) = i
               'For j=i+1 To 90
               'n(2)=j
               co = co + 1
               mt(co,1) = co
               mt(co,2) = n(1)
               mt(co,3) = NomeRuota(r)
               mt(co,4) = NomeRuota(r1)
               fr = SerieFreq(es + 1,es + cl,n,ru,1)
               mt(co,5) = mt(co,5) + fr
            Next
            '      Next
            'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
            '----------------------------------------------------
            ColoreTesto 2
            Scrivi DataEstrazione(es) & "  " & es & " " & NomeRuota(r) & "  " & StringaEstratti(es,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(es,r1," ")
            For z = es + 1 To es + cl
               ColoreTesto 1
               Scrivi DataEstrazione(z) & "  " & z & " " & NomeRuota(r) & "  " & StringaEstratti(z,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(z,r1," ")
            Next
            ' Scrivi" '------------------- caso n° " & caso
            Scrivi" "
            ColoreTesto 0
            '----------------------------------------------------
            ColoreTesto 0
         End If
      End If
   Next
   OrdinaMatrice mt,- 1,5
   ' Scrivi "NUMERI SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)&"   "& NomeRuota(r1)
   ' Scrivi "Uscito "&cc&" volte da "& DataEstrazione(z-cl-1)&" a "& DataEstrazione (fin)
   ' Scrivi "NUMERI più Frequenti in gioco per colpi: " & cl &" sulla ruota " & NomeRuota(r)&"   "& NomeRuota(r1)
   Scrivi " " '--------------------------------------------------"
   'Scrivi" N      RUOTA  RUOTA         Tot"
   For xx = 1 To 90
      Scrivi Format2(mt(xx,2)) & "         " & SiglaRuota(r) & "         " & SiglaRuota(r1) & "      " & mt(xx,5)
   Next
   ColoreTesto 0
   'Scrivi String(65,"*"),1
   '--------------------------------- Terzina
   caso = 0
   iniz = EstrazioneFin - ca 'estrazione di partenza
   fine = EstrazioneFin'-cl  'estrazione finale
   For es1 = iniz To fine
      If(Posizione(es1,r,a) > 0 And Posizione(es1,r1,b) > 0)Or(Posizione(es1,r,b) > 0 And Posizione(es1,r1,a) > 0) Then
         caso = caso + 1
         If caso < ca + 1 Then
            ambo(1) =(mt(1,1))
            ambo(2) =(mt(2,1))
            ambo(3) =(mt(3,1))
            ImpostaGiocata 1,ambo,ruote,poste,cl,3
         End If
         '  Gioca es1
      End If
   Next
   Scrivi ""
   'Scrivi "  Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi",1
   Scrivi""
   '   ScriviResoconto
End Sub

[Master]

Ciao a tutti
Cercherò di spiegarti con delle immagini la procedura di spaziometria per l'esportazone in Excel
utilizzando l'ultimo script di Blackmore con una piccola modifica,
UNO

Is1.jpg

DUE

Is2.JPG

TRE

Is4.jpg

Questo lo script provalo

Codice: Seleziona tutto

 ' Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi
Sub Main()
   Dim mt(4005,5),n(2),ru(2),ambo(3),poste(5),ruote(2)
   Scrivi ""
   ' Scrivi " • Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi ",1
   ' Scrivi ""
   poste(1) = 1
   poste(2) = 1
   a = InputBox("Digita 1°  Numero Spia "," SPIA","44")
   b = InputBox("Digita 2°  Numero Spia "," SPIA","66")
   r = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",2))
   r1 = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",3))
   'rr = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",2))
   'rr1 = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",3))
   cl = CInt(InputBox("Per quanti colpi ?","COLPI",6))'colpi
   ca = CInt(InputBox("QUANTI CASI A RITROSO ESAMINO ?","",10))
   ru(1) = r
   ru(2) = r1
   ruote(1) = r
   ruote(2) = r1
   caso = 0
   ini = EstrazioneFin - ca
   fin = EstrazioneFin'-cl  'estrazione finale
   cc = 0
   For es = ini To 1 Step - 1
      If(Posizione(es,r,a) > 0 And Posizione(es,r1,b) > 0)Or(Posizione(es,r,b) > 0 And Posizione(es,r1,a) > 0) Then
         caso = caso + 1
         If caso < ca + 1 Then
            cc = cc + 1
            co = 0
            For i = 1 To 90
               n(1) = i
               'For j=i+1 To 90
               'n(2)=j
               co = co + 1
               mt(co,1) = co
               mt(co,2) = n(1)
               mt(co,3) = NomeRuota(r)
               mt(co,4) = NomeRuota(r1)
               fr = SerieFreq(es + 1,es + cl,n,ru,1)
               mt(co,5) = mt(co,5) + fr
            Next
            '      Next
            'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
            '----------------------------------------------------
            ColoreTesto 2
            Scrivi DataEstrazione(es,,,"/") & "  " & es & " " & NomeRuota(r) & "  " & StringaEstratti(es,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(es,r1," ")
            For z = es + 1 To es + cl
               ColoreTesto 1
               Scrivi DataEstrazione(z,,,"/") & "  " & z & " " & NomeRuota(r) & "  " & StringaEstratti(z,r," ") & "    " & NomeRuota(r1) & "  " & StringaEstratti(z,r1," ")
            Next
            ' Scrivi" '------------------- caso n° " & caso
            Scrivi" "
            ColoreTesto 0
            '----------------------------------------------------
            'ColoreTesto 0
         End If
      End If
   Next
   OrdinaMatrice mt,- 1,5
   ' Scrivi "NUMERI SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)&"   "& NomeRuota(r1)
   ' Scrivi "Uscito "&cc&" volte da "& DataEstrazione(z-cl-1)&" a "& DataEstrazione (fin)
   ' Scrivi "NUMERI più Frequenti in gioco per colpi: " & cl &" sulla ruota " & NomeRuota(r)&"   "& NomeRuota(r1)
   Scrivi " " '--------------------------------------------------"
   'Scrivi" N      RUOTA  RUOTA         Tot"
   For xx = 1 To 90
      Scrivi Format2(mt(xx,2)) & "         " & SiglaRuota(r) & "         " & SiglaRuota(r1) & "      " & mt(xx,5)
   Next
   ColoreTesto 0
   'Scrivi String(65,"*"),1
   '--------------------------------- Terzina
   caso = 0
   iniz = EstrazioneFin - ca 'estrazione di partenza
   fine = EstrazioneFin'-cl  'estrazione finale
   For es1 = iniz To fine
      If(Posizione(es1,r,a) > 0 And Posizione(es1,r1,b) > 0)Or(Posizione(es1,r,b) > 0 And Posizione(es1,r1,a) > 0) Then
         caso = caso + 1
         If caso < ca + 1 Then
            ambo(1) =(mt(1,1))
            ambo(2) =(mt(2,1))
            ambo(3) =(mt(3,1))
            ImpostaGiocata 1,ambo,ruote,poste,cl,3
         End If
         '  Gioca es1
      End If
   Next
   Scrivi ""
   'Scrivi "  Ambate + freq dopo 2 numeri spia su 2 Ruote con ricerca n. casi",1
   Scrivi""
   '   ScriviResoconto
End Sub


SE non riesci e ti risulta scomodo utilizzare Esporta in Excel e preferisci usare il copia incolla delle sole linne che ti servono fammelo sapere che ti metto uno script in tabella
buona serata

[DjNomade]

Evvaiiii 51miky arrivano rinforziiii...sei in buone mani...Notte a Tutti!!!!!

[51miky]

x Master
i numeri incolonnati mi vanno bene visti a video.
Ho eseguito il comando esporta in excel, poi ho fatto importa e va bene come si incolla nel foglio excel, proprio come
volevo, un numero in ogni cella come esempio da te mostrato
Se noti ci sono alcune estrazioni con le date mentre altre ci sono numeri strani. Qui ho postato solo poche estrazioni ti assicuro che le altre sono identiche. Mentre i frequenti da 1 a 90 vanno benissimo.
Mi chiedo: dipende come è impostato il mio foglio excel?
E' lo scirpt che fa così? Grazie se mi fai capire cosa devo fare.

44-33 foto.png

[Master]

Ciao 51Miky
Credo che in quel caso non stai usando l'ultimo script modificato che ho messo - il 13/01/2017, 20:32

fammi sapere

[51miky]

grazie Master x aver sistemato e incolonnato la ricerca delle ambate.
Ti chiedo troppo se mi sistemi anche lo script che ricerca l'ambo su almeno una ruota, che gentilmente mi ha fatto DjNomade?
Grazie ancora ....

[Master]

Ciao 51miky
L'ho già pronto... appena rientro lo metto

[Master]

Ciao
Script per ambo modificato per "esportare in Excel"
usa le stesse indicazioni che ti ho indicato sopra

Codice: Seleziona tutto

 ' Ambate + freq dopo AMBO spia su UNA delle Due  Ruote scelte con ricerca n. casi
Sub Main()
   Dim mt(4005,5),n(2),ru(2),ambo(3),poste(5),ruote(2),nu2(2),ruo(1),ruo1(1)
   Scrivi ""
   'Scrivi " •Ambate + freq dopo AMBO spia su UNA delle Due  Ruote scelte con ricerca n. casi ",1
   'Scrivi ""
   poste(1) = 1
   poste(2) = 1
   a = InputBox("Digita 1°  Numero AMBO Spia "," SPIA","44")
   b = InputBox("Digita 2°  Numero AMBO Spia "," SPIA","66")
   r = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",2))
   r1 = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",3))
   'rr = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",2))
   'rr1 = CInt(InputBox("RUOTA DI  GIOCO ","RUOTA di GIOCO",3))
   cl = CInt(InputBox("Per quanti colpi ?","COLPI",6))'colpi
   ca = CInt(InputBox("QUANTI CASI A RITROSO ESAMINO ?","",10))
   ru(1) = r
   ru(2) = r1
   ruote(1) = r
   ruote(2) = r1
   caso = 0
   ini = EstrazioneFin - ca
   fin = EstrazioneFin'-cl  'estrazione finale
   cc = 0
   For es = ini To 1 Step - 1
      ruo(1) = r
      ruo1(1) = r1
      'If (Posizione(es,r,a)>0 And Posizione(es,r1,b)>0)Or (Posizione(es,r,b)>0 And Posizione(es,r1,a)>0) Then
      nu2(1) = a: nu2(2) = b
      rit2 = SerieRitardo(es,es,nu2,ruo,2)
      rit22 = SerieRitardo(es,es,nu2,ruo1,2)
      If rit2 = 0 Or rit22 = 0 Then
         caso = caso + 1
         If caso < ca + 1 Then
            cc = cc + 1
            co = 0
            For i = 1 To 90
               n(1) = i
               'For j=i+1 To 90
               'n(2)=j
               co = co + 1
               mt(co,1) = co
               mt(co,2) = n(1)
               mt(co,3) = NomeRuota(r)
               mt(co,4) = NomeRuota(r1)
               fr = SerieFreq(es + 1,es + cl,n,ru,1)
               mt(co,5) = mt(co,5) + fr
            Next
            '      Next
            'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
            '----------------------------------------------------
            ColoreTesto 2
            Scrivi DataEstrazione(es,,,"/") & "  " & es & " " & NomeRuota(r) & "  " & StringaEstratti(es,r," ") & "    " & NomeRuota(r1) & " " & StringaEstratti(es,r1," ")
            For z = es + 1 To es + cl
               ColoreTesto 1
               Scrivi DataEstrazione(z,,,"/") & "  " & z & " " & NomeRuota(r) & "  " & StringaEstratti(z,r," ") & "    " & NomeRuota(r1) & " " & StringaEstratti(z,r1," ")
            Next
            'Scrivi" '------------------- caso n° " & caso
            Scrivi
            ColoreTesto 0
            '----------------------------------------------------
            ColoreTesto 0
         End If
      End If
   Next
   OrdinaMatrice mt,- 1,5
   'Scrivi "NUMERI SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)&"   "& NomeRuota(r1)
   'Scrivi "Uscito "&cc&" volte da "& DataEstrazione(z-cl-1)&" a "& DataEstrazione (fin)
   'Scrivi "NUMERI più Frequenti in gioco per colpi: " & cl &" sulla ruota " & NomeRuota(r)&"   "& NomeRuota(r1)
   'Scrivi "--------------------------------------------------"
   'Scrivi"Numero          Tot. uscite"
   For xx = 1 To 90
      Scrivi Format2(mt(xx,2)) & "         " & SiglaRuota(r) & "         " & SiglaRuota(r1) & "      " & mt(xx,5)
      'Scrivi Format2(mt(xx,2))&" "&mt(xx,3)&" "&mt(xx,4)&" "&mt(xx,5)
   Next
   ColoreTesto 0
   'Scrivi String(65,"*"),1
   '--------------------------------- Terzina
   caso = 0
   iniz = EstrazioneFin - ca 'estrazione di partenza
   fine = EstrazioneFin'-cl  'estrazione finale
   For es1 = iniz To fine
      ' If   (Posizione(es1,r,a)>0 And Posizione(es1,r1,b)>0)Or (Posizione(es1,r,b)>0 And Posizione(es1,r1,a)>0)  Then
      If rit2 = 0 Or rit22 = 0 Then
         caso = caso + 1
         If caso < ca + 1 Then
            ambo(1) =(mt(1,1))
            ambo(2) =(mt(2,1))
            ambo(3) =(mt(3,1))
            ImpostaGiocata 1,ambo,ruote,poste,cl,3
         End If
         '  Gioca es1
      End If
   Next
   Scrivi '""
   Scrivi '"  Ambate + freq dopo AMBO spia su UNA delle Due  Ruote scelte con ricerca n. casi",1
   Scrivi '""
   '   ScriviResoconto
End Sub


[51miky]

Scusami Master, mi si incolonnano male.....Mi è sfuggito un passaggio? Ho preso lo script giusto?
Ti mando un esempio dello script x ambo

x Master.png

[Master]

Ciao 51 miky
Già è vero stavolta sono io che ho dimenticato 1 passaggio
prova ora .. riprendi quello sopra
fammi sapere se è ok
COMPLIMENTI PER L'AMBO!!