Per Gli Amanti della Tavola Settenaria (In Tabella)

Roby · 2 Ottobre 2013

Ok appena finito lo script lo posto...
Ciao !!!

franca46 · 2 Ottobre 2013

è giusto cosi' ?

Codice:

Genova Somma estratti - 189 (FUORI 90) -----> 9

sab 28.09.2013 [ Ge - 46.03.04.47.89 ]

sab 28.09.2013  [8749]
  G  2:  AT      09.05.87.02.89   Ge    1/12    
     A  89.09            su Ge    1° colpo   [8750/01.10.2013]
     in corso (1° su 12)
  G  3:  AT      09.05.87.02.89   Tu    1/12    
     A  89.09            su Tu (Ge)    1° colpo   [8750/01.10.2013]
     in corso (1° su 12)

franca46 · 2 Ottobre 2013

Blackmore ha scritto:
Ok appena finito lo script lo posto...
Ciao !!!

io pure , li confronto , ok ?

ciao

Roby · 2 Ottobre 2013

Ciao Gioacchino dovrebbe essere ok
Fammi sapere se ti va bene
Ciao

Codice:

Sub Main()
	Dim ruote(10),quartina(4),poste(4)
	poste(2) = 1 : poste(3) = 1 : poste(4) = 1
	im = CInt(InputBox("INDICE  MENSILE ? " & Chr(13) & "INSERISCI  0  PER  L' ULTIMA  DEL  MESE","BLACKMORE",0))
	r = CInt(InputBox("SCEGLI  LA  RUOTA  DI  RICERCA","BLACKMORE",1))
	r1 = CInt(InputBox("SCEGLI  LA  1° RUOTA  DI  GIOCO","BLACKMORE",1))
	r2 = CInt(InputBox("SCEGLI  LA  2° RUOTA  DI  GIOCO","BLACKMORE",11))
	k = InputBox("COLPI  DI  GIOCO ?","BLACKMORE",12)
	Ini = InputBox("INIZIO  RICERCA  DALL'  ESTRAZIONE  N° ?","BLACKMORE",8200)
	fin = EstrazioneFin
	For es = Ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio " METODO DI SCHIRO' - SCRIPT BY BALCKMORE "
		ultest = 8749
		If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
			ruote(1) = r1 : ruote(2) = r2
			xx = Fuori90(SommaEstratti(es,r))
			Select Case(xx)
				Case(01): q1 = 53 : q2 = 41 : q3 = 38 : q4 = 05
				Case(02): q1 = 32 : q2 = 06 : q3 = 56 : q4 = 37
				Case(03): q1 = 41 : q2 = 35 : q3 = 74 : q4 = 19
				Case(04): q1 = 50 : q2 = 46 : q3 = 02 : q4 = 01
				Case(05): q1 = 59 : q2 = 35 : q3 = 20 : q4 = 17
				Case(06): q1 = 68 : q2 = 12 : q3 = 38 : q4 = 35
				Case(07): q1 = 77 : q2 = 17 : q3 = 56 : q4 = 53
				Case(08): q1 = 86 : q2 = 08 : q3 = 74 : q4 = 71
				Case(09): q1 = 05 : q2 = 87 : q3 = 02 : q4 = 89
				Case(10): q1 = 14 : q2 = 10 : q3 = 20 : q4 = 73
				Case(11): q1 = 03 : q2 = 01 : q3 = 08 : q4 = 85
				Case(12): q1 = 72 : q2 = 16 : q3 = 26 : q4 = 43
				Case(13): q1 = 81 : q2 = 13 : q3 = 44 : q4 = 61
				Case(14): q1 = 90 : q2 = 04 : q3 = 62 : q4 = 79
				Case(15): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(16): q1 = 18 : q2 = 42 : q3 = 08 : q4 = 65
				Case(17): q1 = 27 : q2 = 23 : q3 = 26 : q4 = 47
				Case(18): q1 = 36 : q2 = 06 : q3 = 44 : q4 = 29
				Case(19): q1 = 45 : q2 = 41 : q3 = 62 : q4 = 11
				Case(20): q1 = 64 : q2 = 16 : q3 = 40 : q4 = 07
				Case(21): q1 = 73 : q2 = 21 : q3 = 68 : q4 = 05
				Case(22): q1 = 52 : q2 = 48 : q3 = 86 : q4 = 03
				Case(23): q1 = 61 : q2 = 15 : q3 = 14 : q4 = 21
				Case(24): q1 = 70 : q2 = 06 : q3 = 32 : q4 = 39
				Case(25): q1 = 79 : q2 = 15 : q3 = 50 : q4 = 57
				Case(26): q1 = 88 : q2 = 06 : q3 = 68 : q4 = 75
				Case(27): q1 = 07 : q2 = 03 : q3 = 86 : q4 = 87
				Case(28): q1 = 16 : q2 = 36 : q3 = 14 : q4 = 69
				Case(29): q1 = 25 : q2 = 21 : q3 = 32 : q4 = 51
				Case(30): q1 = 34 : q2 = 90 : q3 = 50 : q4 = 33
				Case(31): q1 = 83 : q2 = 11 : q3 = 38 : q4 = 65
				Case(32): q1 = 62 : q2 = 06 : q3 = 53 : q4 = 23
				Case(33): q1 = 71 : q2 = 05 : q3 = 74 : q4 = 41
				Case(34): q1 = 80 : q2 = 14 : q3 = 02 : q4 = 59
				Case(35): q1 = 89 : q2 = 05 : q3 = 20 : q4 = 77
				Case(36): q1 = 08 : q2 = 04 : q3 = 38 : q4 = 85
				Case(37): q1 = 17 : q2 = 13 : q3 = 56 : q4 = 67
				Case(38): q1 = 26 : q2 = 22 : q3 = 74 : q4 = 49
				Case(39): q1 = 35 : q2 = 31 : q3 = 02 : q4 = 13 'Il 31 è doppio quindi si gioca il Vertibile 13
				Case(40): q1 = 44 : q2 = 50 : q3 = 20 : q4 = 13
				Case(41): q1 = 33 : q2 = 03 : q3 = 08 : q4 = 35
				Case(42): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(43): q1 = 81 : q2 = 13 : q3 = 44 : q4 = 61
				Case(44): q1 = 90 : q2 = 04 : q3 = 62 : q4 = 72
				Case(45): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(46): q1 = 18 : q2 = 42 : q3 = 08 : q4 = 65
				Case(47): q1 = 27 : q2 = 23 : q3 = 26 : q4 = 47
				Case(48): q1 = 36 : q2 = 06 : q3 = 44 : q4 = 29
				Case(49): q1 = 45 : q2 = 41 : q3 = 62 : q4 = 11
				Case(50): q1 = 64 : q2 = 16 : q3 = 40 : q4 = 07
				Case(51): q1 = 19 : q2 = 09 : q3 = 68 : q4 = 75
				Case(52): q1 = 82 : q2 = 36 : q3 = 86 : q4 = 63
				Case(53): q1 = 01 : q2 = 03 : q3 = 14 : q4 = 81
				Case(54): q1 = 10 : q2 = 06 : q3 = 32 : q4 = 81
				Case(55): q1 = 19 : q2 = 15 : q3 = 50 : q4 = 63
				Case(56): q1 = 28 : q2 = 18 : q3 = 68 : q4 = 45
				Case(57): q1 = 37 : q2 = 09 : q3 = 86 : q4 = 27
				Case(58): q1 = 46 : q2 = 48 : q3 = 14 : q4 = 09
				Case(59): q1 = 55 : q2 = 39 : q3 = 32 : q4 = 09
				Case(60): q1 = 64 : q2 = 90 : q3 = 50 : q4 = 27
				Case(61): q1 = 23 : q2 = 19 : q3 = 38 : q4 = 55
				Case(62): q1 = 02 : q2 = 20 : q3 = 56 : q4 = 83
				Case(63): q1 = 11 : q2 = 07 : q3 = 74 : q4 = 79
				Case(64): q1 = 20 : q2 = 16 : q3 = 02 : q4 = 61
				Case(65): q1 = 29 : q2 = 07 : q3 = 20 : q4 = 43
				Case(66): q1 = 38 : q2 = 12 : q3 = 83 : q4 = 25
				Case(67): q1 = 65 : q2 = 11 : q3 = 02 : q4 = 29
				Case(68): q1 = 56 : q2 = 52 : q3 = 74 : q4 = 11
				Case(69): q1 = 65 : q2 = 20 : q3 = 02 : q4 = 29
				Case(70): q1 = 74 : q2 = 20 : q3 = 02 : q4 = 47
				Case(71): q1 = 33 : q2 = 03 : q3 = 08 : q4 = 38
				Case(72): q1 = 12 : q2 = 08 : q3 = 26 : q4 = 77
				Case(73): q1 = 21 : q2 = 17 : q3 = 44 : q4 = 59
				Case(74): q1 = 30 : q2 = 04 : q3 = 62 : q4 = 41
				Case(75): q1 = 39 : q2 = 13 : q3 = 80 : q4 = 23
				Case(76): q1 = 48 : q2 = 46 : q3 = 08 : q4 = 05
				Case(77): q1 = 57 : q2 = 37 : q3 = 26 : q4 = 13
				Case(78): q1 = 66 : q2 = 06 : q3 = 44 : q4 = 31
				Case(79): q1 = 75 : q2 = 19 : q3 = 62 : q4 = 49
				Case(80): q1 = 84 : q2 = 10 : q3 = 80 : q4 = 67
				Case(81): q1 = 43 : q2 = 39 : q3 = 68 : q4 = 15
				Case(82): q1 = 22 : q2 = 18 : q3 = 86 : q4 = 57
				Case(83): q1 = 31 : q2 = 09 : q3 = 14 : q4 = 39
				Case(84): q1 = 40 : q2 = 34 : q3 = 22 : q4 = 31
				Case(85): q1 = 49 : q2 = 45 : q3 = 50 : q4 = 03
				Case(86): q1 = 58 : q2 = 06 : q3 = 08 : q4 = 15
				Case(87): q1 = 67 : q2 = 09 : q3 = 86 : q4 = 33
				Case(88): q1 = 76 : q2 = 18 : q3 = 14 : q4 = 51
				Case(89): q1 = 85 : q2 = 09 : q3 = 32 : q4 = 69
				Case(90): q1 = 04 : q2 = 90 : q3 = 50 : q4 = 87
			End Select
			co = co + 1
			Scrivi String(86,"*") & " Caso n°" & Format2(co),1,,RGB(0,94,187),5,3
			Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "   " & StringaEstratti(es,r) & "   --> SOMMA ESTRATTI = " & Format2(Fuori90(SommaEstratti(es,r))) & " <-- ",1,,RGB(0,0,125),5,3
			quartina(1) = q1
			quartina(2) = q2
			quartina(3) = q3
			quartina(4) = q4
			ImpostaGiocata 1,quartina,ruote,poste,k,2
			Gioca es,1
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	Call ScriviResoconto(,False)
End Sub

franca46 · 2 Ottobre 2013

ciao black

ho provato pure io ( modificandone uno che avevo sulla tavola settenaria )gli dai uno sguardo) .

si possono visionare tutte le ruote

Codice:

Sub Main()
    ColoreTesto 2
    Scrivi "================================================== TABELLA SCHIRO'===================== ",1
    Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo  =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    Scrivi
    ColoreTesto 0
    Dim ruota(2),ruot(1)
    Dim numeri(5),numeri1(5),numeri2(5),amb(5)
    Dim posta(2)
    Dim poste(2),postee(5)
    posta(1) = 1
    posta(2) = 1
    poste(2) = 1
    postee(2) = 1
    postee(3) = 1
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",20))
    clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
    co = 0
    ini = EstrazioneFin - tmp
    For n = ini To EstrazioneFin
        Messaggio(n)
        For r1 = 1 To 10
           
                'a = Estratto(n,r1,p1)
                n1 = Fuori90(SommaEstratti(n,r1)) 
                    co = co + 1
                    Scrivi String(70,"=")
                    ColoreTesto 9
                    Scrivi NomeRuota(r1) & " Somma estratti - " & SommaEstratti(n,r1) & " (FUORI 90) -----> "  & n1,1
                    Scrivi
                    Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ]",1
                    Scrivi
                    ColoreTesto 0
                    ruota(1) = r1
If n1 =1 Then amb(1)=53:amb(2)=41:amb(3)=38:amb(4)=55 '
If n1 =2 Then amb(1)=32:amb(2)=06:amb(3)=56:amb(4)=37 '
If n1 =3 Then amb(1)=41:amb(2)=35:amb(3)=74:amb(4)=19 '
If n1 =4 Then amb(1)=50:amb(2)=46:amb(3)=02:amb(4)=01 '
If n1 =5 Then amb(1)=59:amb(2)=35:amb(3)=20:amb(4)=17 '
If n1 =6 Then amb(1)=68:amb(2)=12:amb(3)=38:amb(4)=35 '
If n1 =7 Then amb(1)=77:amb(2)=17:amb(3)=56:amb(4)=53 '
If n1 =8 Then amb(1)=86:amb(2)=08:amb(3)=74:amb(4)=71 '
If n1 =9 Then amb(1)=05:amb(2)=87:amb(3)=02:amb(4)=89 '
If n1 =10 Then amb(1)=14:amb(2)=10:amb(3)=20:amb(4)=73 '
If n1 =11 Then amb(1)=03:amb(2)=01:amb(3)=08:amb(4)=85 '
If n1 =12 Then amb(1)=72:amb(2)=16:amb(3)=26:amb(4)=43 '
If n1 =13 Then amb(1)=81:amb(2)=13:amb(3)=44:amb(4)=61 '
If n1 =14 Then amb(1)=90:amb(2)=04:amb(3)=62:amb(4)=79 '
If n1 =15 Then amb(1)=09:amb(2)=05:amb(3)=80:amb(4)=83 '
If n1 =16 Then amb(1)=18:amb(2)=42:amb(3)=08:amb(4)=65 '
If n1 =17 Then amb(1)=27:amb(2)=23:amb(3)=26:amb(4)=47 '
If n1 =18 Then amb(1)=36:amb(2)=06:amb(3)=44:amb(4)=29 '
If n1 =19 Then amb(1)=45:amb(2)=41:amb(3)=62:amb(4)=11 '
If n1 =20 Then amb(1)=64:amb(2)=16:amb(3)=40:amb(4)=07 '
If n1 =21 Then amb(1)=73:amb(2)=21:amb(3)=68:amb(4)=45 '
If n1 =22 Then amb(1)=52:amb(2)=48:amb(3)=86:amb(4)=03 '
If n1 =23 Then amb(1)=61:amb(2)=15:amb(3)=14:amb(4)=21 '
If n1 =24 Then amb(1)=70:amb(2)=06:amb(3)=32:amb(4)=39 '
If n1 =25 Then amb(1)=79:amb(2)=15:amb(3)=50:amb(4)=57 '
If n1 =26 Then amb(1)=88:amb(2)=06:amb(3)=68:amb(4)=75 '
If n1 =27 Then amb(1)=07:amb(2)=03:amb(3)=86:amb(4)=87 '
If n1 =28 Then amb(1)=16:amb(2)=36:amb(3)=14:amb(4)=69 '
If n1 =29 Then amb(1)=25:amb(2)=21:amb(3)=32:amb(4)=51 '
If n1 =30 Then amb(1)=34:amb(2)=90:amb(3)=50:amb(4)=33 '
If n1 =31 Then amb(1)=83:amb(2)=11:amb(3)=38:amb(4)=65 '
If n1 =32 Then amb(1)=62:amb(2)=06:amb(3)=56:amb(4)=23 '
If n1 =33 Then amb(1)=71:amb(2)=05:amb(3)=74:amb(4)=41 '
If n1 =34 Then amb(1)=80:amb(2)=14:amb(3)=02:amb(4)=59 '
If n1 =35 Then amb(1)=89:amb(2)=05:amb(3)=20:amb(4)=77 '
If n1 =36 Then amb(1)=08:amb(2)=04:amb(3)=38:amb(4)=85 '
If n1 =37 Then amb(1)=17:amb(2)=13:amb(3)=56:amb(4)=67 '
If n1 =38 Then amb(1)=26:amb(2)=22:amb(3)=74:amb(4)=49 '
If n1 =39 Then amb(1)=35:amb(2)=31:amb(3)=02:amb(4)=31 '
If n1 =40 Then amb(1)=44:amb(2)=50:amb(3)=20:amb(4)=13 '
If n1 =41 Then amb(1)=33:amb(2)=03:amb(3)=08:amb(4)=35 '
If n1 =42 Then amb(1)=09:amb(2)=05:amb(3)=80:amb(4)=83 '
If n1 =43 Then amb(1)=81:amb(2)=13:amb(3)=44:amb(4)=61 '
If n1 =44 Then amb(1)=90:amb(2)=04:amb(3)=62:amb(4)=72 '
If n1 =45 Then amb(1)=09:amb(2)=05:amb(3)=80:amb(4)=83 '
If n1 =46 Then amb(1)=18:amb(2)=42:amb(3)=08:amb(4)=65 '
If n1 =47 Then amb(1)=27:amb(2)=23:amb(3)=26:amb(4)=47 '
If n1 =48 Then amb(1)=36:amb(2)=06:amb(3)=44:amb(4)=29 '
If n1 =49 Then amb(1)=45:amb(2)=41:amb(3)=62:amb(4)=11 '
If n1 =50 Then amb(1)=64:amb(2)=16:amb(3)=40:amb(4)=07 '
If n1 =51 Then amb(1)=19:amb(2)=09:amb(3)=68:amb(4)=75 '
If n1 =52 Then amb(1)=82:amb(2)=36:amb(3)=86:amb(4)=63 '
If n1 =53 Then amb(1)=01:amb(2)=03:amb(3)=14:amb(4)=81 '
If n1 =54 Then amb(1)=10:amb(2)=06:amb(3)=32:amb(4)=81 '
If n1 =55 Then amb(1)=19:amb(2)=15:amb(3)=50:amb(4)=63 '
If n1 =56 Then amb(1)=28:amb(2)=18:amb(3)=68:amb(4)=45 '
If n1 =57 Then amb(1)=37:amb(2)=09:amb(3)=86:amb(4)=27 '
If n1 =58 Then amb(1)=46:amb(2)=48:amb(3)=14:amb(4)=09 '
If n1 =59 Then amb(1)=55:amb(2)=39:amb(3)=32:amb(4)=09 '
If n1 =60 Then amb(1)=64:amb(2)=90:amb(3)=50:amb(4)=27 '
If n1 =61 Then amb(1)=23:amb(2)=19:amb(3)=38:amb(4)=55 '
If n1 =62 Then amb(1)=02:amb(2)=20:amb(3)=56:amb(4)=83 '
If n1 =63 Then amb(1)=11:amb(2)=07:amb(3)=74:amb(4)=79 '
If n1 =64 Then amb(1)=20:amb(2)=16:amb(3)=02:amb(4)=61 '
If n1 =65 Then amb(1)=29:amb(2)=07:amb(3)=20:amb(4)=43 '
If n1 =66 Then amb(1)=38:amb(2)=12:amb(3)=83:amb(4)=25 '
If n1 =67 Then amb(1)=65:amb(2)=11:amb(3)=02:amb(4)=29 '
If n1 =68 Then amb(1)=56:amb(2)=52:amb(3)=74:amb(4)=11 '
If n1 =69 Then amb(1)=65:amb(2)=20:amb(3)=02:amb(4)=29 '
If n1 =70 Then amb(1)=74:amb(2)=20:amb(3)=02:amb(4)=47 '
If n1 =71 Then amb(1)=33:amb(2)=03:amb(3)=08:amb(4)=38 '
If n1 =72 Then amb(1)=12:amb(2)=08:amb(3)=26:amb(4)=77 '
If n1 =73 Then amb(1)=21:amb(2)=17:amb(3)=44:amb(4)=59 '
If n1 =74 Then amb(1)=30:amb(2)=04:amb(3)=62:amb(4)=41 '
If n1 =75 Then amb(1)=39:amb(2)=13:amb(3)=80:amb(4)=23 '
If n1 =76 Then amb(1)=48:amb(2)=46:amb(3)=08:amb(4)=05 '
If n1 =77 Then amb(1)=57:amb(2)=37:amb(3)=26:amb(4)=13 '
If n1 =78 Then amb(1)=66:amb(2)=06:amb(3)=44:amb(4)=31 '
If n1 =79 Then amb(1)=75:amb(2)=19:amb(3)=62:amb(4)=49 '
If n1 =80 Then amb(1)=84:amb(2)=10:amb(3)=80:amb(4)=67 '
If n1 =81 Then amb(1)=43:amb(2)=39:amb(3)=68:amb(4)=15 '
If n1 =82 Then amb(1)=22:amb(2)=18:amb(3)=86:amb(4)=57 '
If n1 =83 Then amb(1)=31:amb(2)=09:amb(3)=14:amb(4)=39 '
If n1 =84 Then amb(1)=40:amb(2)=24:amb(3)=32:amb(4)=31 '
If n1 =85 Then amb(1)=49:amb(2)=45:amb(3)=50:amb(4)=03 '
If n1 =86 Then amb(1)=58:amb(2)=06:amb(3)=08:amb(4)=15 '
If n1 =87 Then amb(1)=67:amb(2)=09:amb(3)=86:amb(4)=33 '
If n1 =88 Then amb(1)=76:amb(2)=18:amb(3)=14:amb(4)=51 '
If n1 =89 Then amb(1)=85:amb(2)=09:amb(3)=32:amb(4)=69 '
If n1 =90 Then amb(1)=04:amb(2)=90:amb(3)=50:amb(4)=87 '

                    numeri1(1) = n1
                    
                    ImpostaGiocata 1,numeri1,ruota,posta,clp,0
                    
                    numeri2(1)=n1
                    numeri2(2)=amb(1)
                    numeri2(3)=amb(2)
                    numeri2(4)=amb(3)
                    numeri2(5)=amb(4)
                    ImpostaGiocata 2,numeri2,ruota,postee,clp,0
                    ruot(1)=11
                    ImpostaGiocata 3,numeri2,ruot,postee,clp,0

                    Gioca n
            		Next
		If ScriptInterrotto Then Exit For 
    Next
    Scrivi
    Scrivi "Casi Riscontrati n° " & CInt(co)
    'ScriviResoconto
    ColoreTesto 2
    Scrivi "================================================== TABELLA SCHIRO'===================== ",1
    Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo  =================== ",1
    Scrivi "===============================================Listato DjNomade",1
    Scrivi
End Sub

grazie

Roby · 2 Ottobre 2013

Brava Franca
pero' dovresti inserire un inputbox per le ruote di calcolo e gioco
usando il ciclo for sono davvero troppe...

franca46 · 2 Ottobre 2013

vabbè , con questo ho tutte le ruote sotto controllo , con qualsiasi somma esca.
ne ho un'altro che fà quello che dici , modifico le tabelle e dovrei riuscire .

grazie!!!!

mastrogino · 3 Ottobre 2013

ciao ragazzi grazie li verificherò domani poiche sonbo con il portabbile e non mi legge lo script di blak
ho inserito ancora spazio vecchio modello
quello di franca mi pare ottimo ma devo verificare le quartine
ciaooo a domani...............
blakmoore mi piacerebbe un tuo commento
anche quella di franca
grazie

Roby · 3 Ottobre 2013

Ho corretto il listato sopra...

Roby · 3 Ottobre 2013

Sinceramente la giocata a tutte (soprattutto una quartina per ambo) è un suicidio economico
è vero che qualche volta esce il terno o in rarissimi casi la quaterna, ma il 99% delle volte è Ambo
Io piuttosto aumenterei i colpi anche a 12, ma giocherei su 2 ruote
oppure 9 colpi per 3 ruote
questo è un esempio, sempre con le tue quartine, ho scelto 3 ruote x 9 colpi
giocando 1,50 ambo e 0,40 terno e 0,10 quaterna (totale 2 euro x 3 ruote = 6 euro)
se si arrivasse al 9° e ultimo colpo i soldi spesi sarebbero 9x6 = 54 Euro
in caso di ambo (anche all'ultimo colpo) la vincita sarebbe di 58 euro
in pratica, non si vincerebbe nulla, ma il giocatore NON ci rimetterebbe 1 centesimo
e si riprenderebbe i soldi investiti
Chiaro che comunque la previsione dovrebbe uscire, se no sarebbe una perdita garantita
Questo è un solo uno script di esempio, ho cercato 3 anni a ritroso, alla fine
si è perso solo 5 euro (nel totale)
Spesa : 2.040,00 €
Vincita : 2.035,10 €
Guadagno : -4,90 €
Poi ogniuno è libero di giocare come vuole, ci mancherebbe...
Passo e chiudo
Ciaooo !!!

Codice:

Sub Main()
	Dim ruote(10),quartina(4),poste(4)
	poste(2) = 1 : poste(3) = 1 ': poste(4) = 1
	S = "  ~ SCRIPT BY BLACKMORE ~   "
	Scrivi S,1,,1,5,3 : Scrivi:Scrivi 
	im = CInt(InputBox("INDICE  MENSILE ? " & Chr(13) & "INSERISCI  0  PER  L' ULTIMA  DEL  MESE","BLACKMORE",10))
	r = CInt(InputBox("SCEGLI  LA  RUOTA  DI  RICERCA","BLACKMORE",1))
	r1 = CInt(InputBox("SCEGLI  LA  1° RUOTA  DI  GIOCO","BLACKMORE",1))
	r2 = CInt(InputBox("SCEGLI  LA  2° RUOTA  DI  GIOCO","BLACKMORE",5))
	r3 = CInt(InputBox("SCEGLI  LA  3° RUOTA  DI  GIOCO","BLACKMORE",6))
	
	k = InputBox("COLPI  DI  GIOCO ?","BLACKMORE",9)
	Ini = InputBox("INIZIO  RICERCA  DALL'  ESTRAZIONE  N° ?","BLACKMORE",8130)
	fin = EstrazioneFin
	For es = Ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio "  ~ SCRIPT  BY  BLACKMORE ~ "
		ultest = 8749
		If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
			ruote(1) = r1 : ruote(2) = r2 : ruote(3) = r3
			xx = Fuori90(SommaEstratti(es,r))
			Select Case(xx)
				Case(01): q1 = 53 : q2 = 41 : q3 = 38 : q4 = 05
				Case(02): q1 = 32 : q2 = 06 : q3 = 56 : q4 = 37
				Case(03): q1 = 41 : q2 = 35 : q3 = 74 : q4 = 19
				Case(04): q1 = 50 : q2 = 46 : q3 = 02 : q4 = 01
				Case(05): q1 = 59 : q2 = 35 : q3 = 20 : q4 = 17
				Case(06): q1 = 68 : q2 = 12 : q3 = 38 : q4 = 35
				Case(07): q1 = 77 : q2 = 17 : q3 = 56 : q4 = 53
				Case(08): q1 = 86 : q2 = 08 : q3 = 74 : q4 = 71
				Case(09): q1 = 05 : q2 = 87 : q3 = 02 : q4 = 89
				Case(10): q1 = 14 : q2 = 10 : q3 = 20 : q4 = 73
				Case(11): q1 = 03 : q2 = 01 : q3 = 08 : q4 = 85
				Case(12): q1 = 72 : q2 = 16 : q3 = 26 : q4 = 43
				Case(13): q1 = 81 : q2 = 13 : q3 = 44 : q4 = 61
				Case(14): q1 = 90 : q2 = 04 : q3 = 62 : q4 = 79
				Case(15): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(16): q1 = 18 : q2 = 42 : q3 = 08 : q4 = 65
				Case(17): q1 = 27 : q2 = 23 : q3 = 26 : q4 = 47
				Case(18): q1 = 36 : q2 = 06 : q3 = 44 : q4 = 29
				Case(19): q1 = 45 : q2 = 41 : q3 = 62 : q4 = 11
				Case(20): q1 = 64 : q2 = 16 : q3 = 40 : q4 = 07
				Case(21): q1 = 73 : q2 = 21 : q3 = 68 : q4 = 05
				Case(22): q1 = 52 : q2 = 48 : q3 = 86 : q4 = 03
				Case(23): q1 = 61 : q2 = 15 : q3 = 14 : q4 = 21
				Case(24): q1 = 70 : q2 = 06 : q3 = 32 : q4 = 39
				Case(25): q1 = 79 : q2 = 15 : q3 = 50 : q4 = 57
				Case(26): q1 = 88 : q2 = 06 : q3 = 68 : q4 = 75
				Case(27): q1 = 07 : q2 = 03 : q3 = 86 : q4 = 87
				Case(28): q1 = 16 : q2 = 36 : q3 = 14 : q4 = 69
				Case(29): q1 = 25 : q2 = 21 : q3 = 32 : q4 = 51
				Case(30): q1 = 34 : q2 = 90 : q3 = 50 : q4 = 33
				Case(31): q1 = 83 : q2 = 11 : q3 = 38 : q4 = 65
				Case(32): q1 = 62 : q2 = 06 : q3 = 53 : q4 = 23
				Case(33): q1 = 71 : q2 = 05 : q3 = 74 : q4 = 41
				Case(34): q1 = 80 : q2 = 14 : q3 = 02 : q4 = 59
				Case(35): q1 = 89 : q2 = 05 : q3 = 20 : q4 = 77
				Case(36): q1 = 08 : q2 = 04 : q3 = 38 : q4 = 85
				Case(37): q1 = 17 : q2 = 13 : q3 = 56 : q4 = 67
				Case(38): q1 = 26 : q2 = 22 : q3 = 74 : q4 = 49
				Case(39): q1 = 35 : q2 = 31 : q3 = 02 : q4 = 13 'Il 31 è doppio quindi si gioca il Vertibile 13
				Case(40): q1 = 44 : q2 = 50 : q3 = 20 : q4 = 13
				Case(41): q1 = 33 : q2 = 03 : q3 = 08 : q4 = 35
				Case(42): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(43): q1 = 81 : q2 = 13 : q3 = 44 : q4 = 61
				Case(44): q1 = 90 : q2 = 04 : q3 = 62 : q4 = 72
				Case(45): q1 = 09 : q2 = 05 : q3 = 80 : q4 = 83
				Case(46): q1 = 18 : q2 = 42 : q3 = 08 : q4 = 65
				Case(47): q1 = 27 : q2 = 23 : q3 = 26 : q4 = 47
				Case(48): q1 = 36 : q2 = 06 : q3 = 44 : q4 = 29
				Case(49): q1 = 45 : q2 = 41 : q3 = 62 : q4 = 11
				Case(50): q1 = 64 : q2 = 16 : q3 = 40 : q4 = 07
				Case(51): q1 = 19 : q2 = 09 : q3 = 68 : q4 = 75
				Case(52): q1 = 82 : q2 = 36 : q3 = 86 : q4 = 63
				Case(53): q1 = 01 : q2 = 03 : q3 = 14 : q4 = 81
				Case(54): q1 = 10 : q2 = 06 : q3 = 32 : q4 = 81
				Case(55): q1 = 19 : q2 = 15 : q3 = 50 : q4 = 63
				Case(56): q1 = 28 : q2 = 18 : q3 = 68 : q4 = 45
				Case(57): q1 = 37 : q2 = 09 : q3 = 86 : q4 = 27
				Case(58): q1 = 46 : q2 = 48 : q3 = 14 : q4 = 09
				Case(59): q1 = 55 : q2 = 39 : q3 = 32 : q4 = 09
				Case(60): q1 = 64 : q2 = 90 : q3 = 50 : q4 = 27
				Case(61): q1 = 23 : q2 = 19 : q3 = 38 : q4 = 55
				Case(62): q1 = 02 : q2 = 20 : q3 = 56 : q4 = 83
				Case(63): q1 = 11 : q2 = 07 : q3 = 74 : q4 = 79
				Case(64): q1 = 20 : q2 = 16 : q3 = 02 : q4 = 61
				Case(65): q1 = 29 : q2 = 07 : q3 = 20 : q4 = 43
				Case(66): q1 = 38 : q2 = 12 : q3 = 83 : q4 = 25
				Case(67): q1 = 65 : q2 = 11 : q3 = 02 : q4 = 29
				Case(68): q1 = 56 : q2 = 52 : q3 = 74 : q4 = 11
				Case(69): q1 = 65 : q2 = 20 : q3 = 02 : q4 = 29
				Case(70): q1 = 74 : q2 = 20 : q3 = 02 : q4 = 47
				Case(71): q1 = 33 : q2 = 03 : q3 = 08 : q4 = 38
				Case(72): q1 = 12 : q2 = 08 : q3 = 26 : q4 = 77
				Case(73): q1 = 21 : q2 = 17 : q3 = 44 : q4 = 59
				Case(74): q1 = 30 : q2 = 04 : q3 = 62 : q4 = 41
				Case(75): q1 = 39 : q2 = 13 : q3 = 80 : q4 = 23
				Case(76): q1 = 48 : q2 = 46 : q3 = 08 : q4 = 05
				Case(77): q1 = 57 : q2 = 37 : q3 = 26 : q4 = 13
				Case(78): q1 = 66 : q2 = 06 : q3 = 44 : q4 = 31
				Case(79): q1 = 75 : q2 = 19 : q3 = 62 : q4 = 49
				Case(80): q1 = 84 : q2 = 10 : q3 = 80 : q4 = 67
				Case(81): q1 = 43 : q2 = 39 : q3 = 68 : q4 = 15
				Case(82): q1 = 22 : q2 = 18 : q3 = 86 : q4 = 57
				Case(83): q1 = 31 : q2 = 09 : q3 = 14 : q4 = 39
				Case(84): q1 = 40 : q2 = 34 : q3 = 22 : q4 = 31
				Case(85): q1 = 49 : q2 = 45 : q3 = 50 : q4 = 03
				Case(86): q1 = 58 : q2 = 06 : q3 = 08 : q4 = 15
				Case(87): q1 = 67 : q2 = 09 : q3 = 86 : q4 = 33
				Case(88): q1 = 76 : q2 = 18 : q3 = 14 : q4 = 51
				Case(89): q1 = 85 : q2 = 09 : q3 = 32 : q4 = 69
				Case(90): q1 = 04 : q2 = 90 : q3 = 50 : q4 = 87
			End Select
			co = co + 1
			Scrivi String(86,"*") & " Caso n°" & Format2(co),1,,RGB(0,94,187),5,3
			Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "   " & StringaEstratti(es,r) & "   --> SOMMA ESTRATTI = " & Format2(Fuori90(SommaEstratti(es,r))) & " <-- ",1,,RGB(0,0,125),5,3
			quartina(1) = q1
			quartina(2) = q2
			quartina(3) = q3
			quartina(4) = q4
			ImpostaGiocata 1,quartina,ruote,poste,k,2
			Gioca es,1
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	Call ScriviResoconto(False,False)
End Sub

rudivall · 3 Ottobre 2013

Ciao Black, perche hai tolto la tabella finale, era utilssima

mastrogino · 4 Ottobre 2013

ciao franca le mie quartine e con lo script base di blak e sortito al 2° colpo terno a tt
======================================================================
Torino Somma estratti - 267 (FUORI 90) -----> 87

sabato, set 28 2013 [ TO - 34.67.38.53.75 ]

Estrazione generatrice del pronostico 13949 [117 - 28/09/2013]
G 0001
Numeri in gioco : 87 su TO per Estratto,Ambo
N. [87 ] [TO] [.. .. .. .. ..] C. 1 13950 [118 - 01/10/2013]
N. [87 ] [TO] [.. .. .. .. ..] C. 2 13951 [119 - 03/10/2013]

In corso per altre 10 estrazioni
G 0002
Numeri in gioco : 87.67.09.86.33 su TO per Ambo,Terno
N. [87.67.09.86.33 ] [TO] [.. .. .. 67 ..] C. 1 Estratto 13950 [118 - 01/10/2013]
N. [87.67.09.86.33 ] [TO] [.. .. .. .. ..] C. 2 13951 [119 - 03/10/2013]

In corso per altre 10 estrazioni
G 0003
Numeri in gioco : 87.67.09.86.33 su TT per Ambo,Terno
N. [87.67.09.86.33 ] [TT] [GE][.. .. .. 09 ..] C. 1 Estratto 13950 [118 - 01/10/2013]
V N. [87.67.09.86.33 ] [TT] [MI][33 .. 09 86 ..] C. 2 Terno 13951 [119 - 03/10/2013]

franca46 · 4 Ottobre 2013

ciao schirò complimenti!!!!

franca46 · 7 Ottobre 2013

franca46 ha scritto:
ciao Black e schirò

passavo per caso , mi ritrovo a studiare una tabella simile e questa la molto interessante.

vi seguirò con piacere

buon pomeriggio

x black

nel caso della tabella che sto studiando i capogiochi sono 2

come risolvo x il 2° capogioco ed usare la stessa tabella ?

grazie

Roby · 7 Ottobre 2013

Ciao Franca, basta inserire un numero nella condizione
ES: If n1 =1 Then amb(1)=20:amb(2)=41:amb(3)=38:amb(4)=55 :n2(1)= numero che vuoi --> 2°Ambata
Lo inserisci nelle giocate come n2(1) e hai la seconda ambata

numeri1(1) = n1
numeri1(2) = n2(1)
ImpostaGiocata 1,numeri1,ruota,posta,clp,0

Ciao

franca46 · 7 Ottobre 2013

ciao black

mi sono espressa male

la seconda ambata non è un numero che voglio,

ma a parte questo anche la seconda ambata dovrebbe riprendere i numeri della tabella dando vita ad una ottina in gioco.

me lo mostri sul listato che ho messo qui?

se puoi , grazie

Roby · 7 Ottobre 2013

Ok, ma la 2°ambata dovrà pur venire da un calcolo
es: se la 1° ambata è if 1... if 2 etc.. la 2° su cosa si basa ?
il listato che hai messo è con le quartine di Gioacchino
si puo' fare ma... fammi un esempio REALE

franca46 · 8 Ottobre 2013

ciao Black , giusto

dunque i numeri della quadratura che ho io sono diversi ma il finale è uguale.

es:03/01/13 ambo ripetuto 19-42 = RO - VE

quindi la 1° giocata sarà ambata 19 42 ,

la 2° giocata sarà la lunghetta dei numeri corrispondenti della tavola 19.45.41.62.11.42.09.05.80.83

qui abbiamo una decina ma in quel caso ottengo una ottina (essendo soltanto 3 gli abbinamenti).

grazie black del tuo tempo

Roby · 8 Ottobre 2013

Ciao Franca, l'ho rifatto ex novo
ho messo le solite posizioni, ma il tuo esempio
non mi compare
Conoscendoti, sono certo che saprai modificarle
io purtroppo non ho tempo...
Ciao
PS: x Rudivall, l'ho tolta perchè mi dava calcoli sbagliati nella giocata
ma nei primi script è rimasta... Ciao

Codice:

Sub Main()
Scrivi:Scrivi "Script by Blackmore x Franca46 (Lottoced) Tavola Settenaria con Ambo Ripetuto",1 : Scrivi
Dim ruote(10),ambata(2),lunghetta(10),posta(1),poste(4)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1
ini = InputBox("ESTRAZIONE  INIZIALE  N° ","BLACKMORE",8620)
k = InputBox("COLPI  DI  GIOCO  ?","BLACKMORE",10)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio " TAVOLA  SETTENARIA  CON  AMBO  RIPETUTO "
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For q1 =  p1+1 To 5
For p2 = 1 To 4
For q2 =  p2+1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,q1)
c = Estratto(es,r2,p2) : d = Estratto(es,r2,q2)
If d = a And c = b Or d = b And c = a Then
For x = 1 To 89
n1 = Fuori90(x*13)
n2 = 91 - n1
n3 = Fuori90(x*7)
n4 = 91 - x
For x1 = x + 1 To 90
m1 = Fuori90(x1*13)
m2 = 91 - m1
m3 = Fuori90(x1*7)
m4 = 91 - x1
If a = x And b = x1 Then
co = co + 1
ruote(1) = r1 : ruote(2) = r2
Scrivi String(105,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & "  |  " & FormatSpace(NomeRuota(r1),9) & "  |  " & StringaEstratti(es,r1) & "  |  Ambo Ripetuto [" & Format2(a) & "-" & Format2(b) & "]"
Scrivi DataEstrazione(es) & "  |  " & FormatSpace(NomeRuota(r2),9) & "  |  " & StringaEstratti(es,r2) & "  |  Ambo Ripetuto [" & Format2(c) & "-" & Format2(d) & "]"
Scrivi
ambata(1) = a
ambata(2) = b
ImpostaGiocata 1,ambata,ruote,posta,k,1
lunghetta(01) = a
lunghetta(02) = b
lunghetta(03) = n1
lunghetta(04) = n2
lunghetta(05) = n3
lunghetta(06) = n4
lunghetta(07) = m1
lunghetta(08) = m2
lunghetta(09) = m3
lunghetta(10) = m4
EliminaRipetuti lunghetta
ImpostaGiocata 2,lunghetta,ruote,poste,k,2
Gioca es
End If
Next
Next
End If 
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi
ScriviResoconto
End Sub

mastrogino · 8 Ottobre 2013

Blackmore ha scritto:

Ciao Franca, l'ho rifatto ex novo
ho messo le solite posizioni, ma il tuo esempio
non mi compare
Conoscendoti, sono certo che saprai modificarle
io purtroppo non ho tempo...
Ciao
PS: x Rudivall, l'ho tolta perchè mi dava calcoli sbagliati nella giocata
ma nei primi script è rimasta... Ciao

Codice:

Sub Main()
Scrivi:Scrivi "Script by Blackmore x Franca46 (Lottoced) Tavola Settenaria con Ambo Ripetuto",1 : Scrivi
Dim ruote(10),ambata(2),lunghetta(10),posta(1),poste(4)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1
ini = InputBox("ESTRAZIONE  INIZIALE  N° ","BLACKMORE",8620)
k = InputBox("COLPI  DI  GIOCO  ?","BLACKMORE",10)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio " TAVOLA  SETTENARIA  CON  AMBO  RIPETUTO "
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For q1 =  p1+1 To 5
For p2 = 1 To 4
For q2 =  p2+1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,q1)
c = Estratto(es,r2,p2) : d = Estratto(es,r2,q2)
If d = a And c = b Or d = b And c = a Then
For x = 1 To 89
n1 = Fuori90(x*13)
n2 = 91 - n1
n3 = Fuori90(x*7)
n4 = 91 - x
For x1 = x + 1 To 90
m1 = Fuori90(x1*13)
m2 = 91 - m1
m3 = Fuori90(x1*7)
m4 = 91 - x1
If a = x And b = x1 Then
co = co + 1
ruote(1) = r1 : ruote(2) = r2
Scrivi String(105,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & "  |  " & FormatSpace(NomeRuota(r1),9) & "  |  " & StringaEstratti(es,r1) & "  |  Ambo Ripetuto [" & Format2(a) & "-" & Format2(b) & "]"
Scrivi DataEstrazione(es) & "  |  " & FormatSpace(NomeRuota(r2),9) & "  |  " & StringaEstratti(es,r2) & "  |  Ambo Ripetuto [" & Format2(c) & "-" & Format2(d) & "]"
Scrivi
ambata(1) = a
ambata(2) = b
ImpostaGiocata 1,ambata,ruote,posta,k,1
lunghetta(01) = a
lunghetta(02) = b
lunghetta(03) = n1
lunghetta(04) = n2
lunghetta(05) = n3
lunghetta(06) = n4
lunghetta(07) = m1
lunghetta(08) = m2
lunghetta(09) = m3
lunghetta(10) = m4
EliminaRipetuti lunghetta
ImpostaGiocata 2,lunghetta,ruote,poste,k,2
Gioca es
End If
Next
Next
End If 
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi
ScriviResoconto
End Sub

ciao blackmore , grazie

x franca grazie anche a te per l'idea

Per Gli Amanti della Tavola Settenaria (In Tabella)

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Roby

Guest

Roby

Guest

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Premium Member