Vba

[misterx]

il seguente ciclo esegue il seguente calcolo 1/1+i^2

ogni volta che viene raggiunto un valore ??? si nota che sempre più cifre decimali si stabilizzano

sarebbe bello che a mano a mano che tali cifre si stabilizzano, cambiassero anche di colore: ma come ?

grazie a2000 :D



r = 0

For i = 0 To 1000000000

r = r + 1 / (1 + i * i)

Cells(1, 1) = i: Cells(2, 1) = r

Next i

[a2000]

sfruculiatoreeeeeeeee :p

[misterx]

Originariamente inviato da a2000
sfruculiatoreeeeeeeee :p


dai che ti sto dando l'ossigeno per la giornata :D

:O se no come fai a tirar sera ? :sofico:

[a2000]

mi sembra un po' asfittico come ossigeno ...

[misterx]

viziato eh?

accontentati :)

[a2000]

sfruculiatoreeeeee :p

[a2000]

il ritardo lo puoi togliere ... :D

[a2000]

sfruculiatoreeeeee :p

[misterx]

bravo, vedo che non mi hai capito

inizi a perdere colpi ?:D

il colore va cambiato quando la cifra decimale diviene fissa, non sempre testina :sofico:

[a2000]

misterx tu invece, come al solito, non capisci un c. :p

i colori sono assegnati in scala cromatica ad ogni digit in funzione del'errore logaritmico su quel digit.

va bene così.
vai tranquillo.

quando avrai imparato a programmare (le cose serie) ne riparliamo.

[a2000]

ma non sarai mezzo f. come l'avatar ???? :confused:

no perchè si spiegherebbe (quasi) tutto ! :eek:



ah, la scala cromatica, colori e numero dei colori, la puoi fissare a piacere sulla colonnina dei colori ...
ma che te lo dico a fare: a te piace l'omo !

[misterx]

Originariamente inviato da a2000
misterx tu invece, come al solito, non capisci un c. :p

i colori sono assegnati in scala cromatica ad ogni digit in funzione del'errore logaritmico su quel digit.

va bene così.
vai tranquillo.

quando avrai imparato a programmare (le cose serie) ne riparliamo.



e infatti non hai capito na mazza :D :D :D

[a2000]

cazzone !

le cifre stabilizzate diventano nere in modo continuo passando dal rosso al blu

ma questo è come dare confetti ai proci .... :D

[misterx]

Originariamente inviato da a2000
cazzone !

le cifre stabilizzate diventano nere in modo continuo passando dal rosso al blu

ma questo è come dare confetti ai proci .... :D


te lo spiego un'altra volta: sun ciappà ;)

[a2000]

Comme on dit vous à Milan: "a certa gente si fa prima a metterglielo in c. che a metterglielo in testa" :rotfl:

[misterx]

2.068831111231
^



guarda la cifra 8 dopo il 6

supponi che 2.06 dopo un certo numero di valoridiventino fissi

ora il numero che sta ciclando è il numero 8 dopo il 6

morale

colorare un numero in più da sx a dx a mano a mano che diventa fissa la cifra

[a2000]

alzare ditino - stop
dividere colonnina colori in due sezioni contigue - stop
assegnare solo due colori a piacere (*) - stop
spingere tasto pppp - stop

(*)
seleziona cella > Menù Formattazione > tastino carattere
oppure
seleziona cella > clic destro > Formato celle > Carattere > Colore


:)

[misterx]

cmq in VBA il ciclo diviene estremamente lento

[a2000]

hai tolto il ritardo ?
puoi ridurre la colonnina colori a solo due celle (due colori)

[a2000]

senza ritardo sul mio PC vola.

[misterx]

ok, vola :)



Sub aaa()

Range("a1:q100").Clear

finoA = 9

For riga = 0 To finoA: Cells(riga + 1, 1) = riga: Next riga
For riga = 0 To finoA: Cells(1, riga + 1) = riga: Next riga

For riga = 0 To finoA - 1
For colonna = 0 To finoA - 1
Cells(riga + 2, colonna + 2) = riga * colonna Mod finoA

Next colonna
Next riga



End Sub

[a2000]

mi fa piacere che ti stai appassionando a VBA.

sarai d'accordo con me che per il 90% dei casi VBA-Excel è la miglior GUI attualmente disponibile.

[misterx]

no, non è che mi sto appassionando a VBA, lo usicchio di tanto in tanto per ottenere delle cose

tutto sommato un linguaggio vale l'altro

[a2000]

ma quello che predilige il tuo avatar è il linguaggio del corpo: :rotfl:


Sub aaa()

mmmmmmhhhhhhhhhh
mmmmmmhhhhhhhhhh

For figa = 0 To ficoA - 1
For colon = 0 To ficoA - 1
Cess(figa + 2, colon + 2) = prroooooooooooottttt
Next colon
Next figa

proooooottttttt
prrrrrrrrrrrrrrrrrr
mmmmmmmhhhhhhh
ppprrrrrrrrroooooooooootttttttt
oooooooooooooohhhhhhhhhhh


End Sub

[/colon] ops scusa ...

[misterx]

Originariamente inviato da a2000
ma quello che predilige il tuo avatar è il linguaggio del corpo: :rotfl:


Sub aaa()

mmmmmmhhhhhhhhhh
mmmmmmhhhhhhhhhh

For figa = 0 To ficoA - 1
For colon = 0 To ficoA - 1
Cess(figa + 2, colon + 2) = prroooooooooooottttt
Next colon
Next figa

proooooottttttt
prrrrrrrrrrrrrrrrrr
mmmmmmmhhhhhhh
ppprrrrrrrrroooooooooootttttttt
oooooooooooooohhhhhhhhhhh


End Sub

[/colon] ops scusa ...






:blah: ti capisco :old: mio.............

a te manca qualche rotella......... :D :D

[a2000]

però ti diverti eh ?! ! :D

[misterx]

:O digiammolo pure..........sto facendo divertire te: contento ? :sofico:

[a2000]

QUESTA E' PROPRIO UNA CA,
UNA VERA CAZZA,
UNA GRANDE GIGANTESCA STREPITOSA CAZZATA!