mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Processo di segnali audio

Salve,
sono uno sviluppatore visual basic che fino ad ora si è cimentato con 
programmi gestionali. Ho un'esigenza un po' più complessa. Devo prendere un 
segnale audio dalla ingresso della Scheda audio ed ottenerne la frequenza. 
Ad esempio se l'utente collega una chitarra alla scheda audio e suona la 
quinta corda, l'algoritmo deve restituirmi il valore 440Hz., cioè la 
frequenza della nota LA. So che è possibile perché ci sono gli accordatori 
elettronici che funzionano proprio su questo principio. Prendendo qualche 
info in rete ho letto che si dovrebbe utilizzare la FFT (trasformata di 
fourier), ma per me è arabo.
Sapete darmi qualche dritta, qualche sito/codice di riferimento o qualsiasi 
spunto che possa esssermi utile?
Grazie mille.
Francesco

 fourier)...
Prova a guardare il progetto AudioCardDSP presente sul
mio sito di "Downloads" a: 
http://www.flanguasco.org/
Con lo strumento Analizzatore di Spettro dovresti fare
esattamente quello che vuoi.  Ci sono, comunque, tutte
le routines per l' acquisizione dei segnali dalla scheda
audio e quelle per l' analisi in frequenza (FFT).
Ciao, sperando di esserti stato utile.
Franco

 (trasformata di fourier), ma per me è arabo.
Per acquisire i dati dalla periferica audio devi utlizzare le api wavein, ci 
sono esempi molto semplici in rete e mi sembra ce ne sia uno veramente molto 
buono anche sul sito comune.
Per effettuare invece il calcolo dell'intensità della frequenza "dominante" 
io ti consiglio di non passare per la FFT ma di utilizzare un trasformata di 
tipo DCT, che ti permette di calcolare con poche istruzioni un array di 
valori che ti dicono il valore in ampiezza per ogni frequenza da 0 sino a 
22.050Hz
La DCT (Trasforamta discreta al coseno) è molto semplice da calcolare e 
relativaente veloce ed è utilizzata ampiamente anche negli algoritmi di 
compressione/decompressione Jpg e Mp3 ed ideale per la tua applicazione 
perchè non hai bisogno di informazioni relative alla fase del tuo segnale e 
soprattutto ti scrolli da dosso i calcoli con numeri complessi che sarebbero 
necessari utilizzando la FFT.
Ti manderei la forma analitica della DCT ma non l'ho sotto mano, prova a 
fare un ricerca veloce dovrebbe esserci molto materiale in rete.
Ciao, Emiliano. 

Grazie mille ad entrambi per il prezioso aiuto
Newsgroup: it.comp.lang.visual-basic
Titolo: Tasto Enter

Ciao a tutti.
Arrivo subito al punto, premettendo che sono un "absolute beginner"
:-P
La situazione:
Un form con due TextBox, chiamiamoli TextBox1 e TextBox2
La richiesta:
Dopo che l'utente ha digitato qualcosa in TextBox1, premendo il tasto
Enter si "attiva" TextBox2 e l'utente digita dell'altro testo.
Ho provato ad utilizzare Setfocus collegato ell'evento KeyPress del
TextBox1, ma pur funzionando ogni volta che si preme Enter il PC
emette un Beep (fatto questo che mi sembra insolito).
Qualcuno di voi conosce un metodo alternativo?
Grazie
Ciao
C.

 emette un Beep (fatto questo che mi sembra insolito).
Se vuoi che il tasto ENTER si comporti come TAB allora...
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 SendKeys "{TAB}"
 KeyAscii = 0
End If
End Sub
Attenzione ! La proprietą 'Keypreview' del form deve essere 'True'
Ciao.

 emette un Beep (fatto questo che mi sembra insolito).
Anch'io avevo lo stesso problema con KeyPress (il Beep) e l'ho risolto
(ma non capito) utilizzando la funzione API GetAsyncKeyState: la
chiamo da un oggetto timer con la proprietą Intervall abbstanza bassa
e tutto funge, anche se devo dire che č 1 po' rozzo...  ;-)
Il Conte

Grazie a tutti per l'aiuto e super auguroni per un raggiante 2002!!!
C.
Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura file ad una determinata riga

Un saluto a tutto il NewsGroup!
Come da subject, volevo sapere se è possibile aprire un file
di testo accedendo ad una precisa riga dello stesso!
Nel linguaggio C è possibile grazie all'istruzione Seek(se non ricordo male) ma in vb tale istruzione indica la riga 
corrente all'interno del file
Come fare?
Grazie a tutti per l'interessamento
Saluti Mauro :-)
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
laguna.tiscalinet.it
 [195.130.224.86] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Come fare?
Riguardo cio` che affermi su C non mi esprimo perche' le mie non profonde
conoscenze in materia svaporano esponenzialmente ogni giorno un po'... ma mi
sembra strano: un file di testo con record di lunghezza variabile sempre
quello e`, indipendentemente dal linguaggio che usi. O no?
Cosi` anche (?) in Visual Basic dovrai accedere, in uno dei vari modi
possibili, al file, scorrerlo riga per riga e fermarti al raggiungimento
della riga desiderata.
Tradizionalmente:
Sub Main( _
)
  Dim intFile   As Integer
  Dim strFile   As String
  Dim lngLine   As Long
  Dim strLine   As String
  Dim lngRec    As Long
  Dim strRec    As String
  strFile = "c:\test.txt"
  lngLine = 3
  intFile = FreeFile(0)
  Open strFile For Input As #intFile
  Do While Not EOF(intFile)
    lngRec = lngRec + 1
    If lngRec > lngLine Then
      strLine = strRec
      Exit Do
    End If
    Line Input #intFile, strRec
  Loop
  Close #intFile
  Debug.Print strLine
End Sub
Oppure, con VB6:
Sub Main( _
)
  Dim intFile   As Integer
  Dim strFile   As String
  Dim lngLine   As Long
  Dim strLine   As String
  strFile = "c:\test.txt"
  lngLine = 3
  intFile = FreeFile(0)
  Open strFile For Input As #intFile
  strLine _
    = Split( _
          Input$(LOF(intFile), #intFile) _
        , vbCrLf)(lngLine - 1)
  Close #intFile
  Debug.Print strLine
End Sub
Se cerchi fra i post recentissimi di Perrotta Vito trovi un esempio con
FileSystemObject.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 corrente all'interno del file
In C, le funzioni _lseek (Win32), fseek, seekoff ecc.
permettono di spostarsi ad un determinato offset, indicando
in positivo o in negativo la distanza dalla posizione indicata.
Esattamente come in Basic.
L'unica differenza è che è possibile indicare l'origine dello
spostamento (dall'inizio del file, dalla fine, dalla posizione corrente).
Non esiste il concetto "sposta l'offset alla riga x", in C o in Basic.
Se vuoi spostare l'offset ad una "riga", devi utilizzare un record
ed indicare le dimensioni del record come offset.
Newsgroup: it.comp.lang.visual-basic
Titolo: cerco decompilatori

Qualcuno sa dirmi se esistono decompilatori per file exe sulla rete per
favore cliccatemi

...


>
Gia', ci vorrebbe una cura di fosforo per via rettale a tutti quanti!
--
Roal Zanazzi
z...@iol.it

...


>favore cliccatemi
A MORTE ! AL ROGO !
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Vai al NG it.comp.sideralis ! Quando sara' creato...

...


Newsgroup: it.comp.lang.visual-basic
Titolo: verificare l'esistenza dell'estensione

Come faccio a verificare l'esistenza dell'estensione in una variabile
nomefile
per il trattamento del salvataggio con
NomeFile = CMDialog1.FileName
L'estensione è *.ret
Sebastiano Floridia
Siracusa

If Rat( ".ret" , nomefile) > 0 then
    print "L'estensione già c'e'"
else
    print nomefile & "non contiene l'estensione voluta"
end if
....
....
Function Rat(Ricerca As String, stringa As String) As Integer
  Dim i As Integer
  For i = Len(stringa) - Len(Ricerca) To 1 Step -1
    If Mid(stringa, i, Len(Ricerca)) = Ricerca Then
      Rat = i
      Exit Function
    End If
  Next i
End Function
Ciao Peppe Cintura
Trapani

Newsgroup: it.comp.lang.visual-basic
Titolo: Scioccante video di Alba e Cristina 50504

 Scioccante video hard di Cristina... e
no.email.address.entered?
Che vuol dire?


E' un utente di 
tin.it
.
Quando ha inviato il post aveva l' ip 213.45.151.175 e l' ho gia' segnalato
all' 
ab...@tin.it
.
Staremo a vedere.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] XP con Outlook express

Uso ancora due vecchi PC come in oggetto.
 
Salvo le mail importanti in "Posta in arivo" di "Cartelle locali"
del PC che uso più frequentemente.
 
Vorrei copiare tali mail anche nell'altro PC e mi serve quindi
sapere come si chiama il file che le contiene.
 
Lo sò; dovrei andare a cercarmelo su google.
Lo farò se nessuno di voi se lo ricorda al volo e me lo dice.
 
Grazie.
Saluti a tutti
Sauro 
 
 

 ha
scritto:

I files che OE usa per archiviare le mail sono nel percorso che puoi trovare
facendo Strumenti  >> Opzioni >> Manutenzione - Archivia Cartella
 
Tutti i file sono .dbx con il nome della cartella, ti consiglio di copiare
tutto.
 
-- 
ciao
  Stefano

Grazie Stefano.
 
Ciao, Sauro 
 
 

 sapere come si chiama il file che le contiene.
 
Puoi creare una cartella temporanea in posta in arrivo (in OE!) e copiare 
li' le email che vuoi trasferire.
In uscita dal programma ti troverai un file DBX col nome della cartella 
creata.
 
Vai sull'altro PC, crea la stessa cartella in posta in arrivo, entraci per 
una volta (importante) e chiudi OE.
Se non entri nella cartella visualizzandola almeno una volta non verra' 
creato il corrispondente file DBX.
 
Ora copia il file DBX dal primo al secondo pc, sovrascrivendo il file 
(vuoto) del secondo PC.
Avvia OE del secondo PC e ti ritroverai le email.
 
Ci sono anche funzioni di esporta/importa ma questo e' piu' semplice e 
sicuro al 100% ed e' automatizzabile.
 
Il percorso dei file DBX te l'ha detto gia' SB.
Newsgroup: it.comp.lang.visual-basic
Titolo: x Daniele Di Alessandro Outlook bar

Ho scaricato dal sito comune l'OCX OutlookBar (autore e fornitore: Daniele
Di Alessandro), sono riuscito a creare i menu, ma non i pulsanti.
il codice VBA che ho utilizzato sotto Access 97-2000 è il seguente:
    OL.AddNewTab "Menù Principale", 0
    OL.AddNewItem "Contabilità", 1, "bo", 1, True, "bo", None, "bo"
    'bo sta ad indicare che non sapevo che valore inserire
    'Sintassi:
    'Function AddNewItem(Name As String, InTab As Integer, Tag As String,
hPic As StdPicture,
    'ButtEnabled As Boolean, Tooltip As String, ConnectTo As Connession,
StringConnession As String)
Il menù "Menù Principale" lo crea, mentre il arrivato alla seconda riga di
codice da un errore di run-time'13': Tipo non corrispondente. Forse ho
scritto nei parametri un valore non coerente con la natura (tipologia) del
parametro stesso ?
Dove o da chi posso reperire informazioni sull'utilizzo di tale OCX ?

Sarebbe possibile avere un esempio di codice ?
Penso di non chiedere molto
Grazie





Newsgroup: it.comp.lang.visual-basic
Titolo: Autocomposizione installazione

Salve a tutto il NG,mi si presenta un problema in fase di installazione
del software,
infatti avendo creato un database con MS Access in formato .mdb,ho
collegato il controllo data direttamente a questo file per poterlo
riempire da programma. Ma l'autocomposizione installazione di VB4 non fa
proprio riferemento a questo file. Infatti anche posizionandolo
manualmente nella directory del programma, quando faccio girare quest'
ultimo ho un messaggio di errore che si riferisce proprio a quel file...
Come fare a risolvere questo ennesimo problema che mi present il
controllo DATA ?
In verità è il primo programma che ultimo utilizzando questo controllo.

Risposte:
1) non postare lo stesso messaggio due giorni di seguito solo
perchè nessuno ti ha risposto: è inutile.
2) i datacontrol sono tanto fighi in ambiente di sviluppo perchè li
colleghi con il browser della dialog al database. A runtime però
devi collegarli al db con il codice. Esempio (non guardare la sintassi ;-):
Form_Activate(...
    datacontrol.database = ".\db_dir\db_name.mdb"
eccetera
3) Sistema correttamente il path nell'installazione quando aggiungi
manualmente
i file:
$(AppPath)/db_dir
oppure solo
$(AppPath) se il db si trova nella stessa subdir dell'applicazione
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi in Ado

Salve !!!!
come si fa' ad aprire un file *.Dbf in Modalita' Lettura/Scrittura in modo
che possa fare un seek su un indice *.Mdx
Grazie anticipatamente
:)))

Senza un provider dati di terze parti, penso tu non abbia speranze.
Non puoi proprio passare ad altri tipi di database, al limite dbf con indici
foxpro?
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare una ListView

Chi sa dirmi come ordinare una listview, contenente in una colonna
delle date (nel formato gg/mm/aaaa), dalla data più recente a
quella più vecchia.
Esempio:
Colonna1        Colonna2
Luigi                01/11/85
Marco             02/12/85
Giovanni          05/12/85
Giorgio            02/10/85
Salvo               09/10/85
Ordinare in base alla colonna 2....
Se ci riuscite aiutatemi....


http://www.mvps.org/vbnet/index.html?code/callback/lvsortcallback.htm
ciao
	maxx
--
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!


http://www.mvps.org/vbnet/index.html?code/callback/lvsortcallback.htm
o, se non ti preme il look, basta che metti le date in formato ansi:
aaaa.mm.gg

Newsgroup: it.comp.lang.visual-basic
Titolo: Variabile booleana che perde lo stato ??

E' possibile che una variabile settata come booleana perda lo stato
assegnato ?
Per non scatenare l'evento _LostFocus(Index As Integer) (che al suo
interno contiene una procedura) quqndo azzero il contenuto di textbox
indicizzate setto una variabile booleana che blocca l'esecuzione del
codice sotto _LostFocus(Index As Integer)
per esempio in una parte del codice:
....
blnBloccaEventi = true
for a=1 to 26
 tbox(a)=""
next
blnBloccaEventi = false
mentre in lostfocus:
Private Sub tbox_LostFocus(Index As Integer)
if blnBloccaEventi = true then exit sub
.......
.......
end sub
se scorro passo passo va tutto bene mentre se eseguo regolarmente
mi entra in lostfocus con la variabile a false e nella procedura
intermedia
non c'è nulla che mi cambia lo stato a blnBloccaEventi.
Secondo voi ?
Grazie, alcau

Secondo voi ?
Nel debug nell' IDE aggiungi un watch che blocchi l'esecuzione al
cambio di valore della variabile. Troverai la soluzione in un attimo.
-- 
ciao,
hal

Se uso il watch funziona regolarmente ma anche perchè è come se lo
eseguissi passo passo, cioè quando cambia valore si interrompe
l'esecuzione.

l'esecuzione.
Probabilmente non lo hai impostato in modo opportuno.
-- 
ciao,
hal

Secondo voi ?
Non ho capito in quale/quali punti del form setti lo stato della
variabile booleana ...
Forse sarebbe anche il caso di dare un'occhiata all'evento Validate per
effettuare certe operazioni quando un controllo perde il focus.
Ciao!

 blnBloccaEventi = false
Questa serie di istruzioni non può provocare l'evento LostFocus di uno dei
tbox (a meno che non ci sia qualche "forzatura" dovuta a istruzioni
nell'evento Change degli stessi), quindi porre la blnBloccaEventi a True
prima del ciclo e a False dopo lo stesso, non serve a nulla. In altre parole
(e salvo istruzioni nell'evento Change), il LostFocus si verifica da
un'altra parte ed è là che devi settare la variabile booleana.

Newsgroup: it.comp.lang.visual-basic
Titolo: Combo e autocompletamento

vorrei fare un autocompletamento in una combo con i dati inseriti nella
lista. Devo farlo a codice o esiste gia qualche cosa di fatto? Grazie

 lista. Devo farlo a codice o esiste gia qualche cosa di fatto? Grazie
Cercando su google 'vb autocomplete combo' si trova, tra le altre cose
http://www.vbcity.com/forums/topic.asp?tid=6662
Bye by SixaM 8-]
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: help me cgi nascondi pagina

help me cgi nascondi pagina
Cerco script in cgi che mi permetta di nascondere l'origine del link di una
pagina.
Mi spiego:
devo linkare una pagina tipo 
http://www.pippo.it/pippo.html
Devo linkare dal sito 
www.sito.it/cgi/
 lo script cgi che mi porti su
http://www.pippo.it/pippo.html
ma che NASCONTA ALL'UTENTE IL LINK 
http://www.pippo.it/pippo.html
In parole povere l'utente visitando questa pagina
http://www.pippo.it/pippo.html
non deve sapere in nessun caso il link della pagina.
Mi puoi aiutare
scrivimi a 
arch...@yahoo.it
ti ringrazio
Luigi Datore

 wrote in message
news:5tqK7.134401$sq5.6...@news.infostrada.it...

Non é una domanda che ha a che fare con VB, ma.... comunque.
Potresti metterla in un frame. Fare una pagina, con un frame di grandezza
zero, e l'altro dove ci fai apparire la pagina linkata. Quindi in pochi se
ne accorgerebbero. Però chiunque potrebbe fare un right-click e domandare
Proprietà, e il link si vedrebbe subito. Naturalmente puoi usare il
Javascript per disabilitare il tasto destro, e così via, a livelli sempre
più complessi, ma mai sicuri al 100%, a meno di non copiarti la pagina sul
TUO sito.
Comunque, prova it.comp.lang.javascript oppure it.comp.www.html.
Ciao
Sal
Newsgroup: it.comp.lang.visual-basic
Titolo: Listbox e spostamenti

Ho una listbox e in questa ci sono dei dati:
Es
Davide
Francesca
Lucia
Marco
Vorrei creare un tasto dove poter eliminare l'item selezionato cioč
seleziono Davide e premo il tasto a quel punto Davide dovrebbe uscire dalla
lista!!!
Come si fa a dire Item selezionato cancellati?
Poi come si fa a spostare un item + in alto di un'altro?
Davide
Francesca
dopo aver premuto il tasto
Francesca
Davide
Grazie in anticpo!!!!!

 wrote in message
news:924sq6$17p$1...@lacerta.tiscalinet.it...

In un vbp nuovo prendi un form e mettigli dentro una listbox.
Copia il codice nel form.
Press F5 and have fun !
'''''''''''''''''''''''''''''''
Option Explicit
Private Sub Form_Load()
  With List1
    .AddItem "Davide"
    .AddItem "Francesca"
    .AddItem "Lucia"
    .AddItem "Marco"
  End With
End Sub
Private Sub List1_DblClick()
  With List1
    If .ListIndex > -1 Then
      .RemoveItem .ListIndex
    End If
  End With
End Sub
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim li As Integer
  Dim tmp1 As String
  Dim tmp2 As String
  If (Shift And vbCtrlMask) = vbCtrlMask Then
    If KeyCode = vbKeyUp Then
      With List1
        li = .ListIndex
        If li > 0 Then
          tmp1 = .List(li)
          tmp2 = .List(li - 1)
          .List(li - 1) = tmp1
          .List(li) = tmp2
        End If
      End With
    ElseIf KeyCode = vbKeyDown Then
      With List1
        li = .ListIndex
        If li < (.ListCount - 1) Then
          tmp1 = .List(li)
          tmp2 = .List(li + 1)
          .List(li + 1) = tmp1
          .List(li) = tmp2
        End If
      End With
    End If
  End If
End Sub
''''''''''''''''''''''''''''''''''''''''
Buon Natale
Aldo

 ha scritto nel messaggio
news:92508t$61dir$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Service pack...a che servono ?

Come da oggetto, a cosa servono i vari service pack ?
Grazie
Milliken

Sono degli aggiornamenti per l' ambiente di sviluppo del vb; teoriciamente
servono per far si che i tuoi controlli siamo sempre migliori e corretti,
cose di questo genere...
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
151Z24Z143Z102Y...@usenet.iol.it...


 Come da oggetto, a cosa servono i vari service pack ?
A correggere i buchi introdotti dai service f-hem-pack precedenti.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: inserimento label a run time

ciao ragazzi
ho finito il modulo di stampa uso  printer, e funziona bene, ora vorrei
creare qualcosa di semplice ma visuale,
inserire in una picturebox ( anzi una per tipo
copertina,intestazione,dettaglio , pie di pagina ecc....) delle label, con
tutte le proprieta, e quindi registrarle in un file per poi richiamarlo nel
programma e creare le pagine
mi consigliate cosa e come posso inserire delle label o ........   nelle
picturebox  e controllare tutte le proprieta' ?
grazie mille
ciao a tutti
Ilairo

picturebox  e controllare tutte le proprieta' ?
Credo che con le PropertyBags dovresti risolvere senza stare a
scrivere troppo.
Male che vada stabilisci un tuo formato di file e ti memorizzi quello
che ti serve. Io facevo cosi' per la mia anteprima: in questo modo
potevo rieseguire la stampa partendo dal file, caricando anche pagine
in modo random e risparmiavo pure un bel po' di RAM e spazio disco.
-- 
ciao, hal

 in modo random e risparmiavo pure un bel po' di RAM e spazio disco.
infatti creo un file testo e inserisco le informazioni delle pagine da
stampare, leggendo poi questo file le stampo su stampante o picturebox
ora voglio creare una piccola applicazione che mi inserisce le scritte i
dati e le immagini in modo visuale (tipo crystal report ovviamente piu'
semplice) e registrarle in un file poi leggendo questo file creo il file
testo per la stampa
grazie
ciao ilario

testo per la stampa
Come ti dicevo, serializzi le informazioni che effettivamente ti
servono. Dipende da come architetti l'applicazione, io memorizzavo il
tutto in una matrice di strutture, i cui campi mi indicavano, fra
l'altro, il tipo di oggetto, la dimensione, il font, ecc.
Io salvavo i dati in formato binario, ma adesso che e' di moda l'xml
potresti usare tale formato, che, tra l'altro, garantisce portabilita'
(sempre che a te interessi, naturalmente).
-- 
ciao, hal

 questo file creo il file testo per la stampa
http://makeashorterlink.com/?L2E6554E5


http://makeashorterlink.com/?L2E6554E5
traduco per me :-PP
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&selm=ber7ji%24817gk%241%40ID-174464.news.uni-berlin.de
-- 
ciao, hal

[*hal1961*=
aldoc...@inwind.it
] ha scritto:

Ahhh, uso privato in atto pubblico. Bene, bene... ;-)

Ahhh, uso privato in atto pubblico. Bene, bene... ;-)
Impostato Lupo.AttorneyState = true? :-P
-- 
ciao, hal

[*hal1961*=
aldoc...@inwind.it
] ha scritto:

No, no. Semmai:
Lupo.HalEsplodeUnLinkTantoPerOPerIlDoveIlLinkPorta=Boh!
Ora devo risolvere una questione tecnica e magari apro un topic apposta: Il
Boh in un boolean non è applicabile...
Posso dichiararlo (beh, per una volta, posso anche farlo esplicitamente) un
Variant? :-P

grazie mille
no ho potuto rispondere prima perche' non mi scaricava nessun messaggio
ciao ilario
Newsgroup: it.comp.lang.visual-basic
Titolo: generazione codici a barre...

Devo generare una stampa in cui sono presenti dei codici a barre,
dove posso recuperare informazioni, subroutine, ecc. per
risolvere il problema?
----------------------------------------------------------
Massimo D.
e-mail 
ced...@interbusiness.it
----------------------------------------------------------

 ha scritto nel messaggio
news:a38fkk$16044m$1...@ID-80618.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: società cerca programmatori in roma

 se siete interessati mandatemi una e-mail a 
in...@euronet2000.com
E dovevi postare 3 volte ?!?
[sono di Milano cmq :P]
--
--
Elena *DElyMyth* Franco
DEly...@tiscalinet.it
ICQ#: 8761263 - MSN: 
dely...@tiscalinet.it
Yahoo!: delytisc - AIM: DElyMyth
--



Newsgroup: it.comp.lang.visual-basic
Titolo: Gif Animate -Ultimo Mesaggio-

dopo l'ennesima richiesta dell ocx di gif animate ho deciso di postarlo al
sito comune.
Sarà disponibile a giorni.

Sarà disponibile a giorni.
ALLELUJA!
Ciao
P.S. Forse dovevi aspettare ad avvisare tutti: ora romperanno le scatole al
webmaster...
--
-
MIX (VB5SP3)
post...@yahoo.com
80 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic 5 Control Help Required

Can anyone help with my problem.
I am writing an activex control in visual basic 5.
I have a control project called generalLibrary, a control called general, a
module called generalModule and a form called generalForm.
The control has some methods and some properties.
I am able to access the controls property values from within the controls
code, however I do not know how to access/change these values from within
the module or form as I have tried to read the information and just keep
coming up blank.
I would apreciate any ideas as I am completely stuck.
     Colin.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]DbCombo.BoundText

VB6 SP4 e DAO
Ho una DbCombo con un RowSource legato a un controllo Data.
Il ListField è legato a una campo DESC (testo) e la BoundColumn è il campo
ID (numerico)
Se faccio un refresh del controllo Data, il BoundText della DbCombo diventa
il campo DESC (testo) e non più il campo ID (numero)!!
Come mai? cosa si può fare per avere il dato corretto?
Grazie

 Grazie
Hai provato a ri-legare la dbcombo?
Secondo me funziona... (sarà il solito bug...)
            Ciao
                Allanon

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] immagine -> buffer e viceversa

Conoscendo l'hDC di una finestra (picturebox) come faccio ad avere un array
di byte/long contenente i relativi pixel?
E, viceversa, si può far tornare l'array un hDC?
Grazie, ciao.


mmmhhh... proverei con SetDIBits()  ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Scansione rete

Ho questo problema, nella scansione (effettuata con un ciclo)di una rete
tramite indirizzo ip ,alla ricerca di un pc dove e' installato un programma
con cui dialogare,dopo il   215° indirizzo pingato ,(anche se il ciclo
invece di partire da 1 parte da 10 -20 o 30 ) quasi sempre mi da il seguente
errore:
        La socket non puo' essere bloccata e l'operazione specificata
prevede il blocco.
Da premettere che le prove sono state eseguite sia con il programma
ricercato attivo su un pc della rete e anche senza che sei attivo da nessuna
parte.
Elenco il codice:
Private Sub Command1_Click()
    For i = 1 To 254
    udpPeerB.RemoteHost = "193.206.115." & i
    udpPeerB.SendData TxtSend.Text & udpPeerB.LocalHostName & "," &
udpPeerB.LocalIP & "," & udpPeerB.LocalPort
    Next i
    Timer1.Enabled = True
End Sub
Private Sub Form_Load()
    With udpPeerB
        .RemotePort = 1002
        .Bind 1001
    End With
End Sub
Private Sub Timer1_Timer()
    MsgBox "Richiesta scaduta"
    Timer1.Enabled = False
End Sub
Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Timer1.Enabled = False
    udpPeerB.GetData strData
    MsgBox strData
End Sub
Grazie anticipato per le Vs gradite risposte.
Un ciao a tutti.

Scusate se riposto il messaggio di un altro, ma interesserebbe molto anche a
me ..... anch'io avevo provato a fare una cosa del genere e ho avuto
problemi analoghi.
Ciao a tutti.
Messaggio originale:




Newsgroup: it.comp.lang.visual-basic
Titolo: MsFlexGrid e colonne nascoste

ciao a tutti.
ho provato con
MSFlexGrid1.ColIsVisible(1) = False
ma mi ritorna errore su ColIsVisible(1)
sapreste aiutarmi ?
grazie a tutti.

 sapreste aiutarmi ?
Senz'altro no, se non posti anche l'errore...
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt

Newsgroup: it.comp.lang.visual-basic
Titolo: Formula matematica

Aiuto ho la necessitą di calcolare la differenza tra du ore:
ad es. tra le 23.42.48 e 23.35.50  oppure tra le 01.24.10 e le 23.57.37, il
risultato deve essere formattato in hh:mm:ss .
Grazie a tutti.
--
Saluti Rino
Sito 
http://digilander.iol.it/rinog

 risultato deve essere formattato in hh:mm:ss .
Sicuramente in giro c'e' di meglio, ma per adesso prova questa:
Public Function Prova(DalleOre As String, AlleOre As String) As String
  Dim d As Long   '// differenza in secondi
  Dim h As Long   '// ore
  Dim m As Long   '// minuti
  Dim s As Long   '// secondi
  d = DateDiff("s", _
            TimeSerial(Hour(DalleOre), Minute(DalleOre), Second(DalleOre)),
_
            TimeSerial(Hour(AlleOre), Minute(AlleOre), Second(AlleOre)))
  h = d \ 3600
  m = (d Mod 3600) \ 60
  s = d - (3600 * h + 60 * m)
  Prova = Format$(h, "00") & ":" & _
                Format$(m, "00") & ":" & _
                Format$(s, "00")
End Function
Newsgroup: it.comp.lang.visual-basic
Titolo: Password mdb access

So che il NG ha trattato più volte l'argomento, ma prima non mi interessava
e ora sono lontano da casa per cui non posso rileggere gli articoli.
So come aprire un mdb access con password se conosco la password, ma se non
la conosco ?
E' possibile trovarla ?
Se si, come ?
Grazie infinitamente.
P.S. può sembrare idiota dichiararlo, ma non mi serve per aprire un db
protetto senza autorizzazione, ma per creare un'applicativo che legga i dati
salvati su un db creato da un amico che purtroppo è mancato e gli utenti non
hanno più l'assistenza che veniva offerta gratis. Per cui, diciamo così, è a
fin di bene.
Scusate la morale e grazie ancora.

    >Scusate la morale e grazie ancora.
    Che ne diresti di provare tutte le possibili combinazioni !! :-)))))
--
*-*-*-*-*-*-*-*-*-*-
*-*-* GGHI *-*-*
_*_*_*_*_*_*_*
* * * * Anti Spam: Rimuovere i numeri per l'indirizzo corretto * * * *
535gg...@mcl555ink.333it
222gg...@h555otm333ail.com

Una cosa dovrebbe farti riflettere, che a fronte di una domanda più o meno
"intelligente" (comunque per il fatto che è una "domanda", prevede una
risposta il più possibile esauriente, questo dovrebbe essere lo sporito del
NG) si possano ricevere molte risposte "idiote".
Bravo.
Hai vinto.
Sei stato il primo a dare questo tipo di risposta (quelle "idiote"
ovviamente).
GGHI o NGHE' che tu sia, grazie comunque.

Newsgroup: it.comp.lang.visual-basic
Titolo: trovare il trehad di un exe...

ciao !!
vorrei trovare l'ID di un processo del quale conosco il nome...
quindi, una volta trovato, terminarlo.
e' possibile ?
ciao !

 quindi, una volta trovato, terminarlo.
GetWindowThreadProcessId()
TerminateProcess()
Bisogna prima capire però cosa intendi per "conosco il nome".
E comunque un thread (non trehad) è diverso da un processo!
Ciao

 TerminateProcess()
La TerminateProcess è però un po' troppo brusca, meglio una
PostThreadMessage con WM_QUIT ad ogni thread del processo.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 PostThreadMessage con WM_QUIT ad ogni thread del processo.
Ottimo :)
Ma a questo punto bisogna spiegargli come enumerare i thread :)
E qui arriva il casino dell'altra volta, con distinzione tra win9x e
NT/2k... :(
Non ho voglia (ho sonno :P) di andare a cercarmi i nomi esatti delle
funzioni... chi dà uno spunto al povero joker?
Ciao

 chi dà uno spunto al povero joker?
Cercare su MSDN ToolHelp, PSAPI (Process Status Helper) e PDH
(Performance Data Helper).

Newsgroup: it.comp.lang.visual-basic
Titolo: R: [?] Picture o image box

 lunga vita e prosperita' :-)
Altrettanto, grazie !
Beam me up, Scotty !
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com


Anche se uso l'autosize il problema rimane, ho potuto vedere pero' che
questo succede solo se installo il programma su un PC con una
risoluzione di schermo diversa da quella del mio.
ti allago il listato del programma visto che e' un form di
inizializzazione non e di certo complesso compare all'inizio mentre una
routine esegue una connessione ad un DB
Form1.Picture1.AutoSize = True
Form1.Picture1.AutoRedraw = True
Set Form1.Picture1.Picture = LoadPicture(App.Path & "\logo_v.bmp")
Form1.Picture1.Refresh
call dbcon
grazie per ogni ulteriore suggerimento
CPT. Piccard
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

Newsgroup: it.comp.lang.visual-basic
Titolo: ASPX userControl

 
          Salve in una soluzione contenente una webform ho creato uno usercontrol
(.ascx)
non riesco a capire però come faccio ad aggiungerlo al form.
grazie.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


trascinalo dal solution explorer e "droppalo" sulla web form
-- 
.A    [Microsoft MVP .NET]
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog

 ha scritto:

il classico uovo di colombo....

Newsgroup: it.comp.lang.visual-basic
Titolo: Byte di troppo con istruzione put

Private Sub Comando0_Click()
Dim Bit As Long, Var As Byte, sFile, lFile
Bit = 1
lFile = "C:\Originale.exe"
sFile = "C:\Copia.exe"
Open lFile For Binary Access Read As #1
Open sFile For Binary Access Write As #2
Do While Not EOF(1)
Get #1, Bit, Var
Put #2, Bit, Var
Bit = Bit + 1
Loop
Close #1
Close #2
End Sub
Il file copia diventa di un byte piů grande,
piů precisamente aggiunge un byte con valore 00 alla fine del file.
Qualcuno mi potrebbe spiegare dove sbaglio?
Marco

Qualcuno mi potrebbe spiegare dove sbaglio?
E' sottile la questione, ricordo di esserci caduto anch' io:
The EOF function returns False until the end of the file has been reached. 
With files opened for Random or Binary access, EOF returns False until the 
last executed Get statement is unable to read an entire record.
Sicche' e' opportuno aggiungere un test dopo la Get.
A parte il nome di file che sulla tua macchina non c'e', questo
codice e' correttamente funzionante:
Public Sub Main()
 
    Dim Bit As Long, buffer As Byte
    Dim sFile As String, lFile As String
    Dim nsFile As Integer, nlFile As Integer
    Bit = 1
    lFile = "I:\netstat.txt"
    sFile = "I:\copia.txt"
    nlFile = FreeFile()
    Open lFile For Binary Access Read As #nlFile
    nsFile = FreeFile()
    Open sFile For Binary Access Write As #nsFile
 
    Do
        Get #nlFile, Bit, buffer
        If (EOF(nlFile)) Then Exit Do
        Put #nsFile, Bit, buffer
        Bit = Bit + 1
    Loop
 
    Close #nlFile
    Close #nsFile
End Sub
-- 
hth, hal

 Private Sub Comando0_Click()
 Dim Var As String * 1, sFile as String, lFile as String
 lFile = "C:\Originale.exe"
 sFile = "C:\Copia.exe"
 Open lFile For Binary As #1
 Open sFile For Binary As #2
 Do While Not EOF(1)
     Get #1, , Var
     Put #2, , Var


 Private Sub Comando0_Click()
[snip]
ehm, sicuro sicuro?
-- 
ciao, hal

> ehm, sicuro sicuro?
dovrebbe, Var As String * 1 garntisce che venga letto e scritto un byte alla
volta, senza preoccuparti del puntatore sul file. La copia dovrebbe essere 1
a 1. Per velocizzarla poi basta aumentare la dimensione, controllando il
numero di bytes letti rispetto alla lunghezza effettiva del file
Fabio

volta, senza preoccuparti del puntatore sul file. 
Confessa, non l' hai eseguita ;-)
-- 
ciao, hal

ovvio, no :)
perché, non funge?.. hmm
anche se non andasse è assurdo utilizzare il puntatore di posizionamento sul
file se la lettura e scrittura sono sequanziali. Il concetto era quello, poi
spesso canno anche se le provo, figurati quando le scrivo al volo :/
--
Fabio Guerrazzi
VB Graphic Developer
http://www.sourcecode4free.com/cgt
fab...@libero.it
ICQ: 64649187
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere in file .doc

Ho provato a leggere un file di Word con il comando:
  Open sFile For Input As #1
ma - per quanto ho visto - questo comando riesce a leggere solo
file .txt. C'e' modo di leggere e modificare file .doc con VB6?
Grazie

 file .txt. C'e' modo di leggere e modificare file .doc con VB6?
Con l'object Word.Application e il codice che scriverai in VB6 sarà del
tutto simile a fare una macro VBA in word.

tutto simile a fare una macro VBA in word.
Non so cosa sia l'object Word.Application, ma provo a cercare sull'Help.
Va istanziato cosi' Dim oAAA as Word.Application ?


Ho trvato tutto, grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta aiuto

In questi giorni stò creando una macro per pianificare alcune scadenze e mi trovo in difficoltà per questo motivo.
Datomi una data di scadenza devo determinare in quale settimana cade suddetta data per poi aggiornare nella relativa colonna la quantità scadente.
Ringrazio sin d'ora chi vorrà aiutarmi a risolvere la macro e tanti saluti :)

 ha scritto nel messaggio
news:1104_10...@news.tiscali.it...

A parte che, in generale, la funzione DatePart, tra i tanti utilizzi che ha,
permette anche di sapere il numero della settimana dell'anno in cui cade una
determinata data, con che cosa la stai facendo la macro?
Così, tanto per essere ficcanaso.... sai com'è siamo sempre ansiosi di
rubare i segreti degli altri.
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Listview

qualcuno saprebbe dirmi  come fare, quando genero l'evento afterlabeledit
a sapere l'indice di item? grazie!

Come faccio a ordinare in un listview degli item in ordine numerico vero?
Grazie

to avoid this ?
A good question. The VB4.0 help file is clearly wrong about this, since it
says about the ListView.SortOrder property:
Constant Value Description
lvwAscending 0 (Default) Ascending order. Sorts from the beginning
of the alphabet (A-Z) the earliest date, or the
lowest number.
lvwDescending 1 Descending order. Sorts from the end of the
alphabet (Z-A), the latest date, or the highest
number.
In fact, the sort order and .Sorted property do none of this. The ListView
only sorts in lexical (alphabet) order. Numbers will notsort correctly if
they have different numbers of digits:
1
11
2
23
I have reported this bug/inconsistency to Micro$oft, but, of course, I have
not seen or heard any reply because they don't specifically respond to bug
reports.
All you need to do is left-justify the numbers to the same length using
blanks. Then the alpha sort has the same effect as the numeric sort.
-----------------------------------------------------------------
DATES:
-----------------------------------------------------------------
Here is a quick and simple solution that I have used. Basically, add a
temporary column to the list view, put data in a format that will sort
correctly, sort on that column, then get rid of the temporary column. By
using LockWindowUpdate() before and after the operation, you see nothing of
this on the screen, it is quick, and takes only about 8 lines of code. To
sort dates, convert your date column into a number of seconds (UNIX epoch)
and sort on that. This method has the benefit of being independent of the
date format used by the rest of your program. Given a listview named lvMine
with integers in its .subitems(0):
------------------------>
dim liX as ListItem
dim ciX as ColumnHeader
dim i%, sortcol%
LockWindowUpdate lvMine.hWnd
Set ciX = lvMine.ColumnHeaders.Add ' add the temporary sort column
sortcol% = ciX.Index - 1
' convert all items in col 0 into sortable values in sortcol%
For i% = 1 to lvMine.ListItems.count
Set liX = lvMine.ListItems(i%)
' and set the temp column value to a converted, sortable value
liX.SubItems(sortcol%) = DateDiff( "s", _
"00:00:00 1 Jan 1970", liX.SubItems(0))
Next i%
lvMine.SortKey = sortcol% ' sort on the temp column
lst.ColumnHeaders.Remove ciX.Index ' then get rid of it.
LockWindowUpdate 0&
<------------------------
And that does it. You don't need the LockWindowUpdate, but it makes it nice.
The declaration is:
Declare Function LockWindowUpdate Lib "user32" _
(ByVal hwnd as Long) as Long

Salve a tutti,vorrei associare a ogni elemento di una listview un icona
qualsiasi,ho visto qualche esempio di codice, ma mi sembra tanto
complicato,c'è qualche anima buona che mi può fare vedere un piccolo esempio
anche semplicissimo?
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: *** CODICE ASCII ... per KeyPress ... ***

Ciao a tutti, qualcno mi sa dire come sapere il codice ASCII di un tasto,
per gestirne la pressione ?
Grazie
Saimon

 Saimon
Evento Keypress textbox
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:b3v8qk$96v$1...@newsreader.mailgate.org...

guarda sulla guida in linea   ascii   li trovi tutti i valori


Sulla guida  msdn  cerca ascii li trovi la lista ( sono due tabelle)

nell evento form_keypress
msgbox keyascii

per gestirne la pressione ?
Nel KeyPress:
Select Case KeyAscii
  Case vbKeyReturn
     'tasto return
  Case vbKeyTab
    'tasto TAB
End Select
Ciauz
Aran Banjo
<math> 2 + 2 = 5 for sufficiently large values of 2</math>
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] single e double

sto uscendo pazzo... ! come cavolo vengono rappresentati i numeri single e
double ??
per gli integer e long non ci sono problemi. i bytes stanno uno dietro
l'altro... ok... ma per i single?
ho fatto delle prove ma ne so meno di prima:
dim a as single, b as byte
a=1
for J=0 to len(a)-1
copymemory byval varptr(b),byval clng(varptr(a)+J)),1
debug.print B;
next J
col numero 1 mi esce: 0  0  128  63
col 2: 0  0  0  64
col 3: 0  0  64 64
ma che diavolo significa ??!!??!!??!!??!!
bye
MarioH

 col 3: 0  0  64 64
Secondo questo standard 1 diventa:
00111111100000000000000000000000
che preso a gruppi di 1 byte (da destra verso sinistra)
00000000 = 0
00000000 = 0
10000000 = 128
00111111 = 63
2 diventa:
01000000000000000000000000000000
e quindi
00000000 = 0
00000000 = 0
00000000 = 0
01000000 = 64
3 diventa:
01000000010000000000000000000000
e quindi
00000000 = 0
00000000 = 0
01000000 = 64
01000000 = 64
Ciao.

 
Scommetto che non hai provato a fare una ricerca nei vecchi post :-(
Cerca un post con subject "Visual basic e la matematica......"
Riassumendo single e double vengono memorizzati secondo lo standard IEEE
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

 00111111100000000000000000000000
uhm... veramente non ho capito... che cosa sono gli "esponent bits" ?
e perche tutti quegli 1 ??!!
MarioH

 dietro l'altro... ok... ma per i single?
c'č una specifica della IEEE per i numeri floating point, che definisce 
quanti e quali bit, e il loro significato, ma cosě su due piedi non so 
dirti altro

  gli "esponent bits" ? e perche tutti quegli 1 ??!!
Scusami, avevo tagliato pezzi importanti per comprendere questo formato (che
non è certo dei più semplici).
Qui puoi trovare tutte le informazioni
http://www.psc.edu/general/software/packages/ieee/ieee.html
ed in particolare il pezzo mancante:
The value V represented by the word may be determined as follows:
If E=255 and F is nonzero, then V=NaN ("Not a number")
If E=255 and F is zero and S is 1, then V=-Infinity
If E=255 and F is zero and S is 0, then V=Infinity
If 0<E<255 then V=(-1)**S * 2 ** (E-127) * (1.F) where "1.F" is
intended to represent the binary number created by prefixing F with an
implicit leading 1 and a binary point.
If E=0 and F is nonzero, then V=(-1)**S * 2 ** (-126) * (0.F) These
are "unnormalized" values.
If E=0 and F is zero and S is 1, then V=-0
If E=0 and F is zero and S is 0, then V=0
Ciao.

 Ciao.
oh mio dio!!!! ho gia il mal di testa... !!!!
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: MyDBMS

http://dms.markuswestphal.de/about.html
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 wrote in message
news:uMxlc.187600$rM4.8...@news4.tin.it...
Scusate... ovviamente è un errore di invio :P
Newsgroup: it.comp.lang.visual-basic
Titolo: analisi di una serie

ho una serie di turni lavorativi svolti da 5 persone a,b,c,d,e,:
giorno turno A turno notturno
    1        a            e
    2        b            a
    3        c            b
    4        d            e
    5        e            d
    6        a            e    etc. a ripetere per tutto il mese
l'analisi che il prg dovrebbe fare è la seguente:
giorno    risultato dell'analisi
    1        a:turno    e:notte
    2        b:turno    a:notte    e:recupero giorni 3
    3        c:turno    b:notte    a:, e:recupero giorni 3
    4        d:turno    c:notte    b: a: e:recupero giorni 3
    5        e:turno    d:notte    a: b: c:recupero giorni 3
    6        a:turno    e:notte    e: b: c: d:recupero giorni 3
se un turnista anticipa il turno il recupero sarà di giorni 2 prima del
turno anticipato e di giorni 4 dopo il turno anticipato
spero di non essere stato incomprensibile, e chiedo indicazioni per
l'algoritmo di analisi dei turni inseriti
grazie a tutti
giova...@libero.it

 turno anticipato e di giorni 4 dopo il turno anticipato
type turnista
 recupero as integer '3 o 4 giorni
 anticipa as boolean
 lastturno as boolean'0=giorno, 1=notte
end type
global t(1 to 5) as turnista
global sub situazioneturnisti(turnistagiorno as integer, turnistanotte as
integer)
'ipotesi di alternanza turni giorno/notte:
'no 2 turni giorno/notte consecutivi
 if t(turnistagiorno).recupero=2 then
  t(turnistagiorno).anticipa=true
 else
  t(turnistagiorno).anticipa=false
 endif
 t(turnistagiorno).lastturno=true
 if t(turnistanotte).anticipa=true then
  t(turnistanotte).recupero=0
  t(turnistanotte).anticipa=false
 else
  t(turnistanotte).recupero=1
 endif
 t(turnistanotte).lastturno=false
end sub
global sub oggieunnuovogiorno()
 for n=1 to 5
  t(n).recupero=t(n).recupero+1
  if t(n).recupero>=2 then
   temp$="turnista numero "+str(n)+" disponibile."+vbcrlf
if t(n).lastturno=true then
    temp$=temp$ + "ultimo turno effettuato: giorno"+vbcrlf+vbcrlf
   else
    temp$=temp$ + "ultimo turno effettuato: notte"+vbcrlf
    temp$=temp$ + "recuperati "+str(t(n).recupero)+" giorni."+vbcrlf+vbcrlf
      endif
  endif
  richtext=richtext+temp$
 next n
'scegli turnista giorno e notte fra i disponibili e aggiorna situazione
 situazioneturnisti(tgiorno, tnotte)
end sub
ps: codice non testato
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampanti

Qualcuno può suggerirmi del codice per cambiare la stampante di default a
piacimento da un programma VB?
Grazie,
PASO

L'insieme Printers contiene tutte le stampanti installate nel sistema.
Puoi settare una stampante con:
Set Printer=Printers(n)
n va da 0 a Printers.Count - 1
paso ha scritto nel messaggio ...


 piacimento da un programma VB?
Sub Stampa()
    On Error GoTo errman
    If LoadedForms < 1 Then Exit Sub
    If ActiveForm.RTF.Text = "" Then Exit Sub
    With frmStampa
        .lblDocName = IIf(ActiveForm.Caption <> "", _
            ActiveForm.Caption, "Senza titolo")
        .lblPrinter = Printer.DeviceName
        .lblPrinterPath = Printer.Port
        .lblPrinterOrient = IIf(Printer.Orientation = 1, "Verticale",
"Orizzontale")
        .lblPrinterPaper = WhichPaper()
    .Show vbModal, Me
    End With
    Exit Sub
errman: MsgBox Error
End Sub
Sub StampaImposta()
    On Error GoTo errman
    With frmMain.CDL
        .CancelError = True
        .FLAGS = cdlPDPrintSetup
        .ShowPrinter
    End With
    NomeStampante = Printer.DeviceName
    TB.Buttons("print").ToolTipText = "Stampa su " & NomeStampante
    TB.Buttons("printersetup").ToolTipText = "Imposta stampante" _
        & " (Corrente: " & NomeStampante & ")"
    Exit Sub
errman: MsgBox Error
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: PUT Binary e problemi con variabili as BYTE

Ciao
io ho scoperto da poco questa funzione e volevo capirne se posso
utilizzarla per un mio prog:
avendo
dim j2 as byte, j3 as byte
open text.file as binary as #1
j2 = &3333 'esempi
j3 = &4444 'esempi
put #1, j2, j3
close #1
da quanto ho capito, il valore di j2 viene rimpiazzato con j3 in formato byte
ora a me serve , convertire n carattere con ascB, e ottengo un byte,
dopo di che dovrei 
inserirlo alla file di un file, e cosě farlo per ogni tipo di stringa...
solo che put serve per cambiare un valore soprapponendolo ad uno
esistente, 
esiste quindi un altro comando per inseirre solo nuovi byte?
Grazie Ciao

 esiste quindi un altro comando per inseirre solo nuovi byte?
per inserirli alla fine di un file devi aggiornare ogni volta il secondo
parametro di put, che indica la posizione del byte in cui stai scrivendo,
oppure piů semplicemente omettere il secondo parametro (come ho fatto io),
cosě l'aggiornamento lo fa vb automaticamente