wieder mal Vb

Re(7): wieder mal Vb

Somnatic — Tue, 18 Oct 2005 20:50:52 GMT

also direkt beim sprung kann er nicht hängenbleiben ...

es mus genau bei einer zeile sein ...

was passiert wenn du den breakpoint auf die erste zeile der IOOut setzt ?

Re(6): wieder mal Vb

hellraiser — Tue, 18 Oct 2005 19:10:23 GMT

Und zwar ist der Hänger drinnen, sobald er von der Private Sub Timer1.Timer() in die
IOout(dat) springen sollte, und somit die Leitungen aktualisiert werden sollten.

Habs oben im Text schon so ausgebessert.

Exe lässt sich erstellen, nur bleibt die hängen

Re(5): wieder mal Vb

Somnatic — Tue, 18 Oct 2005 10:54:10 GMT

ja, aber in welcher zeile bleibt er hängen ...

du kannst dich ja einzeln durchs programm durchsteppen .. dann siehst genau welche zeile das problem macht ...

könnt eine endlosschleife sein, oder eine methode die auf rückgabewerte wartet, ...

Re(4): wieder mal Vb

hellraiser — Tue, 18 Oct 2005 10:43:47 GMT

der hat sich schon erledigt,danke
jetz bleibts hängen

Re(3): wieder mal Vb

Somnatic — Tue, 18 Oct 2005 07:22:44 GMT

in welcher zeile kommt denn der object required fehler ?

Re(3): wieder mal Vb

hover — Tue, 18 Oct 2005 05:53:22 GMT

also passen MUSS es nicht, hab schon oft Fehler in Büchern/Zeitschriften gesehen. Desweiteren, verwenden die die gleiche VB Version wie du?

Re(2): wieder mal Vb

hellraiser — Tue, 18 Oct 2005 00:00:07 GMT

nein leider, der Source ist ja vom "Elektronik am Pc" Buch

Source MUSS so passen, habs schon hundertmal mitm Buch verglichen.
Aber immer der gleiche Object reqzired Fehler

Re: wieder mal Vb

Silence! — Mon, 17 Oct 2005 23:40:36 GMT

Fehlt da nicht nach dem

Timer

ein

End If

?

#edit: Bzw. wirds nach dem

next

nicht auch benötigt?

.

Re: wieder mal Vb

Silence! — Mon, 17 Oct 2005 23:40:36 GMT

Fehlt da nciht nach dem Timer ein End If ?

wieder mal Vb

hellraiser — Mon, 17 Oct 2005 23:34:59 GMT

Habe folgendes Programm zur Ansteuerung der seriellen Schnittstelle:

jedoch hängt sich das Programm nachm Starten leider auf, kA wieso.
Es lässt sich kein Button auswählen
Und zwar ist der Hänger drinnen, sobald er von der Private Sub Timer1.Timer() in die
IOout(dat) springen sollte, und somit die Leitungen aktualisiert werden sollten.

Source: (in der Form mit 8 Checkboxes und 2 Option)

--------------------------------------------
Private Sub Form_Load()

i = OPENCOM("COM4")
If i = 0 Then
   i = OPENCOM("COM5")
   Option1.Value = True
End If
If i = 0 Then MsgBox ("Com Interface Error")
TXD 0
RTS 0
DTR 0

Timer1.Interval = 100

End Sub
----------------------------------------
Sub IOout(Dat)
Bitvalue = 1
RTS 0

For n = 1 To 8
    If (Dat And Bitvalue) > 0 Then TXD 1 Else TXD 0
        DTR 1
        DELAY 0.005
        DTR 0
        Bitvalue = Bitvalue * 2
    Next n

  RTS 1
  DELAY 0.005
  RTS 0
End Sub
----------------------------------------------------
Private Sub Timer1_Timer()
TIMEINIT
Dat = 0
Dat = Dat + Check1.Value
Dat = Dat + Check2.Value * 2
Dat = Dat + Check3.Value * 4
Dat = Dat + Check4.Value * 8
Dat = Dat + Check5.Value * 16
Dat = Dat + Check6.Value * 32
Dat = Dat + Check7.Value * 64
Dat = Dat + Check8.Value * 128
IOout Dat
End Sub
-------------------------------------------------------------
ports.bas passt soweit.

wieder mal Vb

hellraiser — Mon, 17 Oct 2005 23:34:59 GMT

Habe folgendes Programm zur Ansteuerung der seriellen Schnittstelle:
Als Modul wird die ports.bas verwendet, die Port.dll befindet sich im Projektordner, und im Win System Ordner.

Wenn ich ausführen will, kommt Fehlermeldung: Object required 424
Im Debug Modus springt er hierbei auf die Zeile: Timer1.Interval = 100

Keine Ahnung wo hier der Fehler liegt.

Kann mit anderen Programm die Seriellen Ports einlesen (mit MScomm), jedoch pfunziwunzifunztatatut das hinausschreiben mit der bas hier nicht,wills aber damit versuchen.

Ideen? danke

Edit: bin zu blöd, habe den Timer in der Form vergessen

jedoch hängt sich das Programm nachm Starten leider auf, wiederum kA wieso.
Es lässt sich kein Button auswählen

Source: (in der Form mit 8 Checkboxes und 2 Option)

Private Sub Form_Load()

i = OPENCOM("COM4")
If i = 0 Then
   i = OPENCOM("COM5")
   Option1.Value = True
End If
If i = 0 Then MsgBox ("Com Interface Error")
TXD 0
RTS 0
DTR 0

Timer1.Interval = 100

End Sub

Sub IOout(Dat)
Bitvalue = 1
RTS 0

For n = 1 To 8
    If (Dat And Bitvalue) > 0 Then TXD 1 Else TXD 0
        DTR 1
        DELAY 0.005
        DTR 0
        Bitvalue = Bitvalue * 2
    Next n

  RTS 1
  DELAY 0.005
  RTS 0
End Sub

Private Sub Timer1_Timer()
TIMEINIT
Dat = 0
Dat = Dat + Check1.Value
Dat = Dat + Check2.Value * 2
Dat = Dat + Check3.Value * 4
Dat = Dat + Check4.Value * 8
Dat = Dat + Check5.Value * 16
Dat = Dat + Check6.Value * 32
Dat = Dat + Check7.Value * 64
Dat = Dat + Check8.Value * 128
IOout Dat
End Sub

Ports.bas:
Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Function READBYTE Lib "Port" () As Integer
Declare Sub DTR Lib "Port" (ByVal b%)
Declare Sub RTS Lib "Port" (ByVal b%)
Declare Sub TXD Lib "Port" (ByVal b%)
Declare Function CTS Lib "Port" () As Integer
Declare Function DSR Lib "Port" () As Integer
Declare Function RI Lib "Port" () As Integer
Declare Function DCD Lib "Port" () As Integer
Declare Sub DELAY Lib "Port" (ByVal b%)
Declare Sub TIMEINIT Lib "Port" ()
Declare Sub TIMEINITUS Lib "Port" ()
Declare Function TIMEREAD Lib "Port" () As Long
Declare Function TIMEREADUS Lib "Port" () As Long
Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)

wieder mal Vb

hellraiser — Mon, 17 Oct 2005 23:34:59 GMT

Habe folgendes Programm zur Ansteuerung der seriellen Schnittstelle:
Als Modul wird die ports.bas verwendet, die Port.dll befindet sich im Projektordner, und im Win System Ordner.

Wenn ich ausführen will, kommt Fehlermeldung: Object required 424
Im Debug Modus springt er hierbei auf die Zeile: Timer1.Interval = 100

Keine Ahnung wo hier der Fehler liegt.

Kann mit anderen Programm die Seriellen Ports einlesen (mit MScomm), jedoch pfunziwunzifunztatatut das hinausschreiben mit der bas hier nicht,wills aber damit versuchen.

Ideen? danke

Edit: bin zu blöd, habe den Timer in der Form vergessen

jedoch hängt sich das Programm nachm Starten leider auf, wiederum kA wieso.
Es lässt sich kein Button auswählen

Source: (in der Form mit 8 Checkboxes und 2 Option)

Private Sub Form_Load()

i = OPENCOM("COM4")
If i = 0 Then
   i = OPENCOM("COM3")
   Option1.Value = True
End If
If i = 0 Then MsgBox ("Com Interface Error")
TXD 0
RTS 0
DTR 0

Timer1.Interval = 100

End Sub

Sub IOout(Dat)
Bitvalue = 1
RTS 0

For n = 1 To 8
    If (Dat And Bitvalue) > 0 Then TXD 1 Else TXD 0
        DTR 1
        DELAY 0.005
        DTR 0
        Bitvalue = Bitvalue + 2
    Next n

  RTS 1
  DELAY 0.005
  RTS 0
End Sub

Private Sub Timer1_Timer()
TIMEINIT
Dat = 0
Dat = Dat + Check1.Value
Dat = Dat + Check2.Value + 2
Dat = Dat + Check3.Value + 4
Dat = Dat + Check4.Value + 8
Dat = Dat + Check5.Value + 16
Dat = Dat + Check6.Value + 32
Dat = Dat + Check7.Value + 64
Dat = Dat + Check8.Value + 128
IOout Dat
End Sub

Ports.bas:
Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Function READBYTE Lib "Port" () As Integer
Declare Sub DTR Lib "Port" (ByVal b%)
Declare Sub RTS Lib "Port" (ByVal b%)
Declare Sub TXD Lib "Port" (ByVal b%)
Declare Function CTS Lib "Port" () As Integer
Declare Function DSR Lib "Port" () As Integer
Declare Function RI Lib "Port" () As Integer
Declare Function DCD Lib "Port" () As Integer
Declare Sub DELAY Lib "Port" (ByVal b%)
Declare Sub TIMEINIT Lib "Port" ()
Declare Sub TIMEINITUS Lib "Port" ()
Declare Function TIMEREAD Lib "Port" () As Long
Declare Function TIMEREADUS Lib "Port" () As Long
Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)

wieder mal Vb

hellraiser — Mon, 17 Oct 2005 23:34:59 GMT

Habe folgendes Programm zur Ansteuerung der seriellen Schnittstelle:
Als Modul wird die ports.bas verwendet, die Port.dll befindet sich im Projektordner, und im Win System Ordner.

Wenn ich ausführen will, kommt Fehlermeldung: Object required 424
Im Debug Modus springt er hierbei auf die Zeile: Timer1.Interval = 100

Keine Ahnung wo hier der Fehler liegt.

Kann mit anderen Programm die Seriellen Ports einlesen (mit MScomm), jedoch pfunziwunzifunztatatut das hinausschreiben mit der bas hier nicht,wills aber damit versuchen.

Ideen? danke

Source: (in der Form mit 8 Checkboxes und 2 Option)

Private Sub Form_Load()

i = OPENCOM("COM4")
If i = 0 Then
   i = OPENCOM("COM3")
   Option1.Value = True
End If
If i = 0 Then MsgBox ("Com Interface Error")
TXD 0
RTS 0
DTR 0

Timer1.Interval = 100

End Sub

Sub IOout(Dat)
Bitvalue = 1
RTS 0

For n = 1 To 8
    If (Dat And Bitvalue) > 0 Then TXD 1 Else TXD 0
        DTR 1
        DELAY 0.005
        DTR 0
        Bitvalue = Bitvalue + 2
    Next n

  RTS 1
  DELAY 0.005
  RTS 0
End Sub

Private Sub Timer1_Timer()
TIMEINIT
Dat = 0
Dat = Dat + Check1.Value
Dat = Dat + Check2.Value + 2
Dat = Dat + Check3.Value + 4
Dat = Dat + Check4.Value + 8
Dat = Dat + Check5.Value + 16
Dat = Dat + Check6.Value + 32
Dat = Dat + Check7.Value + 64
Dat = Dat + Check8.Value + 128
IOout Dat
End Sub

Ports.bas:
Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Function READBYTE Lib "Port" () As Integer
Declare Sub DTR Lib "Port" (ByVal b%)
Declare Sub RTS Lib "Port" (ByVal b%)
Declare Sub TXD Lib "Port" (ByVal b%)
Declare Function CTS Lib "Port" () As Integer
Declare Function DSR Lib "Port" () As Integer
Declare Function RI Lib "Port" () As Integer
Declare Function DCD Lib "Port" () As Integer
Declare Sub DELAY Lib "Port" (ByVal b%)
Declare Sub TIMEINIT Lib "Port" ()
Declare Sub TIMEINITUS Lib "Port" ()
Declare Function TIMEREAD Lib "Port" () As Long
Declare Function TIMEREADUS Lib "Port" () As Long
Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)