Visual basic i LPT. Program włączający i wyłączający pin.

Question

Witam wszystkich

Mam problem, chcialbym napisac prosty program (visual basic), ktory ma za zadanie wlaczac i wylaczac pin z okreslona czestotliwoscia. Skorzystalem z biblioteki inpout32.dll, która z odczytywaniem i wysylaniem danych na port radzi sobie doskonale. Program mialby sluzyc do testow, np ewentualne podlaczenie glosniczka przez przekaznik i sprawdzenie czy będzie slychać pisk.

pozdrawiam wszystkich
jeff__

Piotrek.pxf · Accepted Answer

Nie za bardzo wiem, jak ty chcesz ten przekaźnik zamontować? Czy ma on się przełączać z częstotliwością akustyczną głośnika? Od razu mówię, że nie będzie to działać i upalisz port bez dodatkowego zasilania

A częstotliwość zmian stanu na pinie z LPT możesz zrobić w VB używająć kontrolkę Timera. Wrzucasz ją do programu i piszesz coś, co pozwala zmianiać wartość Interval (im większy odstęp pomiędzy "tyknięciami" zegara, tym mniejsza częstotliwość.
Jeśli nie umiesz sobie pordzić nadal z VB to napisz, to ci zrobię przykładowy program jakiś.

Pozdrawiam

Piotrek.pxf · Accepted Answer

Wstaw jakiś kondensator pomiędzy bazę tranzystora i masę. Około 100nF-1µF.
Przy 1ms na Timerze częstotliwość na tranzystorze będzie wynosiła około 500Hz, więc nie za wiele. Timer w VB nie jest dokładnym czasomierzem, więc nie wytworzysz nim idealnego sygnału.
Port LPT nie jest dobrym generatorem dźwięku. Lepiej zbudować osobne urządzenie.

sivex · Accepted Answer

Zerknij równiez tu : Do czestotliwosci mozesz wykorzystac petle programu. Mozna wycisnac wieksze osiagi. pozdrawiam.

jeff__ · Answer

Jak bys mogl rzucic tym kodem to bylbym wdzieczny. i dzieki za pomoc. pozdrawiam jeff__

Piotrek.pxf · Answer

Głośnik podłączyłeś do pinu 4 (D2), więc dla stanu wysokiego wysyłasz na port liczbę 4 (czyli 00000100). Równie dobrze mógłbyś wysłać 100, ale nie ma potrzeby generować danej częstotliwości na pozostałych pinach.
Dajesz do Form1 kontrolkę Timer1 i ustawiasz jej wartość Interval na ok 10 (wartość 20ms w Timerze wygeneruje na głośniku częstotliwość 25Hz, niżej już może być ciężko coś usłyszeć, więc wartości Interval powinny być 1-20ms).
To tak uzupełniając naszą rozmowę na gg.

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Const hg As Single = 4
Const lw As Single = 0

Option Explicit
Const PORT = &H378
Dim on_off As Boolean

Private Sub Form_Load()
 on_off = False
End Sub

Private Sub Timer1_Timer()
If on_off Then
  Out PORT, hg
  on_off = False
Else
  Out PORT, lw
  on_off = True
End If
End Sub

jeff__ · Answer

Ciesze sie bardzo, ze umiesciles kod źródłowy programu, niech inni tez skorzystaja.

Tylko zauwazylm ze nie dziala za dobrze, glosniczek pyrka przy 1 ms, nie wiem co jest grane moze kwestia podlaczenia (kondensator ??).

73!
jeff__

jeff__ · Answer

Sprobuje z tym kondkiem miedzy baza a masa, jak pomoze to dam znac, zreszta jak nie to tez . Sivex dzieki za porady.

Visual basic i LPT. Program włączający i wyłączający pin.

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu