Newsgroup: it.comp.lang.visual-basic
Titolo: Istruzione Out molto antica, please, aggiornamenti!

Salve,
     avrei bisogno di un piccolo aiutino, ho montato sul comp una scheda
che tramite porta parallela Centronix mi gestisce delle luci, ora per
avere l'output sulla porta in questione con il Qbasic basta utilizzare
il comando Out 888(Lpt1), xxx in visual basic qualcuno mi saprebbe fare
dire qual'è il corrispondante comando e mi farebbe un piccolo esempio??
Grazie Mille!!!!
Ciaooooooo!
-- 
 _____________________________________________________________________
 See now the Sinkha power
 MailMe: 
reveng...@pn.itnet.it
 Visit here 
http://www.geocities.com/area51/dimension/9972
 _____________________________________________________________________
|                                                                     |
|               _\\\///_                                              |
|             _/        \_                                            |
|           /  __      __  \           The trust is out there         |
|           | /  \    /  \ |                                          |
|           \ \___\  /___/ /                 TrustNo1                 |
|            \_    ..    _/                                           |
|              \   __   /                     Leo2012                 |
|               \______/                                              |
|        o000o           o000o                                        |
|________°000°___________°000°________________________________________|

Ti riposto un suggerimento trovato qualche mese fa su questo newsgroup.
Non mi ricordo il nome dell'autore, ma in fondo trovi la sua e-mail.
Io avevo gia' usato, in precedenza, qualcosa di simile, con pieno 
successo.
Attenzione pero' alla scrittura! Mi sembra che non tutte le linee LPT 
siano parimenti pilotabili in scrittura, sotto Win 32 bit, a causa di un 
certo tipo di gestione che il sistema operativo applica alla risorsa...
Non so dirti altro! Ciao
Patrizia Arrigoni
==========================================================================
====
Utilizzo di porte seriali e parallele con VB
==========================================================================
====
Purtroppo non e' cosi' semplice come in qbasic o altro !
Per la gestione della parallela "Solo In scrittura" puoi usare le saguenti
chiamate API :
Declare Function OpenComm Lib "User" (ByVal lpComName As String, ByVal
wInQueue As Integer, ByVal wOutQueue As Integer) As Integer
Declare Function closecomm Lib "User" (ByVal nCid As Integer) As Integer
Declare Function ReadComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf 
As
String, ByVal nSize As Integer) As Integer
Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf 
As
String, ByVal nSize As Integer) As Integer
Troverai documentazione in uno dei file di help di VB.
Invece se devi utilizzare la parallela in lettura potresti provare a
procurarti la Inpout.dll facendo una semplice ricerca su internet dopo i 
che
inserire in un modulo le seguenti dichiarazioni :
Declare Function LptIn Lib "inpout.dll" Alias "Inp" (ByVal Port%) As 
Integer
Declare Sub LptOut Lib "inpout.dll" Alias "Out" (ByVal Port%, ByVal 
Value%)
tenendo presente che per scrivere sulla parallela devi usare l'indirizzo
H378 mentre per leggere H379.
        A% = LptIn(&H379)
        Call LptOut(&H378, &H0)
Enjoy Yourself
EvilB...@NOSPAM.Hotmail.com

Dimenticavo. ovviamentem per la tua scheda dovrai utilizzare indirizzi 
diversi (utilizzi l'888, mi pare).
E probabilmente, nel tuo caso non avrai i problemi in scrittura che avevo 
prospettato.
Patrizia