Alle allgemeinen Themen zu Elektronik und Elektro
Moderator: Moderatorengruppe
Visual Basic-Referenz: Fehlermeldungen
Die Anweisung ist in einem Namespace ungültig.
Statement is not valid in a namespace
Die Anweisung kann nicht auf Namespaceebene angezeigt werden. Die einzigen auf Namespaceebene zugelassenen Deklarationen sind Modul-, Schnittstellen-, Klassen-, Delegat-, Enumerations- und Strukturdeklarationen.
Fehler-ID: BC30001
So beheben Sie diesen Fehler
Verschieben Sie die Anweisung an einen Ort innerhalb einer Modul-, Klassen-, Schnittstellen-, Struktur-, Enumerations- oder Delegatdefinition.
' Ereignis auslösen durch kontakt an COM pin 4 <-> pin 2
Option Explicit
Private Sub Form_Load()
Dim Port As String
' port erfragen
Port = InputBox("Zu verwendene COM angeben." & vbCrLf & vbCrLf & _
"Zum Beispiel COM1 oder einfach 1")
'Port = "4"
If Port = "" Then End ' ungültig
If Len(Port) > 1 Then Port = Right(Port, 1) ' hat COM eingegeben
' mscommport einrichten
On Error GoTo errComOpen
MSComm1.CommPort = Val(Port) ' zu verwendendes port
MSComm1.Settings = "600,n,8,1" ' baudrate & co
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
Exit Sub
errComOpen:
MsgBox "FEHLER: Commport COM" & MSComm1.CommPort & " konnte nicht geöffnet werden", vbCritical
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False ' Port schiessen
End Sub
Private Static Sub MSComm1_OnComm() ' *** auf ereignis von mscomm reagieren
Dim RXD As String
Select Case MSComm1.CommEvent
Case comEvSend ' sende puffer jetzt leer (hier braucht nichts getan zu werden)
Case comEvReceive ' es wurden daten empfangen
Beep
MsgBox "Hallo Harry :-)"
RXD = MSComm1.Input ' nur pro forma einlesen
Case Else
MsgBox "FEHLER: Unbekannter Fehler oder Ereignis"
End Select
End Sub
was ja leider kein echtzeitbetriebssystem ist
hat hier wer ne idee wie ich die verarbeitungszeit des interrupt senken kann?
oder gibts ne andre möglichkeit wie ich das signal in den pc bekomm?
Zurück zu Elektronik Allgemein
Mitglieder in diesem Forum: Google [Bot] und 59 Gäste