Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 71.642
  • Views Posts: 542.505
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224
Categorie
Sondaggio
Home Blogs | Home | Login | Contact | My Profile | RSS | About | Cerca

VB.NET - COMUNICAZIONE SNMP IN VISUAL STUDIO 2010

VB.NET - COMUNICAZIONE SNMP IN VISUAL STUDIO 2010Oggi vi voglio parlare della fantastica libreria SNMP, che la potete scaricare qui.Grazie a questa libreria sono riuscito a catturare i contatori della mia Multifunzione PANASONIC KX-MB2061, lo scopo del progetto è quello di calcolare quanto consumo e spendo per la mia multifunzione.Qui potete trovare l'elenco dei MIB della PANASONIC KX-MB2061 : "1.3.6.1.2.1.1.1.0" - sysDescr    --> Panasonic KX-MB2061  "1.3.6.1.2.1.1.2.0" - 
Leggi tutto il post...
Categoria: VB.NET
martedì, 22 mag 2012 Ore. 17.13

VB.NET - FUNZIONE CONDIVIDERE UNA CARTELLA DI RETE CON IL COMANDO NET SHARE /UNLIMITED

VB.NET - FUNZIONE CONDIVIDERE UNA CARTELLA DI RETE CON IL COMANDO NET SHARE /UNLIMITEDOggi vi metto a disposizione una funzione che serve per condividere una cartella di rete da codice, se la cartella non esiste la crea. Per richiamare la funzione basta scrivere : CondividiCartellaInRete("C:\SCAN","CartellaMonitor")Codice Visual Basic .net / VB.NET :   Private Sub CondividiCartellaInRete(ByVal CartellaCondividere As String, ByVal Descrizione As String)      &nb 
Leggi tutto il post...
Categoria: VB.NET
martedì, 15 mag 2012 Ore. 13.57

VB.NET - FUNZIONE CHE ESTRAE UNA IMMAGINE DA ImageList1 E LA TRASFORMA IN ICONA

 VB.NET - FUNZIONE CHE ESTRAE UNA IMMAGINE DA ImageList1 E LA TRASFORMA IN ICONAVi metto a disposizione una funzione che estrapola un'immagine da ImageList1.Images e la trasforma in icona, e la potete utilizzare in una NotifyIcon1.Icon .Codice Visual Basic .NET / VB.NET :Private Function IconaIMG(ByVal numero As Integer) As Icon        Dim ico As Icon        Dim ptrIcon As IntPtr        ptrIcon = DirectCast 
Leggi tutto il post...
Categoria: VB.NET
martedì, 15 mag 2012 Ore. 11.06

VB.NET - FUNZIONE SCRIVERE FILE LOG ERRORE

VB.NET - FUNZIONE SCRIVERE FILE LOG ERROREOggi vi metto a disposizione una funzione che ha il compito di creare / aggiungere alla fine di un file una stringa con il testo dell'errore passato.Il nome della funzione è ScriviLogErrore( ... ) .NameErrore = E' il messaggio di errore che volete che venga salvato nel file .logEsempio utilizzo :     ScriviLogErrore("  - Errore FileSystemWatcher ") ' Scrive nel file .log  " - Errore FileSystemWatcher "Codice 
Leggi tutto il post...
Categoria: VB.NET
lunedì, 14 mag 2012 Ore. 13.47

VB.NET - MONITORARE UNA CARTELLA E VISUALIZZA UN BALLOONTIP E UN SUONO

VB.NET - MONITORARE UNA CARTELLA E VISUALIZZA UN BALLOONTIP E UN SUONO (Watcher)Oggi vi propongo un progetto che utilizza la classe FileSystemWatcher1 ,  serve per monitorare gli eventi che succedono in una cartella o directory precedentemente impostata.Definizione da MSDN :  Attende le notifiche di modifica del file system e genera eventi quando una directory o un file in una directory viene modificato.Scopo del progetto (MONITOR FOLDER) :Lo scopo del progetto è quello di dare la 
Leggi tutto il post...
Categoria: VB.NET
lunedì, 14 mag 2012 Ore. 00.29

VB.NET - CREARE DATABASE ACCESS ED ESEGUIRE COMANDI SQL (CREARE TABLE / INSERT INTO / SELECT )

CREARE DATABASE ACCESS ED ESEGUIRE COMANDI SQL (CREARE TABLE / INSERT INTO / SELECT ) Oggi vi voglio mettere a disposizione il codice di come creare una DATABASE ACCESS interamente da codice VB.NET . Public Class Form1    Const DataBaseName = "C:\Database_test1111.mdb"    Dim dr As OleDbDataReader    Dim connessione As ADOX.Catalog = New ADOX.Catalog 'crea un nuovo oggetto connessione di tipo ADOX.Catalog    Dim archivio As New OleDb.OleDbConnect 
Leggi tutto il post...
Categoria: VB.NET
martedì, 08 mag 2012 Ore. 21.34

VB6 - FUNZIONE COPIA DI MATRICI

FUNZIONE COPIA DI MATRICI Visual Basic consente di copiare matrici usando l'operatore =, esattamente come per gli altri tipi di variabili. Occorre comunque attenersi a due semplici regole. 1) Le matrici a dimensione variabile possono apparire da entrambe le parti dell'operatore di assegnazione =. 2) Le matrici di dimensione fissa possono apparire solo alla destra dell'operatore di assegnazione =.Ecco un esempio di codice per la copia di matrici :Sub Sort(IntData() As String, OutData()  
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 10.45

VB6 - ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'

ACQUISIRE LA DIMENSIONE DELLO SPAZIO LIBERO DI UN'UNITA'Per conoscere lo spazio libero disponibile su un'unità si può utilizzare la proprietà .AvailableSpace.L'esempio seguente mostra una funzione che accetta come primo parametro un drive e ne restituisce il numero di byte disponibili ( per trasformare tale valore in kilobyte è sufficiente dividerlo per 1.024 oppure, se si desidera la conversione in megabyte, per 1.048.576).CODICE VISUAL BASIC 6 / VB6 :Function ByteLiberiSuUnita(ByVal Unita As S 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 09.37

VB6 - AGIRE PRIMA CHE IL COMPONENTE RICEVA IL FOCUS

 AGIRE PRIMA CHE IL COMPONENTE RICEVA IL FOCUSQuando il focus raggiunge un oggetto, viene generato un evento di nome GotFocus. Se a tale oggetto è stata associata un subroutine per la sua gestione, essa viene eseguita.Più precisamente, la subroutine viene posta in esecuzione prima che l'oggetto prenda il controllo: se, ad esempio, l'oggetto è una TextBox, allora verrà prima eseguita la subroutine associata all'evento GotFocus e poi l'utente potrà inserire i dati:CODICE VISUAL BASIC 6 / VB6  
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 09.08

VB6 - IMPEDIRE LO SPOSTAMENTE DEL FOCUS IN CASO DI ERRORE

IMPEDIRE LO SPOSTAMENTE DEL FOCUS IN CASO DI ERROREUno dei principali problemi dei programmatori è costituito dalla verifica della correttezza delle informazioni digitate dall'utente.Visual Basic viene in aiuto fornendo la gestione dell'evento .Validate, il quale viene eseguito ogni volta che il focus si deve spostare da un controllo a un altro, sempre che quest'ultimo abbia la proprietà .CausesValidation impostata con True ( è il default).In pratica, quando l'utente si spost 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.49

VB6 - ACQUISIRE IL PATH O ALTRA SPECIFICA VARIABILE D'AMBIENTE

ACQUISIRE IL PATH O ALTRA SPECIFICA VARIABILE D'AMBIENTEPer acquisire una determinata variabile d'ambiente si può utilizzare una funzione simile a quella riportata di seguito la quale, in questo esempio, viene richiamata da un Bottone Command1_Click() per ricercare la variabile d'ambiente Ex: path: CODICE VISUAL BASIC 6 / VB6Option ExplicitPrivate Sub Command1_Click() Dim str As String str = RicercaVariabileEnviroment("PATH")End SubFunction RicercaVariabileEnviroment(ByVal Var As Strin 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.36

VB6 - ACQUISIRE TUTTE LE IMPOSTAZIONI SET (environment)

ACQUISIRE TUTTE LE IMPOSTAZIONI SET (environment)La configurazione del sistema operativo fa uso di variabili d''ambiente un tempo molto utilizzate dai programmatori DOS, ma anche oggi può essere importante conoscere i loro valori.Per poter acquisire tali valori si utilizza la funzione Environ passandole un parametro numerico in base 1 come nel seguente esempio, che carica in una ListBox tutte le variabili dell'Enviroment :CODICE VISUAL BASIC / VB6 Private Sub CaricaVariabiliEnviroment() Dim x A 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.16

VB6 - INDIVIDUARE IL PERCORSO (path) DEL PROGRAMMA IN ESECUZIONE

 INDIVIDUARE IL PERCORSO (path) DEL PROGRAMMA IN ESECUZIONEPer individuare il percorso del programma in esecuzione si può ricorrere alla proprietà .Path applicata all'oggetto App.Dim Percorso As StringPercorso = App.PathFunzione che restituisce il percorso del programma in esecuzione :Private Function RecuperaPercorso() As String Dim Percorso As String Percorso = App.Path RecuperaPercorso = PercorsoEnd Function 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.09

VB6 - ELENCARE TUTTI I CONTROLLI PRESENTI SU UNA FORM

ELENCARE TUTTI I CONTROLLI PRESENTI SU UNA FORML'esigenza di analizzare con il programma tutti i controlli presenti su una Form è resa possibile attraverso l'oggetto Control. Il seguente esempio inserisce in una ListBox il nome di tutti i controlli presenti sulla Form :Private Function ElencoControlli() Dim ctrl As Control For Each ctrl In Controls() List1.AddItem ctrl.Name 'Aggiunge nella ListBox Debug.Print ctrl.Name ' Stampa  Next ctrlEnd Function 
Leggi tutto il post...
Categoria: VB6
lunedì, 07 mag 2012 Ore. 08.03

VB6 - COME APRIRE PIU' FORM DELLO STESSO TIPO CONTEMPORANEAMENTE

COME APRIRE PIU' FORM DELLO STESSO TIPO CONTEMPORANEAMENTESe il programma deve poter aprire contemporaneamente diverse finestre dello stesso tipo, si deve ricorrere alla istruzione Set congiunta a New.Un esempio di come un clic su un pulsante di nome CreaNuovaFinestra crei una nuova finestra di nome Form2 indipendente dall'esistenza di altre finestre dello stesso tipo:Private Sub CreaNuovaFinestra_Click() Dim NuovaFrom As Form2 'crea una nuova copia di Form2 Set NuovaForm = New Form2 'visualizza 
Leggi tutto il post...
Categoria: VB6
domenica, 06 mag 2012 Ore. 15.30

JAVA - FUNZIONE ORDINAMENTO SELECTIONSORT

Oggi vi metto a disposizione la funzione SelectionSort di ordinamento di un Vettore / Array numerico :CODICE JAVA :public static void selectionSort( int[] v){ int n= v.length; for(int i=0; i<n-1; i++){     //trova il più piccolo elemento con indice tra i e n-1     int jmin = i;     for(int j=i+1; j<n; j++) { if( v[j] < v[jmin] )  jmin=j;     }     //scambia gli elementi con indice i e jmin     int temp = v[jmin];  
Leggi tutto il post...
Categoria: JAVA
sabato, 05 mag 2012 Ore. 19.34

VB6 - FUNZIONE ENVIROMENT()

Oggi vi voglio far vedere come recuperare alcune informazioni importanti come "USERNAME" di chi sta usando il pc, "USERDOMAIN" ....Vi inserisco tutte le stringhe che potete inserire ed utilizzare .Le stringhe da utilizzare nella funzione ENVIROMENT$("STRING") :ALLUSERSPROFILEAPPDATACI_HOLOS_CLICLIENTNAMECommonProgramFilesCOMPUTERNAMEComSpecFP_NO_HOST_CHECKHOMEDRIVEHOMEPATHincludeJAVA_HOMElibLOGONSERVERMSDevDirNUMBER_OF_PROCESSORSOSPathPATHEXTPROCESSOR_ARCHITECTUREPROCESSOR_IDENTIFIERPROCESSOR_LE 
Leggi tutto il post...
Categoria: VB6
sabato, 05 mag 2012 Ore. 18.31

Windows - Lista comandi da prompt di sistema

Lista comandi da prompt di sistema Per accedere al Prompt dei comandi dovete cliccare su START -> programmi -> accessori -> prompt di comandi oppure ESEGUI, digitate CMD e tasto INVIO. Figura 1 - prompt di comandi • AT.exe Pianifica comandi e programmi per l'esecuzione sul computer all'ora e data specificata. Il servizio di pianificazione deve essere avviato per poter usare il comando AT • Chkdsk Controlla un disco e visualizza il relati 
Leggi tutto il post...
Categoria: Windows
sabato, 05 mag 2012 Ore. 18.03

VB.NET - CREARE UN APPLICAZIONE CHE SI RIDUCE A ICONA NELLA TASKBAR DI WINDOWS

VB.NET - CREARE UN APPLICAZIONE CHE SI RIDUCE A ICONA NELLA TASKBAR DI WINDOWSOggi vediamo come creare una piccola applicazione che si avvia in modalità ridotta a icona, per capirci è quella che si trova cino all'orologio nella TASKBAR di Windows, con Visual Basic .NET .Per prima cosa dobbiamo creare un nuovo progetto :Fare click su File >> Nuovo Progetto >> Applicazione Windows Form >> Scegliere il Nome del progetto e fare click su OKAdesso che ci appare il Form dobbiamo andar 
Leggi tutto il post...
Categoria: VB.NET
sabato, 05 mag 2012 Ore. 14.49

VB.NET - DUE FUNZIONI APRI ED ESCI DI UN MENU NOTIFYICON

Vi è capitato di creare un menu a tendina per l'evento NotifyIcon e volete gestire bene il fatto Apri Finestra e Esci dal programma :Con questo semplice codice voi potete Aprire la finestra e Uscire completamente dal programma  .CODICE VB.NET   Private Sub Shutdown()        If NotifyIcon1.Visible Then            NotifyIcon1.Visible = False        End If        Application.Exit()     
Leggi tutto il post...
Categoria: VB.NET
sabato, 05 mag 2012 Ore. 13.26
Ora e Data
Mappa
Blogs Amici
    Links
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003