Zitat:

Hallo! Funktionelle Blöcke? Du programierst offenbar nicht objektorientiert (Klassen), sondern erstellst Routinen.

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class MAIN
    Shared TempCPUValue As Single, TempMoBoValue As Single, TempGPUValue As _
      Single, ReceiveUSB As String
    Shared HPFCUpdateRequest As Byte = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1sec.Enabled = True
        GroupBoxPC.Text = Environment.MachineName
 
 
    End Sub
 
 
    Private Sub Timer1sec_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1sec.Tick
        WMITEMPERATURES()
        If HPFCUpdateRequest = 0 Then
 
        Else
 
        End If
 
 
    End Sub

Module Module1
 
    Public Sub WMITEMPERATURES()
 
        Dim p() As Process = Process.GetProcessesByName("OpenHardwareMonitor")
 
        If p.Length > 0 Then
            HStatusHWMonitor.Image = HPFCMonitor.My.Resources.Resources.BGreen
 
            Dim objMgmt As System.Management.ManagementObject
            Dim SensorName As New System.Management.ManagementObjectSearcher( _
              "root\OpenHardwareMonitor", "SELECT * FROM Sensor")
            For Each objMgmt In SensorName.Get
                If objMgmt("Name") = "CPUHPFC" Then
                    TempCPUValue = objMgmt("Value")
                    TempCPU.Text = objMgmt("Value") & " °C"
                End If
 
                If objMgmt("Name") = "MotherboardHPFC" Then
                    TempMoBoValue = objMgmt("Value")
                    TempMoBo.Text = objMgmt("Value") & " °C"
                End If
 
                If objMgmt("Name") = "GPUHPFC" Then
                    TempGPUValue = objMgmt("Value")
                    TempGPU.Text = objMgmt("Value") & " °C"
                End If
            Next
 
        Else
            StatusHWMonitor.Image = HPFCMonitor.My.Resources.Resources.BRed
        End If
    End Sub
 
End Module

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

aber was zu tun wenn du nichts lernen willst?

#Region

#Region "Meine Routinen"
 
    Public Sub Sub1()
 
    End Sub
 
 
    usw...
 
#End Region

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

triffts nicht so ganz; lernen beansprucht Zeit, die ich leider nicht hab

Zitat:

Und zum Tipp und den Vorschlägen wie du deinen Code verbessern könntest hast du nichts zu sagen und keine Fragen?

Ungültiger threadübergreifender Vorgang

Public Event DataReceived As SerialDataReceivedEventHandler

Do While SerialPort.BytesToRead() > 4
ReceiveUSB = SerialPort.ReadLine()

Partial Public Class MAIN

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist