xCinzia27

[Cinzia27]

Cinzia devi imparare a fare queste tabelle, te sei piu brava di me e potresti fare molto di piu..
alla fine ho messo lo script e non lo so se qualcuno alla fine riuscirà a sistemare quella tabella..
conosci i numeri satelliti..la risposta e no..a roma si dice ma che te lo dico a fa..
vedi nello spoiler i satelliti in orbita intorno al numero..
se ti piace la tabella metti un mi piace altrimenti non mettere niente..

Zetrix, se ci tieni che imparo prova a spiegarmi passo passo il tuo script.
Altrimenti spero che qualcun altro ti possa aiutare.

 

[Zetrix]

Cinzia, intendi dire scrivere la tabella oppure scrivere come fare le divisioni con i numeri primi..

 

[Zetrix]

Ma se dividi per numeri primi avrai dei numeri non interi.

Sub Main
'2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89
  a=48
  For i=1 To 89
  If Primo(i)=True Then   Scrivi a /i
  Next
  
End Sub

questo script che ai scritto forse si potrebbe includere nello script ma come si deve scrivere..
questo e il problema..
questi sono i numeri primi quindi se si scrive es, il 29 nella tabella dovrebbe scrivere
29:29
1

 

[Zetrix]

If Primo(A1) = True Then S1 = A1

dimmi come si deve scrivere questa riga di comando sui numeri primi
cosi va bene oppure no
A1 e il numero che si scrive in inputbox, quindi se e vero che e primo scrivi S1 = A1
e infatti se scrivo il 17 scrive nella tabella
17:17
1
ma ce un altro problema quanto lo script arriva al numero primo es, il 17
dopo che a scritto 1 si deve fermare lo script non deve continuare a fare le divisioni nelle successive righe..

 

[Zetrix]

Zetrix, se ci tieni che imparo prova a spiegarmi passo passo il tuo script.
Altrimenti spero che qualcun altro ti possa aiutare.

Cinzia qua non si tratta che ti devo imparare passo passo lo script
mi devi dire come si fa a scrivere nello script con ELSE tutti i passaggi che devono fare i numeri primi
e l'altro problema e se si scrive un numero primo lo script si deve fermare non deve continuare a scrivere..

 

[Zetrix]

se scrivo questa tabella es, scrivo una serie in decina 20 lo script fa tutte le divisioni su ogni numero..
ma il problema e come fare una divisione su un numero singolo e solo con i numeri primi..
scrivere questa tabella e facilissima e si possono scrivere diverse serie di numeri
serie in figura, serie in cadenza, e altre sequenze di numeri, ecc..

 

[Zetrix]

ho scritto una tabella un po bizzarra con i colori che spacchetta un numero in 4
ma e una prova la tabella la devo sistemare meglio con i colori..

 

[Zetrix]

Cinzia se te imparassi a scrivere le tabelle potresti scrivere tante tabelle
da quello che ho visto sai scrivere gli script e sei piu brava di me..

 

[Zetrix]

questa tabella inquadra tutte le figure sui numeri estratti su ogni ruota..
e seleziona ogni numero estratto nel loro gruppo ,89,90,91,
es, il 50 e nel gruppo 91
91-50=41
1)gruppo 1.4.7. (89)
2)gruppo 2.5.8. (91)
3)gruppo 3.6.9. (90)

Cinzia queste tabelle devi imparare a scriverle..

 

[Cinzia27]

Senza tabella colorate, ma è la sostanza che conta.

Sub Main()

n = 87

For i=10 To 1 Step -1

If n = Int(n)  And n/i = Int(n/i) Then Scrivi Format2(n)& " : "&i&" "&Format2(n/i)

Next


End Sub

 

[Zetrix]

brava Cinzia,
la tabella non e proprio come la volevo ma forse meglio di cosi non si puo fare..

 

[Zetrix]

Option Explicit
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14
   Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
   Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
   Dim ES,Nx,Tx,LARGHEZZE,I,N
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Nx = InputBox("Inserire numero",,0)
   For N = Nx To Nx
      For I = 90 To 1 Step - 1
         If N = Int(N) And N/I = Int(N/I) Then
            '------------------------------------------------
            '------------------------------------------------
            T1 = Array(T1,N," ÷ ",I,"  ",N/I)
            LARGHEZZE = Array(T1,6,6,6,6,6)
            Call InitTabella(T1,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
            Call SetColoreCella(1,RGB(22,226,226),RGB(15,15,15))
            Call SetColoreCella(2,RGB(240,251,38),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            '
            Call SetTableWidth("25%")
            CreaTabella
         End If
      Next
   Next
End Sub

Cinzia come si potrebbe fare solo con le divisioni con i numeri primi..
l'output non mi da una tabella intera ma le suddivide per ogni divisione su una singola tabella..
come si puo fare una unica tabella ..?
ai visto come e facile scrivere una tabella..

If N = Int(N) And N/I = Int(N/I) Then

questa riga con IF che ai scritto la devi trascrivere in Array

T1 = Array(T1,N," ÷ ",I," ",N/I)

 

[salvo50]

Ciao Cinzia, Zetrix

Grande Mitica Cinzia

Ho fatto una piccolissima modifica al tuo script.

Sub Main()

n = 87

For i = n To 1 Step -1

If n = Int(n)  And n/i = Int(n/i) Then Scrivi Format2(n)& " : "& i & " " & Format2(n/i)

Next


End Sub

 

[Zetrix]

Ciao Salvo50,
vorrei fare una unica tabella con tutte le divisioni con i numeri primi,
Cinzia e brava a scrivere le formule con gli script per suddividere ogni numero
ma non sa come si deve scrivere una tabella..
le divisioni con i numeri primi si fanno in questo modo
si inizia con la divisione con il 2, se il numero e dispari si passa con il 3, se non da si passa al 5,
se non da si passa al 7, e cosi si continua fino a quanto non darà la divisione di quel numero..
ma non e facile fare questa tabella
ho un programma che fa queste divisioni e vorrei provarle a fare una tabella con gli script,,
ma non e facile una cosa e scrivere e un altra cosa e metterla in pratica..
scrivo un esempio come si fanno le divisioni con i numeri primi
scrivo il numero 42
42:2
21:3
7:7
1
stop
i numeri primi scomposti sono il 2,3,7
2x3x7=42

 

[salvo50]

Ho modificato ancora lo script di Cinzia per visualizzare solo i risultati
divisibili solo per i numeri primi, ma di visualizzarli nella tabella
del tuo script del post 32 non ci sono riuscito

n = 42

For i = n To 1 Step - 1

If n = Int(n) And n/i = Int(n/i) And Primo (i) Then Scrivi Format2(n) & " : " & i & " " & Format2(n/i)

Next


End Sub

 

[Zetrix]

ok Salvo, adesso il problema e come scriverli nella tabella queste divisioni con i numeri primi
scrivendo in input box un numero a scelta..

 

[Zetrix]

x Salvo,
il problema rimane sempre come impostare nella tabella i divisori con i numeri primi
es,
numero 84
84:2
42:2
21:3
7:7
1
lo script fa solo le divisioni con i numeri primi ma non li mette in colonna e a scalare le divisioni
es, se la divisione da sempre un numero pari si deve fare sempre la divisione con il numero primo pari
cioe il 2 che e l'unico numero primo pari
invece se la divisione da un numero dispari si fa sempre con il 3 numero primo ,
il numero 1 non e primo perche e divisibile solo per se stesso quindi si inizia dal 3 , 5, 7 , ecc..

 

[Zetrix]

Option Explicit
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14
   Dim A1,A2,A3,A4,A5,A6,A7,A8,A9
   Dim B1,B2,B3,B4,B5,B6,B7,B8,B9
   Dim ES,Nx,Tx,LARGHEZZE,I,N
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Nx = InputBox("Inserire numero",,0)
   For N = Nx To Nx
      For I = 90 To 1 Step - 1
         '
         If N = Int(N) And N/I = Int(N/I) And Primo(I) Then  ' *
            '------------------------------------------------
            '------------------------------------------------
            T1 = Array(T1,N," ÷ ",I,"  ",N/I)
            LARGHEZZE = Array(T1,8,8,6,6,4)
            Call InitTabella(T1,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
            Call SetColoreCella(1,RGB(22,226,226),RGB(15,15,15))
            Call SetColoreCella(2,RGB(240,251,38),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            '
            Call SetTableWidth("25%")
            CreaTabella
         End If
      Next
   Next
End Sub

* modifica fatto da Salvo..

 

[Zetrix]

 

[Zetrix]

Anticipazione (Spoiler)

2025:3 = 675
2025:5 = 405