mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Winsock e porte

Come posso fare a sapere se una porta č utilizzata da un'altro programma o
no?
Mi spiego meglio...
Quando faccio comunicare due computer con il controllo winsock usa una porta
a caso, senza sapere se č utilizzata da un altro programma o no!
Non so se c'č un modo per riservarle o per vedere quale sia libera...ma
esiste?
Grazie!

 esiste?
Con le API sicuramente, con VB puro o col Winsock, penso proprio di no.
Un Paperino "no, un firewall in VB non si puň fare".

Newsgroup: it.comp.lang.visual-basic
Titolo: Interfacciamento video: Aiuto!

Ciao a tutti, ho bisogno di un aiuto, devo interfacciarmi tramite vb (o
Access) ad una scheda di acquisizione video della Pinnacle.
In pratica devo visualizzare all'interno di una form le immagini (o una
frame) proveniente da una telecamera connessa alla suddetta scheda.
Come posso fare? esiste un driver,dll,ocx che risolva il problema?
Grazie anticipatamente.
Axel.


---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

 wrote in message
news:39696b58...@100.0.57.0...


 wrote in message


Grazie Giampiero, la tua indicazione è stata preziosissima, dopo un paio di
giorni passati sui motori di ricerca ho finalmente trovato quello che
cercavo (interfacciarsi da vb con una scheda di acquisizione video).
Ovviamente non scrivo solo per i ringraziamenti (occupano spazio e tempo
prezioso) ma anche per mettere a disposizione di qualche altro malcapitato
la mia esperienza in questo problema ed ovviamente le soluzioni che ho
trovato. Se poi comunque avete già risolto un problema simile contattiamoci,
magari esce fuori un'altro sistema...
Vi assicuro che una certa parte di mercato è alla ricerca di simili
gestioni.
Ciao a tutti e grazie.
Axel

Newsgroup: it.comp.lang.visual-basic
Titolo: cards.dll




Necessito usar o "cards.dll" que contém as cartas dos jogos do Windows.

Por favor informem-me como ok??

Cumprimentos a todos,

Rogerio Nunes

rmn...@mail.sonet.pt





...

Prova ad usare QCard32:
QCard32.DLL is released to the public as FreeWare. It
may be copied and redistributed provided all the
enclosed files remain in tact. The file list is
as follows:
QCARD32.TXT This file
QCARD32.DLL The main DLL file
QCARD32.HLP The documentation file
VB_FILES.ZIP Support for 32-bit VB
C_FILES.ZIP Support for 32-bit C/C++ use
DELPHI.ZIP Support for 32-bit Delphi use
This release is to be used for creating card
applications in 32-bit environments. If you
want to create 16-bit applications, find
the package QCard.zip, which is available
at various sites on the internet and
on Compuserve.
Bye Giovanni
-----------------------------------
Giuseppe Giovanni Selgi
Informatica & Networking
Sel...@dns.omnia.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Recupero stringa!!

Il mio problema è il seguente:
ho un file di testo strutturato in questo modo: ogni riga è composta da un
blocco di caratteri separati da una virgola in questo modo
xxxx,yyyy,zzzz.Dovrei sequenzialmente recuperare di volta in volta i valori
a sinista della prima virgola (xxxx), quelli compresi tra la prima e la
seconda (yyyy) e quelli a destra della seconda virgola (zzzz), passarli ad
una o più varialbili e trasformarli attraverso degli operatori matematici (i
caratteri sono in realtà una sequenza di numeri) per creare un nuovo tipo di
file (sempre formato testo).
Gli operatori stringa sono molti e versatili, vorrei sapere qual è la via
più breve, grazie!
Ascanio

 xxxx,yyyy,zzzz.
Puoi usare InStr e InStrRev, oppure anche Split (questa e' utile soprattutto
perche' cosi' poi ti puoi creare un array che puoi salvare con maggior
semplicita').
Per il salvataggio dei dati puoi usare Print #nFile.
Ciao,
- SonicBoom -

 semplicita').
O piů semplicemente:
Input #1, A, B, C
--
Er Roscio.

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report - passaggio variabili

Come faccio a passare una variabile definita in visualbasic 5 per riempire
un campo di un report del crystal report?
Grazie


la risposta la trovi appena piu' in basso..........
Ciao
Ven.

La risposta la trovi ancora più in basso

Newsgroup: it.comp.lang.visual-basic
Titolo: Data Report e page orientation

Scusate la domanda forse banale, ma qualcuno sa darmi una dritta su come
poter ottenere un report "orizzontale" senza dover per forza modificare
tutte le volte a mano le impostazioni della stampante?
Il tutto per evitare di farmi dire che la larghezza del report č eccessiva.
Grazie
Antonio

Il tutto per evitare di farmi dire che la larghezza del report è eccessiva.
C'è un articoletto su uno degli ultimi VBJ proprio su questo.
Sembra che tu debba:
-Attivare la modalità LandScape sulla stampante
-Impostare le proprietà LeftMargin e RightMargin a 0
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto Word e versione di Word installata sul PC

Ciao a tutti.
Nel mio software uso l'oggetto "Microsoft Word 9.0 Object Library" relativo
alla versione di Word 2000.
Mi chiedo: se l'utente che installerà il software ha una versione diversa di
Word (per esempio 97 o XP), cosa succederà al mio software quando utilizzerà
l'oggetto Word?
Funzionerà tutto correttamente o (come temo) ci saranno problemi?
In questo caso, come posso risolvere la cosa?
Includere un riferimento per ogni versione di Word e creare un tipo diverso
di oggetto a seconda della versione di Word installata?
Qualcuno ha già affrontato questa problematica?
Grazie, ciao.
Skysurfer

 ha scritto nel messaggio
news:srLA9.28808$Zn2.8...@twister1.libero.it...

Io non includerei nessun riferimento alle librerie nel progetto ma a runtime
farei:
...
Dim W as object
Set W=CreateObject("Word.Application")
...

 ...
Grazie... proverò a fare così anche perchè ho visto che comunque il file OLB
viene installato direttamente da Word e quindi dovrebbe esserci già sul
client.
Grazie
Skysurfer

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 database remoto senza ado.net

dovrei agganciare da un client un db Firebird su server remoto ,
quindi non in lan , ma senza usare .net, in generale potrebbe valere
anche per altri (access, mysql).
Stefano 

 anche per altri (access, mysql).
Puo' andarti bene questo (in VB6) ?
cnn.CursorLocation = adUseClient
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security 
Info=False;Initial Catalog=NomeArchivio;Data Source=10.0.0.12\SQLEXPRESS"
fa riferimento ad un archivio SQLServer (versione SQLEXPRESS) residente nel 
computer avente IP locale 10.0.12. Cambiando IP ci si può connettere, 
tramite VPN, anche ad un computer remoto, tramite Internet.
Ciao
AlpVir
Newsgroup: it.comp.lang.visual-basic
Titolo: Web forms o Windows forms (VB.NET)

Ho la necessità di iniziare da subito un'applicazione 
VB.NET
 orientata al
portatale aziendale.
E' meglio creare un progetto Web forms, oppure si può comunque creare un
progetto Windows forms e poi portalo semplicemente sul portale aziendale?
Quali sono le valutazioni che mi si consiglia di fare prima di buttarmi a
capofitto sulle attività previste?
Grazie mille a chi saprà e vorrà rispondermi


Non sono sicuro di aver capito, ma se devi creare un portale (con 
ASP.NET
)
non c'è ragione di crearlo prima in Windows Form e poi portarlo...
Il quale porting è sì semplice ma non veloce (specie in progetti di grandi
dimensioni e/o complessità, è praticamente sicuro aver a che fare con
"problemini" più o meno complessi che risolvono drasticamente il problema
del tempo libero).
E poi, se sviluppi un'applicazione MDI, come fai a portarla ;-) ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Quanto tempo ci vuole per realizzare un pgm in VB

Buongiorno a tutti, la mia domanda è molto semplice e forse anche un pò
stupida, sto realizzando un programma in vb di gestione degli ordini(quindi
con tutti i suoi crismi: multiutente ognuno con vari livelli di
permission,controllo degli errori, diverse stampe etc...etc...).
Ora volevo sapere da voi quanto tempo in media ci vuole per realizzare un
programma del genere tenendo conto che io sono un neofita della
programmazione.
Grazie mille per le vostre risposte. Andrea.

dipende da un sacco di fattori, dovessi realizzarlo io, in base a quello che
hai scritto, 60/90 ore
saluti,



scusa, anche a me interessa la domanda, mi potresti indicare 
alcuni dei fattori che sono importanti, in base alla tua
esperienza?
grazie mille

Ciao Tom,
l'analisi dei tempi di sviluppo (partendo da zero) si basa essenzialmente
sull'esperienza, in quanto sai già dove "mettere le mani". Ma i tempi
potrebbero addirittura abbreviarsi potendo utilizzare codice generico e
procedure già realizzate per altri progetti.
Ad esempio, Black Jack su 
www.inversewave.com
 l'ho realizzato in circa 60/70
ore, ma c'era un sacco di grafica.
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Help Me. da quanto quel file è stato messo in quella cartella?

Ciao a tutti
Ho il seguente problema; spero che qualcuno sappia aiutarmi:
Ho una cartella nel mio hd che serve per appoggiarci temporaneamente
dei file che
giornalmente debbono essere archiciati nella giusta posizione.
Dovrei creare una funzione in vb che verifichi che in questa cartella
non ci sono dei file
che sono stati messi li da più di x giorni.
Per quanto riguarda il ciclo per sfogliare i file della cartella non è
un problema .
ma come faccio una volta che ho il percorso e nomefile a sapere da
quanto quel file è stato messo in quella cartella?
Spero che qualcuno sappia darmi una mano
Grazie in anticipo

 quanto quel file è stato messo in quella cartella?
Non so se controllando gli attributi del file (data creazione, ultima
modifica, ultimo accesso) puoi fare qualcosa, con vb credo si possano
leggere.
Oppure mi viene in mente che tu possa gestirti uno storico su un database e
con un timer controllare la presenza dei nuovi files ogni tot tempo, se ne
trovi uno nuovo lo inserisci nella tabella con la data+ora in corso, se non
ne trovi qualcuno lo elimini dalla lista.
Poi ti fai una select di quelli con data > di xx giorni da quella odierna e
prendi i nomi dei files "vecchi".
Ma non mi sembra una soluzione molto fine.
-- 
DBMS Firebird
VB6 + Ado

Newsgroup: it.comp.lang.visual-basic
Titolo: popolare dbcombo

ciao 
com'e' possibile un dbcombo?
Io utilizzo il seguente codice
        Rst.CursorLocation = adUseClient
        'Apro il recordset	
        Set Adodc.Recordset = Rst
        With cmbProdotto
            .DataField = Rst.Fields(1).Name
            .ListField = Rst.Fields(1).Name
            .BoundColumn = Rst.Fields(0).Name
            Set .DataSource = Rst
         End With
        End If
se mi muovo con l'adodc control riesco a scorrere il dbcombo, ma io
vorrei caricarlo come il classico combobox.
grazie

 vorrei caricarlo come il classico combobox.
e allora perchè non usi "il classico combobox" ?
ciao
ugo

>e allora perchè non usi "il classico combobox" ?
perche' la quantita' di dati e molto alta ed un caricamento classico
provoca un rallentamento troppo percettibile
ciao
La nostra difficolta non e' nelle dimostrazioni, 
ma nel capire che cosa dimostrare.
					 Emil Artin.

Newsgroup: it.comp.lang.visual-basic
Titolo: font in tabelle

Non so come allinearedei numeri a dx dentro una tabelladisegnata con linee.
P.S. non consigliatemi la "msflexgrid":problemi distampa.
Grazie a tutti

P.S. non consigliatemi la "msflexgrid":problemi distampa.
Cosa c'entra la msflexgrid con le stampe?
-- 
ciao, hal

spiega bene il problema che hai, anzi, tutti e due:
cosa intendi per tabelle disegnate con linee? intendi proprio le istruzioni
Line o il controllo shape?
non solo, secondo me diventi meno matto a sistemare il problema della stampa
con la flexgrid, piuttosto che allineare testo nelle "celle", soprattutto se
la tabella l'hai creata con uno dei metodi di prima.....
bel casino!!
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: Proteggere i CD dalla copia abusiva?

Sapreste, per favore, indicarmi se esiste qualche software che riesca a
proteggere i CD dalla copia abusiva.
PS Mi serve per un programma da me sviluppato che dovrà essere distribuito,
non certo per
non far copiare altri CD masterizzati.
Sono programmatore anch'io e rispetto il lavoro degli altri !!!!!!!!!!!!!!!
MAURIZIO

 wrote in message
83ij0l$210$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio parametri

Salve a tutti, ho il seguente problema:
Dim x As TextBox
Set x = Text1
x.Text = "prova"
funziona, ma se al
Set x =
voglio passare il nome di una textbox presa da una variabile stringa
come si fa?
grazie


Dai un'occhiata alla collection Controls dell'oggetto Form, la quale contiene
tutti i controlli del form...
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: [.Net] Creare proprietà espandibili

Ciao.
Una volta avevo letto un esempio di come farlo, ma adesso che ne ho bisogno
non lo trovo piu'!
Come è possibile creare in uno UserControl proprietà che nella finestra
delle proprietà risulitno espandibili?
Tanto per intenderci, simili alla proprietà "Size" che ha il "+" a fianco e
che apre due sottoproprietà "X" e "Y".
Grazie
Skysurfer

 ha scritto nel messaggio
news:b9vpln$21n$
1...@serv1.iunet.it

Non ho vs7 a lavoro e non posso postarti niente di "facile",ma ti assicuro
che lo è ,comunque qui in questa pagina trovi tutto quello che ti serve in
inglese
http://www.codeproject.com/useritems/Using_PropertyGrid.asp
--
Morfeus®
Free Joint
:PII

 Morfeus®
Grazie del link.
Gli ho dato un'occhiata al volo e mi sembra abbastanza incasinato. Anche
perchè questo è un esempio di uso dell'oggetto PropertyGrid. Io invece
volevo solo impostare una proprietà di un mio UserControl in modo che sia
espandibile quando viene visualizzata nella finestra delle proprietà.
Comunque adesso guardo meglio l'esempio, magari lo capisco anche da lì.
Grazie, ciao.
Skysurfer

 ha scritto nel messaggio
news:ba059t$fri$1...@serv1.iunet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con imgscan.ocx e imgedit.ocx X fare scansioni

Salve a tutti,
premetto che è la prima vota che mi cimento in Visual Basic 6.0, fin ora ho
usato il VBA di Access 2000.
Detto cio' vengo al punto,
devo effettuare la scansione di documenti e salvare l'immagine in un file.
Ho utilizzato i controlli in oggetto e se avvio il programma da visualbasic
(tasto play) tutto funziona correttamente. Il problema è quando compilo,
l'immagine viene creata e salvata, ma non viene visualizzata sulla Form,
come se il software non passasse il controllo a imgedit.
Da cosa puo' dipendere?
Vi posto anche il mio sorgente:
---------------------------------------------------------------
Private Sub Scansisci_Click()
'ImgScan.ShowSelectScanner             'SELEZIONA LA SORGENTE TWAIN
ImgEdit.ImageControl = "CTRLImgEdit"
ImgScan.DestImageControl = "CTRLImgEdit"
ImgScan.ScanTo = DisplayAndUseFileTemplate
ImgScan.Image = "c:\temp\images\img"
ImgScan.PageCount = 1
ImgScan.MultiPage = False
ImgScan.StartScan
End Sub
----------------------------------------------------------------
Grazie in anticipo.

attenzione, questi controlli non vengono installati sotto WinXP


non sono neanche compatibili con XP, se è per questo...
MS non supporta I4W sotto XP
se lo installi a manina e lo esegui fa 'boooom' (non Xp, I4W)...
-> GbC
http://www.gbcweb.com

 ha scritto nel messaggio
news:9u5cc7$5uro7$1...@ID-52601.news.dfncis.de...


 ha scritto nel messaggio
news:LIpN7.28568$BA4.9...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Copiare Directory

Esiste un metodo piu' veloce e meno incasinato ceh scansionare tutti i file
della directory e delle sottodirectory e copiarseli uno alla volta ?!?!?
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 wrote in message
hodX3.46341$s17.4...@typhoon.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Excel e VBA

Salve
premetto che sono inesperto con il VBA e macro, non so se questo e il News
Group adatto (non mi linciate)
Comunque in un foglio di Excel ho inserito un pulsante di comando che sul
click mi deve lanciare una Macro che mi ordina in modo crescente dei dati
numerici.
Ho trovato i seguenti problemi:
Creata la Macro pensavo che venisse eseguita solo nella posizione di
origine, cioč mi serve che interessi solo le celle che avevo selezionato,
solo ed esclusivamente quelle, mentre funziona in qualsiasi punto dove
seleziono una cella. Ho smanettato con le varie impostazioni di dove
applicarla, senza risultato.
Sul codice VBA ho inserito il comando sul click DoCmd.ctrl_o (dove ctrl_o e
il comando di scelta rapida) č corretto? E' necessario inserire il codice
d'errore?
Grazie
Massimo

 Ciao      Cesare
Grazie
effettivamente creavo il pulsante dalla casella degli strumenti,
complicandomi la vita.....
Purtroppo il discorso della macro va in parte.
All'apertura della cartella mi posiziono sul foglio dove debbo ordinare i
dati "Calcolo" e sulla prima delle celle che debbo ordinare (E14), vado su
Strumenti>Macro>Registra nuova Macro, seleziono tutte le celle che mi
interessano (E14:F63) poi sul menù dati>ordina>con riga
d'intestazione>crescente>invio. Fermo il registratore di macro ed imposto il
pulsante dalla barra dei moduli assegnandoli la macro creata in precedenza,
si qui tutto a posto, però mi servirebbe di inserire il pulsante di comando
sul foglio "Risultanze" sempre facente parte della stessa cartella e qui non
si siamo, infatti se lo schiaccio mi va ad ordinare le celle di quel foglio.
Aprendo la macro trovo il codice seguente:
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 22/03/2001 da Massimo
'
' Scelta rapida da tastiera: CTRL+o
'
    Range("E13:F63").Select
    Selection.Sort Key1:=Range("F14"), Order1:=xlAscending, Header:=xlGuess,
_
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Mi rendo conto che non viene specificato su quale foglio appartengono le
celle, quindi correggo il Range scrivendo ("Calcolo!E13:F63") ed
(Calcolo!"F14") senza risultato o meglio ottenendo un errore di RunTime 1004
Errore nel metodo Select per la classe di range.
Ciao
Massimo


potresti fare prima :
workbook("nomedelfile.xls").worksheets("calcolo").activate
e poi:
Range("E13:F63").Select   ecc.
(magari cambiato con
Range("E13").currentregion.Select
)
un consiglio:
per le prime volte, da VBA piazzati sulla SUB e dai l'F8: ti esegue la
macro una riga per volta e tua hai la possibilita', tra un riga e
l'altra (cioe' tra un F8 e l'altro) di vedere cosa succede intanto in
Excel.
Antonio
(togliere NO SPaM per rispondere)

 si qui tutto a posto, perň mi servirebbe di inserire il pulsante di

Newsgroup: it.comp.lang.visual-basic
Titolo: applicazione ftp

Salve, non riesco a fare una cosa che dovrebbe essere banale, spero che
perdonerete un principiante!
Dovrei fare l'upload via ftp di alcuni file, sto scrivendo questo codice, ma
sembra non funzionare:
 With Inet1
        .URL = "
web.tiscalinet.it/
"
        .UserName = "xxx"
        .Password = "xxx"
        .Execute , "send index.html /index.html"
        .Execute , "close"
    End With
ho copiato cosě come un mio ibro mi riporta. Il primo errore che mi da (e lo
capisco ) č che al momento di eseguire il "close", la richiesta č ancora in
esecuzione, ma mi sembra che anche togliendo il close, la pagina non venga
trasferita. Come cavolo si usa questo Inet

Non ho molta esperienza con Inet, ma l'upload sono riuscito a farlo. Io non uso
With, ma naturalmente tu puoi farlo!!!
   inet1.UserName = "xxx"
   inet1.Password = "xxx"
   inet1.RemoteHost = "
web.tiscalinet.it
"
   inet1.Protocol = icFTP
   inet1.Execute , "put c:\a.htm  /a.htm"
Ovviamente c:\a.htm e /a.htm dovrai sostituirli con i tuoi riferimenti.
Maurizio ha scritto:


 > capisco ) è che al momento di eseguire il "close", la richiesta è ancora


Ti ringrazioper la segnalazione, ma io ho semplicemente risposto ad una precisa
richiesata di Maurizo su Inet.
Daniele ha scritto:


Grazie per l'interessamento, ma io ancora non ci riesco.
Considerando che mi avvalgo di server tiscalinet, (
web.tiscalinet.it
),
potreste darmi un pezzettino di codice che funzioni?
Scusate se vi assillo, ma ancora non riesco a far funzionare nulla!

Non fateci caso. Non riuscivo a trasferire perchč avevo finito lo spazio a
mia disposizione. Ho fatto un'altra prova e funziona tutto. Grazie e ciao.

 > > > capisco ) č che al momento di eseguire il "close", la richiesta č


Newsgroup: it.comp.lang.visual-basic
Titolo: come far conoscere i propri programmi?

esiste un ng dove poter postare per pubblicizzare i programmi shareware e
free che uno crea?
ciao, grazie

Se il programma č interessante, perché non chiedi a
http://volftp.mondadori.com
di inserirtelo sul loro sito?
Non occorre che i programmi facciano chissa chč: a me ne hanno inserito un
paio di semplicissimi (un TimeAlert e un Euroconvertitore).
Tieni presente che le riviste che allegano CDrom con freeware spesso
attingono da lě, come č stato fatto per il mio Euroconvertitore...
ciao

ma non è possibile anche guadagnare qualcosa facendo un programma gratuito e
farlo distribuire alla rivista? in fondo la rivista viene comprata anche
grazie al cd con i programmi allegati no?

mah, che vuoi che ti dica...
io ho l'HD pieno zeppo di programmi gratuiti, alcuni utilissimi, altro
meno... tutto sommato anche se ne distribuisco gratis uno io (sicuramente
NON all'altezza di tanti altri), mi sembra anche giusto.
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Impossibile aprire altre tabelle

Come da oggetto errore di runtime -
2147467259
 (80004005)
Può essere in qualche modo legato alla transazione (che viene aperta e
chiusa all'interno di un loop in un recordset)?
-- 
Luigi Braccioforte
Wonderfulworld (50807) Italia V.181 | Seconda società Ht quotata in borsa
Junior Manager della IHNF | Tessera #136 Club dei Mille
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Probabilmente nel loop non chiudi tutti i recordset che apri ...
Controlla bene.
Ciao
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ciao
Verificato. Il problema è che funziona proprio per X records mentre oltre
va in errore (e non è lo specifico record ma proprio il numero di cicli) 
-- 
Luigi Braccioforte
Wonderfulworld (50807) Italia V.181 | Seconda società Ht quotata in borsa
Junior Manager della IHNF | Tessera #136 Club dei Mille
questo articolo e` stato inviato via web dal servizio gratuito 


Newsgroup: it.comp.lang.visual-basic
Titolo: 2 API interessanti

Allora sto costruendo un'applicazione che dia varie informazioni a
livello di sistema (OS Name, Version,Processor,etc.) e mi servirebbero
2 informazioni importantissime:
1- Sapere il nome del modello del PC
    (es.: COMPAQ Evo, HP Vectra VL, etc.)
2- Sapere il nome del modello del video
    (es.: Hp 71, COMPAQ 7550,etc.)
Sto cercando da un pò ma queste API e/o funzioni non riesco a
trovarle.
Avete già affrontato questo problema?
Grazie.
Andrea.

     (es.: Hp 71, COMPAQ 7550,etc.)
allo startup dell'applicazione:
sModello = Inputbox("Modello del Pc:" , "sysInfo request", "Assemblato marca
" & """" & "TRE FUCILI" & """")
sMonitor = Inputbox("Modello del Monitor:" , "sysInfo request", "Riciclato
CGA casalingo")
;-))))))))
...scherzi a parte: se chiedi il tipo di motherboard, di hdd, di monitor,
hai la speranza che, via plug & play, qualcosa ti rispondano, ma,
onestamente non so quali siano le api da chiamare (nè se siano tutte
disponibili).
...ma il modello di pc... mi sembra davvero troppo: al massimo puoi cercarti
la HARDWAREDESCRIPTION nel registry:
alcune brand la includono.
ciao
ugo

alcune brand la includono.
La situazione è questa:
1-Ditta ---> 30 postazioni + o -
2-Uffici esterni ---> postazioni?
3-Portatili ---> quanti?
Tutto per fare i cespiti, ammortamenti, etc.
Mi serviva quindi (per automatizzare ed evitare un giro di chiamate)
fare programma che rilevi varie informazioni e me le invii, io le
sistema in un database, faccio la stampa e il gioco è fatto.
Però devo proprio sapere la "marca" del PC e del Video.
Tu (Voi) come faresti/fareste?
Grazie.
Andrea.

 ha scritto nel messaggio
news:3f589c35...@powernews.libero.it...


ho immaginato che tu hai già la risposta.
Guarda che Lupo ti ha risposto!
Andrea.

 ha scritto nel messaggio
news:3f58a8f1...@powernews.libero.it...


 Tu (Voi) come faresti/fareste?
http://www.cpuid.com/
cerca pc wizard.
è un ottimo tool di analisi del sistema.
_se_ le informazioni ci sono, le trova.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Record salvati in un file.

Allora io apro un file formato da diversi record, ora con i pulsanti
aggiungi e rimuovi posso modificare la lista.
Bene il comando aggiungi funziona bene, il comando rimuovi un po' meno.
Ogni volta che rimuovo un elemento, salvato il file, quando lo riapro mi
appare uno spazio bianco nella combo che riassume i record.
E come se lui trovasse un record senza niente scritto e lo considerasse come
un elemento della lista.
Come si può fare a inserire un "marchio" che dice la lista è finita, ogni
volta che salvo il file e che questo elemento non cia salvato con le
dimensioni di un record, altrimento siamo al punto di partenza.
Vi posto parte del codice ( visto che la mia chiarezza non sarà il
massimo ):
Private Sub Form_Load()
Position = 1
frmMain.cmdEsci.Enabled = False
cmdRimuovi.Enabled = False
RecLenght = LenB(Fornitore)
FileNum = 1
i = 0
Open "D:\Punto it\progetto\Sellers.pit" For Random As FileNum Len =
RecLenght
Do While Not (EOF(FileNum))
i = i + 1
Get FileNum, Position, Fornitore
listaFornitore(i) = Fornitore
cmbFornitore.AddItem (listaFornitore(i).Nome)
Position = Position + 1
Loop
End Sub
------------------
Private Sub Form_Unload(Cancel As Integer)
Dim j
If frmMain.FormOpened = 0 Then
frmMain.cmdEsci.Enabled = True
End If
j = 0
Position = 1
Do While j < i
j = j + 1
Fornitore = listaFornitore(j)
Put FileNum, Position, Fornitore
Position = Position + 1
Loop
---->>> Qui ho provato ad inserire put filenum,position, "fine" ma mi
considera fine come un elemento di dimensione reclenght!!!
Close FileNum
End Sub
THANX
Bhè in pochi giorni di lavoro ho già fatto passi da gigante, lavorandoci
solo 1 ora ogni giorno ca. Sto rispolverando tutti i miei ricordi di Basic e
Visual.
--
____/*\____/*\____/*\____/*\____/*\____
HaPpY
E-Mail: hap...@REMOVEsupereva.it
Home page: 
http://happy77.supereva.it/index.html
____/*\____/*\____/*\____/*\____/*\____

Ma quando elimini un Record aggiorni i?
HaPpY <hap...@REMOVEsupereva.it> wrote in message
87fhdp$3a6$1...@pegasus.tiscalinet.it...


 wrote in message 87h3vp$dhu$2...@nslave1.tin.it...


appare uno spazio bianco nella combo che riassume i record.
  Con i file random, non puoi eliminare fisicamente un record in
maniera automatica, devi farlo tu da codice scrivendo i dati su un
altro file per poi cancellare quello originale e rinominando quello
nuovo, tanto meno puoi mettere un marcatore strano alla fine del file:
come dovrebbe fare il programma a capire da solo che quel record e' un
marcatore invece di contenere dati?
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda Query

    salve a tutto il ng
Ho una  tabella articoli in un db access gli articoli si dividono in Usati e
non usati dal prg fatto in vb6 devo estrarre solo gli articoli Usati quindi
faccio la seguente query "set rsArticoli=db.Openrecordset("Select * from
Articoli where articoliusati=true", dbOpenDynaset), e fin qui tutto Ok.
    Il problema nasce quando dai record estratti con la suddetta query devo
eseguire un'altra selezione ad esempi tutti gli articoli con codice Iva = 1
quindi "set rsArticoli=db.Openrecordset("Select * from Articoli where codice
iva =1 ecc"), questa seconda selezione viene effettuata in tutta la tabella
e non soltanto nella parte estratta dalla prima query.
    Il problema lo risolvo aggiungendo alla seconda query "and
articoliusati=true" vorrei sapere se ci fosse un metodo più elegante e
voloce di quello da me adottato.
Scusate la lunghezza del messaggio e ringrazio e saluto tutti.


Una query su un Recordset?
Interessante, è possibile? Non credo, ma mi piacerebbe essere
smentito.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Newsgroup: it.comp.lang.visual-basic
Titolo: Add a new label?

How to add a new label on a picturebox by click?
eg:
Private sub picture1_Click()
Add (aaa, picture1,False) as label
End Sub
Thanks in advance

 How to add a new label on a picturebox by click?
IT stands for Italian not Information Tecnology! Here you should post in
italian language only...

 How to add a new label on a picturebox by click?
If you've vb6, load a form without controls and insert this code:
Option Explicit
    Dim MyLabel As VB.Label
    Dim WithEvents MyPicture As VB.PictureBox
Private Sub Form_Load()
    Set MyPicture = Controls.Add("VB.PictureBox", "Pct", Me)
    MyPicture.Top = 100
    MyPicture.Left = 100
    MyPicture.Height = 1200
    MyPicture.Width = 1200
    MyPicture.Visible = True
End Sub
Private Sub myPicture_Click()
    Set MyLabel = Controls.Add("VB.Label", "Lbl", Me)
    MyLabel.Top = 400
    MyLabel.Left = 400
    MyLabel.Caption = "Ciao"
    MyLabel.Visible = True
    Set MyLabel.Container = MyPicture
End Sub
Else with vb5 and less it's necessary that you work with charged objects.
beppe
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Ridimensionamento controllo

Ciao a tutti,
sto cercando di creare in VB.Net un controllo personalizzato che
dovrebbe poter essere ridimensionato orizzontalmente a runtime
dall'utente. Ho creato la classe ereditandola da UserControl e ho
gestito tutte le operazioni e le proprietà che mi servono. 
Per il ridimensionamento ho gestito l'evento MouseMove facendo
ridisegnare il controllo con le dimensioni determinate dalla posizione
del mouse. 
Il problema è che riesco a fare un refresh del controllo e a
ridisegnarlo solo quando l'utente cerca di rimpicciolirlo in quanto il
mouse si muove sul controllo e viene generato l'evento MouseMove.
Quando invece si cerca di allargarlo e il mouse va verso l'esterno del
controllo non riesco a gestire il ridisegno in quanto non viene
generato l'evento MouseMove. 
Ingrandendo il controllo riesco a ridisegnarlo solo al momento di
intercettare l'evento MouseUp, però mi piacerebbe ridisegnarlo anche
durante l'operazione di allargamento.
Come posso gestire la cosa?
Grazie per l'aiuto. Michele 

 Come posso gestire la cosa?
Butto lì un'idea: se lo allarghi _prima_ che il mouse raggiunga il bordo,
diciamo qualche pixel prima, e lo allarghi di una dozzina di pixel, in
modo da avere il mouse sempre all'interno del controllo ?
Poi, al MouseUp, fai il ridimensionamento finale con le misure precise.
Bye, G.


Grazie mille, la tua idea mi ha risolto il problema!
Ciao, Michele
Newsgroup: it.comp.lang.visual-basic
Titolo: [VBA] Excel e CDbl...

    CDbl(Range("A" & i).FormulaR1C1)
o semplicemente
    Range("A" & i).FormulaR1C1
dove ci vuole un double (o un single), non funzionano. Bisogna usare
    CDbl(Replace(Range("A" & i).FormulaR1C1, ".", ","))
Cioč, FormulaR1C1 restituisce una stringa localizzata che VBA non sa
convertire.
Usare il Replace č una brutta soluzione: come si risolve elegantemente (e
magari totalmente, visto che questa soluzione non funziona su versioni non
italiane) il problema?
Grazie
Ignazio

> "Neclepsio" [...]:

): Scusami se ti sembrero' arrogante. Mi dicono sempre cosi' in questi casi
ma io non so proprio far di meglio. :(
Dunque! Domandi "come si risolve elegantemente il problema?". Bene, dico io:
quale problema?
Ma proviamo lo stesso ad imbastire un discorso. Considera questo codice:
    Debug.Print Range("A1").FormulaR1C1
    Debug.Print Range("A1").FormulaR1C1Local
Se in A1 ci fosse il valore:
    123,456
otterremmo come output:
    123.456
    123,456
ma questa *non e'* una soluzione "elegante". Ripeto, pero', una soluzione a
quale problema? A quello di ottenere il valore della cella? Forse. Ma per
tale "problema" c'e' appunto la proprieta' "Value" di "Range:
    Range("A1").Value = 123.456
    Debug.Print Range("A1").FormulaR1C1
    Debug.Print Range("A1").FormulaR1C1Local
    Debug.Print Range("A1").Value
Facci sapere cosa intendi.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 tale "problema" c'e' appunto la proprieta' "Value" di "Range:
Perfetto!!! Non sapevo dell'esistenza di questa proprietą! Ero convinto che
FormulaR1C1 fosse l'unico modo di accedere al contenuto della cella... Scusa
ma non conosco affatto gli oggetti di Excel, e avrei dovuto specificarlo nel
precedente messaggio.
Grazie mille
Ignazio
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Determinare se sono in progettazione

Salve a tutti :-)
 
 
A volte in un programma mi serve sapere se sono in progettazione o meno...
 
Con VB6 avevo creato una SUB che faceva
    Debug.Print (1/0)
 
Se Err.Number era = 11 aveva generato l'errore quindi ero un 
progettazione (Debug.Print non funziona se compilato).
 
Ora però in 
VB.NET
 non mi crea l'errore... probabilmente perché riesce a 
calcolare il risultato di quell'operazione  ( nella finestra di 
controllo immediati mi da infatti come risultato  1.#INF )
 
 
C'è qualche altro modo per determinare se sono in progettazione?
 
Ringrazio Anticipatamente per le Risposte :-)
 
 
-- 
Daniele Pinna  (leva oops. per rispondere)
Utente Skype: dapinna
Sito Web: 
http://www.dapinna.com
 
Il Docfa in Pillole:  
http://www.ildocfainpillole.it
 
DAPINNA.COM
 su Facebook: 
https://www.facebook.com/dapinnadotcom
 
Blog - Storie di un Laboratorio di Informatica: 
http://storielaboratorioinformatica.wordpress.com
 
-----
*** Powered by Linux KUbuntu 16.04.1 LTS (Xenial Xerus) ***

 Ringrazio Anticipatamente per le Risposte :-)
 
Ho trovato una soluzione... anche se non è perfetta.
 
 
 
On Error Resume Next
 
Dim number1 As Integer = 3000
Dim number2 As Integer = 0
 
Debug.Print(CInt(number1 / number2))
 
Result = (Err.Number = 6)
 
 
 
Se Result = True sono in progettazione, altrimenti no.
 
L'unico problema è se avvio l'eseguibile presente nella cartella Debug, 
li risulta ancora in progettazione... poco male


 A volte in un programma mi serve sapere se sono in progettazione o meno...
 
If Debugger.IsAttached Then
    '...
End If


Perfetto!!!
Funziona benissimo, anche con l'eseguibile nella cartella Debug!
 
Grazie :-D



in un modulo bas uso questo:
 
Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Module _bas_pro_glo_debug
 
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Private Function IsDebuggerPresent() As Boolean
    End Function
 
    Public Function IsInVS() As Boolean
 
        Return IsDebuggerPresent()
 
    End Function
 
End Module

 
 
 
Grazie :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire file Wav

Ciao, come si fa ad eseguire dei fil wav in un'applicazione, ad esempio
quando viene avviata? Grazie!


Ti posto quando ho letto in una precedente risposta:
Nella sez. dichiarazioni del form inserisci questa API
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
 e poi
Private Sub Form_Load()
  Dim lngReturnVal As Long
  lngReturnVal = mciSendString("play " & "PERCORSO\TUOFILE   .wav", 0&, 0,
0&)
'il tuo codice
end sub
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Ecco come installare un font in Win 95/NT!

Ciao, ciao e ancora buongiorno! ;o)
Dopo lunghisssssssssssime ricerche, ho trovato il codice per installare un
font sotto Windows 95 o Windows NT!! Finalmente!! So che diversi in questi
ng lo avevano chiesto!
Trovate il codice al mio sito! 
http://ubi1k.8m.com/vb
Ciao!
Ubi1k!

ma scusa.......
non basta copiare il font nella direcotry C:\WINDOWS\SYSTEM e poi inserirlo
fra i Font installati nel System.Ini ??
bye bye


...

Newsgroup: it.comp.lang.visual-basic
Titolo: pulsante desktop

quando premo il pulsante "mostra desktop" sulla barra di stato, in realtà 
che programma lancio?
quando passo al desktop (col tasto Windows) da un gioco basato su directX, 
mi rimane mezzo schermo col gioco e mezzo col desktop...
ho notato che premendo due volte il tasto Mostra Desktop pulisco tutto... se 
sapessi che programma è potrei fare una shell da un evento Timer... 

 che programma lancio?
copio da:
How To Minimize All Windows From Visual Basic
http://support.microsoft.com/kb/q194914/
Step-by-Step Example
1.	Start a new Standard EXE project. Form1 is created by default.
2.	Place a CommandButton onto Form1.
3.	Copy and paste the following code into Form1's Code Window.
      Private Declare Sub keybd_event Lib "user32" ( _
         ByVal bVk As Byte, _
         ByVal bScan As Byte, _
         ByVal dwFlags As Long, _
         ByVal dwExtraInfo As Long)
      Const KEYEVENTF_KEYUP = &H2
      Const VK_LWIN = &H5B
      Private Sub Command1_Click()
         ' 77 is the character code for the letter 'M'
         Call keybd_event(VK_LWIN, 0, 0, 0)
         Call keybd_event(77, 0, 0, 0)
         Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
      End Sub
©2006 Microsoft Corporation. All rights reserved
 
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione disco

Come faccio a formattare un floppy da una programma VB?
Grazie
Bye Attilio.


Ad esempio chiamando format dalla shell...
Giorgio

 
Il seguente è il contenuto di una post sul newgroup winapi del sito
microsoft.
Le dichiarazioni sono per la versione a 16 bit, ma basta aggiungere 32 ai
nome delle librerie: User32, kernel32, ecc. per avere la versione a 32 bit.
' 16 bit Declares for FormatFloppy
Declare Function IsWindow Lib "User" (ByVal hWnd As Integer) As Integer
Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal
nCmdShow As Integer) As Integer
Declare Function SetActiveWindow Lib "User" (ByVal hWnd As Integer) As
Integer
Declare Function GetActiveWindow Lib "User" () As Integer
Declare Function LockWindowUpdate Lib "User" (ByVal hwndLock As Integer) As
Integer
Declare Function GetDesktopWindow Lib "User" () As Integer
Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal
lpWindowName As Any) As Integer
Declare Function PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg
As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Integer
Const WM_COMMAND = &H111
Const WM_CLOSE = &H10
Sub Command1_Click ()
'Written in Visual Basic 3.0
'Here is an easy way of formatting a
'disk without adding the over head of
'a VBX or an outside dll. This just
'uses the function that are found
'in the User and Kernel dll's in
'windows to Brings up the
'Format Disk dialog in Windows
'use by calling "Call FormatFloppy(Me)"
'*************************************************************
Call FormatFloppy(Me)
End Sub
Sub FormatFloppy (F As Form)
    FMhWnd = FindWindow("WFS_Frame", 0&)
 
    If FMhWnd = 0 Then
    i% = WinExec("Winfile", 0)
    FMhWnd = FindWindow("WFS_Frame", 0&)
 
       If FMhWnd = 0 Then
           MsgBox "Error trying to load standard Format Dialog."
           Exit Sub
       End If
 
    wFlag = 1
    End If
 
    i% = LockWindowUpdate(GetDesktopWindow())
    i% = PostMessage(FMhWnd, WM_COMMAND, &HCB, 0)
    i% = LockWindowUpdate(0)
 
    For i% = 1 To 1000
    DoEvents
    Next i%
 
    wnd% = GetActiveWindow()
 
    While IsWindow(wnd%)
    x = DoEvents()
    Wend
 
    x = DoEvents()
 
    If wFlag Then
    wFlag = 0
    i% = PostMessage(FMhWnd, WM_CLOSE, 0, 0)
    End If
 
    i% = SetActiveWindow(F.hWnd)
End Sub
Domenico

Newsgroup: it.comp.lang.visual-basic
Titolo: CCRP address

quale e' l'indirizzo di CCRP?

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare emettere un suono ?

Salve, come posso emettere un suono da codice oppure eseguire un wav da vb.
Ciao

 ha scritto nel messaggio
news:bflmg1$v30$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:watTa.197557$Ny5.5...@twister2.libero.it...


 ha scritto nel messaggio
news:bflpmc$126$1...@lacerta.tiscalinet.it...


 Non funziona ?
riprova in questo modo, tutto in un form
Option Explicit
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
    sndPlaySound "c:\winnt\media\chimes.wav", 1
End Sub
funziona, ovviamente cambia percorso e file.


Sě, infatti funziona. Ora perň ho una domanda io: č possibile "inglobare" il
file audio da riprodurre all'interno della applicazione stessa? Mi spiego
meglio: se distribuisco la mia applicazione devo assicurarmi che ogni
utilizzatore abbia quel particolare file in quella particolare posizione e,
se questo viene rimosso o rinominato, non viene piů riprodotto il suono. Non
esiste un controllo analogo alla Image List per i suoni, in modo da creare
una sorta di "libreria di suoni" all'interno dell'applicazione? Proprio come
si fa in Flash.
Grazie.

 ha scritto nel messaggio
news:p9wTa.7659$Za4.2...@news2.tin.it...

sinceramente io non conosco nessun oggetto capace di far ciň direttamente
non ne conosco.

 ha scritto nel messaggio
news:p9wTa.7659$Za4.2...@news2.tin.it...

Inserisci il file sonoro in un file risorse (.res)
Metti questo codice nel modulo del form
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA"
(lpszSoundName As Any, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1        ' play non sincronizzato
Const SND_NODEFAULT = &H2    ' Non utilizza il suono predefinito
Const SND_MEMORY = &H4       ' lpszSoundName punta a un file di memoria
Private SoundRes() As Byte
e questo nella routine che vuoi
    SoundRes = LoadResData(101, "SOUND")
    Call sndPlaySound(SoundRes(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
Ciao Carmelo

 ha scritto nel messaggio
news:bflpmc$126$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] come fa la ListBox?

Qualcuno sa come fare per ottenere un OCX che nella finestra delle proprietą
tiri fuori la tendina come succede per la proprietą List delle Listbox?
Grazie.

tiri fuori la tendina come succede per la proprietą List delle Listbox?
Cerca "PropertyPage" nella guida in linea.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Form che non cancellano lo sfondo

Quando disegno delle entità grafiche su una Picturebox con AutoRedraw
impostato su False, queste vengono cancellate ogni qual volta venga
visualizzata una form sopra la Picturebox stessa.
Questo accade con tutti i form, ma non accade con i menu (sia PopUp che
normali), con le MsgBox e con le InputBox.
Esiste qualche metodo (API, subclassing, ecc.) per far si che anche i form
"normali" non cancellino le entità grafiche sulle PictureBox ?  ... tranne
che, ovviamente, impostare l'autoredraw su True.
Grazie per l'aiuto
Fabio

 ... tranne che, ovviamente, impostare l'autoredraw su True.
afaik, ridisegnare il tutto nell'evento paint del del controllo.
--
Salutoni
Sergio

 ha scritto nel messaggio
news:b54mi7$25bcb5$1...@ID-173193.news.dfncis.de...

già, ma io volevo che l'evento paint non venisse neppure generato, cosa che
avviene con i menu e con le msgbox.
suggerimenti ?
ad ogni modo grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: analizzatore sintattico per file di script

salve a tutti, ho un "piccolo problema" e spero che qualcuno possa darmi
qualche buon consiglio.
dovrei scrivere un software che tramite seriale comunica con una scheda a
microcontrollore.
-fino a quì nessun problema, anche perche il protocollo proprietario della
scheda lo conosco bene.
tale applicativo dovrebbe, al verificarsi di alcune condizioni sulle porte
della scheda, eseguire dei comandi.
-anche quì nessun problema.
i problemi sono nati nel momento in cui il committente mi ha richiesto la
possibilità di definire, tramite file script, le condizioni per eseguire i
comandi.
ad es. il programma dovrebbe emettere un segnale acustico se:
[porta1.stato=true .and. porta2.stato=false] .or. [porta3.stato=false .and.
porta3.timeouterror=true]
per semplicità sciverò:
[a .and. b] .or. [c .and. d]
dato che da subito ho avuto l'impressione che fosse un "problemaccio" ho
iniziato la progettazione proprio dallo script e dalla sua sintassi.
dopo diversi approcci al problema, non sono riuscito ad ottenere codice
accettabile.
risultati: troppo complesso o poco flessibile.
cause: insufficiente documentazione.
quindi quello di cui avrei bisogno è un esempio di codice (c/vb/descrittivo)
per:
1. processare una espressione per trasformarla in forma senza parentesi
(prefissa o postfissa).
2. scomporre una espressione fino ad ottenere i rami che contengono soltanto
operatori "and" (tableaux semantico).
nella speranza di essera stato chiaro, colgo l'occasione per salutare tutto
ng.
paolo...@technobe.com



 wrote

Quello che ti servirebbe e' lo studio a livello teorico (e _poi_ pratico)
delle grammatiche.
Tagliando molto sui tempi, ti consiglio di cercare informazioni sui parser
(sono quei pezzi di programma che analizzano una grammatica e la riducono a
"token" piu' facilmente interpretabili da programma (i parser sono in genere
basati su macchine a stati finiti).
Su web si trovano anche parser gia' fatti (dubito ce ne siano in VB, ma
sicuramente in C, C++ o Pascal).
Il tuo problema particolare potrebbe essere la necessita' di tempi di
risposta _molto_ brevi (dipende da cosa fa il microcontrollore e dal flusso
di dati da processare); se la velocita' e' molto importante, trascura la
flessibilita' (le due cose sono di rado raggiungibili contemporaneamente) e
scrivi un parser ad-hoc.
Potrebbe interessarti, tanto per cominciare e per avere un'idea di sviluppo,
il progetto EVAL.ZIP che trovi sul Sito Comune (
www.murialdo.it/it_lang_vb/