mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto più istruzioni select in una query?

Vorrei sapere se č possibile utilizzare piů istruzioni
select  in una query, se si come?
Ciao Enzo
www.scozzaro.it

 select  in una query, se si come?
select [pippo], [pluto] from [tblpippo] where [pippo]='pippo' (AND
[pluto]='pluto')
ciao, assa.
--
Sito Comune
http://www.it-lang-vb.net/


che cosa vorresti ottenere?
se vuoi impostare ulteriori criteri di selezione ti basta usare un 'AND'
dopo il 'WHERE';
se vuoi utilizzare piů 'SELECT' per differenti sorgenti dati da accedere
tramite un unico recordset puoi usare una 'UNION';
se invece vuoi utilizzare una sottoquery aggiungila tra le condizioni della
'WHERE';
sii piů specifico;
ciao

 ciao, assa.
Forse intendevi
select [pippo], [pluto] from (select * from (select * ... where
[pippo]='pippo' ) where [pippo]='pippo' ) where [pippo]='pippo' (AND
[pluto]='pluto')
Sě, se il provider lo supporta...
Ciao

 Forse intendevi
[cut]
no no, intendevo proprio quello che ho scritto :)
pensavo che volesse semplicemente aggiungere un criterio alla select, di
modo da avere un risultato piů ristretto.


Grazie a tutti
Ciao Enzo
www.scozzaro.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostamento di DevStudio sull' HD

Ho malauguratamente spostato DevStudio direttamente in C:\DevStudio
anzichč C:\Programmi\DevStudio\ e scavalcato il messaggio che
preannuncia
possibili ripercussioni su applicazioni varie, ritenendo che fosse
sempre possibile
andando a cercale le cartelle adatte e rimediare a tutto, come accade
abitualmente
con altre applicazioni.
Con Vb5 mi accade ( e non so se si tratta dell'unica conseguenza
difficile
da trattare ) che, mentre sono riuscito a riassegnare i giusti percorsi
per
alcuni programmi collaterali, ad es. la guida in linea, non č stato
possibile
ripristinare l'uso della Documentazione in Linea ( VbOnline ).
C'č qualcuno che per esperienza diretta o per altra via ne sappia
qualcosa ?
E' possibile reinstallare soltanto le applicazioni 'riottose' ?  . . . .
.
Grazie per l'attenzione.

Premesso che queste cose non si fanno... ;) o almeno si fanno con
appositi programmi, potresti cercarti nel registry tutte le voci che
fanno riferimento a c:\programmi\Devstudio e cambiarle in c:\Devstudio
Non so se bastera'...
Se il path e' memorizzato anche in qualche file ini devi scovarlo a
mano... spulciandoti tutti gli *.ini !!!! (attinenti al DevStudio)
Bye
-------------------------------------
Non mi stancherň mai di imparare...
Grazie a tutti!
dario.m...@SONOlibero.it 
(ovviamente da correggere)
Newsgroup: it.comp.lang.visual-basic
Titolo: Ultima domanda: Numero di serie dischetto

Ciao a tutti,
ho utilizzato la seguente funzione per ricavare il numero di serie di un
dischetto:
    Dim fso, d, dc, numserie
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
    For Each d In dc
        If d.DriveLetter = "A" Then
            If d.IsReady Then
                numserie = d.SerialNumber
            Else
                MsgBox "Nel drive non è presente il dischetto."
            End If
        End If
    Next
E' possibile modificare questo numero di serie?
Ho visto che formattando il dischetto il numero di serie cambia? Come posso
eseguire la formattazione veloce del dischetto in VB senza che l'utente si
accorga di niente.
Tutto questo mi serve per realizzare una protezione antipirateria, pertanto
il dischetto può essere formattato senza problemi.
Ringrazio tutti in anticipo.
Ciao
Emiliano

 il dischetto può essere formattato senza problemi.
Sperem ....
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con dll per comprimere

Io uso delle dll che mi hanno consigliato nel NG
Il problema è che riesco a comprimere ma in un modo non adeguato cioè
Io devo comprimere c:\programmi\installer\temp\*.* ma quando decomprimo il
file lui mi trova tutte le directory.
Mi spiego meglio , se lo decomprimo nel desktop il risultato sarà
c:\windows\desktop\programmi\installer\temp\mie file
Io invece volevo arrivare a questo risultato
c:\windows\desktop\mie file
Si può!?!
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmare in Windows CE

Scusete a tutti,
mi è stato chiesto di realizzare un programma per il SO in oggetto, datosi
che non lo conosco assolutamente, chiedo a voi se qualcuno ha avuto
esperienze di questo tipo e se girano programmi compilati con VB6
Grazie a tutti


Guarda nel sito Microsoft : c'è una sezione dedicata a WinCE.

Newsgroup: it.comp.lang.visual-basic
Titolo: Barra del titolo

Chi sa se si puo mettere un oggetto (OCX) al di fuori della clientarea?
precisamente sulla barra del titolo, come si può fare ?
Danilo Priore
http://priore.w3.to
email: 
pri...@w3.to


Direi proprio che non si puo'.
Dipende da cosa vuoi fare (es. barra del titolo sfumata, pulsantini
aggiuntivi sulla barra del titolo...), ma di solito l'approccio utilizzato
e':
1) subclassing della form
2) intercettazione e gestione del messaggio WM_NCPAINT ed eventualmente di
altri WM_NCxxx
3) disegno "a manina" (ossia via API) degli elementi che si vuole
aggiungere/modificare.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: mfc

Scusate l'intromissione, devo premettere che non  
conosco il visual basic ma per motivi di studio necessito di una notizia:  
č possibile adoperare le mfc con il visual basic?  
Grazie anticipatamente per la risposta, lo so che anche per il neofita del linguaggio 
rispondere a  
questa domanda č umiliante, ma credetemi č piů umiliante per me...  
Per favore rispondetemi, mi basta un si oppure un  no...   Marco  
___________________________________________________
Se vuoi un indirizzo di posta elettronica gratuito, 
iscriviti a 
http://www.katamail.com
--
Posted from 
c000-h008.c000.sfo.cp.net
 [209.228.14.84]
via Mailgate.ORG Server - 
http://www.mailgate.org

 è possibile adoperare le mfc con il visual basic?

Newsgroup: it.comp.lang.visual-basic
Titolo: Uso di DLL (con interfaccia C) in VB

Ciao a tutti \
mi sono appena iscritto allo user group e ho subito una domanda.
Devo usare una DLL di API per una scheda MPEG, progettata in ambiente
Visual C++ L'unica interfaccia che ho e' un .h contenente i prototipi
delle funzioni stile ANSI.
Poiche' voglio progettare la GUI in Visual Basic, mi chiedo come
dichiarare in VB funzioni tipo
VCCCALL mpegXxx(DWORD *var);
il mio problema e' come passare il puntatore alla API da Visual Basic:
e' sufficiente dichiare  la DWORD *var ByRef nel Declare di Visula
Basic? Oppure non e' possibile assoluatmente usare VB qualora le
funzioni siamo della DLL abbiano argomenti di tipo puntatore?
Poi: se la funzione ha *due* parametri, qual'e' la calling convention
(leggi ordine dei parametri)?
Scusate se le domande sono stupide: so programmare in C ma non MS Visual
C++: per questo genere di cose uso Visual basic
Molte grazie in anticipo a coloro che risponderanno
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

 wrote in message 7o67d9$29e$1...@nnrp1.deja.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: IL TITOLO PER FAVORE.

COME DIAVOLO SI FA A D estrarre il titolo di un applicazione da un file
EXE??????
Rispondete!!

...


Newsgroup: it.comp.lang.visual-basic
Titolo: non disponi di Accesso esclusivo ...

Salve,
non riesco più a modificare un mio DB.
L'azione :
        DoCmd.DeleteObject acReport, "NOME DEL REPORT"
viene annullata a SECCO.
Devo dire che il DB l'ho elaborato 3 anni fa con Access 97 ed ora l'ho
convertito per Access 2000.
Qualcuno ha una idea in merito?
Forse dipende dal settaggio del computer? Non è configurato come server, non
sono in rete, non posso abilitare l'accesso esclusivo, altrimenti le righe
con SET DB = CurrentDB () mi danno errore di condivisione.
Sono depresso xChè non so contro cosa combattere.   Aiuto !
ivan

Aggiorna il DAO in 3.6 nei Riferimenti di VB.
Kripton
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Report Access

Salve ragazzi, uso i report di access per la visualizzazione ma vorrei 
passere dei dati filtrati da una tabella al report, ma partendo dalla 
semplice visualizzazione non riesco a realizzare la visualizzazione dei dati 
filtrati.
Uso il seguente codice:
Dim appAccess As New Access.Application
Dim OACReport As Access.Report
Dim sQuery As String
On Error GoTo errh
Const AReport = "ReportDBMicro_Correlato"
sQuery = "SELECT * FROM DBMicro WHERE DATA = '" & Data_Prel & "'"
appAccess.OpenCurrentDatabase (App.Path & "\Laboratorio.mdb"), True
Set OACReport = appAccess.Reports(AReport)
appAccess.DoCmd.OpenReport AReport, acViewPreview
OACReport.RecordSource = sQuery
appAccess.DoCmd.OutputTo acOutputReport, (AReport), "Snapshot Format", 
App.Path & "\Report.snp", True
appAccess.Quit
Set appAccess = Nothing
ext:
  Set OACReport = Nothing
  If Not (oACApp Is Nothing) Then
    oACApp.Quit acQuitSaveNone
  End If
  Set oACApp = Nothing
  Exit Sub
errh:
  With Err
    MsgBox .Description, vbCritical, gc_sMsgErrTitle & .Number
  End With
  Resume ext
Ma non mi funziona, chi ci butta una mano e lo ripulisce?
Grazie a tutti.
7Mino


Personalmente io farei una cosa diversa...
Imposti il Report come Origine Dati una Query Compilata o salvata
chiamata qRPT
quindi ne modifichi il predicato SQL:
sQuery = "SELECT * FROM DBMicro WHERE DATA = '" & Data_Prel & "'"
appAccess.queryDefs("qRPT").SQL=sQuery
 appAccess.DoCmd.OpenReport AReport, acViewPreview
 appAccess.SelectObject acReport, AReport
appAccess.DoCmd.OutputTo acOutputReport, (AReport), "Snapshot
Format",App.Path & "\Report.snp", True
appAccess.Quit
....ecc...
Trovo discutibile la tecnica EarlyBinding ma vedi tu.
Saluti
@Alex

 appAccess.queryDefs("qRPT").SQL=sQuery
e quì gli passo il valore della query (sQuery) filtrato in VB6
e il resto resta identico
Ciao
7mino

 ha scritto nel messaggio
news:466fe455$0$4788$4faf...@reader4.news.tin.it...

Si.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

Ciao Alessandro, ho fatto ceme mi hai detto, ho creato una Query nel mio 
Database, il report l'ho collegato a questa query ed ho aggiornato il codice 
come mi hai detto, ma mi riporta errore sulla linea:
appAccess.QueryDefs("QueryDBMicro_Correlato").Sql = sQuery
mi evidenzia QueryDefs e mi dice: Impossibile trovare il metodo o il membro 
dei dati...... scusa la mia ignoranza, ma che vuole? ;-)
Ciao
7mino 

 ha scritto nel messaggio
news:46703679$0$37196$4faf...@reader3.news.tin.it...

Nel File MDB non hai i riferimenti a DAO, e visto che non lo usi solo come
BaseDati
devi inserirli.


 devi inserirli.
Alessandro, a questo punto sono in alto mare, ho provato ad inserire 
riferimenti a DAO, ma tra i vari riferimenti a DAO e riferimenti al Report 
ho combinato un puttanaio, ora mi da una valanga di errori, non sò che pesci 
prendere, potresti indicarmi la direzione...4 righe di codice son gradite...
Grazie 7Mino
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DBF

Ciao tutti
Nessuno conosce un controllo o sa dove posso trovare indicazioni per
utilizzare i file *.dbf e relativi indici ??
Grazie in anticipo
Massimo Danieli

Puoi tranquillamente utilizzare i DBF attraverso ODBC di VB.
Consulta l'Help on line (F1)
Ciao


La struttura dei files DBF (e tanti altri) la puoi trovare su
www.wotsit.org
.
Comunque, il metodo piu' semplice e' utilizzare drivers ISAM o passara
attraverso Access (con tabelle collegate ai DBF).
--
Roal Zanazzi
z...@iol.it

Puoi usare anche Jet, per esempio con il controllo Data,
nella proprietą Connect metti "Dbase...
tony_nico ha scritto nel messaggio ...



In alternativa puoi usare Artemis della Luxent (anche in versione demo)
www.luxent.com
Ciao.



 wrote in message
7muqc3$a9s$1...@pinco.nettuno.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Riposto timer che corre.... (variabili che non si svuotano?)

Hello all,
il timer č quasi a buon punto, ma la domanda sorge spontanea:
perchč se lo avvio 7 o 8 volte (ma non sempre, a volte solo dopo 2 volte)
ad un certo punto i numeri si mettono a correre, come se la riga di codice
Application.Wait (Now + TimeValue("0:00:01"))
non funzionasse piů?
Premetto che ho usato anche l'api sleep, per far scattare il display dei
secondi, uno dopo l'altro, ma quando incontro il passaggio tra 1:00 a
0:59 il timer sfasa(non so come, si ferma) e passa direttamente a 0:58
senza visualizzare 0:59... quindi sono ritornato su 
Application.Wait (Now + TimeValue("0:00:01")), che visualizza tutti i 
passaggi tra i minuti e i secondi correttamente.
Per interrompere il conteggio, e azzerare il timer ho usato una semplice
Sub
ove rimetto a empty tutte le variabili coinvolte, unload il form e poi
reload ancora; č forse qui il problema? d'altro canto se invece uso End
e ricarico il form, tutto normali, il timer non corre... come se non si
svuotassero le variabili?!?
thanx
fly
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 svuotassero le variabili?!?
quanto sto per dire ora è a grande rischio cazzata....
Allora: in vb, quando crei un form in design time, questa "cosa" ha una
duplice veste: c'è una classe con quel nome e c'è una istanza globale di
quella classe, sempre con quel nome. Questo fatto è quello che ti permette
di scrivere
load form1 (e qui ti riferisci all'istanza)
dim frm as form1
set frm = new  form1 (e qui ti riferisci alla classe)
immagino che quando mostri la tua form con il timer tu usi la variabile
globale, che ha il brutto difetto di essere difficilmente scaricabile, quidi
in fondo ti riferisci sempre alla "stessa" form.
Prova a creare una form "nuova", e poi vediamo cosa succede...
Salutoni
Sergio

 Prova a creare una form "nuova", e poi vediamo cosa succede...
provato... stesso risultato e non capisco il perchč,
sinceramente, ho provato anche a brekkare con il debug,
ma č proprio incredibile, i parametri sembrano a posto eppure
quando si incontra la riga
Application.Wait (Now + TimeValue("0:00:01"))
l'istruzione sembra non funzionare e VBA in effetti non aspetta 1 secondo
come dovrebbe (e come fa' quando avvio per due o tre volte il timer), ma
passa immediatamente all'istruzione successiva....
Ho notato che questo avviene principalmente quando clicco sul tasto reset:
se clicco e il timer non si ferma immediatamente (il mouse mette il cursore
busy e il timer si ferma qualche istante dopo), poi riparte correttamente 
una seconda volta - se invece clicco reset e tasto viene premuto
immediatamente (senza tempi di attesa) il timer si ferma subito e al
prossimo riavvio, Wait perde il suo significato... che sia colpa di
Doevents
????
ciao
Fly

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] inviare fax da vb

salve a tutti, ho un problemino e non saprei proprio da dove partire.
da vb ho un elenco di nominativi con relativo numero di fax e devo fare in
modo che l'utente una volta creato con qualsiasi software (word,excel,etc)
un file (per es.una lettera), clicchi su un bottone e manda una copia del
fax a tutto l'elenco.
Io pensavo di appoggiarmi a sw come winfax per l'invio ma mi sa che dovrei
chiedere la licenza o simili, quindi pensavo di farmi una cosa io usando vb.
Sapete mica se esiste qualcosa che potrei sviluppare o un'indicazione di
come potrei fare??
grazie 1000

 ha scritto nel messaggio
news:27Uk6.4546$k55....@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [STAT] Altre classifiche di Agosto 2002

I thread più seguiti
Pos.  Oggetto                                                   Post
   1  Urgente: Blocco del programma a fine esecuzione!!!          48
   2  passare una funzione a una stringa                          40
   3  [OT]Just Married                                            35
   4  [NET] Opzione Typeless                                      29
   5  [?] come riconoscere se un form è già stato caricato?       25
   6  [OT] opinione personale (Re: spero di non aver più....)     24
   7  mandare files in VB                                         23
   8  Nascondere cartelle con il VB.....                          22
   9  [?] vbCrLf                                                  21
  10  Tipi e gestione della memoria (Stack, Heap...)              19
  10  Diagramma di GANTT gestione delle attività                  19
  12  Calcolo Autocorrelazione con VBA                            18
  12  [?] Activex (per i guru)                                    18
  12  sul legittimo sospetto                                      18
  12  Thread in VB6                                               18
  16  automodifica codice                                         17
  16  [?] come stampare solo il contorno di una scritta?          17
  16  inviare un file da un pc ad un server                       17
  19  Risultato di una somma                                      16
  20  prove notturne                                              15
  20  dubbio                                                      15
  20  [ADO] ricerca in db                                         15
  20  [?] come intercettare il click del mouse furoi dalla form   15
  20  evento timer                                                15
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

eheheh...3 di questi li ho postati io :D.............
:P
cya


cya
E fai pure lo spiritoso....
Se almeno vuoi rispondere, rispondi SOTTO il messaggio, SOTTO il
messaggio, SOTTO il messaggio.
Ciao
Aran

 ha scritto
aran, come diceva quello ?
dont feed the---
devo aver rimosso il termine...
Newsgroup: it.comp.lang.visual-basic
Titolo: REPOST su utenti

riposto perche nessuno mi ha ca....lcolato... :-) e la domanda è
mooooooooolto importante (per me).
sto iniziando a cercare di capire come funziona il sistema di utenti e
gruppi (dell'oggetto ADOX.Catalog).
Nella Guida, alla fine della pagina relativa a voce SetPermissions, leggo:
"Se il provider non supporta l'impostazione dei diritti di accesso per
gruppi e utenti verrà generato un errore."
Poi effetto la copia pari pari dell'esempio della Guida relativa a
SetPermissions:
Il seguente codice concede all'utente Admin un accesso completo alla tabella
Orders.
Sub GrantPermissions()
    Dim cnn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    ' Apre una connessione al database northwind
    ' con il provider Jet 4.0
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.Open "data source=" & _
    "c:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;" & _
    "jet oledb:system database=mysystem.mdb"
    Set cat.ActiveConnection = cnn
    ' Concede all'utente Admin le autorizzazioni complete sull'oggetto
Orders
    cat.Users("Admin").SetPermissions "Orders", adPermObjTable, _
        adAccessSet, adRightAll
End Sub
E puntualmente, mi si blocca alla riga decisiva, dicendomi che il provider
non supporta questa operazione.
Ma Santo Cielo!! Se è nell'esempio della Guida, e il Pprovider è Jet 4, come
fa a dire che non è supportata? Che significa? Che con i DB Access non è
possibile lavorare con gruppi e utenti?
Qualcuno puo chiarirmi le idee?
grazie
Mario


ahooooo, ma perche nessuno mi risponde?
io continuo a trovare un sacco di esempi come quello postato sopra, che perň
a me non funzionano. č davvero possibile che Jet 4 non supporta l'oggetto
User?
grazie
Mario

 User?
Hai abilitato la sicurezza in Access? Perchè di default è disabilitata.
Se no vai in strumenti->protezione.
E attenzione, perchè il system database che indichi nella stringa di
connessione deve essere lo stesso che crei tu.
Ciao
Alfonso

 connessione deve essere lo stesso che crei tu.
ok... lo ammetto... ho fatto il passo piu lungo ecc. ecc.
in realta come dicevo io non so niente dell'oggetto User, e infatti mi ero
sempre chiesto che cosa fosse quel secondo file MDB nella stringa di
connessione, che lui chiamava "system database"... ehm... che cosa
sarebbe?!?!
o meglio, dove posso trovare delle info adeguate sull'argomento? perche sul
manuale VB non ne accenna neanche...
grazie
Mario

Newsgroup: it.comp.lang.visual-basic
Titolo: Common Control 32 OCX

Qualcuno ha o conosce un sito da dove poter prelevare l'ultima versione di
Comctl32.Ocx (preferibilmente in italiano) di Visual Basic 4.0 o 5.0?
Riccardo Pernice
per...@itpcnr.itpp.pa.cnr.it



Newsgroup: it.comp.lang.visual-basic
Titolo: Manuale

Scusate
io avrei bisogno di qualche manuale per Visual Basic 6.0
che parta da zero in quanto io non ho alcuna conoscenza in materia di
programmazione.
Se avete qualcosa da consigliarmi fatemelo sapere...
Grazie 1000
Federico

 wrote in message 7vf3d3$c97$1...@nslave2.tin.it...


Guida completa al Visual Basic 6.0 della Apogeo (70.000 circa). Lupin
----------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: oggett internet.explorer

ho provato ad utilizzare l'oggetto internet.explorer con visual basic
ma ho delle difficolta con il sottooggetto document.
non riesco ad accedere alla proprieta' 'count' dell' sottooggetto 'all'.
es.
dim myie as new internet.explorer
dim mydoc as object
set mydoc = myie.document
'mydoc ha un sottooggetto 'all' che secondo l'object model dovrebbe
'avere un parametro lenght (o count) ma cercando di printare il numero
'di elementi mi da sembre errore...
debug.print mydoc.all.lenght => errore
debug.print mydoc.all.count => errore
qualcuno ha utilizzato questi oggetti? sa darmi una mano?
grazie.
K.

Hai provato con length (th, non ht)?
count non mi risulta come proprietą di all, ma forse mi sbaglio.

Per pura curiositŕ... Ti colleghi da un server del Giappone per avere un
fuso orario cosě avanzato?
        Ciao
                Allanon

? mydoc.all.lenght
runtime error '438':
object doesn't support this property or method

th, non ht
? mydoc.all.length

> th, non ht
Eheh, ci ho perso 2 ore un giorno a capire perchè caxxo non funzionava un
programma.... Length si scrive
ELLE
E
ENNE
GI
TI
ACCA
L
E
N
G
T
H
Solo che per noi italiani il GH viene spontaneo... come suono intendo.... si
legge alla stessa maniera.... solo che lenght in inglese non avrebbe senso
(infatti il suono è TH e non HT)
Spero che il problema di kasim sia proprio questo
Ciao
Bald0z

GRRRRRRRRRRRRRRRRRRRRRRRRRRRrrr.CCCCCCCCCCcazz.
era proprio questo!
stavo per spaccare un po' tutto.
grazie.
K.

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic 4 e....stringhe.....AIUTOOO!!!

Salve a tutti
Mi trovo costretto a chiedere il vostro aiuto prima che mi prenda un
esaurimento...
Premetto che sono alle prime armi in visual basic e da un po' di giorni mi
sto' scontrando con uno strano malfunzionamento di una parte di un
programma che sto' cercando di fare...
Di seguito ho scritto il codice incriminato che se funzionasse
correttamente dovrebbe leggere un file di testo sostituendo una certa
stringa con un'altra risalvando poi il tutto.
Il funzionamente anomalo consiste nel fatto che la stringa da cercare (in
questo caso: "ffffffffffffffffffffffffffffffff") viene cancellata ma non
viene immessa la stringa sostitutiva, (in questo caso: "Z")
esempio:
prima
fffb904400000000004b000000000000
09600000000000012c00000000000025
80000000ffffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
fffffb9244be8007e0004b0000000000
0009600000000000012c000000000000
2580000000ffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffff
dopo
fffb904400000000004b000000000000
09600000000000012c00000000000025
80000000ffffffffffffffffffffffff
fffffb9244be8007e0004b0000000000
0009600000000000012c000000000000
2580000000ffffffffffffffffffffff
Spero che qualcuno possa indicarmi una soluzione...
Grazie a tutti!!!
codice del programma:
Private Sub Command2_Click()
   Dim n As String
   Dim c As String
   Dim a As String
   n = "Z"                                  'stringa sostitutiva
   c = "ffffffffffffffffffffffffffffffff"   'stringa da cercare
   a = Dir("prova.txt")
   Do While a <> ""
     sostituisci a, (c), (n)
      a = Dir
     DoEvents
   Loop
End Sub
---------
Private Sub sostituisci(a As String, cosa As String, con As String)
  Dim buffer As String
  Dim idx As Integer
  Dim start As Integer
  Open a For Input As #60
  Open "temp.tmp" For Output As #61
  Do While Not EOF(60)
    Input #60, buffer
    start = 1
    Do
      idx = InStr(start, buffer, cosa)
      If idx <> 0 Then
        start = idx + Len(cosa)
        buffer = Left(buffer, idx - 1) & con & Mid(buffer, idx + Len(cosa))
      End If
    Loop Until idx = 0
    Print #61, buffer
  Loop
  Close #61
  Close #60
  Kill a
  Name "temp.tmp" As a
End Sub

viene immessa la stringa sostitutiva, (in questo caso: "Z")
Guarda l'ho testato sia con il file txt che hai riportato in esempio e
relative "fff" e "z", sia con un file txt di prova e parametri di
prova: funge benissimo! :)
MATRO

 prova: funge benissimo! :)
GULP! :))
Strano...a me non va'....mi toglie le f  ma non mette la z :(((((
Ma hai provato con la stringa cosi'lunga? ffffffffffffffffffffffffffffffff
A questo punto...sono ancora piu'confuso :((((
In ogni caso grazie!!
Ciao

Ma hai provato con la stringa cosi'lunga? ffffffffffffffffffffffffffffffff
Si, ho messo anche stringhe mie lunghissime, bbooohhh!!!
MATRO
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Icone per l'exe

Lavoro con VB5 e NT. Il problema e' questo. Nell'ambiente di sviluppo,
scegliendo Project/Project Properties/make si vede l'icona che il
compilatore assegnera' all'eseguibile. Accanto c'e' anche una list box
che riporta i file di progetto. SEMBRA che si tratti di scegliere il
file (form, bas,...) da cui prendere l'icona.
Ovviamente, tutti i form hanno la stessa icona (quella assegnata a
livello di sistema: My Computer/options/filetypes).
E se voglio prendere l'icona da un file .ICO o .BMP, come faccio ?
Grazie a chi vorra' rispondere (positivamente).
gs

 wrote

ci provo ( positivamente :)
se ho capito,
ti basta cliccare ogni form,
nelle proprieta' andare su icon
da li' puntare dei file .ico
(forse anche .bmp, non ho mai provato).
alla fine del tutto,
nelle propr del progetto dovresti vedere tutte le tue iconine.
scusa se invece non ho capito
ciao, pal
(devo spezzare le righe x', a differenza di libero, interbusiness e tin non
mi inoltrano testi con + citazione che testo)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Che dischi sono installati

Come posso sapere e caricare in una imagecombo i dischi che sono caricati
nel sistema C: D: E: ecc
Grazie

Potresti usare la funzione GetLogicalDriveStrings (API di Win) per ottenere
le unità.
----------------------------------------------------------------------
Stefano Minardi
Zetesis: 
zet...@mclink.it
----------------------------------------------------------------------

nel sistema C: D: E: ecc
Usa l'FSO (File System Object) che e' una manna dal cielo per i
programmatori VB... :)
In una manciata di codice e pochi minuti ti rifai un'applicazione
Explorer-Like...
l'FSO e' un oggetto della libreria "Microsoft Scripting Runtime"
(SCRRUN.DLL) ed e' parecchio (ma parecchio) potente ed interessante...
Utilizzando l'FSO, il codice da te richiesto si traduce (in modo molto
blando, te lo sto realizzando on the fly.. :) )
    Private FSO As New Scripting.FileSystemObject
    Dim curDrive As Drive
    Dim objNewItem As ComboItem
    Dim imgIndex As Integer
 
    For Each curDrive In FSO.Drives
        Select Case curDrive.DriveType
                    Case CDRom
			imgIndex = 1' Valore indice che indentifica
una immagine in un controllo ImageList.
                    Case Fixed
                        imgIndex = 2
                    Case Removable
                        imgIndex = 3
                    Case Remote
                        imgIndex = 4
        End Select
 
 
    Set objNewItem = ImageCombo1.ComboItems.Add(1, ,
curDrive.DriveLetter, imgIndex)
    Next
imgIndex e' la variabile che assume di volta in volta l'indice
dell'immagine di un controllo ImageList associato alla ImageCombo.
--
C'ya, 
  |
  |
'/|\'
\\O//
//"\\
'\ /'
________________________________________TagLine___
"Quanti Angeli danzano sulla punta di uno spillo?"
Newsgroup: it.comp.lang.visual-basic
Titolo: Formato data in SQL

Salve a tutti,
Utilizzando una query su Access utilizzo
una function per convertire il formato data:
Public Function DateSQL(ByVal Value As Date) As String
     DateSQL= "DateValue('" + Format(Value, "dd/mm/yyyy") + "')"
End Function
Se utilizzo la funzione dentro ad una query su di un SQL-server
non mi riconosce la funzione DateValue e rimedio tramite:
Public Function DateSQL(ByVal Value As Date) As String
     DateSQL= "'" & Format(Value, "yyyymmdd") & "'"
End Function.
Siccome l'applicativo può connettersi indifferentemente ad un db
Access o ad Sql-server, esiste uno "standard" per evitare di utilizzare
due tipologie di funzioni a seconda del db?
                                        Grazie


Salve,
il motore del Jet normalmente preferisce le date nel formato #dd/mm/yyyy#
mentre SqlServer 'mm-dd-yyyy'....
personalmente, usando Ado, verifico il provider utilizzato e passo il
parametro debitamente formattato a secoda del provider...
saluti
Andrea Montanari
montanar...@virgilio.it
http://utenti.lycos.it/asql/index.html
(my vb6+sql-dmo little try to provide MS MSDE 1.0 a visual interface) ver
0.0.46
--------- remove DMO to reply

 mentre SqlServer 'mm-dd-yyyy'....
[...]
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

io con jet se faccio una query dove nella condizione voglio indicare un
intervallo di date uso #mm/dd/yyyy# otherwise quando faccio una insert o
update metto la data come stringa 'dd/mm/yyyy'
per sql server la cosa cambia da sqlserver 7 al 2000.
il 2000 funziona in base alle impostazioni internazionali del sistema mentre
il 7 usa la data mm/dd/yyyy.
cmq proporrei una petizione per standardizzare il modo con cui si scrivono
le date e metterle tutte yyyy/mm/dd :-)
Nasdaq


 le date e metterle tutte yyyy/mm/dd :-)
Tutti i DB, tranne Access, accettano "yyyymmdd hh:mm:ss"
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: pacchetti di installazione...

Ragazzi è possibile che con il pacchetto di installazione il programma vada 
su un computer e non vada su un altro???
è possibile eliminare questo problema? 

 è possibile eliminare questo problema? 
Si`, se si sa che cosa si sta facendo.
-- 
ciao, hal

> č possibile eliminare questo problema?


 devo impostare qualche opzione?
Devi  sapere quali librerie usa il tuo programma, direttamente o
indirettamente tramite quelle  referenziate  esplicitamente e se
ed in che misura sono supportate dalle varie versioni di windows.
Per fare un esempio, se usi gli oggetti di ADO per accedere a un 
database, devi considerare che per un corretto funzionamento del
tuo software  il pc ospite  dovra` avere MDAC di versione almeno
pari a quella che hai usato per compilare il programma. C'e` chi
preferisce includere MDAC gia` nel pacchetto, mentre altri, come
il sottoscritto, preferiscono indicarlo fra i prerequisiti.
-- 
ciao, hal

 č possibile eliminare questo problema?
Se il problema č "Spazio su disco insufficiente" basta eliminare qualcosa di 
inutilizzato oppure comprare un HD piů capiente.
Per il resto tirerei ad indovinare.
Ciao 

 č possibile eliminare questo problema?
Quasi sicuramente (cioč, se hai usato delle cose tipiche di un sistema e 
impossibili su un altro, allora non c'č modo, altrimenti)
Comunque con quel codice d'errore č molto strano...
Alberto
-- 
E tutto mi sembrava andasse bene... 

 Comunque con quel codice d'errore è molto strano...
ROTFL!
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Runtime

Salve ragazzi,
                    ho un problema (e te pareva), dovendo installare un
programma che ha una flex grid, su una macchina che ha già registrato i
runtime di vb mi chiedevo se il controllo della flex grid va registrato o
già è presente per via del runtime registrato?
Infine vorrei sapere dove posso trovare un lista dei controlli e librerie
che non mi occorrono + una volta installato i runtime...
Grazie
Profeta

che non mi occorrono + una volta installato i runtime...
praticamente tutti quelli che aggiungi dal menu Project / References o 
Project / Components.
Ciao
Aldo

 wrote in message
956lif$fnf6o$1...@ID-56381.news.dfncis.de...


non so se registrarli
appunto, regěstrali ! :)
Ciao
Aldo

 ha scritto nel messaggio
news:956nfh$fte1q$2...@ID-56381.news.dfncis.de...



Del datareport non so nulla, ma per registrare un activex
occorre lanciare da riga di comando regsvr32.exe seguito dal nome della dll
(o ocx, che comunque e' sempre una dll) come parametro.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: data report

Ho creato delle stampe con il data report di vb, lo so che CR è migliore,
oppure anche una stampa creata con l'oggetto printer, però aiutatemi con il
mio prob:
ogni volta che eseguo la prima stampa viene eseguita perfettamente, alla
seconda, quindi modificando i dati da caricare, mantiene i dati della stampa
precedente,
penso di dover chiudere la connessione con il dataenviroment ma ho provato
diversi tentativi con poca fortuna
ciao

 ha scritto nel messaggio news:...


 ha scritto nel messaggio
news:euGN8.3799$j65....@twister1.libero.it...

Dovrevrebbe succedere perchè non aggiorni il recordset associato al
datareport .. prova con questo codice :
Public Sub Refresh_DataEnv_Recordset()
    Dim RS As ADODB.Recordset
    For Each RS In dEnvPrinters.Recordsets
        If RS.State = adStateOpen Then RS.Requery
    Next RS
End Sub
dove dEnvPrinters è la tua connection dataenvironment
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: un evento che si attiva con una telefonata

salve,
ho bisogno di sapere una cosa.
so (almeno spero) che con VB è possibile fare una cosa del genere:
1) si riceve una telefonata ad un numero di telefono (sul modem,
suppongo)
2) viene attivato un "evento"
3) VB effettua una determinata operazione
bene, io non so come fare a far attivare un evento in un sw VB ogni
qualvolta si riceve una telefonata!!
di che cosa ho bisogno? di un ActiveX che si mette "in attesa" sul
modem?
grazie a chiunque mi possa aiutare.
Mario

 ha scritto nel messaggio
news:1dcf61d7.03021...@posting.google.com...

hai provato con controllo ActiveX  MSComm32



ma non so da dove partire per quanto riguarda l'attivazione dell'evento e
l'interpretazione di esso, cioč non so come si fa a "leggere" il numero
telefonico del chiamante.
ma, in primis, non ho idea di come si recepisca l' "evento telefonata" ...
cioe, da che istruzioni devo partire?
grazie.
Mario

cioe, da che istruzioni devo partire?
Devi leggere la proprietą CommEvent.
In caso di squillo, rilascia il valore Ring.
Ciao,
	Negus
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] : Esiste una barra di "esecuzione in corso"

Buongiorno a tutti,
Nel programma che ho costruito avrei l'esigenza di inserire una specie di
barra che visualizzi lo stato di esecuzione del programma, magari con una
barra colorata che scorre gradualmente!!
Non voglio sbagliarmi ma credo che esista già uno strumento predefinito in
VB6,perchè ne ho sentito parlare, mi sto sbagliando?
Se esiste dove posso trovarlo, come si chiama?
Vi ringrazio anticipatamente
Ciao MatteoC.
--------------------------------
Inviato via 
http://usenet.libero.it

 
Progress bar
In componenti: MS Windows common controls
ciao
		maxx

 Se esiste dove posso trovarlo, come si chiama?
ProgressBar.
Ovviamente però devi essere tu a farlo avanzare, aumentando un contatore, o
misurando il tempo, o come ti pare.
Se ti serve in un loop, puoi modificare il valore della progressbar ad ogni
ciclo, facendo un refresh del controllo (altrimenti lo vedresti solo
all'uscita dalla sub).
Se invece ti serve mentre sta girando ad esempio una query, devi lanciare il
comando SQL in modalità asincrona, e loopare finchè non è finito, e
all'interno del loop fare quanto detto sopra.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare.....

Ho una stringa che mi viene passata che contiene all'inizio della frase
caratteri che non mi servono tipo *, /, -, + come posso fare ad eliminarli
esiste una qualche funzione??
Grazie e Ciao

 wrote in message
nUN25.218585$VM3.1...@news.infostrada.it...



Ciao, prova a guardare nella guida le funzioni Mid e Instr

 esiste una qualche funzione??
instr, mid

Newsgroup: it.comp.lang.visual-basic
Titolo: Altri NewsGroup...

Ciao a tutti !
Una domanda a chi sa rispondere: oltre a 
news.interbusiness.it
 e 
news.tin.it
esistono altri NewsGroup dove vengono discussi problemi e soluzioni circa VB
in italiano?
Se si è possibile avere gli indirizzi?
CIAO.
Mario Paracchino
mpara...@easysoftware.it
P.S.: Se potete inviatemi la risposta anche via E-Mail: a volte il NG non mi
risponde!
Potete scrivere a questo indirizzo: 
mpara...@easysoftware.it

Per quello che ho potuto vedere, qualsiasi sia il server su cui ti appoggi
per visualizzare le News fa riferimento a it.comp.lang.visual-basic (eccetto
Tin che ha il proprio.... e che a me non va... sigh!)
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] AIUTO PER DATA DI UN FILE

 E' possibile controllara la data di salvataggio di un  file dentro un
direttotio cioe' farsi ritornare la stringa  con la suddetta data?
grazie in anticipo per ogni suggerimento
bye Sam

Usa la funzione   FileDateTime di VB
Bye

FileDateTime(nomeFile)
--
------------------------------------------------
http://digilander.iol.it/mporcelli
m.por...@libero.it
------------------------------------------------
sam ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: Cannot inizialize OLE

 
          Salve a tutti
Ho installato su diversi PC un programma che ho scritto in VB6.
Ho incluso nel programma una stampa con un file di crystal Report.
Ebbene a casa tutto e su quasi tutti i PC tutto ok, mentre per un solo pc,
dove ho effettuato l'installazione, nel momento in cui richiamo il documento
di stampa (CR) mi da il seguente errore:
" CANNOT INITIALIZE OLE" e il file anteprima del CR compare per solo per un
istante brevissimo.
HELP ME
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/



 HELP ME
Google may help you:
http://www.google.it/search?hl=it&q=%22CANNOT+INITIALIZE+OLE%22+crystal&meta=
Bye


          Grazie per il link.
Siccome non sono convinto di quanto letto ti chiedo se il link consigliava
di copiare la dll DAO350 nel pc client ??
Grazie



          Ho copiato il file DAO350.dll nella cartella
c:\programmi\file comuni\......\DAO\
Ma il problema sussiste.
Una cosa che avevo trascurato e' che, il database collegato al report e' un
file di Access97 mentre per il resto del progetto utilizzo AccessXP, quindi
il riferimento utilizzato e' DAO 3.6 .
Cosa posso fare?

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercare una directory

Salve a tutti,
Un piccolo quesito:
Come faccio a cercare una dirctory di cui conosco il nome all'interno
dell'hard disk e ottenere il percorso??
Grazie Amedeo

 dell'hard disk e ottenere il percorso??
Dir?
Alex
°°° Posted from X-Privat Free NNTP server - 
www.x-privat.org
 °°°

Cosa, non capisco
Grazie
"Alex1980" <ba...@jumpyFREGATI.it> ha scritto nel messaggio
news:3f57...@x-privat.org...


 Cosa, non capisco
Cerca sulla guida la funzione DIR dovrebbe fare proprio ciò che ti serve.


Purtroppo non riesco a sfruttare l'esempio,
Devo poter cercare la directory in tutto l'hard disk
Ciao
"Alex1980" <ba...@jumpyFREGATI.it> ha scritto nel messaggio
news:3f57...@x-privat.org...


 Devo poter cercare la directory in tutto l'hard disk
Visual Basic è un linguaggio di programmazione non un macro linguaggio, per
cui difficilmente troverai un'istruzione che fa tutto quello che hai in
mente. In questo caso, esiste un'api che potrebbe fare al caso tuo:
FindFirstFile
termoPilucco,  replace(string(10000,"1"),"1","termoPilucco Rulez. ")

 ha scritto nel messaggio
news:esH5b.290977$Ny5.8...@twister2.libero.it...

Dovresti riuscirci con qualche piccola modifica al codice che trovi al
seguente indirizzo
www.cerretosoft.it/ita/download/esempivb6
si chiama "list"
--
Mauro Cerreto

Newsgroup: it.comp.lang.visual-basic
Titolo: Info su exe

scusate ho un programmino del cavolo di cui mi e' rimasto solo l'exe c'è
modo di riaprirlo con vb per leggere il codice?
grazie

 grazie
prego.
termoPilucco, cavolo.exe


Non con l'ide di VB, ti devi procurare un decompilatore per vb6.
Forse qualcuno qui può passartelo, vero gente?
Ciao, SK
--
La pasienzia non è mai troppo (Totò)
<><><>
Esistono 10 tipi di persone: chi conosce il binario e chi no

 c'è modo di riaprirlo con vb per leggere il codice?
No, ma se "è del cavolo" fai alla svelta a riscriverlo, no?!
Poi copialo, neh?!

 Forse qualcuno qui può passartelo, vero gente?
Io ne ho a bizzeffe di decompilatori! Per tutti i linguaggi esistenti.
(pensate che ho un decompilatore Italiano-VB e Vb-Italiano,
Assembly-Italiano e Italiano-Assembly....)
Un esempio?
if (xxxx) then (yyyy) else (zzzz) (Visual Basic)
Se(xxxx) allora (yyyy) altrimenti (zzzz) (Italiano)
che software rivoluzionario!  ;-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: errore query

Ciao a tutti
Potete spiegarmi dove sbaglio?
Non capisco perchč mi da questo errore:
Errore di run-time '3061' :
parametri insufficienti previsto 1
Private Sub Command2_Click()
Data1.RecordSource = "SELECT nome, cognome,From rubrica Where indirizzo  =
'"& Text1.Text & " ' "
Data1.Refresh
End Sub
Ciao e grazie

 wrote in message
gVWS5.20898$FV2.5...@news.infostrada.it...


 Ciao e grazie
Hai una virgola in piů tra cognome e from
Con la virgola il sistema usa FROM come un nome di campo e quindi non trova
piů il FROM corretto
Data1.RecordSource = "SELECT nome, cognome From rubrica Where
indirizzo................
Ciao
Sirjo

Newsgroup: it.comp.lang.visual-basic
Titolo: UN ERRORE INCOMPRENSIBILE......!!!!

Ciao mi chiamo Andrea....il mio problema è questo....
Ho fatto un
programma ke in ambiente VB funziona correttamente...
allora con la
creazione guidata pacchetti di installazione mi creo la parte che dovrei
consegnare all'utente finale per l'installazione...
dopo averla creata
vado ad eseguire il setup ma quasi alla fine dell'installazione mi dice che
non trova il file :
C:\WINDOWS\TEMP\msftqws.pdw\$(DLL selfRegisterEx)
e
quindi mi dice che si è verificato un errore grave e segue la
disinstallazione...
Non riesco a capire che sbaglio faccio...potrestE
aiutarmi?
Ti ringrazio anticipatamente...
--------------------------------
Inviato via 
http://usenet.iol.it

Prova ad aggiornare il tuo Vb con il Service pack 5...potrebbe risolvere il
problema(forse).
Leggiti il manifesto del ng sul Sito Comune, in modo tale da imparare le
regole che vigono qui per quel che riguarda I subject e tante altre piccole
cosette. trovi tutti gli URL citati nella Firma.
Ciao SIMO
--
__________________
www.sasim.net
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/


 ha scritto

prova a cercare
"DLL selfRegisterEx"
su
http://groups.google.com/advanced_group_search
specificando questo ng.

 ha scritto nel messaggio
news:62Z11Z124Z58Y1...@usenet.iol.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]URGENTE: DLL

Slave a tutti, nessuno saprebbe dirmi come fare ad archiviare delle
stringe e delle immagini in una DLL?
E come si fa poi a rivedere l'immagine e la stringa?
    Ringrazio anticipatamente...
        Ale

 Mailgate.ORG is maintained online by Dario Centofanti
 Vai sul sito comune ... lě trovarai un esempio
Ciao Dany
--
Posted from 
dns.iqsnet.it
 [192.106.88.9]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Collegamenti in windows

Intanto mi presento, sono un giovane programmatore di 16 anni che si diletta
con Visual Basic 5.
Ho già scritto alcune volte sul Newsgroup, ma non mi ero ancora presentato.
Ho un problema che non riesco a risolvere: ho bisogno di un codice che mi
crei un collegamento al mio programma e me lo inserisca in Esecuzione
Automatica.
Come posso fare?
Grazie a tutti e complimenti per il newsgroup.
pil...@tin.it

Sul sito comune c'č un esempio completo di gestione regedit; inserisci il
tuo .exe in
\\hkey_local_machine\software\microsoft\windows\currentversion\run.

Newsgroup: it.comp.lang.visual-basic
Titolo: Microsoft Script Control

 Control

 ha scritto


 spero sia il secondo che ti serve. nb: per tutti e due e' la 2.0 beta.
Mi sa che è la documentazione di Scripting Host... se hai WinZip dovrebbe
permetterti di sbirciare dentro, se c'è un chm allora è quello che dico io, se
c'è un hlp è quello che sto cercando

 c'è un hlp è quello che sto cercando
 Directory di C:\Program Files\Microsoft Windows Script\WSHdocs
WSH      CHM        95.852  12/04/99   5.00 WSH.CHM
WSHDOC   INF         3.418  05/05/99  12.24 WSHDOC.INF
sara' per la prossima volta.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] differenza di prestazione tra A!=B# e A!=csng(B#)

Salve,
esiste una differenza di prestazione tra:
    A!=B#
e
     A!=csng(B#)
e se esiste qunado diventa apprezzabile?
(devo fare una cosa del genere in un "grosso" ciclo...)
grazie
Davide

 ha scritto nel messaggio
news:Ye0t7.62867$P04.5...@news2.tin.it...

Soluzione 1
Usi tutti Double.
Le conversioni single<->double riservano spesso spiacevoli sorprese, inoltre
non ha molto senso usare ancora i single (non lavoriamo più con i C64 e 64k
di RAM. Lo so che è a causa di questa mentalità che ora esistono PC a cui
non bastano 256MB :))
Soluzione 2
Credo che le funzioni di conversione siano realmente più efficenti della
conversione implicita solo nel caso Stringa->Numero.
Per il resto si aggiunge semplicemente una chiamata a funzione che impegna
il processore.
Non l'ho testata ma a intuito è così.
Ciao
-- SiDB Simple DataBase engine ---------------------------
 
http://space.virgilio.it/zntf...@tin.it/sidb/sidb.htm
----------------------------------------------------------

 Non l'ho testata ma a intuito è così.
ottimo intuito: però le differenze sono trascurabili.
Private Sub Command1_Click()
Dim a As Single, b As Double
Dim t As Single, i As Long
Randomize Timer
t = Timer
For i = 1 To 100000000
 b = Rnd()
 a = b
Next i
Debug.Print Timer - t
Randomize Timer
t = Timer
For i = 1 To 100000000
 b = Rnd()
 a = CSng(b)
Next i
Debug.Print Timer - t
End Sub
Risultati:
 29.26563
 29.57813
 29.20313
 29.51563

 non bastano 256MB :))
ciao,
uso i single perchè devo passare dei "single",  purtroppo sono "costretto"
 uso el opengl e se uso le double ho un calo notevole di prestazioni).
Normalamente lavoro in double.. in questo caso mi trovo le informazioni
"reali" in double" e approssimo tuuto insingle nell'engine grafico...
grazie per l'aiuto ;)
Davide