Mehrere Variablem prüfen

  • VB6

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von AaronR.

    Mehrere Variablem prüfen

    Hallo Leute

    Gleich am Anfang, ich nutze VB 6.0. Ich denke, dass ich aber in meinem fall in den neueren versionen nicht viel geändert hat. Mein problem ist:
    Ich habe drei Variablen (bsp: Var1, Var2, Var3) und möchte diese ALLE in einer if...then schaltung prüfen. Ich habe es getestet, mit komma zu trennen, also so ca:
    If Var1=0, Var2=0, Var3=1 then ...
    Das hat aber nicht funktioniert. Kann man verstehen, was mein problem ist? Ich möchte, dass wenn ddiese Variablen zusammen dieses "muster" betragen dass dann etwas passiert. Eine einzelne Variable abzufragen ist kein Problem. Mir geht es aber darum, ob es iwie möglich ist, mehrere Variablen in einem Schritt zu prüfen.
    Danke schon mal im Vorraus auf alle Antworten. Und falls ihr es nicht in VB 6.0 sondern in einer neueren Version wisst, freue ich mich trozdem, das kann ich dann ja testen :D

    Aaron

    AaronR schrieb:

    mehrere Variablen in einem Schritt zu prüfen
    geht so:

    VB.NET-Quellcode

    1. If a AndAlso b AndAlso c Then ' dann, wenn alle drei True sind
    2. Endif

    VB.NET-Quellcode

    1. If Not a AndAlso Not b AndAlso Not c Then ' dann, wenn alle drei False sind
    2. Endif

    VB.NET-Quellcode

    1. If a OrElse b OrElse c Then ' dann, wenn eine von dreien True ist
    2. Endif

    VB.NET-Quellcode

    1. If Not a OrElse Not b OrElse Not c Then ' dann, wenn eine von dreien False ist
    2. Endif
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen Dank! Jetzt habe ich aber noch ein anderes problem. Wenn ich das Programm starte, kommt die Meldung "Else ohne If".

    Public Sub Timer1_Timer()
    Dim dat As Integer
    Dim i As Integer

    dat = ModUSB.RdPort1()
    EinByte = ModUSB.binär(dat)

    If eingang(1) = True Then Command1_Eing1 = 1
    ElseIf eingang(2) = True Then Command1_Eing2 = 1
    End If
    End Sub


    Das mit dem Eing1 sind Variablen, die ich erstellt habe. Ich habe auch ein Modul hinzugefügt, welches ich für das Interface benötige. Wisst ihr, was ich ändern muss, damit diese Meldung nicht mehr kommt?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „AaronR“ ()

    du könntest soweit ich weiß auch gleich

    Visual Basic-Quellcode

    1. If eingang(1) = True Then
    2. Command1_Eing1 = 1
    3. Else
    4. Command1_Eing2 = 1
    5. End if

    schreiben. So wie du oben schreibst muss zum schluss ja immer ein noch ein else kommen.

    EDIT: sry hab mich verlesen :S habs mal korrigiert
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Snaptu“ ()

    Ich sehe gerade, dass ich mich hier oben vertippt habe. Weist du, was jetzt falsch ist? Ich möchte nämlich, dass die Variablen oben immer den wert haben, die der Eingang hat. Deshalb habe ich das geändert :D ( in der zweiten Reiche das Command1_Eing1 in Command1_Eing2). Außerdem habe ich 4 eingänge, wobei ich das dann ja beliebig erweitern könnte.

    Dann würd ich mich eher mit Select....Case auseinandersetzen.

    So wie du es jetzt hats müsste die Abfrage mit einem Else aufhören soweit ich das kenne, also so:

    Visual Basic-Quellcode

    1. If eingang(1) = True Then
    2. Command1_Eing1 = 1
    3. ElseIf eingang(2) = True Then
    4. Command1_Eing2 = 1
    5. ElseIf eingang(3) = True Then
    6. Command1_Eing3 = 1
    7. Else
    8. Command1_Eing4 = 1
    9. End If


    bin in VB6 nicht so fit, ich würd sowieso wie oben geschrieben Select...Case verwenden.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Select...Case würde dann so aussehen:

    Visual Basic-Quellcode

    1. Dim Eingang as Integer = 2
    2. Select Case Eingang
    3. Case 1
    4. Command1_Eing1 = 1
    5. Case 2
    6. Command1_Eing2 = 1
    7. Case Else
    8. Command1_Eing3 = 1
    9. End Select
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Snaptu“ ()

    Also es funktioniert immer noch nicht so recht. Mein lehrer hat uns ein Blatt mitgegeben, wo drauf steht, wie man einen timer abfragt. Den timer habe ich richtig aktiviert, und alles richtig abgeschrieben. Ich habe jetzt eewig gegooglet, rumprobiert, leute angerufen. Könnt ihr vllt bitte mal drüber schauen wo da der fehler liegt? Immer noch die gleiche Fehlermeldung "Else ohne If"

    Private Sub Timer1_Timer()
    Dim Dat As Integer

    'Eingangsbyte lesen
    Dat=ModUSB.RdPort1()
    EinByte=ModUSB.binär(Dat)

    If eingang(1)=True Then Call vw
    ElseIf eingang(2)=True Then Call rw
    ...
    End If
    End Sub

    (Das ... habe ich nicht abgetippt, so steht es auf dem blatt, dass man es so weiter führen kann)
    Das wars. Ich habe es umgeschrieben, das variablen geändert werden, aber selbst, wenn ich es genau so eintippe, die anderen Programme (vw und rw) erstellt habe, kommt immer noch diese Meldung. Ich bin am verzweifeln. Kann mir bitte jemand helfen?
    Danke

    mal abgesehen davon das ich den Lehrer fragen würde ob er nicht ins Jahr 2015 wechseln möchte und wieso er euch VB6 anstelle .NET Aufgaben mitgibt.

    Bei mir geht das eigentlich wunderbar:

    VB.NET-Quellcode

    1. Dim s As String = Console.ReadLine()
    3. If s = "Hallo" Then
    4. Console.WriteLine("Hallo Hugo")
    5. ElseIf s = "Wie gehts?" Then
    6. Console.WriteLine("Danke mir geht es gut")
    7. End If
    8. Console.ReadLine()


    mal abgesehen davon, wo kommt den er Eingang() her? bzw. wieso bedankst du dich für Select Case und nutzt es dann nicht? oder darfst du es nicht nutzen?
    Ich würd halt mal auch nach dem then ein "Enter" reinmachen.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Snaptu“ ()

    Soo Leute, habe das Programm jetzt fertig geschrieben...Ich schicke euch hier mal, wie ich es jetzt gemacht habe :D

    Visual Basic-Quellcode

    1. Public Sub Command1_Click()
    2. AllesAus 'Displaytest
    3. warte 0.1
    4. ausgang 1, 1
    5. warte 0.1
    6. ausgang 2, 1
    7. warte 0.1
    8. ausgang 3, 1
    9. warte 0.1
    10. ausgang 4, 1
    11. warte 0.1
    12. ausgang 5, 1
    13. warte 0.1
    14. ausgang 6, 1
    15. warte 0.1
    16. ausgang 7, 1
    17. warte 0.1
    18. ausgang 8, 1
    19. warte 0.5
    20. AllesAus
    21. warte 0.1
    22. Call WR
    23. End Sub
    25. Public Sub WR()
    26. summe = 0 'Alle Variablen auf 0
    27. Eing1 = 0
    28. Eing2 = 0
    29. Eing3 = 0
    30. Eing4 = 0
    31. y = 0
    32. If eingang(1) = True Then Eing1 = 1 'Wenn Eingang=True wird der Variable ein bestimmter Wert zugewiesen
    33. If eingang(2) = True Then Eing2 = 2
    34. If eingang(4) = True Then Eing3 = 4
    35. summe = Eing1 + Eing2 + Eing3 'Variablen werden zusammengezählt
    36. If summe = 0 Then Call N 'Je dem Ergebnis wird eine Bestimmt WR aufgerufen
    37. If summe = 1 Then Call NO
    38. If summe = 2 Then Call O
    39. If summe = 3 Then Call SO
    40. If summe = 4 Then Call S
    41. If summe = 5 Then Call SW
    42. If summe = 6 Then Call W
    43. If summe = 7 Then Call NW
    44. End Sub
    47. Public Sub NO() 'Anzeige f. Windrichtungen
    48. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    49. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    50. ausgang 1, 0
    51. ausgang 2, 0
    52. ausgang 3, 1
    53. ausgang 4, 0
    54. ausgang 5, 1
    55. ausgang 6, 0
    56. ausgang 7, 1
    57. warte 0.5
    58. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    59. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    60. ausgang 1, 0
    61. ausgang 2, 0
    62. ausgang 3, 1
    63. ausgang 4, 1
    64. ausgang 5, 1
    65. ausgang 6, 0
    66. ausgang 7, 1
    67. warte 0.5
    68. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    69. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    70. ausgang 1, 0
    71. ausgang 2, 0
    72. ausgang 3, 0
    73. ausgang 4, 0
    74. ausgang 5, 0
    75. ausgang 6, 0
    76. ausgang 7, 0
    77. warte 0.5
    78. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    79. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    80. Call WR
    81. End Sub
    82. Public Sub O()
    83. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    84. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    85. ausgang 1, 0
    86. ausgang 2, 0
    87. ausgang 3, 1
    88. ausgang 4, 1
    89. ausgang 5, 1
    90. ausgang 6, 0
    91. ausgang 7, 1
    92. warte 1
    93. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    94. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    95. ausgang 1, 0
    96. ausgang 2, 0
    97. ausgang 3, 0
    98. ausgang 4, 0
    99. ausgang 5, 0
    100. ausgang 6, 0
    101. ausgang 7, 0
    102. warte 0.5
    103. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    104. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    105. Call WR 'Es wird zurück nach oben gesprungen
    106. End Sub
    107. Public Sub SO()
    108. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    109. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    110. ausgang 1, 1
    111. ausgang 2, 0
    112. ausgang 3, 1
    113. ausgang 4, 1
    114. ausgang 5, 0
    115. ausgang 6, 1
    116. ausgang 7, 1
    117. warte 0.5
    118. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    119. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    120. ausgang 1, 0
    121. ausgang 2, 0
    122. ausgang 3, 1
    123. ausgang 4, 1
    124. ausgang 5, 1
    125. ausgang 6, 0
    126. ausgang 7, 1
    127. warte 0.5
    128. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    129. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    130. ausgang 1, 0
    131. ausgang 2, 0
    132. ausgang 3, 0
    133. ausgang 4, 0
    134. ausgang 5, 0
    135. ausgang 6, 0
    136. ausgang 7, 0
    137. warte 0.5
    138. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    139. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    140. Call WR
    141. End Sub
    142. Public Sub S()
    143. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    144. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    145. ausgang 1, 1
    146. ausgang 2, 0
    147. ausgang 3, 1
    148. ausgang 4, 1
    149. ausgang 5, 0
    150. ausgang 6, 1
    151. ausgang 7, 1
    152. warte 1
    153. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    154. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    155. ausgang 1, 0
    156. ausgang 2, 0
    157. ausgang 3, 0
    158. ausgang 4, 0
    159. ausgang 5, 0
    160. ausgang 6, 0
    161. ausgang 7, 0
    162. warte 0.5
    163. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    164. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    165. Call WR
    166. End Sub
    167. Public Sub SW()
    168. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    169. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    170. ausgang 1, 1
    171. ausgang 2, 0
    172. ausgang 3, 1
    173. ausgang 4, 1
    174. ausgang 5, 0
    175. ausgang 6, 1
    176. ausgang 7, 1
    177. warte 0.5
    178. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    179. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    180. ausgang 1, 0
    181. ausgang 2, 0
    182. ausgang 3, 1
    183. ausgang 4, 1
    184. ausgang 5, 1
    185. ausgang 6, 0
    186. ausgang 7, 0
    187. warte 0.5
    188. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    189. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    190. ausgang 1, 0
    191. ausgang 2, 0
    192. ausgang 3, 0
    193. ausgang 4, 0
    194. ausgang 5, 0
    195. ausgang 6, 0
    196. ausgang 7, 0
    197. warte 0.5
    198. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    199. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    200. Call WR
    201. End Sub
    202. Public Sub W()
    203. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    204. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    205. ausgang 1, 0
    206. ausgang 2, 0
    207. ausgang 3, 1
    208. ausgang 4, 1
    209. ausgang 5, 1
    210. ausgang 6, 0
    211. ausgang 7, 0
    212. warte 1
    213. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    214. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    215. ausgang 1, 0
    216. ausgang 2, 0
    217. ausgang 3, 0
    218. ausgang 4, 0
    219. ausgang 5, 0
    220. ausgang 6, 0
    221. ausgang 7, 0
    222. warte 0.5
    223. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    224. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    225. Call WR
    226. End Sub
    227. Public Sub NW()
    228. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    229. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    230. ausgang 1, 0
    231. ausgang 2, 0
    232. ausgang 3, 1
    233. ausgang 4, 0
    234. ausgang 5, 1
    235. ausgang 6, 0
    236. ausgang 7, 1
    237. warte 0.5
    238. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    239. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    240. ausgang 1, 0
    241. ausgang 2, 0
    242. ausgang 3, 1
    243. ausgang 4, 1
    244. ausgang 5, 1
    245. ausgang 6, 0
    246. ausgang 7, 0
    247. warte 0.5
    248. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    249. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    250. ausgang 1, 0
    251. ausgang 2, 0
    252. ausgang 3, 0
    253. ausgang 4, 0
    254. ausgang 5, 0
    255. ausgang 6, 0
    256. ausgang 7, 0
    257. warte 0.5
    258. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    259. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    260. Call WR
    261. End Sub
    262. Public Sub N()
    263. If eingang(4) = True Then Zeita = Zeita + Second(Now)
    264. If eingang(4) = True Then Zeitb = Zeitb + Second(Now)
    265. ausgang 1, 0
    266. ausgang 2, 0
    267. ausgang 3, 1
    268. ausgang 4, 0
    269. ausgang 5, 1
    270. ausgang 6, 0
    271. ausgang 7, 1
    272. warte 1
    273. ausgang 1, 0
    274. ausgang 2, 0
    275. ausgang 3, 0
    276. ausgang 4, 0
    277. ausgang 5, 0
    278. ausgang 6, 0
    279. ausgang 7, 0
    280. warte 0.5
    281. Call WR
    282. End Sub
    284. Private Sub Command2_Click() 'Hier wird das Programm beendet
    285. AllesAus
    286. warte 1
    287. End
    288. End Sub
    290. Private Sub Form_Load()
    291. auto = False
    292. AllesAus
    293. Timer1.Interval = 100
    294. End Sub
    296. Private Sub Timer1_Timer()
    297. Dim dat As Integer
    298. Dim i As Integer
    300. dat = ModUSB.RdPort1()
    301. EinByte = ModUSB.binär(dat)
    303. If eingang(1) = True Then Eing1 = 1
    304. If eingang(2) = True Then Eing2 = 1
    305. If eingang(3) = True Then Eing3 = 1
    306. If eingang(4) = True Then Eing4 = 1
    307. End Sub



    Das "If eingang(4) = True Then Zeita = Zeita + Second(Now)" sollte zur bestimmung der Windgeschwindigkeit sein, ich habe das Programm als ich fast fertig war wieder umgeschrieben, weil mir einer der vier Eingänge am Interface kaputt gegangen ist und ich schon drei für die Windrichtung gebraucht habe. Das habe ich dann einfach drinnen gelassen :D

    Vielen Dank nochmal an alle, die mir geholfen haben, auch ernn ich es jetzt etwas anderst gemacht habe, als ich es am Anfang wollte :D

    LG Aaron

    Abgesehen davon das du dir alle = true Prüfungen einfach sparen kannst weil du schon nach true fragst indem du if eingang(1) schreibst
    ist der jetzige Code sicherlich für dich als Anfänger am verständlichsten weil du jede Situation einzeln abfragst. In der Praxis und mit dem nötigen Wissen
    wird der Code wahrscheinlich mind. um die Hälfte kürzer sein.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

Facebook
Telefonspende