Jag vill koppla inbrottslarmet till datorn, för att via en webbsida kunna se om det är till eller frånkopplat. Jag har lyckats dra en kabel från larmcentralen, 12V ut om larmet är tillkopplat. Nu undrar jag bara hur jag kan läsa av via VB om det ligger 12V på eller inte.

Jag antar att jag behöver någon komponent mellan kabeln och COM eller PLL porten.

Tacksam för all hjälp.

// Jompa

Hej
Om du har GamePort/JoyStick på datorn så är den absolut bäst.
Motståndskoppla dina 12 v så att det ligger 5 Volt över
det ena motståndet. 33 Kohm i serie med 15 Kohm tex.
Det säkraste är nog att lägga en Zenerdiod på 5 volt
parallellt över 15 Kohom motståndet.

Denna spänning lägger du på pinne 2 i GamePorten
och läser av adress 513 decimal.
Du kan också använda parallellporten pinne tex 11 eller 10
Kolla mitt uppskick Programarkivet:Parallellport experiment

ungefär så.
Sven

Ok, skulle det fungera att skicka in 2,5V och läsa av det på pinne 2 (gameport)?

Hej
>Ok, skulle det fungera att skicka in 2,5V .
Nej 2.5 är för lite du bör komma över 4.5 volt

DS

ok, jag har kollat lite på ditt program....

jag är inte så himla bra på programering så jag har en liten fråga....
har skrivit följande i mitt program:

<code>
Private Declare Function DlPortReadPortUchar Lib "dlportio.dll" _
(ByVal Port As Long) As Byte

Private Sub Command1_Click()
Dim portAdr As Long
portAdr = "888"

Text1.Text = DlPortReadPortUchar(portAdr)

End Sub

</code>

Jag får ut: 170
Vad är det för värde jag får ut av detta, och hur ser jag om PIN 11 är 1 eller 0 ?

// jompa

Hej
Om du vill läsa pinne 11 skall du ändra adress till 889
Då kommer du att läsa 127 när pinnen är hög och 255
när den är låg.Nu är det lite mer komlicerat än så
I mitt exempel förutsätter jag att det inte finns mer än
pinne 11 kopplad.Om tex printer ligger på samma port
samtidigt blir det något annt.
Du skall koncentrera dig på pinne 25 Jord och 11 Busy
Om du försiktigt med en tråd lägger pinne 11 till jord
kommer du att läsa 255 när du tar bort tråden läser du 127.
Dvs du skall lägga dina 5 v + på pinne 25 och 5v - på 11
för att få de resultat jag skriver om.
Om du har gameport rekommenderar jag den läs adress 513
kolla Enhetshanteraren vilken adress du har jostick ingången på
På min dator ligger Joysticken på adress 520
GamePort kan ligga på adress 513 - 520.

Återkom gärna
Mvh
Sven

Hej igen
Lite synpunkter på variabler så här skall det vara

Private Sub Command1_Click()
Dim portAdr As Long
portAdr = 889
Label1.Caption = DlPortReadPortUchar(portAdr)
End Sub

DS

Ok, nu är jag med.....en annan fråga...

om jag skickar "100" till 888 så stannar värdet om jag läser det, men om jag skickar "0" så ändras värdet till 170 efter några sekunder.

Varför blir det såhär?

Hej igen
> 0 och 170
Så blir det inte hos mig,testade precis.Du har förmodligen
Printer eller något annat anslutet på porten. Eller ?
En annan sak om du väljer pinne 11 ellerGamePorten
bör du göra så här istället , inhandla en Optokopplare
som du styr med dina 12 volt .Optokopplarens sekundär skall
anslutas över pinne 25 - 11 på parallellporten
pinne 2 - 4 på GamePorten

Optokopplare TIL 111 elle TIL 112 från Elfa bör duga bra.

DS

Jag tackar hemskt mycket för all hjälp....

jag måste bara fråga, det var någon som skrev här i forumet att man kan bränna PLL-porten om man tex sätter en lysdionpå en +5V pinne.

Stämmer detta?

// Jompa

Hej
Förr kunde det vara så ,nu är utportpinnarna kortslutningssäkra.
Men en Varning ! pinne 1 tål inte att kortslutas.
Så alltid ! förkoppla lysdioden med ett motstånd på 470 ohm.
Du skall ha en lysdiod som tänder vid 2 - 5 volt
Alltså pinne - lysdiods plusben(Anod) - lysdiod minussida- 470 motstånd
-pinne 25 som är jord.

Men OBS OBS du skall aldrig använda skärmkåpan på kontaktdonet
som signaljord.På den ligger hela datorns spänningsystem.

Om du vill ha lysdioder på alla datapinnar (2-9 )skall du, (det kan du
förresten alltid göra) bygla pinne 18 - 25 som är signaljordar för 2-9
(koppla ihop som gemensam jord - )

mvh
Sven

Hej
Som avslutning rekommenderas att läsa denna artikel.
Programmeringsteknik mot Parallellporten.

http://www.hut.fi/Misc/Electronics/circuits/parallel_output.html

DS

Kopplat och klart.... alla värden verkar stämma...

Jag tackar högaktningsfullt för all hjälp SvenPon....

// Jompa