mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problemi con Collection e Tipo di dati definiti dall'utente

Salve a tutti,
avrei la necessità di aggiungere ad una collection un tipo di dati definito
dall'utente. Cioè, qualcosa del tipo:
Private Type Prova
a as string
End Type
dim cl as new Collection
dim pr as prova
cl.add pr
Però da quello che sapevo l'operazione sopra non è possibile e, in effetti,
il VB mi da errore. Come posso fare per risolvere? Qualcuno sa esiste un
workaround per aggirare questa limitazione del VB?
Antonio Mirarchi

workaround per aggirare questa limitazione del VB?
Come hai dedotto anche tu, non puoi.
Devi creare delle classi  che abbiano la stessa struttura della
struttura (pardon!)
Oppure, se poi devi scaricare su file e si tratta di strutture a
lunghezza definita, fai un array di strutture.
-- 
ciao, hal

 struttura (pardon!)
Grazie: ho risolto il problema in questo modo... Certo che una brutta
limitazione questa!
Antonio Mirarchi

 wrote in message news:SFo7b.91127

Oppure definisci il type in un modulo di classe e lo rendi pubblico.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto nel messaggio
news:SFo7b.91127$sj6.1...@tornado.fastwebnet.it...

Credo derivi da una limitazione del tipo Variant.
Se ne parlava anche recentemente nel thread "tipi definiti dall'utente e
classi"; come ha anche accennato Hal, i pochi utilizzi imprescindibili delle
strutture sono quelli relativi ad I/O su file, e/o come parametri di
funzioni dell'API, dove in entrambi i casi e' importante che il tipo sia
strutturato come una specifica sequenza di byte... in tutti gli altri casi
si riesce a fare lo stesso, e molto di piu', con delle classi anche
semplici.
La collection poi va a braccetto con gli oggetti proprio per la loro
caratteristica di poter essere istanziati ripetutamente una singola
variabile...
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: Popolare "velocemente" una Rich Text Box

Ciao a tutti,
    volevo sapere se esiste un metodo "veloce" per popolare una RTB.
    Attualmente quando devo mettere a informazioni a video uso la sintassi
    RTB.visible=false
    for i = 1 to ValoreMax
        RTB.text = RTB.text & "nuova riga di testo" & i & vbcrlf
    next i
    RTB.selstart=0
    RTB.visible=true
    Questo è il modo più veloce che conosco per scrivere dentro a una RTB.
    Però se ValoreMax è abbastanza grande (diciamo circa 10000) solo per
mettere a video ci vuole un mare di tempo inaccettabile per me.
    Esiste un modo più veloce ?
    Avevo pensato di mettere tutto in una variabile di tipo string e poi
versare la stringa nella RTB ma così facendo corro il rischio di perdere
parte delle informazioni da mettere a video (approposito, quale è la
dimensione massima di una variabile di tipo string ? si può forzare ad una
dimensione più grande ?)
    Io uso VB 6 SP5.
Grazie per ogni risposta.
    Ciao, Rocco

     RTB.visible=true
     for i = 1 to ValoreMax
        RTB.SelStart = Len(RTB.Text)
        RTB.SelText = "nuova riga di testo" & i & vbcrlf
     next i
Ciao
--
' // Initialize the expression evaluator
Engines.Evaluator = CreateObject("
http://www.neodatatype.net
")
' // you can find resources for and from the NG here!
Me.SitoComune = "
http://www.it-lang-vb.net
"

 Ciao
    Funzionantissimo e vocissimo, grazie 1000 Zanna ;-))
    Ciao, Rocco

      next i
[SNIP]
Nota che usando SelText in questo modo, sia con il RichTextBox, sia con il
TextBox liscio, puoi anche evitare di riposizionare la selezione il fondo
tutte le volte e rendere il tutto ancora piu' veloce... provare per credere
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da (nome var)+numero a vett(var): var1, var2, var3 -> in var(i)

next
for i=0 to 30
titoli(i)=titolo&trim(str(i))
next



...




for i=0 to 30
titoli(i)=titolo&trim(str(i))
next
Hai ragione, Scusatemi. non so come l'ho tirata fuori
Ciao stefano

 next
non sono certo di capire, ma, a parte che
1. se le var partono da "titolo1", perche' i parte da 0 ?
2. ci vorrebbero delle virgolette:
    titoli(i)= "titolo" & ... trim(str(i))
se stai cercando di ricavare le metavar di clipper, tipo:
    pippo = "clYellow"
    setcolor(&pippo)
(sempre che ricordi ancora qualcosa della sintassi)
temo che in vb te le possa scordare...
ciao, a.

 Hai ragione, Scusatemi. non so come l'ho tirata fuori
Da visula basic, probabilmente.

 Da visula basic, probabilmente.
volevo ben dire. vedi che esiste...
ci assomiglia, ecco...
Newsgroup: it.comp.lang.visual-basic
Titolo: vb .net - forms

MS Visual .net
How to show second form from first form, where code is under the buttton for
exmalpe: next. In VBA it was:
form2.show
and here??
Thx

try this:
Dim NewForm as Form2
Set NewForm = New Form2
NewForm.Show
pay attention, please: you are in an italian newsgroup!!! Talk Italian
language!!
:-)))
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 good coding!!!
:) sorry but i don't know Italian.
i've made something like this:
Dim g As glowne
g.Show()
glowne is an existing form, but it generates error when i'm pressing a
button.
Thx for help it alwmost works.

:-(
ggrrr......write this code:
Dim g As glowne
Set g = new glowne
g.Show()
now it's all right!!! if you don't speak Italian, post another newsgroup!!!


 newsgroup!!! good coding!!!
ehi igor... una ripassata all'inglese? ;-)
Lukas stava appunto dicendo come stava provando lui, mentre nel modo da te
suggerito (ovviamente) funzionava.
Salutoni
Sergio

 napisał w wiadomości
news:bbksdh$aklgg$1...@ID-134521.news.dfncis.de...


mah...non sono mica tanto sicuro.....
secondo me aveva ancora il problema, dato che mancava il Set....
mah, sě, dai....ormai č andata.....cosě gli funziona!!!


 secondo me aveva ancora il problema, dato che mancava il Set....
ehm... il set? ;-)
Salutoni
Sergio

il Set nel senso che mancava la riga di codice che facesse
Set g = new glowne
cmq hai ragione, quasi quasi una ripassata all'inglese gliela do volentieri,
anche se questa volta non sono mica tanto sicuro di aver toppato.....


 Thx for help it alwmost works
che secondo me voleva dire: grazie per l'aiuto, almeno funziona
Salutoni
Sergio

osti, c'hai ragione, il Set non ci va più.....
qua tra vb6 e 
vb.net
 mi perdo tuttora.....
bravo per la precisazione......
good coding!!!
piccolo sfogo OT : che bello avere tempo da dedicare al NG, purtroppo mi
tocca andare e venire, ogni tanto!


 osti, c'hai ragione, il Set non ci va piů.....

Newsgroup: it.comp.lang.visual-basic
Titolo: [sOT]Upsize Access2000-SQLserver: errore utente

                        ** Scusate l'OT e il CP (su it.comp.appl.access) **
Sto cercando di convertire un db access2000(su Win98) in sql server
ma nell'upsize guidato, quando mi richiede l'ID di accesso e la password di
un account con privilegi di creazione di un database sul server, mi dice che
è impossibile connettersi al database [errore di sqlserver 59]
lo stesso succede se vado a verificare la connessione di slq server in
origine dati odbc... (dal Pannello di Controllo)
Nella textbox dove devo "indicare il database SQL server da utilizzare per
il database" ho provato a inserire:
.
local
master
(ma che cosa intende per database SQL server da utilizz.....?? Dovrebbe
essere local cmq se intende dove trovare il server)
ma questi account dove si impostano?
Grazie per l'aiuto...Ciao!!
p.s. Ho installato il MSDE dal CD di office2000
       Mi han detto di provare anche con l'ID "sa", perche?
       Ho scaricato decine di documenti, MS e non ma nessuno mi aiuta a
risolvere questo problema
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
   #hackers-it; #programmatori
_____________________________

        Mi han detto di provare anche con l'ID "sa", perche?
SA = Server Administrator.
E' l'account di default per gli amministratori, in genere senza password.
Ciao
Andrea

 ma questi account dove si impostano?
Da Enterprise Manager, oppure ce ne sono anche di gratuiti.
Ciao
Alberto

 Me ne consigli uno?
Il grande classico di Montanari:
http://www.asql.biz/DbaMgr.shtm
Ciao
Alberto

 Alberto
Ciao,
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore con OLE per Word (5101)

Ho realizzato un applicativo VB5 - Word 97 che permette la creazione dei
documenti in Word.
Quando però effettuo la distribuzione di questo applicativo, in ogni
macchina si verifica l'errore di automazione 5101.
Dato che l'errore non è documentato e si verifica sulla seguente istruzione:
    WD.Selection.GoTo What:=wdGoToBookmark, Name:="RagSoc"
..... non so che pesci prendere.
Grazie a chiunque porrà anche una minima attenzione a questo messaggio.

..... non so che pesci prendere.
P.S.
Fossi in te prenderei i calamari! ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: stampa testo a colori

Salve a tutti,
qualcuno ha avuto mai modo e come di stampare una stringa a colori, del tipo
color=xx
printer.print "Pippo" (stampata nel colore xx)
grazie anticipatamente

 ha scritto nel messaggio
news:8l74hh$59$1...@serv1.albacom.net...

printer.forecolor = xx
printer.print "Pippo"
ciao
Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: Excel e VBA

Salve a tutti.
Sto arricchendo un foglio excel con form e moduli VBA per la gestione
personalizzata di alcuni eventi.
Mentre scrivo il codice mi si apre inaspettatamente la finestra di debug e
mi si chiude l'interfaccia.
Sto usando: SO = windows NT, Excel 97.
C'è qualcuno a cui è successo qualcosa di simile?
--
Grazie e ciao, G.

 wrote in message
news:8u8ms9$ais$1...@pinco.nettuno.it...

Potrebbe dipendere dal codice che scrivi. L' interprete vba di xl ( e di
office in genere) e' sempre in funzione, per cui molto probabilmente si
scatena un evento che contiene del codice (tuo o di qualche virus :-)
Ciao
Aldo

 wrote in message
news:8ua76g$16sbo$1...@ID-56381.news.dfncis.de...

Ora che ci provo, lo fa anche a me come tento di scrivere qualsiasi cosa
nella finestra vba di xl. La configurazione e' analoga, con NT4 Srv sp6a,
Off97, VS 6 sp 4, e un altro po' di roba.
Qualcun altro ne sa qualcosa ?
Ciao
Aldo

Per caso hai installato anche Delphi?
--
Ciao, G.


No. Forse Delphi e' innocente.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: ...SMEMORANDO

Ciao a tutti,
come potete notare dall'oggetto ... sono uno smemorando, in quanto e' da un
paio di anni che ho abbandonato il buon VB per DELPHI, e siccome ho bisogno
di creare un semplicissimo programmino in VB (di cui devo rendere i
sorgenti) non ricordo una banalissima operazione da fare.
Si tratta di usare il ciclo "For Each", in quanto ho una form con diversi
oggetti IMAGE (8) e per poterli "pulire" (da immagini) ho bisogno di
individuarli con un semplice for each
schematicamente sarebbe:
per ogni oggetto_image trovato, cancella contenuto
IL PROBLEMA E' TROVARE L'OGGETTO IMAGE.... C...ZO non riesco proprio !!!
ricevo sempre err 91 - 13 ....
Vi ringrazio sin d'ora per il vostro aiuto
Ciao e buon 2004
Filippo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 bisogno di individuarli con un semplice for each
dim c as control
    for each c in me.controls
        if typeof c is image then
            ...
        end if
    next
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 filippo... filippo... conosco un certo filippo...
Dimmi il tuo nome ... magari ci conosciamo !!!
Grazie per la dritta ... ero arrivato un attimo prima che tu scrivessi ...
grazie lo stesso.
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: stringhe di ricerca

ciao a tutti.
con il mio programmino sto cercando in un db access un record particolare.
quello che corrisponde al nome e cognome che seleziono da un elenco.
se ricerco una cosa come (cognome) "Pinco" (nome) "Pallo" nessun problema;
se invece ricerco qualcosa come (cognome) "Dall'Orto", cioè  un cognome con
l'apostrofo (') mi dà errore, perché trova l'apostrofo come carattere di
chiusura della stringa di ricerca.
di seguito la stringa sql che uso
sSQL = "Select * from soci where Cognome = '" & txtcognome.Text & "' and
Nome = '" & txtnome.Text & "'"
come faccio ad evitare che (se c'è) l'apostrofo nel cognome non venga
considerato?
ciao, grazie per l'aiuto

"Danilo" <a@b.c> ha scritto

dim n as string, c as string
n =trim(txtnome.text)
c =replace(trim(txtnome.text),"'","''") 'apice con 2 apici
sSQL = "Select * from soci where Cognome = '" & c & "' and _
    Nome = '" & n & "'"

 ha scritto nel messaggio
news:aesv0l$9sm64$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL Server + ADO: ricerca dati dei dubbi

Salve,
se non sbaglio ADO non supporta per SQL server il metodo Seek e la
proprieta' Index pertanto non e' possibile impostare ADORS.Index = "Indice"
e poi fare ADORS.Seek "=", Valore1, Valore2, ecc.
E' realmente cosi', oppure con quanche trucchetto con ADO si possono lo
stesso aprire le tabelle in modo particolare e specificare un indice come
con il vecchio DAO, sempre per SQL Server?
Esiste un altro metodo per specifiare un indice e ricercare per chiave senza
l'uso di istruzioni SQL?
(API? Uso dei cursori?)
Oppure bisogna per forza usare l'sql (select Campo1, ecc from Tabella where
CampoN = 'Valore1'), che per ricercare un altro record mi obbliga a chiudere
l'oggetto recordset e poi riaprirlo con l'sql modificato? mentre nel DAO
ricavo con Seek nuovamente.
Oppure i metodi Find e Filter utilizzano gli indici se ci sono, magari
impostando la proprieta' Sort con il nomi dei campi da ordinare?
Per utilizzare Find e Filter bisogna impostare la proprieta' CursorLocation
della Connection su Client, ma allora apro con ADO una tabella su SQL Server
da 300.000 records, specifico con Sort che campo utilizzare e poi faccio un
Find di un record che corrisponde all'ultimo. Il mio client che fa? si
carica in locale tutta la tabella macinando memoria a nastro?
C'e' quindi un metodo per aprire una mega tabellona e ricercare per chiave
dei record in maniera semplice ottimizzando codice e prestazioni?
Grazie in anticipo se qualcuno vorra'/potra' rispondermi, Michele
-- 
Posted from [212.210.220.109] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 dei record in maniera semplice ottimizzando codice e prestazioni?
Sì: nella progettazione della tabella crea un indice su quel campo, e poi
fai delle normali select, e il dbms userà l'indice esattamente come faresti
tu con la seek.
In conclusione vorrei dirti che se vuoi passare ad Ado, o meglio all'Sql,
devi rassegnarti a ragionare in un modo diverso. Prima abbandoni la
mentalità 'sequenziale' e meglio è. Ado è un motore di gestione dei dati
_relazionale_ e va usato in quel modo. altrimenti farai sforzi enormi per
raggiungere risultati insoddisfacenti.
ciao
Alfonso

 con il vecchio DAO, sempre per SQL Server?
C'è un trucchetto, però sconsigliato per database grossi,
specialmente su client/server.
Te lo posto, provalo.......................
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "VHS", Cn, adOpenKeyset, adLockOptimistic, adCmdTable
Rs.Fields("FILM").Properties("Optimize") = True
Settando la proprietà "Optimize" il computer carica
tutto l'indice in memoria.
Poi, ogni volta che devi cercare un record devi fare:
Rs.MoveFirst
Rs.Find "film='" & testo_da_cercare & "'"
Ciao
Sir Jo

 Inline
[Snip]
Mi associo a tutto. Inutile dirtelo, ma hai riassunto splendidamente i
termini del problema.
ciao
ugo


Grazie. Detto da te, mi fa arrossire... :))
Ciao
Alfonso

 Grazie. Detto da te, mi fa arrossire... :))
E' la settimana dei rossori...?
Siamo diventati tutti timidoni... :-P
:-)
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio

Ho un dbase access '97 e vb6.
Devo memorizzare in un campo del dbase il nome di un file.
Mi pare di ricordare che il nome di un file puň essere lungo al massimo 255
caratteri quindi un campo testo con lunghezza max 255 potrebbe andar bene.
Di solito perň i nomi di file raqggiungono a mala pena i 20-25 caratteri.
Se ho capito bene i campi "MEMO" sono a lunghezza variabile e quindi
(secondo me) potrebbero essere piů indicati per questo utilizzo.
Mi chiedo perň se in questo caso sia piů "leggero" l'utilizzo di un campo
MEMO o di un campo TESTO a lunghezza 255.
Grazie

MEMO o di un campo TESTO a lunghezza 255.
Un campo testo e' piu' performante di un campo memo.
Quest' ultimo contiene in realta' un puntatore ai dati veri e propri.
Il campo memo non puo' pertanto essere indicizzato, ad esempio.
-- 
ciao, hal

Grazie Hal. Sintetico ed esauriente.

Qualcuno può consigliarmi siti e/o libri che trattano in maniera piuttosto
buona la gestione dei DataBase in VB (comprensivo di ADO, DataGrid
eccetera)?
Grazie.

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

Ciao a tutti, ho i seguenti problemi con DAO:
A seconda di quale DAO uso (2.5 - 3.5 - 3.6) riesco a leggere solo alcuni
tipi di file mdb: gli ultimi dao leggono ACCESS 2000 ma non i precedenti,
mentre i primi DAO leggono gli Access precedenti  ma non il 2000.
Non riesco a lavorare su un database che č utilizzato da un altro programma
(mentre con ADO si)
Quando facio le query, mi vengono dei risultati sbagliati se le facio su
file mdb fatti con versioni precedenti dell'ACCESS 97.
Qualcuno mi sa aiutare in qualche modo?
E' meglio che passo definitivamente ad ADO?
Con ADO risolvo tutti e tre i problemi di cui sopra?
Perň ADO č piů lento di DAO vero?
Grazie e ciao a tutti, per me č molto importante ed urgente.


Certo, se usi solo db Jet in locale.
In tutti gli altri casi è sicuramente + veloce.
ciao
ugo

Ciao.
Dao > 3.6 puoi leggere sia Access2000 che Access97
Dao < 3.6 non puoi leggere Access2000
(chiaramente.... non lo avevano ancora inventato!!!)
Perchè il file possa essere letto contemporaneamente da più utenti devi aprirlo in modalità condivisa.
(vedi documentazione metodo Opendatabase)
Non so niente riguardo alle versioni precedenti ai file MDB precedenti ad Access97.....
Per passare ad Ado:
Se il tuo progetto é nuovo sicuramente sì
Se stai modificando un progetto esistente, come credo sia se lavori con file Access così vecchi, allora ti conviene tenerti DAO
Effettivamente a me sembra che DAO sia più veloce di ADO come accesso al database d'altra parte DAO non ha bisogno dell'ulteriore filtro del driver OLEDB come ADO
Ciao
      Sergio
 ___________________________________________________
 Se vuoi un indirizzo di posta elettronica gratuito, iscriviti a
 
http://www.katamail.com
 Da oggi anche l'instant messenger targato Kataweb
 
http://www.kwmessenger.kataweb.it/
-- 
Posted from 
c000-h015.c000.muc.cp.net
 [209.228.29.105] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.visual-basic
Titolo: crystal report runtime

Mi servirebbe sapere quali file dovrei aggiungere nell'installazione per
eseguire correttamente un crystal report senza avere i soliti errori di
runtime
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


www.crystaldecisions.com
 sezione kb
trovi di tutto - di più, e senza pagare il canone.. :-)
HTH
--
Stefano Zamboni 
sz...@libero.it
Legge di Ruckert:
Non c'è problema tanto piccolo che non possa essere ingigantito.

Newsgroup: it.comp.lang.visual-basic
Titolo: Trova duplicati

Come posso realizzare in maniera veloce ed efficente in termini di tempo una
procedura che prima di updare un nuovo record in un database (DAO) controlla
se ci sono altri record nel DB che hanno il campo X uguale ?
--
Ciao
Flex

...

Se ho capito bene mi viene in mente una soluzione banale ma credo
efficiente:
strSQL="SELECT COUNT FROM Tabella where CampoX=" & valore da non duplicare
set MyRecordset=MyConnection.Execute (strSQL)
if MyRecordset(0) >0 then MsgBox "Ci sono altri record con lo stesso valore
per il campo X"
Saluti
loacduck




Saluti
locaduck


Potresti creare un indice univoco per quel campo e gestire l'errore in fase
di insert.....
ciao
Ven.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][Ingegneri&Informatici] Barzelletta

Su di un'auto in autostrada stanno viaggiando tre persone, un'ingegnere meccanico, un'ingegnere elettronico ed un'ingegnere
informatico. Ad un certo punto e senza alcuna apparente
ragione l'automobile perde potenza e si ferma. I tre allibiti si guardano e con il fare sapiente
dell'ingegnere che prima di affrontare un problema lo valuta dal punto di vista teorico.
L'ingegnere meccanico afferma: "Sarà il sistema di distribuzione della pompa di iniezione !!" Ribatte l'ingegnere elettronico: "Per
me potrebbe essere la centralina elettronica !!"
A sua volta l'Ingegnere informatico: "E se provassimo a scendere tutti e risalire. Magari riparte !!"
questa è veramente squallida:
Una funzione ne incontra un'altra dopo tanto tempo che non si vedevano e chiede: "Allora come va?". "A Lagrange!!" fa
l'altracontentissima, "...e tu?" "uuhhmm, Cauchy Cauchy..."
Un giorno, un logaritmo incontra un suo amico esponenziale e lo invita ad una festa di soli logaritmi... Alla sera della festa il
logaritmo vede il suo amico esponenziale tutto solo annoiato che non si diverte...
Allora gli si avvicina e gli domanda cosa c'è che non va; l'esponenziale risponde che non conosce nessuno, è annoiato ecc.
A questo punto il logaritmo gli dice: "dai integrati con noi!"
e l'esponenziale: "tanto sarebbe la stessa cosa..."
Ciao SIMO

 
Forse fa piu' ridere nella versione originale:
"E se provassimo ad uscire e rientrare?" ;-)
ciao
		maxx

 ha scritto nel messaggio
news:SXhy7.15420$1H1.1...@news.infostrada.it...
zac



wrote:

ROTFL... :-))
Forse, però, sarebbero state più apprezzate domani mattina (Lunedì).
Che ne dite?
A turno ogni lunedì mattina, per "cominciare in bellezza la settimana" a
potremmo postare una barzelletta, una battuta, uno sfottò  IT
(ovviamente leggiamo prima i messaggi già postati, per evitare che non
ne postiamo in 200 intasando inutilmente il ng).
L'autore di quelle che non faranno ridere, però, verrà decompilato. ;-)
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

> L'autore di quelle che non faranno ridere, perņ, verrą decompilato. ;-)
ROTFL, buona idea.
Bisogna perņ stabilire delle regole per decidere "fa ridere" <-> "non fa
ridere" ....
Ciao!
Bald0z

 ridere" ....
Che decida il robomoderatore! :-) 
	maxx

 ;-)
ehehehehehehheheee

> A sua volta l'Ingegnere informatico: "E se provassimo a scendere tutti e
risalire. Magari riparte !!"
..."E se provassimo a uscire e rientrare?"  :o)
Newsgroup: it.comp.lang.visual-basic
Titolo: Anomalia della funzione Round

Qualcuno mi sa dire perchè
Round (1.815, 2) = 1.82
Round (1.825, 2) = 1.82    <<<< dovrebbe essere 1.83 !!!!
Round (1.835, 2) = 1.84
L'anomalia si genera quando la seconda e la terza cifra decimale sono 2 e 5
(quindi anche 2.125, 75.625, ecc.)
Un momento!!!
Ho appena scoperto che lo fa anche con i numeri da 61 a 84 con decimali .615
!!!!

 wrote in message
news:GF6a8.4825$Jo.1...@twister2.libero.it...


 ha scritto nel messaggio
news:a4aut8$16ac2$1...@news02.it.net...


 ?Round (1.825, 2)
E' un bug normale!
Usa FormatNumber
Questo nella FAQ ci va?
Ciao
--
Timothy Redaelli

 Questo nella FAQ ci va?
j.urgh

 Round (1.835, 2) = 1.84
Hal ha postato questo link un sacco di volte:
HOWTO: Implement Custom Rounding Procedures Q196652
http://support.microsoft.com/support/kb/articles/Q196/6/52.ASP
Round usa un algoritmo detto Banker's round, diffuso in America, ma non
usato da noi. Trovi la spiegazione in un mio vecchio messaggio (se il link č
su piů righe, rimettilo su una sola):
http://groups.google.com/groups?selm=8o9b6p%24q3v%241%40nslave2.tin.it
Se invece vuoi solo la soluzione al tuo problema, ti viene incontro un po'
di codice scritto da 2 tedeschi
Function fctRound(varNr, Optional varPl = 2) As Double
' by Konrad Marfurt + Karl Donaubauer
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
    fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10 ^
varPl)
End Function
Ciao
*Roby*

 > > Qualcuno mi sa dire perchč

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo data

Ciao devo scrivere del codice che mi avvisi se a metà mese (il 15) il giorno
sia sabato o festivo e lo stesso a fine mese, e controllarmi se il mese è di
28, 29, 30 o 31 e se ovviamente cadano di sabato o festivi!
Grazie ALESSANDRO

 ha scritto nel messaggio
news:8PWe7.1749$lM2....@news.infostrada.it...


Alessandro ha scritto:

Prova a dare un'cchiata a queste funzioni.
Public Function Festivo(Giorno As Date) As Boolean
 
   Festivo = False
   If Weekday(Giorno) = vbSunday Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 6 And Month(Giorno) = 1 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 4 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 5 Then Festivo = True
   If Day(Giorno) = 2 And Month(Giorno) = 6 Then Festivo = True 'Nuovo
   If Day(Giorno) = 15 And Month(Giorno) = 8 Then Festivo = True
   If Day(Giorno) = 1 And Month(Giorno) = 11 Then Festivo = True
   If Day(Giorno) = 8 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 25 And Month(Giorno) = 12 Then Festivo = True
   If Day(Giorno) = 26 And Month(Giorno) = 12 Then Festivo = True
   If Giorno = Pasqua(Year(Giorno)) + 1 Then Festivo = True
 
End Function
Public Function Pasqua(ByVal Anno As Integer) As Date
 
   Dim A As Integer, B As Integer, C As Integer
   Dim P As Integer, Q As Integer, R As Integer
 
   A = Anno Mod 19
   B = Anno \ 100
   C = Anno Mod 100
   P = (19 * A + B - (B \ 4) - ((B - ((B + 8) \ 25) + 1) \ 3) + 15) Mod 30
   Q = (32 + 2 * ((B Mod 4) + (C \ 4)) - P - (C Mod 4)) Mod 7
   R = (P + Q - 7 * ((A + 11 * P + 22 * Q) \ 451) + 114)
   Pasqua = DateSerial(Anno, R \ 31, (R Mod 31) + 1)
 
End Function
Public Function GiorniMese(ByVal Mese As Byte, ByVal Anno As Integer) As Byte
   Select Case Mese
      Case 1, 3, 5, 7, 8, 10, 12: GiorniMese = 31
      Case 4, 6, 9, 11: GiorniMese = 30
      Case 2: GiorniMese = IIf(Bisestile(Anno), 29, 28)
   End Select
 
End Function
Public Function Bisestile(ByVal Anno As Integer) As Boolean
   If Anno Mod 100 = 0 Then
      Bisestile = (Anno Mod 400 = 0)
   Else
      Bisestile = (Anno Mod 4 = 0)
   End If
 
End Function
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html
Newsgroup: it.comp.lang.visual-basic
Titolo: Lista Task Attivi

E' possibile, eventualmente anche con chiamate API, visualizzare, per
es. in una ListBox, la lista di tutti i task attivi in un certo
momento?
Un Grazie e un cordiale saluto a tutti.
Luigi P.

momento?
Inserisci questo codice in un modulo .bas
Option Explicit
Public Const TH32CS_SNAPPROCESS As Long = 2&
Public Const MAX_PATH As Integer = 260
Public Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type
Public Declare Function CreateToolhelpSnapshot Lib "Kernel32" _
    Alias "CreateToolhelp32Snapshot" _
   (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "Kernel32" _
    Alias "Process32First" _
   (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "Kernel32" _    Alias
"Process32Next" _
   (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Sub CloseHandle Lib "Kernel32" _   (ByVal hPass As Long)
Ora, in un form, inserisci una listbox ed un commandbutton ed inserisci
questo:
Private Sub Command1_Click()
    Dim hSnapShot As Long
    Dim uProcess As PROCESSENTRY32
    Dim r As Long
    hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    If hSnapShot = 0 Then Exit Sub
    uProcess.dwSize = Len(uProcess)
    r = ProcessFirst(hSnapShot, uProcess)
    Do While r
        List1.AddItem uProcess.szExeFile
        r = ProcessNext(hSnapShot, uProcess)
    Loop
    Call CloseHandle(hSnapShot)
End Sub
Esegui e premendo il bottone otterrai la lista degli exe (con il percorso
completo) attivi.
ciao
Stefano Zamboni  (W95 4.00.950a & IE4 & VB5SP3 ed ora anche Delphi2)
----------------------------------------------------------------------------
----------------
sz...@XXXtin.it
zam...@XXXfreemail.it
Togliere "XXX" per rispondere
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
----------------------------------------------------------------------------
----------------

Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP Classic] OWC11 ed esempi...dove?

Salve a tutti!!!
Sapete dove posso trovare esempi con questa libreria? Non riesco a 
trovarne. Ne trovo solo per la owc.chart ma è una versione compatibile 
con office 2000 e che ormai fa poche cose rispetto agli attuali chart di 
office. Qulacuno mi sa indirizzare su qualche esempio migliore? Se poi 
la owc11 ha gli stessi oggetti dell'owc10 allora ditemelo e cerco gli 
stessi esempi.
1000 Grazie!

 trovarne. Ne trovo solo per la owc.chart ma è una versione compatibile 
it.comp.www.asp
ciao
stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: [?2?] Sortare Date in una ListView. Si puo`? Grazie123000.

Ciao. ^_^
Sto` facendo una tabella di links con un controllo ListView e...
una delle colonne contiene le date relative ai singoli links.
Ora, io ho dovuto impostare il sorting della tabella in base a questa
colonna.
RISULTATO:
Il sorting vede tutto come stringhe e le date (x es "Sabato 30/02/99 ...")
finiscono per essere ordinate in ordine alfabetico.
DOMANDA:
Come si po` fare a sortare x data (o x valore) come funge normalmente nelle
liste di files di Win95?
Si puo` associare forse una ".Key" long o altro e far eseguire il sort su
questa?
("Aiutate FenixX a rimettere in ordine il mondo!"), Grazie123000!
|:-D| FenixX |(-:|
ICQ: 16201896
http://webstation.webjump.com
http://www.angelfire.com/ok/fenixx
http://space.tin.it/scienza/dfelisar
FenixX=Visual=Book=Marks=System:[Meteos]-[SuperBarZell]-[MangAnime]-[Music]
WebStation: Main Menu
[SearchEngines] [HotPages] [InternetServices] [MessagesServices]
[Hardware] [Software] [InternetSoftware]
[Friends] [People] [Audio-Music-Radio] [Video-Live-Cam-TV]
[MangAnime] [Doc-Info] [NewsPapers] [Lombardia] [Links2Links]
  ("`-''-/").___..--''"`-._
   `6_ 6  )   `-.  (     ).`-.__.`)
   (_Y_.)'  ._   )  `._ `. ``-..-'
     _..`--'_..-_/  /--'_.' ,'

questa?
Purtroppo l'unico per poter ordinare gli elementi di una ListView in
base ad un criterio diciamo "personale" è quello di usare le API.
Dopo parecchie prove ci sono riuscito e non è esattamente una
bazzecola.
Se hai un'idea di cosa sono le API e come si usano i messaggi per
comunicare con le "classi" di sistema della Win32 (nella fattispecie
la ListViewClass) ti posso postare in privato il codice di prova che
ho realizzato.
Marco Frazzoli
Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicare con una scheda PIO-48

Sto realizzando un macchinario per il collaudo prodotti.
In Quick  Basic 4.5 esistevano due istruzioni (OUT e INP)
che consentivano di comunicare con una porta.
Queste due istruzioni in Visual Basic non esistono più, qualcuno sa
dirmi se sono state sostituite con altre o come posso gestire una
scheda di acquisizione dati.
Grazie.

...


Se il tuo programma VB lo fai girare sotto Win9x la soluzione è veramente
semplice,
basta creare una banale DLL in  VC5 con due funzioni quali, ad esempio, la
butto lì:
__int8 __stdcall IsaIn (unsigned short port)
{        
   return (__int8)_inp(port);  
}
void __stdcall IsaOut (unsigned short port, __int8 value) 
{        
   _outp(port,value);  
}
Esportando le due funzioni.
Diverso discorso se il S.O. è Win NT, le istruzioni IN al,dx e OUT dx,al non si possono eseguire così banalmente.
Comunque sulla rete si trovano molte DLL già pronte per l'uso ma non so indicarti dove, personalmente me la sono creata e ti suggerisco di fare altrettanto se devi interfacciarti all'hardware.
Spero di esserti stato di qualche aiuto.
Paolo.



Il costruttore fornisce le librerie *.dll per Vb4 e sono per sistemi a
16 bit le quali implementano tutte le funzioni principali della
scheda. Il problema è il desiderio di gestire direttamente la scheda
creando delle librerie personali.
Purtroppo per esigenze aziendali non mi è possibile utilizzare Win9x.
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] suggeritemi una rivista!!!

Salve a tutti,
vorrei iniziare a prendere delle riviste che parlino di programmazione (in
generale ed VB in particolare) ed è per questo che mi affido a voi esperti.
Quale rivista potrebbe essermi utile per tenermi aggiornato sulle ultime
tecniche di programmazione (sempre VB in particolare)?
P.S. NON ho questa grande esperienza di linguaggi, perciò non miro a delle
riviste SUPERspecializzate ma che però non siano anche per "utente" (una via
di mezzo)
Grazie a tutti.
Ciao.
Paolo.

 ha scritto nel messaggio
news:DuzF7.13995$zl4.4...@news2.tin.it...

Ciao Paolo!
Io non sono un esperto, e proprio per questo ti posso assicurare che mi ha
aiutato molto la rivista ioProgrammo.
Poca pubblicità e tanti esempi!
Ciao



Se è una rivista per "utenti" non è una rivista di programmazione.
Se conosci l'inglese, ti consiglio VB Journal, altrimenti la sua
versione italiana che però è disponibile solo su abbonamento.
Buone riviste italiane di VB in edicola non ce ne sono.
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Condividere file mdb in rete.

Premetto che ho un archivio access su cartella condivisa da tutti i posti di
lavoro della mia rete.
Il file access e' impostato con accesso condiviso.
Attualmente riesco a leggere il file da tutti i terminali senza far generare
errori al programma sviluppato in VB5.
Cosa devo fare per permettere a tutte le postazioni di modificare i dati di
tale file oltre che a leggerli ?
Grazie.

 ha scritto nel messaggio
news:X7Nt7.19739$C15.2...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Masterizzare un CD con visual basic.

Ho creato un programma di backup ma ho dei seri problemi
con la masterizzazione. Non riesco a trovare il modo di masterizzare da
codice.
Ho cercato il programma cdRecord.exe che mi hanno segnalato
ma ho trovato indicazioni solamente per Linux.
Potete aiutarmi??
Conoscete programmi o dll in grado di masterizzare DVD da codice??
Grazie mille

Conoscete programmi o dll in grado di masterizzare DVD da codice??
Installi un software che permetta il packet writing (Nero e CD
Creator, per esempio, lo fanno) e scrivi sul cd come su un disco
qualsiasi.
Perche' inventare l'acqua calda? ;-)
-- 
ciao, hal


questa domanda viene posta sul ng una settimana si e una no!!
:-)
PaoloS

 Potete aiutarmi??
Ti posso mandare un modulo bas e le utility cdrecord versione ms-dos.
Non ho ancora risolto pero' un problema: su windowsxp, nt e 2000 non
funziona.
In pratica funziona su windows 98 e windows me.
Fammi sapere se ti interessa.
ciao
Paolo B.

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire file .lnk

ciao a tutti, volevo sapere come fare ad aprire un piccolissimo file
.lnk (collegamento).
vi prego aiutatemi. 
grazie anticipatamente
gege766

 wrote in message
news:1129827906.3...@g49g2000cwa.googlegroups.com

In che senso aprire...?
Se devi lanciare il programma associato lancialo direttamente..!
Mi sfugge qualcosa...?
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

nel senso lanciare, eseguire, avviare......    e mi serve aprire il
collegamento non il programma a loro associato. non è possibile usare
'shell'??
gege766

 gege766
Shell no ma l'API ShellExecute sě.
http://www.google.it/search?hl=it&q=lnk+shellexecute&meta=
Bye
Raf

grazie mille rafunk
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con VB5, win98, jet

ho installato prima un programma compilato col vb5 e successivamente il
vb5 ( completo si SP3 ) su una macchina col win98 ( base , appena
installato e nient'altro ) in tutti e due i casi appena tento di usare
jet , ovvero al primo opendatabase , mi si genera l'errore
"Jet VBA file (VBAJET.dll for 16-bit versions, or VBAJET32.dll for
32-bit versions) is missing. Try reinstalling the application that
returned the error. (Error 3446)"
o questo
"The Jet VBA file (VBAJET.dll for 16-bit versions, or VBAJET32.dll for
32-bit versions) failed to initialize when called. Try reinstalling the
application that returned the error. (Error 3447)"
come se non avesse installato JET
Premesso che il setup e l'installazione del VB5 mi hanno sempre
funzionato sotto W95 ed NT 
ho dimenticato qualcosa ?
Grazie per l'aiuto
Marco

...



Non funziona , gia' provato, anche solo col VB5 se provo a creare un
progetto che usa Jet mi da esattamente lo stesso errore.
Ho provato ad installare un programma fatto col VB6 che usa il Jet e da
quel momento in poi ha cominciato a funzionare
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: 4th Dimension

Gentile NG,
ho già esplorato i meandri di Google e spulciato tra i vecchi post..
ma oltre che un paio di richieste non soddisfatte non ho trovato
notizie su driver OLE DB o anche ODBC per connettersi da
un'applicazione windows (vb per esempio) ad un database 4th dimension
sotto MACOS
Qualcuno ha notizie o un punto di partenza per trovare qualcosa?
grazie
Fabio

 ha scritto nel messaggio 
news:1135160825....@g47g2000cwa.googlegroups.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Componente foglio Excel

ciao a tutti,
qualcuno sa dove poter trovare informazioni dettagliate su come gestire il
componente "Foglio Excel" all'interno di un form VB6 ? Il mio problema e che
una volta inserito il componente nel form, poi quando vado a scrivere il
codice x gestirlo, mi ritrovo con un oggetto Sheet1 quasi privo di attributi
e metodi (stranamente) e quindi ingestibile ....
grazie mille a tutti e ciao
Claudio .


Strano.
Teoricamente ha un object model pressochè completo.
Hai provato con il suo help? (dovrebbe essere MSOWCVBA.CHM o qualcosa del
genere).
Ciao
Alberto

Hai aggiunto nei reference la libreria MicrosoftExcel 9.0?

Devo pescare il codice che ho usato, ma lo posterò in un thread a parte
perchè a volte dà dei problemi e non ho capito perchè.Anch'io ho il tuo
stesso problema, per recuperare i dati dal foglio devo per forza lanciarlo,
iconizzarlo e tenerlo attivo.Una volta memorizzate le celle che mi servono,
setto a nothing l'oggetto excel.
A presto.

 ha scritto nel messaggio
news:_Qy0a.90781$ZE.24...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire Form MDI Child esterne

Salve a tutti
Avrei la necessitą di aprire delle form contenute in una dll ActiveX
all'interno di una form MDI contenuta in uno standard exe.
Oltre a fare ciņ avrei bisogno di far sparire la barra del titolo e
relativa controlbox di questa Form.
Se qualche anima pia č in grado di aiutarmi sarņ molto felice.
Grazie
Andrea

 Andrea
Questo interessante articolo di Dan Appleman fa senz'altro al caso tuo:
http://www.ftponline.com/archives/premier/mgznarch/VBPJ/1999/03mar99/da0399.pdf
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] TruncateFile()

Esiste in VB un qualsiasi sistema per troncare un file?
In Delphi esiste qualcosa del genere:
    // e il file da 2k diventa da 1k!
    TruncateFile(FileDa2k, 1024);
Ma in VB?
Insomma, mi serve una "Redim Preserve" per i files.
Ciao

 wrote in message
kJdd7.6336$3Q4....@news2.tin.it...


 TruncateFile </BG>
<'nnaggia>
    Buona idea!
</'nnaggia>
Ciao

 TruncateFile </BG>
Non ci capisco molto di assembly, ma a quanto pare si limita a chiamare la
SetEndOfFile() (API di sistema)
Ciao

 Esiste in VB un qualsiasi sistema per troncare un file?
Ecco qui:
Private Declare Function CreateFile _
     Lib "kernel32" Alias "CreateFileA" _
    (ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle _
    Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetEndOfFile _
    Lib "kernel32" _
   (ByVal hFile As Long) As Long
Private Declare Function SetFilePointer _
    Lib "kernel32" _
    (ByVal hFile As Long, ByVal lDistanceToMove As Long, _
     lpDistanceToMoveHigh As Long, _
     ByVal dwMoveMethod As Long) As Long
Public Sub TroncaFileEsistente(sNomeFile As String, lDimensioneInBytes As
Long)
'
' Prende il file esistente sNomeFile e lo taglia in modo che non sia piů
' grande di lDimensioneInBytes.
' Se č piů piccolo, resta uguale.
'
Dim lHandleDelFile As Long
Dim PosizioneACuiVuoiTroncare As Double
Dim Risposta As Long
lHandleDelFile = CreateFile(sNomeFile, GENERIC_WRITE, _
     FILE_SHARE_READ Or FILE_SHARE_WRITE, _
     ByVal 0&, OPEN_EXISTING, 0, 0)
PosizioneACuiVuoiTroncare = lDimensioneInBytes
' Questa API accetta l'offset come parte bassa a 32 bit + parte alta a 32
bit
Risposta = SetFilePointer(lHandleDelFile, PosizioneACuiVuoiTroncare, _
    0, FILE_BEGIN)
Risposta = SetEndOfFile(lHandleDelFile)
Risposta = CloseHandle(lHandleDelFile)
End Sub
Ciao
*Roby*

      ByVal 0&, OPEN_EXISTING, 0, 0)
Opps, avevo dimenticato la dichiarazione delle costanti...
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_BEGIN = 0
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - File TMP nelle Cartelle di Programmi

buongiorna a tutti volevo fare delle semplici domande
Che cosa sono quei file TMP che si trovano nelle cartelle dove è presente il
prg o il database?
Non si cancellano quando viene chiuso male il DB o il prg?
Si possono cancellare?
grazie anticipatamente a tutti
bye Roberto

 wrote in message
news:8l19vm$5ci$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [vb.net] Installato!

Tempo impiegato per l'installazione quasi 2 ore! Semplicemente imponente,
anche se 128Mb di RAM sembrano fargli il solletico!

Parli della versione beta2?
Convive con VisualStudio 6.0?
Se si la installerei anch'io
ciao
huvi

Ciao Huvi,
si, parlo della Beta2. Non so se conviva con VB6, io l'ho installata su un
secondo HD per sicurezza!
Saluti,


Newsgroup: it.comp.lang.visual-basic
Titolo: report ... questi maledetti

ciao a tutti, premetto che e' la prima volta che mi cimento con i report in
VisualBasic 6.
ecco la situazione, devo stampare i preventivi di un lavoro di
un'autofficina.
Lavoro : data inizio, data fine, preventivo
ogni lavoro ha una o piu' prodotti : marca e modello
ogni lavoro ha uno o piu' interventi di manodopera: operaio, ore
uso le componenti
    finestra di progettazione -> data enviroment
    finestra di progettazione -> data report
faccio il dataenviroment con il primo comando sql sui lavori
 un comando sql secondario sui prodotti
 un comando sql secondario sei lavori
ma quando definisco la struttura del report mi fa specificare solo uno di
questi comandi e non riesco ad avere in una sola pagina una cosa del tipo:
----------------------------------------------------------------------
Lavoro 1 - Data inizio 21/3/02 - Data fine 22/3/02 - Preventivo 200?
Prodotti
   sony HRC11
   panasonic HRF34
Manodopera
  paolo rossi 4 ore
  mario bianchi 5 ore
-----------------------------------------------------------------------
e' possibile? come si fa? qualche aiuto? qualche indizio? (aggiungi qui
altre domande) ? :-) ?
grazie, ciao.
G.

come non detto,
dopo 2 giorni che ci perdo il sonno... mi sono accorto che avevo fatto un
errore stupidissimo e non me ne ero accorto...
grazie comunque.
G.
Newsgroup: it.comp.lang.visual-basic
Titolo: OPEN SOURCE

Salve a tutti sto cercando di mettere su un gruppo di programmazzione
o meglio volgio mettere su un progetto in visual Basic che sia sviluppato
da tutti come il Linux, ovviamente mettero' disponibile il codice sulla
rete in questo modo CHIUNQUE volesse dare il suo contributo puo' farlo. I
progetti che voglio creare sono 2:
1) un CAD 3d in visual basic
2) un client IRC in visual basic
Chi vuole partecipare la progetto mi scriva e riceverà codice e sarà
inscritto nel sito dove si stanno sviluppando questi progetti.
					Gianluigi

Scusa ma...
non sono ancora arrivato a programmare applicazioni grafiche con VB, pero'
non so se in fatto di velocità é il piu' adeguato per un applicazione come
il CAD.
(se c'e' qualcuno piu' esperto, mi smentisca pure....sono incuriosito
anch'io a sapere se VB é utile per programmi di grafica 2D 3D)
Ciao
DaVe


Con VB, e un pò di ottimizzazioni puoi ottenere le prestazioni di AutoCAD, e
secondo come puoi anche superarle.
Per il 3D vale lo stesso discorso.
Dipende dalla qualità degli algoritmi, non dal linguaggio. E' ovvio che
alcuni di questi sono più adatti ad altre piattaforme, ma garantisco che
qualsiasi algoritmo è riproducibile in VB (BSP Tree, phong shading, Ray
Tracing ecc...)
Fabio Guerrazzi

Sul Sito comune c'è un mio progetto (scusa la pubblicità) Win3DVB5 che funge
da motore 3D. E' un pò vecchiotto, ma rende l'idea.
Fabio


Riproducibile si, ma le prestazioni?
--
Roal Zanazzi
z...@iol.it

Garantisco: Le prestazioni sono ottime, VB di suo è lento, ma con una buona
gestione di collections, class, Sub ricorsive al posto di cicli Do o For
nidificati, e una buona struttura di dati,  i risultati non sono così
distanti da quelli di DJGPP o WatCom.  E' ovvio che in fase di ray tracing
le cose si complicano, ma ad esempio, gli alberi BSPTree per la rimozione di
superfici nascoste, lo shading, la collisione tra oggetti (che sono gli
aspetti produttivi che in fondo interessano di più in un cad) sono
SPAVENTOSAMENTE veloci.
AutoCad, ad esempio rigenera le linee di un dwg semplicemente attraverso
chiamate a blocchi di PolyPolyLine.  Ho riprodotto lo stesso meccanismo con
files DXF di (13MB) e il risultato, in termini di prestazioni, con VB è
stato più soddisfacente.
Invece, per fare il Pan o lo Zoom dinamico Autocad fa chiamate esterne, e
quelle non sono riproducibili, ma il 90% di Autocad può essere riscritto con
VB, con le stesse prestazioni.
Per il 3D, con VB non si arriva alle le prestazioni di resa visiva di
OpenGL, ma tenendo conto che anche questo non è il massimo della
velocità....
Altra cosa sono le DirectX che si interfacciano direttamente con l'hardware.
In questo caso c'è poco da riprodurre, non è questione di algoritmi o
linguaggio, fanno tutto loro.
Fabio Guerrazzi