MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Studio .NET (alle Produkte: C#, VB.NET etc.)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 10.01.2017, 15:51   #1
jbaben
Neuer Benutzer
Neuer Benutzer
Ärger VB - Visual Basic 2015: Problem mit "BC30188 Deklaration erwartet"

Hallo,

ich habe das Problem (Fehlermeldung B 30188) mit der Zeile A = (Input_Tuer_Kueche Or ......
in meinem folgenden Visual Basic 2015 Programm (bezieht sich auf Form1)
Code:

Public Class Form1
    Public Alarmzone_aa, Alarmzone_bb, Alarmzone_cc, Alarmzone_dd As Boolean

    Public Input_Tuer_Kueche, Input_Tuer_Eingang, Input_Eingangsbereich, Input_Kueche, Input_Gaeste_WC, Input_Korridor, Input_Arbeitszimmer, Input_Schlafzimmer, Input_Aussentuer_Wohnzimmer, Input_Wohnzimmer, Input_Gaestezimmer, Input_Panik_Taste_Kueche, Input_Panik_Taste_Wohnzimmer, Input_Tamper As Boolean
    Public A, B, C, D As Boolean


    A = (Input_Tuer_Kueche Or Not Tuer_Kueche_A) And (Input_Tuer_Eingang Or Not Tuer_Eingang_A) And (Input_Eingangsbereich Or Not Eingangsbereich_A) And (Input_Kueche Or Not Kueche_A) And (Input_Gaeste_WC Or Not Gaeste_WC_A) And (Input_Korridor Or Not Korridor_A) And (Input_Arbeitszimmer Or Not Arbeitszimmer_A) And (Input_Schlafzimmer Or Not Schlafzimmer_A) And (Input_Aussentuer_Wohnzimmer Or Not Außentuer_Wohnzimmer_A) And (Input_Wohnzimmer Or Not Wohnzimmer_A) And (Input_Gaestezimmer Or Not Gaestezimmer_A)


    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_Service.Click

        Me.Hide()
        'Me.Close()
        Form2.ShowDialog()


    End Sub

    Private Sub Button_Ende_Click(sender As Object, e As EventArgs) Handles Button_Ende.Click
        Form2.Close()
        Form3.Close()
        Form4.Close()
        End
    End Sub

    Private Sub Alarmzone_C_Click(sender As Object, e As EventArgs) Handles Alarmzone_C.Click
        Alarmzone_cc = True
        Alarmzone_aa = False
        Alarmzone_bb = False
        Alarmzone_dd = False
        Alarmzone_C.BackColor = Color.FromArgb(0, 255, 0)
        Alarmzone_A.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_B.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_D.BackColor = Color.FromArgb(255, 0, 0)
    End Sub

    Private Sub Alarmzone_D_Click(sender As Object, e As EventArgs) Handles Alarmzone_D.Click
        Alarmzone_dd = True
        Alarmzone_aa = False
        Alarmzone_bb = False
        Alarmzone_cc = False
        Alarmzone_D.BackColor = Color.FromArgb(0, 255, 0)
        Alarmzone_A.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_B.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_C.BackColor = Color.FromArgb(255, 0, 0)
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

    Public Sub Alarmzone_A_Click(sender As Object, e As EventArgs) Handles Alarmzone_A.Click
        'Dim Alarmzone_aa As Boolean
        Alarmzone_aa = True
        Alarmzone_bb = False
        Alarmzone_cc = False
        Alarmzone_dd = False
        Alarmzone_A.BackColor = Color.FromArgb(0, 255, 0)
        Alarmzone_B.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_C.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_D.BackColor = Color.FromArgb(255, 0, 0)

    End Sub

    Public Sub Alarmzone_B_Click(sender As Object, e As EventArgs) Handles Alarmzone_B.Click
        'Dim Alarmzone_bb As Boolean
        Alarmzone_bb = True
        Alarmzone_aa = False
        Alarmzone_cc = False
        Alarmzone_dd = False
        Alarmzone_B.BackColor = Color.FromArgb(0, 255, 0)
        Alarmzone_A.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_C.BackColor = Color.FromArgb(255, 0, 0)
        Alarmzone_D.BackColor = Color.FromArgb(255, 0, 0)
    End Sub
End Class
Ich habe doch die Variable "A" deklariert.

Dazu noch folgenden Hinweis:

Die Variable "A" ergibt sich aus den gesammelten Variblen aus verschiedenen Forms.

D.h. die Variable "A" soll also in einer "main" ausgewertet werden.

Ich (Änfänger mit Visual Studio 2015) weiß aber nicht wie ich das machen sollte, bzw. wo der Fehler liegt ?

MfG

Juergen B.

__________________

Visual Studio 2015
jbaben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 11:24   #2
jbaben
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Antwort gesucht

Hallo,

wo ist denn die Antwort von Stefan und daraufhin meine Antwort geblieben ?

MfG

Juergen B.

__________________

Visual Studio 2015
jbaben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2017, 15:57   #3
jbaben
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Sorry

Sorry,
ich habe mich im Forum vertan.

MfG

Juergen B.

__________________

Visual Studio 2015
jbaben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.02.2017, 16:48   #4
RPP
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

es liegt nicht daran das du die Variable nicht deklariert hast sondern daran das die Zeile
A=...
im Deklarationsbereich steht.

Du solltest sie in eine Sub oder Function verschieben (z.B. in Form1_Load)

Code:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        A = (Input_Tuer_Kueche Or Not Tuer_Kueche_A) And _
            (Input_Tuer_Eingang Or Not Tuer_Eingang_A) And _
            (Input_Eingangsbereich Or Not Eingangsbereich_A) And _
            (Input_Kueche Or Not Kueche_A) And _
            (Input_Gaeste_WC Or Not Gaeste_WC_A) And _
            (Input_Korridor Or Not Korridor_A) And _
            (Input_Arbeitszimmer Or Not Arbeitszimmer_A) And _
            (Input_Schlafzimmer Or Not Schlafzimmer_A) And _
            (Input_Aussentuer_Wohnzimmer Or Not Außentuer_Wohnzimmer_A) And _
            (Input_Wohnzimmer Or Not Wohnzimmer_A) And _
            (Input_Gaestezimmer Or Not Gaestezimmer_A)

End Sub
Mfg Richard P.
RPP ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:39 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.