Novità

Per Gli Amanti della Tavola Settenaria (In Tabella)

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
è 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)
 
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
 
Ultima modifica:
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
 
Brava Franca :)
pero' dovresti inserire un inputbox per le ruote di calcolo e gioco
usando il ciclo for sono davvero troppe...
 
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!!!!
 
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
 
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
 
Ultima modifica:
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]
 
Ultima modifica:
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
Clicca per espandere...

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
 
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
 
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
 
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
 
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
 
Ultima modifica:
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 :D
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
 
Ultima modifica:
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 :D
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
Clicca per espandere...

ciao blackmore , grazie

x franca grazie anche a te per l'idea
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto