Novità

metodo per ambate e ambo

Zetrix ha scritto:
Sub Main
Dim T1,T2,T3,T4,T5,T6,T7
Dim A,B,C,X,Y,E,F,K
Dim N1,N2,N3,N4,N5,N6,N7
Dim ES,TV,R1,NX
Dim larghezze
Dim ambata1(2),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
posta(1) = 1
poste(2) = 1
TV = InputBox("Quante estrazioni vuoi controllare?",,0)
K = 0
For ES = EstrazioneFin - TV To EstrazioneFin
AvanzamentoElab EstrazioneFin - ES,EstrazioneFin,ES
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
'
A = Estratto(ES,R1,3)
B = Estratto(ES,R1,4)
C = Estratto(ES,R1,5)
'
N1 = Estratto(ES,R1,1)
N2 = Estratto(ES,R1,2)
'
Y = Fuori90(A - B + C)
'------------------------------
ruota(1) = R1
'-----------------------------
ruote(1) = R1
ruote(2) = 11
ruote(3) = 12
'----------------------------
If DiametraleD(A) = B Or DiametraleD(B) = C Or DiametraleD(A) = C Then
'
If(Y - A + B) = C Then
ambata1(1) = Y
If N1 > N2 Then
ambo1(1) = Y
ambo1(2) = Fuori90(N1 + N2)
ambo2(1) = Y
ambo2(2) = Diametrale(ambo1(2))
End If
End If
If(Y - A + B) = C Then
If N1 < N2 Then
ambo1(1) = Y
ambo1(2) = Abs(N1 - N2)
ambo2(1) = Y
ambo2(2) = Diametrale(ambo1(2))
End If
End If
'
If(Y - A + B) = C Then
'
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,MatriceCaselleDaEvid)
'
'
T1 = Array(T1," "," "," "," "," ")
'-------------------------------
'---------------------------------
'-------------------------------
T1 = Array(T1," y "," - a "," + b "," = ","c")
larghezze = Array(T1,4,4,4,4,4,4)
Call InitTabella(T1,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'-------------------------------
'---------------------------------
T2 = Array(T2," y = " & Y," "," "," "," ")
larghezze = Array(T2,4,4,4,4,4,4)
Call AddRigaTabella(T2,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'
'
T3 = Array(T3,Y & " "," - " & A," + " & B," = ",C)
larghezze = Array(T3,4,4,4,4,4,4)
Call AddRigaTabella(T3,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'--------------------------------
'
Call SetTableWidth("20%")
CreaTabella
'
'
End If
End If
ImpostaGiocata 1,ambata1,ruota,posta,K
Gioca ES,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,K
ImpostaGiocata 2,ambo2,ruote,poste,K
Gioca ES,1,,1
Scrivi
Next
Next
End Sub

ecco lo script, aggiunto la condizione dei diam. in decina..
Clicca per espandere...
Grazie ma non ho capito questa ultima modifica. Poi controllerò meglio
 
x bonalele
ho aggiunto la condizione dei diametrali in decina, in questo modo si hanno poche condizioni
lo script rileva solo quelle condizione ecco perche si mette una IF ..then
e una disposizione di comando che deve fare lo script
sto elaborando le sequenze al SupeEnalotto ma non scrivo qua scrivo nella sezione apposita
puoi leggere in quella sezione..
ho elaborato una centinaia di script solo per il SuperEnalotto..
 
ho scritto un altra equazione sull'algebra adesso la formula la scrivo nello script
in forma di quiz..
cosi vediamo chi e bravo o brava a dare la risposta esatta..
fare questi script e facilissimo..
dopo vi farò vedere come si fa lo script..
questi script sono utili quanto volete scrivere tre numeri qualsiasi sulle estr
e lo script elabora la equazione e non dovete fare nessun conteggi e calcoli
si scrivono i tre numeri in input box e lo script scrive la equazione sull'algebra..a,b,c,
 
Ultima modifica:
11702.png
allora ho scritto questi tre numeri a ba, magari chissà darà l'ambata a ba,
adesso vi scrivo la equazione,

A = 16 (figura 7)
B = 28 (figura 1)
C = 85 (figura 4)
equazione = A-B+Y=C
Y = ?
soluzione:

risposta:
Y =

quale numero sarà la Y..
chi darà la risposta esatta metto lo script..
 
Ultima modifica:
Option Explicit
Sub Main
Dim A,B,C,D,E,X,S,Y,N
A = InputBox("1numero",0)
B = InputBox("2numero",0)
C = InputBox("3numero",0)
Y = Fuori90(- A + B + C)
Scrivi("" & "A" & " = " & A & ""),1,1,5,1,8
Scrivi("" & "B" & " = " & B & ""),1,1,5,1,8
Scrivi("" & "C" & " = " & C & ""),1,1,5,1,8
Scrivi("equazione = A-B+Y=C "),1,1,5,3,8
Scrivi("" & "Y" & " = ? "),1,1,5,1,8
Scrivi
Scrivi("soluzione:"),1,1,5,3,8
Scrivi
Scrivi("-" & A & " + " & B & " + " & C & " = " & Y & ""),1,1,5,1,8
Scrivi("risposta:"),1,1,5,3,8
Scrivi
Scrivi("" & "Y" & " = " &(Y) & ""),1,1,5,1,8
Scrivi
End Sub
x bonalele
ecco lo script
 
Zetrix ha scritto:
Vedi l'allegato 2305910
Ba_______30__28_________
Pa_______02__90_________
To_______72__70_________

ecco la condizione di gioco, su ba sono usciti il 30 e 28
su pa e uscito il 2 la differenza di 30 28
ma non giochiamo su queste ruote,
la ruota riflessa di ba e na,
quindi la prima ruota sarà napoli
la seconda ruota sarà roma
la somma spia 81 ,solo roma a il numero 81

napoli-roma
72-90

giochiamo solo sulle ruote interessate quindi napoli e roma..
se vinciamo questo ambo poi si stappa lo spumante
ho gia messo lo spumante in frigo..
se i conteggi li ho fatti bene questo ambo deve colpire su una di quelle ruote..
non giocate ne ambetto e ne a tutte e nazionale..
Clicca per espandere...
Zetrix dirti grazie è nulla in confronto al favore che mi hai fatto sei una persona oltre che brava, GENTILISSIMO, grazie millr
 
grazie ceci per la fiducia avrai notato che non scrivo solo i metodi ma vi metto le tabelle..
cosi imparate anche voi..
 
11703.PNG

x trylli ,
ti metto questa tabella con i numeri divisori..
questa tabella non da le previsioni ma serve per studio delle ambate..
 
Ultima modifica:
buongiorno.
x trylli vuoi una ambata su ba,
ai notato su ba e uscito il numero 85, e un numero a stella
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 giugno 2026
    Bari
    03
    59
    02
    56
    05
    Cagliari
    12
    36
    81
    69
    49
    Firenze
    81
    79
    52
    34
    26
    Genova
    56
    17
    87
    66
    52
    Milano
    77
    59
    11
    43
    03
    Napoli
    27
    36
    43
    44
    71
    Palermo
    21
    81
    14
    77
    06
    Roma
    65
    29
    05
    52
    17
    Torino
    68
    20
    27
    58
    16
    Venezia
    34
    37
    89
    79
    73
    Nazionale
    10
    66
    80
    07
    77
    Estrazione Simbolotto
    Napoli
    04
    40
    29
    19
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto