xCinzia27

Zetrix · 6 Settembre 2025

Ciao Cinzia,
volevo chiederti se ti metto lo script riesci a sistemare questa tabella
in pratica questa tabella e una calcolatrice si scrive un numero in inputbox e
lo script elabora tutti i divisori con i numeri primi..
se vedi nella tabella ce un errore
3:3=1
e qua mi trovo in difficoltà non so come scrivere nello script..

If Int(B3/13) =(B3/13) Then B4 =(B3/13) : S1 = "13" _
Else
If Int(B3/11) =(B3/11) Then B4 =(B3/11) : S1 = "11" _
Else
If Int(B3/7) =(B3/7) Then B4 =(B3/7) : S1 = "7" _
Else
If Int(B3/5) =(B3/5) Then B4 =(B3/5) : S1 = "5" _
Else
If Int(B3/3) =(B3/3) Then B4 =(B3/3) : S1 = "3" _
Else
If Int(B3/2) =(B3/2) Then B4 =(B3/2) : S1 = "2"
T7 = Array(T7,B4,"÷",S1)

secondo te e scritto bene in questo modo oppure no..
doveva fare 3:3 e invece fa 3:2 ..quindi ce un errore nello script..
lo script e complicato non e facile scrivere questa calcolatrice con i divisori dei numeri primi

Cinzia27 · 6 Settembre 2025

Non lo so se riesco, Zetrix.

Cinzia27 · 6 Settembre 2025

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

Codice:

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

Zetrix · 6 Settembre 2025

Cinzia aspetta devo vedere che fa quello script che ai scritto..

Codice:

24
16
9.6
6.85714285714286
4.36363636363636
3.69230769230769
2.82352941176471
2.52631578947368
2.08695652173913
1.6551724137931
1.54838709677419
1.2972972972973
1.17073170731707
1.11627906976744
1.02127659574468
0.905660377358491
0.813559322033898
0.786885245901639
0.716417910447761
0.676056338028169
0.657534246575342
0.607594936708861
0.578313253012048
0.539325842696629

Cinzia non va bene lo script che ai scritto, questo e l'out dello script..
lo script quanto arriva a 3:3 = 1
non deve scrivere altro
tutti questi numeri ce li giochiamo al SuperEnalotto..(scherzo)

Zetrix · 6 Settembre 2025

Cinzia se te la senti di sistemare la tabella ti metto lo script ma ti dico gia che e un po complicato
per la tabella non e un problema ma dobbiamo scrivere tutti i divisori con i numeri primi..
ma se non sbaglio nello script ce una stringa numeriprimi secondo te puo servire oppure no..
al momento ce questo errore quanto lo script arriva a un numero primo es, il 7 non fa 7:7 =1

Cinzia27 · 6 Settembre 2025

Zetrix, hai detto di dividere un numero per i numeri primi.
Come numero ho preso 48 ( ma lo puoi cambiare) e l'ho diviso coi numeri primi, Perché non va bene?

Cinzia27 · 6 Settembre 2025

Vedi tu, se vuoi mettere lo script.
Io con la tabelle non me la cavo tanto.
Prima di tutto bisogna capire cosa vuoi fare.

Cinzia27 · 6 Settembre 2025

Zetrix ha scritto:
Cinzia se te la senti di sistemare la tabella ti metto lo script ma ti dico gia che e un po complicato
per la tabella non e un problema ma dobbiamo scrivere tutti i divisori con i numeri primi..
ma se non sbaglio nello script ce una stringa numeriprimi secondo te puo servire oppure no..
al momento ce questo errore quanto lo script arriva a un numero primo es, il 7 non fa 7:7 =1

I divisori sono i numeri primi e il dividendo è il numero diviso per il numero primo:
es. 48 ( dividendo) : 2( divisore e numero primo)

Zetrix · 6 Settembre 2025

Codice:

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,S,S1,S2,S3,S4
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Nx = InputBox("Inserire numero",,0)
   A1 = Nx
   'For  A1 = 2 To 90
   '------------------------------------------------
   T1 = Array(T1,"  ","  ","  ")
   Call InitTabella(T1,Bianco_,"center",3,Nero_,"raavi")
   '
   '------------------------------------------------
   T2 = Array(T2," NUMERO " & Nx," ÷ ","  ")
   LARGHEZZE = Array(T2,6,6,6)
   Call AddRigaTabella(T2,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))
   '
   '--------------------------------------
   '
   If Int(A1/13) =(A1/13) Then S1 = "13" _
Else
   If Int(A1/11) =(A1/11) Then S1 = "11" _
Else
   If Int(A1/7) =(A1/7) Then S1 = "7" _
Else
   If Int(A1/5) =(A1/5) Then S1 = "5" _
Else
   If Int(A1/3) =(A1/3) Then S1 = "3" _
Else
   If Int(A1/2) =(A1/2) Then S1 = "2"
   T3 = Array(T3,A1,"÷",S1)
   LARGHEZZE = Array(T3,6,6,6)
   Call AddRigaTabella(T3,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   '--------------------------------------------
   '
   If Int(A1/13) =(A1/13) Then B1 =(A1/13) : S1 = "13" _
Else
   If Int(A1/11) =(A1/11) Then B1 =(A1/11) : S1 = "11" _
Else
   If Int(A1/7) =(A1/7) Then B1 =(A1/7) : S1 = "7" _
Else
   If Int(A1/5) =(A1/5) Then B1 =(A1/5) : S1 = "5" _
Else
   If Int(A1/3) =(A1/3) Then B1 =(A1/3) : S1 = "3" _
Else
   If Int(A1/2) =(A1/2) Then B1 =(A1/2) : S1 = "2"
   T4 = Array(T4,B1,"÷",S1)
   LARGHEZZE = Array(T4,6,6,6)
   Call AddRigaTabella(T4,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   '--------------------------------------------
   '
   If Int(B1/13) =(B1/13) Then B2 =(B1/13) : S1 = "13" _
Else
   If Int(B1/11) =(B1/11) Then B2 =(B1/11) : S1 = "11" _
Else
   If Int(B1/7) =(B1/7) Then B2 =(B1/7) : S1 = "7" _
Else
   If Int(B1/5) =(B1/5) Then B2 =(B1/5) : S1 = "5" _
Else
   If Int(B1/3) =(B1/3) Then B2 =(B1/3) : S1 = "3" _
Else
   If Int(B1/2) =(B1/2) Then B2 =(B1/2) : S1 = "2"
   T5 = Array(T5,B2,"÷",S1)
   LARGHEZZE = Array(T5,6,6,6)
   Call AddRigaTabella(T5,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   '------------------------------------------
   '
   If Int(B2/13) =(B2/13) Then B3 =(B2/13) : S1 = "13" _
Else
   If Int(B2/11) =(B2/11) Then B3 =(B2/11) : S1 = "11" _
Else
   If Int(B2/7) =(B2/7) Then B3 =(B2/7) : S1 = "7" _
Else
   If Int(B2/5) =(B2/5) Then B3 =(B2/5) : S1 = "5" _
Else
   If Int(B2/3) =(B2/3) Then B3 =(B2/3) : S1 = "3" _
Else
   If Int(B2/2) =(B2/2) Then B3 =(B2/2) : S1 = "2"
   T6 = Array(T6,B3,"÷",S1)
   LARGHEZZE = Array(T6,6,6,6)
   Call AddRigaTabella(T6,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   Call SetColoreCella(2,RGB(22,226,226),RGB(0,0,0))
   '
   '-------------------------------------------------------
   '
   If Int(B3/13) =(B3/13) Then B4 =(B3/13) : S1 = "13" _
Else
   If Int(B3/11) =(B3/11) Then B4 =(B3/11) : S1 = "11" _
Else
   If Int(B3/7) =(B3/7) Then B4 =(B3/7) : S1 = "7" _
Else
   If Int(B3/5) =(B3/5) Then B4 =(B3/5) : S1 = "5" _
Else
   If Int(B3/3) =(B3/3) Then B4 =(B3/3) : S1 = "3" _
Else
   If Int(B3/2) =(B3/2) Then B4 =(B3/2) : S1 = "2"
   T7 = Array(T7,B4,"÷",S1)
   LARGHEZZE = Array(T7,6,6,6)
   Call AddRigaTabella(T7,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   If Int(B2/13) =(B2/13) Then B3 =(B2/13) : S1 = "13" _
Else
   If Int(B2/11) =(B2/11) Then B3 =(B2/11) : S1 = "11" _
Else
   If Int(B2/7) =(B2/7) Then B3 =(B2/7) : S1 = "7" _
Else
   If Int(B2/5) =(B2/5) Then B3 =(B2/5) : S1 = "5" _
Else
   If Int(B2/3) =(B2/3) Then B3 =(B2/3) : S1 = "3" _
Else
   If Int(B2/2) =(B2/2) Then B3 =(B2/2) : S1 = "2"
   T8 = Array(T8,B6,"÷",S1)
   LARGHEZZE = Array(T8,6,6,6)
   Call AddRigaTabella(T8,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   If Int(B2/13) =(B2/13) Then B3 =(B2/13) : S1 = "13" _
Else
   If Int(B2/11) =(B2/11) Then B3 =(B2/11) : S1 = "11" _
Else
   If Int(B2/7) =(B2/7) Then B3 =(B2/7) : S1 = "7" _
Else
   If Int(B2/5) =(B2/5) Then B3 =(B2/5) : S1 = "5" _
Else
   If Int(B2/3) =(B2/3) Then B3 =(B2/3) : S1 = "3" _
Else
   If Int(B2/2) =(B2/2) Then B3 =(B2/2) : S1 = "2"
   T9 = Array(T9,B7,"÷",S1)
   LARGHEZZE = Array(T9,6,6,6)
   Call AddRigaTabella(T9,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   '
   If Int(B2/13) =(B2/13) Then B3 =(B2/13) : S1 = "13" _
Else
   If Int(B2/11) =(B2/11) Then B3 =(B2/11) : S1 = "11" _
Else
   If Int(B2/7) =(B2/7) Then B3 =(B2/7) : S1 = "7" _
Else
   If Int(B2/5) =(B2/5) Then B3 =(B2/5) : S1 = "5" _
Else
   If Int(B2/3) =(B2/3) Then B3 =(B2/3) : S1 = "3" _
Else
   If Int(B2/2) =(B2/2) Then B3 =(B2/2) : S1 = "2"
   T10 = Array(T10,B8,"÷",S1)
   LARGHEZZE = Array(T10,6,6,6)
   Call AddRigaTabella(T10,Bianco_,"center",LARGHEZZE,Nero_,"raavi")
   Call SetColoreCella(2,RGB(255,0,255),RGB(0,0,0))
   '
   Call SetTableWidth("25%")
   CreaTabella
   'Next
End Sub

Cinzia questo e lo script, se non riesci te magari ci sarà qualcun'altro che riesce a sistemare la tabella..

Zetrix · 6 Settembre 2025

Cinzia27 ha scritto:
I divisori sono i numeri primi e il dividendo è il numero diviso per il numero primo:
es. 48 ( dividendo) : 2( divisore e numero primo)

il 48 si divide sino a quanto lo script arriva a un numero primo cioe che non e piu divisibile..
48:2=24
24:2=12
12:2=6
6:2=3
3:3=1

es, se si scrive il 41 e un numero primo
41:41=1
e qua puo stare un problema nello script si dovrebbero scrivere tutti i divisori con i numeri primi.. ?

Zetrix · 6 Settembre 2025

Cinzia vedi questa tabella se scrivi il numero 88 quanto arriva a 11 scrive 11:2 ..e qua sta l'errore
lo script perche non scrive 11:11=1

Zetrix · 6 Settembre 2025

Cinzia27 ha scritto:
Zetrix, hai detto di dividere un numero per i numeri primi.
Come numero ho preso 48 ( ma lo puoi cambiare) e l'ho diviso coi numeri primi, Perché non va bene?

Cinzia scusami ma leggo in rit le tue risposte nel forum..
il numero 48 era un es, ma si puo scrivere qualsiasi numero nella tabella..

48:2=24
24:2=12
12:2=6
6:2=3
3:3=1
.......................
scrivo un altro es, il numero 87
87:2= ..non si puo fare allora si passa al divisore 3
87:3= 29
29:29=1
il 29 e un numero primo

Cinzia27 · 6 Settembre 2025

Prova così

Sub Main()
Scrivi 88/2

a=88/2
If Primo(a)=False Then Scrivi a/2 Else Scrivi a/a

a1=a/2
If Primo(a1)=False Then Scrivi a1/2 Else Scrivi a1/a1

a2=a1/2
If Primo(a2)=False Then Scrivi a2/2 Else Scrivi a2/a2

End Sub

Vedo che hai aggiunto un nuovo post con una variante, quindi se non è divisibile si passa al numero successivo per il quale è divisibile.
La cosa si complica.

Zetrix · 6 Settembre 2025

Cinzia27 ha scritto:
Vedi tu, se vuoi mettere lo script.
Io con la tabelle non me la cavo tanto.
Prima di tutto bisogna capire cosa vuoi fare.

Cinzia non ti preoccupare per le tabelle quelle le so scrivere il problema e sistemare i divisori con i numeri primi..

Zetrix · 6 Settembre 2025

Cinzia27 ha scritto:
Prova così

Sub Main()
Scrivi 88/2

a=88/2
If Primo(a)=False Then Scrivi a/2 Else Scrivi a/a

a1=a/2
If Primo(a1)=False Then Scrivi a1/2 Else Scrivi a1/a1

a2=a1/2
If Primo(a2)=False Then Scrivi a2/2 Else Scrivi a2/a2

End Sub

Vedo che hai aggiunto un nuovo post con una variante, quindi se non è divisibile si passa al numero successivo per il quale è divisibile.
La cosa si complica.

Cinzia te lo detto che e un po complicato lo script non e come ai scritto te
se un numero non e divisibile con il 2 , si passa al 3, e se non e divisibile a 3 si passa al divisore 5
e si continua sempre con i divisori dei numeri primi quindi non si deve fare diviso 4 o diviso 6..
lo script all'inizio della tabella sembra tutto ok e alla fine che da dei risultati sbagliati..
bisognerebbe scrivere nello script, es, se scrive un numero primo es, il numero 41
deve fare 41:41=1
quindi se e un numero primo dividere per se stesso il numero primo..
ma non so come si scrive con lo script..
e la stessa cosa di dovrebbe fare alla fine della divisione se arriva a un numero primo
deve dividere per se stesso il numero, e deve dare 1 come risultato

Zetrix · 6 Settembre 2025

Cinzia sto vedendo che ci sono diversi errori nello script
42:2=21
21:2= ? qua e sbagliato
21:3=7
7:7=1

Cinzia27 · 6 Settembre 2025

E' meglio che ti fai aiutare da qualcuno più esperto.

Zetrix · 6 Settembre 2025

Cinzia ho scritto un altra tabella che e simile ma e scritta in modo diversa dell'altra tabella
questa e piu facile da scrivere..
se non riesci a sistemare l'altra tabella lascia stare..
te lo detto che e complicata quella tabella con i divisori dei numeri primi..
grazie lo stesso per l'interesse credevo che eri piu brava di me..

Cinzia27 · 6 Settembre 2025

E che vuoi farci, pazienza.

Zetrix · 6 Settembre 2025

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..

xCinzia27

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member