Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
calcola numeri cruciverba
- Creatore Discussione Zetrix
- Data di inizio
Mike58
Advanced Member >PLATINUM PLUS<
Per lo script con i tuoi calcoli, vedo che hai pastrugnato (si dice cosi dalle mie parti) parecchio, francamente non lo capisco.
Rivediti bene e con calma quello che vuoi calcolare.
francamente
A = A
B = B
non lo comprendo è nullo in quanto A ha già il suo valore.
Non è difficile capire se stessi, rivedi i tuoi calcoli in fase di impostazione.
Ciao
Rivediti bene e con calma quello che vuoi calcolare.
francamente
A = A
B = B
non lo comprendo è nullo in quanto A ha già il suo valore.
Non è difficile capire se stessi, rivedi i tuoi calcoli in fase di impostazione.
Ciao
Zetrix
Banned
Codice:
Sub Main
Dim T,T2,T1,T3,T4,T5,T6,T7
Dim A,B,C,D,X,Y
Dim N1,N2,N3,N4,N5
Dim S1,S2,S3
A = InputBox("1 numero ? A")
B = InputBox("2 numero ? B")
C = InputBox("3 numero ? C")
D = InputBox("4 numero ? D")
'
T = Array(T," "," "," "," "," ")
Call InitTabella(T)
'-------------------------------
X = Fuori90(C - D + A)
N1 = Differenza(X,A)
N2 = Differenza(A,B)
'-------------------------------
T = Array(T,X,N1,A,N2,B)
Call AddRigaTabella(T)
Call SetColoreCella(1,3,1)
Call SetColoreCella(3,4,1)
Call SetColoreCella(5,4,1)
'-------------------------------
Y = Fuori90(B - A + D)
'---------
N3 = Differenza(A,D)
'-----------------------------------
N4 = Differenza(C,D)
N5 = Differenza(D,Y)
'---------------------------------
T1 = Array(T1,N3,".",N3,".",N3)
Call AddRigaTabella(T1)
T2 = Array(T2,C,N4,D,N5,Y)
Call AddRigaTabella(T2)
Call SetColoreCella(1,4,1)
Call SetColoreCella(3,4,1)
Call SetColoreCella(5,3,1)
'--------------------------------
T3 = Array(T3," "," "," "," "," ")
Call AddRigaTabella(T3)
S1 = Fuori90(B + C)
S2 = Fuori90(A + D)
S3 = Fuori90(X + Y)
T4 = Array(T4,S1,".",S2,".",S3)
Call AddRigaTabella(T4)
Call SetColoreCella(1,1,5)
Call SetColoreCella(3,1,5)
Call SetColoreCella(5,1,5)
T5 = Array(T5," "," "," "," "," ")
Call AddRigaTabella(T5)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,5,5)
Call SetColoreCella(5,5,5)
T6 = Array(T6," "," ","calcola"," "," ")
Call AddRigaTabella(T6)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,4,1)
Call SetColoreCella(5,5,5)
T7 = Array(T7," "," "," "," "," ")
Call AddRigaTabella(T7)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,5,5)
Call SetColoreCella(5,5,5)
Call SetTableWidth("20%")
CreaTabella
End Submike a me sembra che i calcoli siano corretti non so forse ho fatto qualche errore
le somme non sono corrette,ho aggiunto la scritta calcola ma forse non va bene
comunque si possono scrivere i quattro numeri in unico input box oppure no..
Ultima modifica:
Mike58
Advanced Member >PLATINUM PLUS<
si possono aggiungere, ma poi devi splittarli, in questo momento non ti so dire esattamente come (vedi se hai qualche esempio, poi magari ci guardo)
Per i calcoli devi stare attento al concetto del numero calcolato a1 in verde fai una sottrazione (C-D) che può risultare negativa che poi sommi con A in tutto col fuori 90 (rivedi questa espressione)
C = 10
D = 20
A = 5
risultato matematico c-d + a = -5
risultato fuori90 = 85
vedi se questo calcolo è corretto.
Mi spiace ma non saprei come aiutarti ulteriormente, le basi li hai trova un qualche escamotage.
Mike58
Advanced Member >PLATINUM PLUS<
'...........................................................................
AA = InputBox("DIGITA NUMERI SEPARATI DA PUNTO ","Inserire Numeri e punto","1.2.3.4.5.6")
ReDim num(0)
Call SplitByChar(AA,".",num) ' split carattere separatore
'---------------------------------------------------------------------------
come vedi c'è un inputBox che contiene i numeri separati dal carattere punto.
poi la ReDim NumeriVettori a zero
poi splitti i numeri dal carattere separatore
i tuoi numeri vettori saranno num(1) num(2)...... num(6).
cerca di applicarlo al tuo scopo.
AA = InputBox("DIGITA NUMERI SEPARATI DA PUNTO ","Inserire Numeri e punto","1.2.3.4.5.6")
ReDim num(0)
Call SplitByChar(AA,".",num) ' split carattere separatore
'---------------------------------------------------------------------------
come vedi c'è un inputBox che contiene i numeri separati dal carattere punto.
poi la ReDim NumeriVettori a zero
poi splitti i numeri dal carattere separatore
i tuoi numeri vettori saranno num(1) num(2)...... num(6).
cerca di applicarlo al tuo scopo.
Zetrix
Banned
Codice:
Sub Main
Dim T,T2,T1,T3,T4,T5,T6,T7
Dim A,B,C,D,X,Y
Dim N1,N2,N3,N4,N5
Dim A2,B2,C2,D2
Dim S1,S2,S3
A2 = InputBox("1 numero A")
B2 = InputBox("2 numero B")
C2 = InputBox("3 numero C")
D2 = InputBox("4 numero D")
'
T = Array(T," "," "," "," "," ")
Call InitTabella(T)
'-------------------------------
For A = A2 To A2
For B = B2 To B2
For C = C2 To C2
For D = D2 To D2
'---------------------------------
X = Fuori90(D - C + B)
N1 = Differenza(A,B)
N2 = Differenza(B,X)
'-------------------------------
T = Array(T,A,N1,B,N2,X)
Call AddRigaTabella(T)
Call SetColoreCella(1,4,1)
Call SetColoreCella(3,4,1)
Call SetColoreCella(5,3,1)
'-------------------------------
Y = Fuori90(A - B + C)
'---------
N3 = Distanza(B,C)
'-----------------------------------
N4 = Differenza(Y,C)
N5 = Differenza(C,D)
'---------------------------------
T1 = Array(T1,N3," ",N3," ",N3)
Call AddRigaTabella(T1)
T2 = Array(T2,Y,N4,C,N5,D)
Call AddRigaTabella(T2)
Call SetColoreCella(1,3,1)
Call SetColoreCella(3,4,1)
Call SetColoreCella(5,4,1)
'--------------------------------
T3 = Array(T3," "," "," "," "," ")
Call AddRigaTabella(T3)
S1 = Fuori90(X + Y)
S2 = Fuori90(B + C)
S3 = Fuori90(A + D)
T4 = Array(T4,S1," ",S2," ",S3)
Call AddRigaTabella(T4)
Call SetColoreCella(1,1,5)
Call SetColoreCella(3,2,5)
Call SetColoreCella(5,1,5)
T5 = Array(T5," "," "," "," "," ")
Call AddRigaTabella(T5)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,5,5)
Call SetColoreCella(5,5,5)
T6 = Array(T6," "," "," "," "," ")
Call AddRigaTabella(T6)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,5,1)
Call SetColoreCella(5,5,5)
T7 = Array(T7," "," "," "," "," ")
Call AddRigaTabella(T7)
Call SetColoreCella(1,5,5)
Call SetColoreCella(3,5,5)
Call SetColoreCella(5,5,5)
Call SetTableWidth("18%")
CreaTabella
Next
Next
Next
Next
End Sub
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 08 aprile 2025Bari2343187032Cagliari6886694867Firenze3538723351Genova8874808461Milano5844772921Napoli5045371627Palermo8926152875Roma4246824831Torino0875014236Venezia5740611702Nazionale3805581715Estrazione Simbolotto
Genova
1134033519
