In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da Blackmore il 13/01/2017, 16:05
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
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da Master il 13/01/2017, 20:32
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, UNOIs1.jpg DUEIs2.JPG TREIs4.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 tabellabuona serata
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da DjNomade il 13/01/2017, 23:29
Evvaiiii 51miky arrivano rinforziiii...sei in buone mani...Notte a Tutti!!!!!
-
DjNomade
-
- Messaggi: 690
- Iscritto il: 24/03/2013, 22:21
da 51miky il 17/01/2017, 21:59
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
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
51miky
-
- Messaggi: 5402
- Iscritto il: 04/06/2013, 12:18
da Master il 18/01/2017, 12:04
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
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da 51miky il 18/01/2017, 16:38
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 ....
-
51miky
-
- Messaggi: 5402
- Iscritto il: 04/06/2013, 12:18
da Master il 18/01/2017, 20:05
Ciao 51miky L'ho già pronto... appena rientro lo metto
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da Master il 18/01/2017, 23:13
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
Ultima modifica di Master il 20/01/2017, 0:35, modificato 1 volta in totale.
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da 51miky il 19/01/2017, 15:20
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
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
51miky
-
- Messaggi: 5402
- Iscritto il: 04/06/2013, 12:18
da Master il 20/01/2017, 0:25
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!!
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|