Acender LED por porta paralela

[AnonymousKesha 11]

Bom depois de muito caçar na net achei um jeito em C# para controlar a porta paralela!

Traduzi para VB e vim deixar para curiosos!

 

Primeiro é necessário ter um modulo e uma dll para o funcionamento da aplicação!

 

Windows da era dos dinossauros permitiam acesso a porta paralela facilmente, hoje em dia com

a frescura da microsoft e seus sistemas de segurança isso mudou, ai foi nessesario implementar uma dll,

ela funcionava até o windows XP, no vista ou 7 já não funcionava, ai procurei bastante e achei uma atualizada

que funciona até o windows 7, não testei no 8.

 

Dll:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

SCAN:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

-Crie um novo projeto

-Crie um novo módulo,clicando em seu projeto>Adicionar>Módulo...

 

Fazer os imports, eles tem que ficar acima de namespace:

Imports System

Imports System.Runtime.InteropServices

 

Abaixo de Namespace coloque o seguinte código:

''' <summary>

''' Summary description for Paralela.

''' </summary>

Public Class Paralela

Public Declare Sub Escrever Lib "Inpout32.dll" Alias "Out32" (ByVal endereco As Integer, ByVal valor As Byte)

 

'=============================================================

Public Declare Function Ler Lib "Inpout32.dll" Alias "Inp32" (ByVal endereco As Integer) As Byte

End Class

 

Pronto módulo feito!

 

Volte para o Form1 e add os seguintes itens

Uma textbox com o nome = txtEndereco

Outra texbox com o nome =txtDados

E um button com o nome que quiser...

 

De um duplo click no form1 e add esse código abaixo de Public Class Form1

Inherits Form

Public Sub New()

MyBase.New()

InitializeComponent()

End Sub

 

Depois de um duplo click no button e add o seguinte código :

Try

Dim endereco As Integer = Convert.ToInt32(txtEndereco.Text.Trim, 16)

Dim dados As Byte = Convert.ToByte(txtDados.Text.Trim, 2)

Paralela.Escrever(endereco, dados)

MsgBox("Byte envida com sucesso!", MsgBoxStyle.Information, Title:="Byte")

Catch

MsgBox("Erro ao envia byte para porta paralela!", MsgBoxStyle.Critical, Title:="byte")

End Try

 

Projeto pronto!

 

Obs: A dll deve ficar dentro da pasta do seu projeto em \bin\Debug

 

Agora vamos ao componentes!

Minhas peças aqui em SP ficaram R$0,90 centavos tudo

Foi necessário comprar :

Um LED de 3 V => R$0,50

Um resistor de 100 Ohms = R$0,40

 

Para ligar ambos com a porta é simples!

Se quiser pode comprar um cabo para a porta paralela, eu não comprei pq a preguiça não dexo!

Mas pode ligar direto na porta do PC!

A porta paralela geralmente é uma grande rosa cheia de buraquinhos!

 

Para ligar no LED ao resistor :

Com um ferro de solda ou fita isolante(durex vai da merda) ligue na seguinte forma

Obs: O positivo do LED é a perna MAIOR:

 

-Ligue qualquer ponta do resistor no positivo do LED(isole ou solde)

-Ligue um fio vermelho a outra ponta do resistor(isole ou solde)

-Ligue um fio preto na ponta negativa do LED(isole ou solde)

 

-Pronto, só ligar o fio vermelho(positivo) em qualquer uma dos pinos da porta paralela (do D0 ao D7)

-E o preto em qualquer pino da porta paralela (da 18 a 25)

 

Coloque 378 no campo txtEndereco

E no campo txtDados coloque 11111111 = para ligar todos os pinos

00000000 = para desligar todos os pinos

 

Assim o LED ou qualquer outra coisa vai ligar!

 

SEM A DLL O PROJETO NÃO VAI FUNCIONAR !

 

Meu projeto :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

SCAN :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se