xMIKE58

[Zetrix]

Ciao Mike volevo scrivere una Piramide a tre numeri e ho fatto uno script
ma non calcola in modo esatto..

Sub Main()
   Dim a,b,c,x,v,h,s
   x = InputBox(" scrivi numeri",,0)
   '
   a = Mid(x,1)
   b = Mid(x,2)
   c = Mid(x,3)
   '
   v = Fuori90(a + b)
   h = Fuori90(b + c)
   s = Fuori90(v + h)
   '
   '
   Scrivi "" & Space(3) & s & "",1,1,,5,3
   Scrivi "" & Space(2) & v & Space(2) & h & "",1,1,,5,3
   Scrivi x,1,1,,5,3
   '
End Sub

   90
  0  0
41.42.43

 

[Mike58]

Zetrix, metti una risultanza, ma poi metti nell'inputbox un default pari a zero.(come arrivo al numero che tu hai usato)
Poi come se non basta metti la scrittura con codice pari 5 che equivale a scrivere con colore bianco su sfondo bianco e quindi nessuna scrittura apparente ( anche se scritta bianca su sfondo bianco).

I tuoi calcoli saranno esatti per come li vuoi scrivere, certo che simulare i tuoi calcoli io non ci riesco.

 

[Zetrix]

Mike nell'input box si devono scrivere i tre numeri che si vuole fare la Piramide
ma a,b,c, non li legge lo script o meglio li scrive ma non li calcola mi devi dire a cosa serve Mid(x,1)
nell'Help di Spaziometria ce solo il codice MidX ma non so a cosa serve nello script..
in pratica io potrei scrivere in input box una per a una per b e una per c
e dopo si fa la Piramide ma quello che vorrei fare e scrivere i tre numeri in input box
in questo modo 41.42.43 e poi lo script fa la Piramide
in teoria se scrivo 41.42.43 in input lo script li scrive ma non li calcola e
qui sta l'nghippo allora a cosa serve Mid(x,1) serve solo a scrivere i numeri in input box..

   78
  83 85
41.42.43

lo script in teoria dovrebbe fare questo calcolo ho uno script che calcola i tre numeri
sulle estr ma mi serve uno script che scrivo i tre numeri e calcola la Piramide
mi serve per altre applicazioni di gioco..

 

[Zetrix]

Mike ho fatto questo cruciverba ma la condizione non e proprio buona
a BA avremmo dovuto avere il 42 46 e invece il 46 e a GE quindi la condizione non e ottima
se si vuole provare ma non garantisco nessuna vincita a tutte..

 

[Zetrix]

Sub Main()
   Dim a,b,c,x,v,h,s
   '
   x = InputBox(" scrivi numeri es. 41.42.43")
   '
   a = 41
   b = 42
   c = 43
   '
   '
   v = Fuori90(a + b)
   h = Fuori90(b + c)
   s = Fuori90(v + h)
   '
   '
   Scrivi "" & Space(8) & s & " ",1,1,1,3,4
   Scrivi "" & Space(7) & v & "." & h & " ",1,1,1,4,4
   Scrivi "" & Space(5) & x & " ",1,1,1,5,4
   '
End Sub

        78
       83.85
     41.42.43

Mike ho fatto questo script se te ai un altra soluzione migliore la scrivi..

 

[Mike58]

Ho Cercato su Google.
La funzione Mid restituisce un numero specificato di caratteri da una stringa.
da una partenza per una lunghezza
Mid(string,start[,length])
ossia dato una stringa di caratteri o numeri
esempio stringa Numerica x = 123456
a = Mid(x,1,2)
b = Mid(x,2,2)

il valore "a" sarà uguale a 12 in quanto il valore x parte da 1 per 2 posizioni (123456)
il Valore "b" sarà uguale a 23 in quanto il valore x parte da 2 per 2 posizioni (123456)

Prova a fare le tue prove e come ho fatto io cercane i significati il web è pieno di risposte
Ciao

 

[Mike58]

Metti il Cint ad ogni stringaNumerica in modo da rendere il valore stringa un numero.
senza questo non ottieni il numero stabilito
la somma 41+42 con il fuori 90 non produce 83 ma il fuori90 di 4142 = 2

Sub Main()
   Dim a,b,c,x,v,h,s
   '
   x = InputBox(" scrivi numeri es. 41.42.43",,414243)
   '
   'a = Left(x,2)
   a = CInt(Mid(x,1,2))
   b = CInt(Mid(x,3,2))
   c = CInt(Mid(x,5,2))
   '
   '
   v = Fuori90(a + b)
   h = Fuori90(b + c)
   s = Fuori90(v + h)
   '
   '
   Scrivi "" & Space(8) & s & " ",1,1,1,3,4
   Scrivi "" & Space(7) & v & "." & h & " ",1,1,1,4,4
   Scrivi "" & Space(5) & x & " ",1,1,1,5,4
   Scrivi a
   Scrivi b
   Scrivi c
   ab =(a+b)
   bc =(b+c)
   vh =(v+h)
   '
   Scrivi Fuori90(ab)
   Scrivi fuori90(bc)
   Scrivi fuori90(vh)
  
End Sub

Esistono tanti altri modi per estrapolare i numeri oltre alla funzione Mid
Left
split
sono quelli che mi vengono in mente

 

[Zetrix]

grazie Mike farò delle prove ma negli script non ho mai usato questa stringa Mid(x,1)
E non so nemmeno a che serve comunque leggerò meglio le spiegazioni che ai scritto..

       78
      8385
     414243

se scrivo i numeri in InputBox in questo modo 41.42.43 non li calcola bene
si deve scrivere 414243 quindi la stringa Mid(x,1) legge solo i numeri continuativi
senza scrivere il punto o una virgola tra i numeri..
comunque un po complicato scrivere questa stringa Mid(x,1)
ma non si puo scrivere un array oppure con ubound i numeri di calcolo..
e poi si deve scrivere anche CInt per scrivere tre numeri si deve fare tutto sto casino..

 

[Zetrix]

Mike ai provato con ubound mi sembra che si puo fare si scelgono i tre numeri
poi si fa la Piramide lo so a dire sembra facile ma a fare lo script e piu difficile..

 

[Zetrix]

Sub Main()
   Dim a,b,c,x,v,h,s
   '
   x = InputBox(" scrivi numeri es. 414243")
   '
   '
   a = CInt(Mid(x,1,2))
   b = CInt(Mid(x,3,2))
   c = CInt(Mid(x,5,2))
   '
   '
   v = Fuori90(a + b)
   h = Fuori90(b + c)
   s = Fuori90(v + h)
   '
   '
   Scrivi "" & Space(7) & Format2(s) & " ",1,1,1,3,4
   Scrivi "" & Space(6) & Format2(v) & "" & Format2(h) & " ",1,1,1,4,4
   Scrivi "" & Space(5) & Format2(x) & " ",1,1,1,5,4
   '
   '
End Sub

Mike ho fatto delle correzioni ho aggiunto il format2 se no non scrive bene la piramide
comunque lo script va bene anche cosi..

 

[salvo50]

Puoi usare anche SPLIT
esempio

Option Explicit
Sub Main
   Dim AA,S
   AA = InputBox("Inserisci i numeri separati dal punto","Numeri di Ricerca","41.42.43")
   AA = "0." & AA
   S = Split(AA,".")
   Scrivi StringaNumeri(S," ",True)
End Sub

 

[Mike58]

Zetrix il modo più semplice è scrivere i numeri direttamente in array
poi si può usare SplitByChar ma è più macchinoso.
ti metto i due modus operandi.

Sub Main
   Scrivi "numeri In Array"
   nu = Array(0,41,42,43)
   ' piramide
   a = Fuori90(nu(1) + nu(2))
   b = Fuori90(nu(2) + nu(3))
   c = Fuori90(a + b)
   Scrivi Space(7) & c
   Scrivi Space(6) & a & "." & b
   Scrivi Space(4) & StringaNumeri(nu,,1)
   '
   'scrivi in inputbox con split
   Scrivi "Con split by Char"
   num = InputBox("Quali numeri separati con punto",,"41.42.43")
   ReDim aNum(0)
   Call SplitByChar(num,".",aNum)
   a1 = CInt(aNum(0))
   a2 = CInt(aNum(1))
   a3 = CInt(aNum(2))
   aa = Fuori90(a1 + a2)
   bb = Fuori90(a2 + a3)
   cc = Fuori90(aa + bb)
   Scrivi Space(7) & cc
   Scrivi Space(6) & aa & "." & bb
   Scrivi Space(4) & StringaNumeri(aNum,,1)
End Sub

mentre postavo ho visto il tuo esempio è penso non funzioni se poi vai a prendere i singoli numeri per fare le operazioni
prova e vedi.
Io userei il solo array .
ciao

 

[Zetrix]

salvo50 grazie dell'esempio ma lo script deve fare la Piramide su tre numeri..

 

[Zetrix]

Mike il tuo script e perfetto su Array invece con lo split e piu macchinoso come ai detto
anche tu quindi meglio su Array..

        78
      83.85
    41.42.43

 

[Zetrix]

Mike ma su Array non a InputBox invece su split si ..
si puo scrivere lo stesso InputBox anche su Array.. ?

se non ai scritto allora non si puo scrivere su Array..
allora e meglio con split che scrive in numeri in InputBox

 

[Zetrix]

Sub Main
   Dim num,aNum
   Dim a,b,c,v,h,s
   'Scrivi "Con split by Char"
   '
   num = InputBox("scrivi i numeri es. 41.42.43")
   '
   ReDim aNum(0)
   '
   Call SplitByChar(num,".",aNum)
   '
   a = CInt(aNum(0))
   b = CInt(aNum(1))
   c = CInt(aNum(2))
   '
   v = Fuori90(a + b)
   h = Fuori90(b + c)
   s = Fuori90(v + h)
   '
   Scrivi Space(7) & s
   Scrivi Space(6) & v & "." & h
   Scrivi Space(4) & StringaNumeri(aNum,,1)
   '
End Sub

allora MIKE questo script e perfetto con split
su Array non si possono scrivere i numeri in InputBox e non va bene..

        72
      35.37
    17.18.19

 

[Zetrix]

29 numeri ripetuti

Mike avevo il 37 90 a BA e lo giocato sino a ieri e oggi ho cambiato previsione
che sfortuna...mannaggia..ma avranno la vendetta..
grazie per lo script

ciao

 

[Mike58]

Vedi l'allegato 2267820
29 numeri ripetuti

Mike avevo il 37 90 a BA e lo giocato sino a ieri e oggi ho cambiato previsione
che sfortuna...mannaggia..ma avranno la vendetta..
grazie per lo script

ciao

Peccato, purtroppo succede, ma fa lo stesso male.

 

[Mike58]

zetrix con lo split di salvo ( che saluto)
bisogna sempre usare il Cint per rendere interi i numeri stringa

Sub Main
   Dim AA,S
   AA = InputBox("Inserisci i numeri separati dal punto","Numeri di Ricerca","41.42.43")
   AA = "0." & AA
   S = Split(AA,".")
   'Scrivi Fuori90(S(1)+S(2))' sbagliato
   a1 = CInt(S(1))
   a2 = CInt(S(2))
   a3 = CInt(S(3))
   AA1 = Fuori90(a1 + a2)
   AA2 = Fuori90(a2 + a3)
   AA3 = Fuori90(AA1 + AA2)
   Scrivi Space(7) & AA3
   Scrivi Space(6) & AA1 & "." & AA2
   Scrivi Space(4) & StringaNumeri(S)
End Sub

 

[Zetrix]

1 numero 37 = 121 - 84
2 numero 37 = 61 - 24

ok Mike vuoi vedere come ho calcolato il 37 90 ..
questa e una tecnica di Fabarri del coefficiente medio integratore
ma ho usato una mia tecnica per fare ambo a tutte..
allora per avere un solo numero dobbiamo avere due numeri a differenza 60
ma ad una condizione che i numeri siano estratti come nel disegno..
il primo numero e 37 e dal numero 45 si calcola il diam, che e 90

Numeri in gioco 37.90 su TT per Ambo
[TT] [BA][.. 37 .. 90 ..] C.7 Ambo 02185 [15/09/2023] [14.37.46.90.75]

Mike questo ambo lo avevo seguito da un po di estr ma
oggi non lo giocato a BA sino a ieri sera l'avevo giocato..
che sfortuna..