Porta COM e Visual Basic

[cionci]

Quello è VB...
La prima parte serve per importare le API...la seconda apre la porta e ci spedisce "Ciao"...

[leon84]

Originally posted by "cionci"

Quello è VB...
La prima parte serve per importare le API...la seconda apre la porta e ci spedisce "Ciao"...

Ma l'istruzione OUT non si può rimediare in alcun modo ? Sono parecchie le cose che sono cambiate nella versione .NET !!!

[cionci]

Originally posted by "leon84"

Ma l'istruzione OUT non si può rimediare in alcun modo ? Sono parecchie le cose che sono cambiate nella versione .NET !!!

Sinceramente io la istruzione out non l'ho mai vista in VB6... Sarà merito di qualche OCX o DLL...perchè se in VB6 provi a scrivere Out dice che è inesistente... E poi in ogni caso Windows 2000/XP non permettono l'accesso diretto all'hardware...

[leon84]

Originally posted by "cionci"


Sinceramente io la istruzione out non l'ho mai vista in VB6... Sarà merito di qualche OCX o DLL...perchè se in VB6 provi a scrivere Out dice che è inesistente... E poi in ogni caso Windows 2000/XP non permettono l'accesso diretto all'hardware...

Assodato che volgio utilizzare VB per fare questa cosa , oltre ad OUT non ti viene in mente niente ? Perché ho intenzione di fare un programma con interfaccia grafica e certo che non mi mettero a guardare come l'interfaccia grafica si relaizza in c ( è difficile ) .

[cionci]

Il metodo che ti ho scritto sopra è in VB...
Ci sono altri metodi, ma fanno uso di librerie esterne...

[leon84]

Originally posted by "cionci"

Declare Function CreateFile Lib "kernel32" Alias "CreateFileA"
            (ByVal lpFileName As String,
             ByVal dwDesiredAccess As Long,
             ByVal dwShareMode As Long,
             ByVal lpSecurityAttributes As Long,
             ByVal dwCreationDisposition As Long,
             ByVal dwFlagsAndAttributes As Long,
             ByVal hTemplateFile As Long) As Long

Declare Function WriteFile Lib "kernel32"
            (ByVal hFile As Long,
             lpBuffer As Any,
             ByVal nNumberOfBytesToWrite As Long,
             lpNumberOfBytesWritten As Long,
             lpOverlapped As OVERLAPPED) As Long

Declare Function ReadFile Lib "kernel32"
            (ByVal hFile As Long,
             lpBuffer As Any,
             ByVal nNumberOfBytesToRead As Long,
             lpNumberOfBytesRead As Long,
             lpOverlapped As OVERLAPPED) As Long

Declare Function CloseHandle Lib "kernel32"
            (ByVal hObject As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const OPEN_EXISTING = 3
Public Const FILE_FLAG_OVERLAPPED = &H40000000

'********************
Type OVERLAPPED
  Internal As Long
  InternalHigh As Long
  offset As Long
  OffsetHigh As Long
  hEvent As Long
End Type

All'inerno dell'onclick del bottone ci emtti questa roba :

Dim hFile As Long
Dim ret As Long
Dim number As Long
number = 0

hFile=CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)

If hFile <> INVALID_HANDLE_VALUE Then
   ret = WriteFile(hFile, "Ciao", 4, number, 0) 
   CloseHandle(hFile)
End If

Comunue non lo posso provare...

Quindi questo è in VB ? Ora lo provo subito .... ma tutte quelle dichiarazioni vanno nell'evento load ?

[cionci]

No...le dichiarazioni vanno in cima al file della form...all'esterno di tutte le procedure...

Non ti assicuro niente... In ogni caso se non funzionasse la strada è comunque quella... CreateFile, WriteFile e CloseHandle...

[leon84]

Purtroppo con .NET mi dà un sacco di errori . Come faccio ? Volendo arrangiarmi con C++ (DOS) cosa devo fare ? Quella procedura che mi hai postato prima ?

[leon84]

Originally posted by "pnx"

Praticamente per controllare la porta basta dare il comando

OUT address, data

Devi sapere l'indirizzo della parallela, hai la scelta tra 3 indirizzi (prova a fare una ricerca in rete, ma dovresti riuscire a leggerlo anche dalle proprietà della porta parallela da Gestione Periferiche), comunque generalmente è H378.

Col comando "out &h378, 25" tu metti sui pin di uscita della parallela il numero 25, che in binario è "11001".
Vuol dire che i pin 0, 3 e 4 avranno 5V mentre gli altri saranno a 0.

Visto che a te serve comandare un pin solo puoi mettere sulla porta il valore 0 per spegnere e 1 per accendere:

out &h378, 0

out &h378, 1


In questo caso il pin che cambia tensione è il D0 (vedi immagine del documeto).

Però non puoi collegare direttamente il pin alla lampadina, perchè anche se ci sono 5V non esce sufficiente corrente e rischieresti inoltre di danneggiare la parallela.

Per questo devi usare un piccolo e semplicissimo circuito con un transistor.

Ma usi qualche OCX per utilizzare il comando out ?

[pnx]

Purtroppo è passato un po' di tempo da quando ho fatto l'ultimo progetto che utilizza la parallela e non mi ricordo bene se ho usato qualche dll aggiuntiva e inoltre non riesco più a trovare quel progetto (tra l'altro adesso non sono neanche al mio PC).

Se però cerchi su questo sito: http://www.planet-source-code.com/ trovi numerose OCX che ti permettono di controllare la parallela (e non solo) anche sotto 2000 e XP.

Fai un cerca nella sezione Vbasic

[leon84]

Originally posted by "pnx"

Purtroppo è passato un po' di tempo da quando ho fatto l'ultimo progetto che utilizza la parallela e non mi ricordo bene se ho usato qualche dll aggiuntiva e inoltre non riesco più a trovare quel progetto (tra l'altro adesso non sono neanche al mio PC).

Se però cerchi su questo sito: http://www.planet-source-code.com/ trovi numerose OCX che ti permettono di controllare la parallela (e non solo) anche sotto 2000 e XP.

Fai un cerca nella sezione Vbasic

Cosa devo cercare ? Ti chiedo troppo se me la trovi tu questa OCX ?

[leon84]

Ho trovato questo : (guarda allegato)

[cionci]

Primo non funziona sotto Windows 2000/XP
Secondo quella DLL non si sa dove trovarla...

[cionci]

C'è questo che potrebbe andare perchè sfrutta librerie Win32 : http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=21535&lngWId=1

[leon84]

Originally posted by "cionci"

C'è questo che potrebbe andare perchè sfrutta librerie Win32 : http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=21535&lngWId=1

L'ho scaricato . E con questo come dovrei fare per scrivere sulla porta LPT1 ?

[cionci]

Scusa, intendevo questo : http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=12410&lngWId=1

[pnx]

Dai un'occhiata anche a questo: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=33181&lngWId=1

[cionci]

Almeno quello la DLL ce l'ha : http://www.driverlinx.com/DownLoad/dnload.htm#Windows%2095/NT%20Port%20I/O%20Driver

[leon84]

Si ma cosa devo scaricare e quali sono le istruzioni da implementare ?

[cionci]

Le funzioni sono quelle importate dalla DLL...
Devi scaricare la DLL ed il progetto di prova da Planet-Source-Code (che ti ha linkato pnx)...e vedere come funziona...