Programmcode vor dem Start von Form1 ausführen

  • VB.NET

Es gibt 112 Antworten in diesem Thema. Der letzte Beitrag () ist von ThuCommix.

    DL3AD schrieb:

    warum ist die sub leer ?

    Weil deine Klasse ACB_com ja auch keinen Inhalt im Konstruktor hat. Man BRAUCHT halt einen, ob der was macht, ist allerdings egal. Wenn man selber keinen anlegt, legt der Compiler allerdsings einen an, der ist dann aber "Public" und gerade das wollen wir ja nicht.

    Wo muss der Code stehen?

    In der Klasse, die nur einmal instanziert werden darf.

    Wo muss die Klasse EsKennNurEinenGeben instanziert werden ?

    In sich selbst, das ist ja der "Trick"

    ... was ist ein Single-Instance-Pattern ?

    Ein (programmatisches) Entwurfsmuster das dafür sorgt, dass es von einer Klasse immer nur genau EINE Instanz gibt.

    ... so habe ich nun die Klasse ACB_Com geändert

    VB.NET-Quellcode

    1. Imports System.IO.Ports
    3. Public Class ACB_Com
    4. Private _ACB_OK As Boolean
    5. Private _ACB_out As String
    6. Private _ACB_in As String
    7. Dim ACB_Port As New SerialPort()
    9. ReadOnly Property ACB_OK As Boolean
    10. Get
    11. Return _ACB_OK
    12. End Get
    13. End Property
    15. WriteOnly Property ACB_out As String
    16. Set(value As String)
    17. _ACB_out = value
    18. ACB_write_read()
    19. End Set
    20. End Property
    22. ReadOnly Property ACB_in As String
    23. Get
    24. Return _ACB_in
    25. End Get
    26. End Property
    28. Sub ACB_init()
    29. For Each ComPort As String In SerialPort.GetPortNames
    30. Try
    31. ACB_Port.PortName = ComPort
    32. ACB_Port.BaudRate = 9600
    33. ACB_Port.DataBits = 8
    34. ACB_Port.Parity = Parity.None
    35. ACB_Port.StopBits = StopBits.One
    36. ACB_Port.NewLine = ControlChars.Cr
    37. ACB_Port.Open()
    38. ACB_Port.WriteLine("X00")
    39. System.Threading.Thread.Sleep(50)
    40. If ACB_Port.ReadExisting = "X00" & ControlChars.Cr Then
    41. _ACB_OK = True
    42. Exit For
    43. Else
    44. ACB_Port.Close()
    45. _ACB_OK = False
    46. End If
    47. Catch ex As Exception
    48. End Try
    49. Next
    50. End Sub
    52. Sub ACB_write_read()
    53. ACB_Port.WriteLine(_ACB_out)
    54. System.Threading.Thread.Sleep(50)
    55. _ACB_in = ACB_Port.ReadExisting()
    56. System.Threading.Thread.Sleep(50)
    57. End Sub
    59. Private Shared _singleinstance As ACB_Com
    60. Private Sub New()
    61. End Sub
    63. Public Shared Function CreateInstance() As ACB_Com
    64. If _singleinstance Is Nothing Then
    65. _singleinstance = New ACB_Com
    66. End If
    67. Return _singleinstance
    68. End Function
    70. End Class



    und z.B. in der Form1 so aufgerufen

    VB.NET-Quellcode

    1. Public Class Form1
    3. ACB_com.CreateInstance
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. ACBPort.ACB_init()
    7. If ACBPort.ACB_OK = False Then
    8. MessageBox.Show("ACB nicht gefunden")
    9. Me.Close()
    10. End If
    11. End Sub
    13. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    14. ACBPort.ACB_out = "X00"
    15. Label1.Text = ACBPort.ACB_in
    16. End Sub
    18. End Class


    ... macht er aber nicht ???

    ... immer noch Fehler ;(

    VB.NET-Quellcode

    1. Public Class Form1
    2. ACBPort = ACB_Com.CreateInstance
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. ACBPort.ACB_init()
    6. If ACBPort.ACB_OK = False Then
    7. MessageBox.Show("ACB nicht gefunden")
    8. Me.Close()
    9. End If
    10. End Sub
    12. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    13. ACBPort.ACB_out = "X00"
    14. Label1.Text = ACBPort.ACB_in
    15. End Sub
    17. End Class

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

    Hallo,

    ich möchte eine Meldung ausgeben, dass mache ich mit

    VB.NET-Quellcode

    1. MessageBox.Show("Ref Rotor")


    Nun möchte ich dass wenn der Vorgang abgeschlossen ist, dass sich die MessageBox wieder selbst schließt bzw. mit einem Button die Aktion abbrechen können.
    Welche Möglichkeiten habe ich da ?

    DL3AD schrieb:

    Welche Möglichkeiten habe ich da ?

    Keine ;)

    Die Standard Messagebox blockiert das Programm (na ja den UI-Thread) und wartet darauf dass der Benutzer was tut. Wenn du was anderes willst musst du dir halt selber ne Form bauen, die dir als Messagebox dient und die mehr Funktionen hat. Ich meine sogar, hier im Forum gibts ein paar Sourcen dafür.

    EDIT zb hier: [Sonstige/Allgemein] Timeout für msgbox

Facebook