|
|||||||
|
|
|
 |
|
|
Strumenti |
04-12-2003, 20:17
|
#21 | |
|
Senior Member
Iscritto dal: Mar 2002
Città: Italy/Usa
Messaggi: 2817
|
Quote:
__________________
"Utilizzando atomi pentavalenti drogheremo il silicio di tipo n; Utilizzando atomi trivalenti drogheremo il silicio di tipo p; Utilizzando della cannabis ci drogheremo noi e vedremo il silicio fare cose impossibili" - DSDT-HowTo |
|
|
|
?
|
04-12-2003, 20:25
|
#22 |
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
hai risposto ?
guarda che il tassametro ha già cominciato a girare ! 
|
|
|
|
|
04-12-2003, 20:26
|
#23 |
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
OK, hai risposto
|
|
|
|
|
04-12-2003, 21:07
|
#24 |
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
apri il file allegato e lo vedi.
per vedere il codice: Excel > Alt+F11 |
|
|
|
|
04-12-2003, 21:12
|
#25 |
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
Codice:
Sub ppp()
Dim kkk As Long, k As Byte
With Worksheets("pazzo")
Open "c:\prova.dat" For Binary As #1
For r% = 1 To 1000
kkk = .Cells(r%, 1): If kkk <= 0 Then Exit For
Put #1, 1, kkk
For j = 4 To 1 Step -1
Get #1, j, k
a$ = a$ & Chr$(k)
Next j
Next r%
.Range("Target") = a$
Close #1
End With
End Sub
|
|
|
|
|
05-12-2003, 10:01
|
#26 |
|
Senior Member
Iscritto dal: May 2001
Città: Monza
Messaggi: 4054
|
E'anche vero che una volta converito in decimale bastava fare un bel alt+codice sul tastierinonumerico x vedere le lettere.......
__________________
Dostoevskij "La bellezza salverà il mondo" |
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 21:36.
