Newsgroup: it.comp.lang.visual-basic
Titolo: Sempre problemi con parallela

Torno ad annoiarvi con il mio problema, forse per un novizio e' un' impresa
ardua, ma ......
Dunque ho scaricato dal sito comune w95io.dll, ho creato un form con due
pulsanti:
il primo  nella routine click ho inserito : Command1.Caption = vbInp(1)
'legge la porta
il secondo Call vbOut(1, 255)
Ho creato anche un modulo con :
Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As
Integer)
Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As
Integer)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As
Integer
Se imposto e leggo tutto ok, solo alla porta non ci sono variazioni. Il
problema e' che non ho trovato ne esempi nemmeno spiegazioni , se ci fosse
un' anima pia disponibile......
Grazie, Stefano

 wrote in message 8itca6$ect$1...@news.IT.net...


> il secondo Call vbOut(1, 255)
Il tuo problema sta proprio qui ... (se leggessi i messaggi vecchi ...e' una
domanda che ricorre ogni 2 settimane).
Riporto parte di un post di non so chi ... chiedo scusa se non menziono la
persona ma quando catalogo le informazioni cancello l'intestazione dei
messaggi:
_______________________
sub LeggiParallela()
    static Cosa as integer
    A = vbInp(&h378)
    'A è lo stato della porta
    ' il significato dei vari bits te lo leggi in ragione
    ' delle specifiche dell'apparecchio che hai collegato
end sub
sub ScriviParallela()
    static Cosa as integer
    A = vbOut(&h378)
    'A è un intero con i bit settati in accordo
    ' alle specifiche dell'apparecchio che hai collegato
    ' questo ti consente di pilotare una periferica
end sub
Tieni conto che non tutte le parallele sono a &h378
Per avere gli indirizzi delle parallele presenti nel PC
apri una finestra DOS, lancia il debug e al prompt scrivi
-d 40:0 e premi invio...
dal nono byte a partire dal 40 trovi (scritti al contrario)
gli indirizzi delle porte presenti nel PC...
__________________________
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

 wrote in message
8itef7$uf4$1...@pegasus.tiscalinet.it...


 un' anima pia disponibile......
Mi sembra ovvio, visto che stai usando la porta 1 che molto 
probabilmente non esiste sul sistema o è già utilizzata da qualche 
altra parte. Prova ad usare la parallela per esempio a 378h
-- 
Electronic page at 
http://www6.ewebcity.com/eparadise/

Non sarebbe più facile scaricare l'OCX che ti permette di associare un
indirizzo qualunque e poi leggere od inviare un dato?
Su VOLFTP cerca IOPORT.OCX: e free!
Saluti.
Angelo

 wrote in message
8itofj$kbi$1...@fe2.cs.interbusiness.it...


 Oh, ciao Giulio, ti leggevo su Fido !
ben ritrovato.


Come di non so chi?
Stracca, Stracca... :)
Ci ho interfacciato dei lettori di carte e banconote...
--[GbC]--
Se si può postare una immagine tif (30k) vi invio le specifiche della
parallela, come da DOS Technical Reference IBM (la Bibbia!)...
Come pensate di vivere senza la documentazione delle porte e del DOS?
CiauZ

 Ci ho interfacciato dei lettori di carte e banconote...
Ehm ... supponevo fossi tu ... ma non ne ero sicuro !!!
Quando mi salvo i post dei NG in formato TXT poi vado a cancellare tutte le
intestazioni per avere un'archiviazione piu' snella e chiara ... chiedo
perdono !!!
