eine umfrage programmieren

    • VB.NET

      eine umfrage programmieren

      hallo,

      ich hab mich jetzt mal hingesetzt und eine umfrage geschrieben, so wie ich es tun würde.
      auf das laden einer datei habe ich verzichtet - man möge mir verzeihen.

      nachdem das thema von Sch4k4l6397 gesperrt wurde poste ich mal meinen code hier.
      vielleicht kann jemand anders auch was damit anfangen.

      um den code - als ganzens - posten zu können werden alle controls im code erzeugt.

      ihr braucht dazu eine leere form und eine leere klasse

      code für die form

      VB.NET-Quellcode

      1. Public Class Form1
      3. 'spätere liste aller fragen
      4. Private questions As List(Of String())
      5. 'alle fragen einer jeden form als string - trennzeichen ','
      6. Private temp() As String = {"Frage 1,Frage 2,Frage 3,Frage 4,Frage 5", _
      7. "Frage 1,Frage 2,Frage 3,Frage 4,Frage 5", _
      8. "Frage 1,Frage 2,Frage 3,Frage 4,Frage 5", _
      9. "Frage 1,Frage 2,Frage 3,Frage 4,Frage 5", _
      10. "Frage 1,Frage 2,Frage 3,Frage 4,Frage 5"}
      11. Private answer(temp.Length - 1) As String
      13. Private WithEvents b As New Button
      15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      17. 'fragen teile und in die liste aufnehmen
      18. questions = New List(Of String())
      19. For i As Integer = 0 To temp.Length - 1
      20. questions.Add(temp(i).Split(","))
      21. Next
      22. b.Text = "Umfrage starten"
      23. b.Location = New Point(50, 50)
      24. b.Size = New Size(50, 50)
      25. Me.Controls.Add(b)
      26. End Sub
      28. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
      29. 'umfrage durchführen
      30. For i As Integer = 0 To temp.Length - 1
      31. Dim c As New Class1(questions(i), i)
      32. If c.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
      33. 'ok button gedrückt
      34. If c.Antwort <> -1 Then
      35. answer(i) = c.Antwort.ToString
      36. End If
      37. Else
      38. 'umfrage abgebrochen
      39. MessageBox.Show(Me, "Dein User hat die Umfrage abgebrochen")
      40. Exit For
      41. End If
      42. Next
      43. 'datei schreiben
      44. IO.File.WriteAllLines("c:\lol.txt", answer)
      45. 'anwendung beenden
      46. Me.Close()
      47. End Sub
      48. End Class

      code für die klasse

      VB.NET-Quellcode

      1. Public Class Class1
      2. Inherits Windows.Forms.Form
      4. Private WithEvents o As Button
      5. Private WithEvents c As Button
      7. Public Sub New(ByVal f As String(), ByVal n As Integer)
      8. Me.Text = "Umfrage " & n.ToString
      9. 'alle radiobutton erzeugen
      10. For i As Integer = 0 To f.Length - 1
      11. Dim r As New RadioButton
      12. r.Text = f(i)
      13. r.Tag = i
      14. r.Location = New Point(20, 20 + i * 20)
      15. Me.Controls.Add(r)
      16. Next
      17. 'jetzt einen abbrechen und einen ok button hinzufügen
      18. c = New Button
      19. c.Text = "Abbrechen"
      20. c.Location = New Point(100, 150)
      21. o = New Button
      22. o.Text = "OK"
      23. o.Location = New Point(50, 150)
      24. Me.Controls.Add(c)
      25. Me.Controls.Add(o)
      26. End Sub
      28. Private Sub InitializeComponent()
      29. Me.SuspendLayout()
      30. '
      31. 'Class1
      32. '
      33. Me.ClientSize = New System.Drawing.Size(292, 266)
      34. Me.Name = "Class1"
      35. Me.ResumeLayout(False)
      37. End Sub
      39. Private Sub c_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles c.Click
      40. DialogResult = Windows.Forms.DialogResult.Cancel
      41. Me.Close()
      42. End Sub
      44. Private Sub o_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles o.Click
      45. For Each c As Control In Me.Controls
      46. If TypeOf c Is RadioButton Then
      47. Dim r As RadioButton = CType(c, RadioButton)
      48. If r.Checked = True Then
      49. answer = r.Tag
      50. End If
      51. End If
      52. Next
      53. DialogResult = Windows.Forms.DialogResult.OK
      54. Me.Close()
      55. End Sub
      57. Private answer As Integer = -1
      58. Public ReadOnly Property Antwort() As Integer
      59. Get
      60. Return answer
      61. End Get
      62. End Property
      63. End Class

      das ganze ist getestet und tut was es tun soll.

      kommentare dazu - sind jederzeit willkommen.

      gruss

      mikeb69

    Facebook
    Telefonspende