Hardware-AnstauerungHi,

[Cap-Schildi]

Hardware-Anstauerung

Hi
bei mir gibt es folgendes Problem:
Ich will, dass unter einen bestimmten Bedingung meine Hardware angestuert wird.

Private Sub Command1_Click()
RTS 1
Picture1.BackColor = &HFF00&
End Sub

Private Sub Command2_Click()
RTS 0
Picture1.BackColor = &HC0C0C0
End Sub

Private Sub Command3_Click()
DTR 1
Picture2.BackColor = &HFF00&
End Sub

Private Sub Command4_Click()
DTR 0
Picture2.BackColor = &HC0C0C0
End Sub

Private Sub Command5_Click()
TXD 1
Picture3.BackColor = &HFF00&
End Sub

Private Sub Command6_Click()
TXD 0
Picture3.BackColor = &HC0C0C0
End Sub

Private Sub Form_Load()
If App.PrevInstance Then
msg$ = App.EXEName & " wurde bereits gestartet "
MsgBox msg$, 48
End
End If
i = OPENCOM("COM1:")
If i = 0 Then
i = OPENCOM("COM2:")
Option2.Value = True
End If
If i = 0 Then MsgBox ("Schnittstelle nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub

Private Sub Form_Unload(Cancel As Integer)
CLOSECOM
End Sub

Private Sub Option1_Click()
i = OPENCOM("COM1:")
If i = 0 Then MsgBox ("COM1 nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub

Private Sub Option2_Click()
i = OPENCOM("COM2:")
If i = 0 Then MsgBox ("COM2 nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub

Das ist ein Beispielscript, was ich von der Firma erhlten hatte. Das soll ein Sript sein, womit die 3 Schalter des Boards aktiviert und deaktiviert werden.
Das Peoblem was ich jetzt hab: wie ist der code, womit ich den schalter anschalte, und wie ist der Code womit ich ihn ausschalte.
weiterhin muss noch eine .dll eingefügt bzw. verlinkt werden, wo einige sachen definiert sind, zur ansteuerung des boards.

 

[RamonR]

Ganz klar ist mir noch nicht worauf Du hinaus willst, aber folgendes kann ich Dir schon mal sagen:

Neben diesem Quellcode brauchst du noch ein Form (Formular) in dem 5 Command-Buttons (Command 1 bis Command 5) liegen. Ein Klick auf einen dieser Buttons verursacht dann die Veränderung einer Steuerleitung der ser. Schnittstelle.

Klick auf Command1 -> RTS geht nach 1
Klick auf Command2 -> RTS geht nach 0
usw.


Beschreib Deine weiteren Probleme mal etwas genauer.

 

[Cap-Schildi]

hmm okay
also ich habe folgendes vor,:
wenn eine bestimmte bedingung erüllt wird (z.B. wetter=)schön) soll ein schalter aktiviert werden.
wenn das wetter z.b. wieder schlecht wär, sollte der schalter ausgehen.
udn ich weiß jetzt net welchen einzelnen code.schnipsel ich da verwenden sol, wiel ich absoluter bin was VB angeht

 

[Cap-Schildi]

ok machen wir es so:
was von dem obien script brauch ich, damit wenn ich das programm starte (ohen irgendwelche knöbbe oder so) der schalter DTR auf 1 gesetzt wird.

 

[RamonR]

Vielleicht hilft Dir folgendes weiter, ich hab aber leider keine Zeit es zu testen, daher keine Garantie. Folgenden Code in ein Modul einfügen:

Declare Function OPENCOM Lib "RSAPI" (ByVal A$) As Integer

public sub main()

OPENCOM ("COM2:9600,N,8,1")      ' Hier kannst du eintragen welcher Port benutzt werden soll (COM1, COM2, usw)

DTR = 1     ' Setzte DTR auf 1

CLOSECOM     ' Schließe Port

end sub

Du brauchst zusätzlich noch die Datei "RSAPI.DLL ".

 

[Cap-Schildi]

ok vielen dank.
man mss noch einbsichen was hinzufügen dann geht es.
aber nochmal vielen dank.