Arrays

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Lupus.

    Arrays

    Hey,
    ich beschäftige mich schon seit etwas längerer Zeit mit VB 2005 sprich VB8.
    Jetzt habe ich angefangen, mein ca. 20. Programm zu schreiben.
    Es ist ein Quiz.
    Mir wurde der Tipp gegeben die Fragen & Antworten in Arrays zu spreichern.
    Früher habe ich für jede Frage ne eigene Form gemacht.
    Das blöde ist nur, ich habe mich mit Arrays noch nie so richtig auseinander gesezt.
    Kann mir mal jemand erklären wie Arrays funktioniern und vllt. n' Codeschnipsel zur Erklärung beifügen?

    Danke.
    Chris :)

    Am besten mit Klassen:

    VB.NET-Quellcode

    1. class Frage
    2. public Fragestellung as string
    3. public Antworten(4) as string
    4. private richtige_antwort as integer
    6. public sub Frage() 'Konstruktor
    7. me.Fragestellung = "Was ist richtig?"
    8. me.Antworten(0) = "A"
    9. me.Antworten(1) = "B"
    10. me.Antworten(2) = "C"
    11. me.Antworten(3) = "D"
    12. me.richtige_antwort = 0 'A ist richtig
    13. end sub
    14. end class
    16. class Quiz
    17. public Fragen(10) as Frage
    18. private aktuelle_Frage as integer
    20. public sub Quiz()
    21. Me.Fragen(0) = new Frage()
    22. '...
    23. Me.aktuelle_Frage = 0 '1. Frage
    24. end sub
    25. end class
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Dann also etwas so:

    VB.NET-Quellcode

    1. Class Frage
    2. Public Fragestellung As String
    3. Public Antworten(4) As String
    4. Private richtige_antwort As Integer
    6. Public Sub Frage(1) 'Konstruktor
    7. Me.Fragestellung = "Was ist richtig?"
    8. Me.Antworten(0) = "A"
    9. Me.Antworten(1) = "B"
    10. Me.Antworten(2) = "C"
    11. Me.Antworten(3) = "D"
    12. Me.richtige_antwort = 0 'A ist richtig
    13. End Sub
    14. Public Sub Frage(2) 'Konstruktor
    15. Me.Fragestellung = "Was ist hier richtig?"
    16. Me.Antworten(0) = "A"
    17. Me.Antworten(1) = "B"
    18. Me.Antworten(2) = "C"
    19. Me.Antworten(3) = "D"
    20. Me.richtige_antwort = 2 'C ist richtig
    21. End Sub
    22. End Class
    24. Class Quiz
    25. Public Fragen(10) As Frage
    26. Private aktuelle_Frage As Integer
    28. Public Sub Quiz()
    29. Me.Fragen(0) = New Frage()
    30. '...
    31. Me.aktuelle_Frage = 0 '1. Frage
    32. End Sub
    33. End Class


    Achso und noch eine Frage,
    ich möchte folgendes verwirklichen:

    VB.NET-Quellcode

    1. If Ein_Fenster_mit_folgendem_Namen_Existiert("Windows Media Player") Then
    2. Msgbox("Du hörst grade Musim durch den Windows Media Player")
    3. End If

    Ich möchte dass der Fenstername ermittelt wird, nicht der Prozess!
    Nur wie mach ich das oO

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

    das geht so:

    VB.NET-Quellcode

    1. For Each p As Process In Process.GetProcesses
    2. If p.MainWindowTitle = "Windows Media Player" Then
    3. MsgBox("...")
    4. Exit For
    5. End If
    6. Next


    falls du den genauen namen des titels nicht weißt dann kannst du auch instr benutzen ;)


    /edit:
    ah, dein quellcode ^^
    naja, du brauchst die frage in der klasse nur einmal hinschreiben. so wie agent das schon geschrieben hat (nur ich glaub in der klasse "frage" muss die variable "richtige_antwort" mit public deklariert werden und nicht mit private)
    wenn du die fragen "befüllen" willst dann machst du das einfach so:

    VB.NET-Quellcode

    1. Public Sub Quiz()
    2. Me.Fragen(0) = New Frage()
    4. Fragen(0).Fragestellung = "wo liegt deutschland?"
    5. Fragen(0).Antworten(0) = "amerika"
    6. Fragen(0).Antworten(1) = "auf dem mond"
    7. Fragen(0).Antworten(2) = "weiß ich nicht"
    8. Fragen(0).Antworten(3) = "in berlin"
    9. Fragen(0).richtige_antwort = 2
    12. '...
    13. Me.aktuelle_Frage = 0 '1. Frage
    14. End Sub

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

    Ich kenne den genauen Titel nicht, nur die ersten paar Buchstaben, wie benutze ich instr?
    Ich wünsche es mir so.

    VB.NET-Quellcode

    1. For Each p As Process In Process.GetProcesses
    2. If p.MainWindowTitle.begins = "Windo" Then
    3. MsgBox("...")
    4. Exit For
    5. End If
    6. Next

    naja, es gehört jetzt hier eigentlich nicht so hin. aber das würde dann so asusehen:



    VB.NET-Quellcode

    1. For Each p As Process In Process.GetProcesses
    2. If instr(p.MainWindowTitle, "Windo") = True Then
    3. MsgBox("...")
    4. Exit For
    5. End If
    6. Next


    übrigens habe ich oben per edit auf deine andere frage geantwortet ;)

    Thx erstmal.
    NUn hab ichs versucht, aber es hat nicht geklappt.
    Mein kompletter Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Killer()
    5. End Sub
    6. Sub Killer()
    7. For Each p As Process In Process.GetProcesses
    8. If InStr(p.MainWindowTitle, "CiD") = True Then
    9. p.Kill()
    10. Exit For
    11. End If
    12. Next
    13. End Sub
    14. End Class

    Hi,

    Ich habs auch mal probiert, es ging bei mir auch nicht. Dann hab ich ein bisschen rumgebastelt und es hat so funktioniert:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Killer()
    5. End Sub
    6. Sub Killer()
    7. For Each p As Process In Process.GetProcesses
    8. If p.MainWindowTitle.Contains("Edito") = True Then
    9. p.Kill()
    10. Exit For
    11. End If
    12. Next
    13. End Sub
    14. End Class


    (ich habs mit dem Editor versucht)

    Danke, funktioniert 1A :)
    Das mit dem Array hab ich übrings auch hinbekommen :P

    e:/ Na toll.
    Wollte grade das ausprobieren mit Editor.
    Hab gemacht "Ed" und schon wurde Mein Microsoft Visual Basic Express Edition gekillt.
    Dachte der würde nur die Anfangsbuchtsaben nehmen .__.
    Hab nix gespeichert.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Metal Freak“ ()

    Also bei deinem Code werden, wenn die Checkbox aktiviert ist, alle Prozesse, die im Titel den Inhalt der Textbox haben, geschlossen, wenn sie nicht aktiviert ist, wird nur der erste, der gefunden wird, geschlossen. Aber wo ist das Problem?
    Vielleicht funktioniert es bei dir nicht, weil Groß- und Kleinschreibung beachtet werden muss, versuch dann einfach mal

    VB.NET-Quellcode

    1. (...)
    2. If p.MainWindowTitle.ToLower.Contains(TextBox1.Text.ToLower) = True Then
    3. (...)

    Vielleicht löst das dein Problem.

    oh, des tut mir leid, immerhin bin ich indirekt schuld, sorry. ich hab ja "Edito" genommen, aber beim ersten mal ist mir das auch passiert...
    Was willst du jetzt mit dem Programm eigentlich machen?

    Hab mir schon gedacht das die Frage kommt :P
    Also es ist nur für Eigennutz, da ich alle 5 Minuten Werbung eingeblendet bekomme von "CiD" durch den IExplorer obwohl ich immer FF benutze.
    Auf jedenfall geht mir da ziemlich aufn Keks, besonders wenn ich zocke.
    Naja, desshlab wollte ich Tool schreiben, welches alle Fenster mit "CiD [....]" killt.

    Versuch doch das mal:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    4. Timer1.Interval = 500
    5. Timer1.Start()
    6. End Sub
    8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    10. For Each p As Process In Process.GetProcesses
    11. If p.MainWindowTitle.Contains("CiD") = True Then
    12. p.Kill()
    13. Exit For
    14. End If
    15. Next
    17. End Sub
    19. End Class


    Dann das ganze noch automatisch beim Windows-Start öffnen lassen und gleich verstecken und das müsste dann klappen

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

    Hab den Übeltäter gefunden.
    Es war sone Toolbar die ich mal instaliert habe.
    Hab erstmal deinstaliert.
    Jetzt kommt diese dumme Werbung nicht mehr :)
    Trozdem Großes Danke an dich Lupus.
    Durch deinen Lezten Beitragh wurde ich inspiriert für ein neues Projekt :>

Facebook
Telefonspende