Wie kann ich mit einem Buttonklick eine neue Klasse erstellen, so dass diese unumständlich an ihre Laufvariablen kommt? Volume-Meter

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartosz.

    Wie kann ich mit einem Buttonklick eine neue Klasse erstellen, so dass diese unumständlich an ihre Laufvariablen kommt? Volume-Meter

    Hi all,

    Was das Programm macht:
    Es stellt, in Abhängigkeit der Frequenz die Signalqualität dar. Diese ist an der Hauptfrequenz eines Senders am stärksten, links und rechts davon schwächer. Es gibt einen Wasserfall-Effekt, sodass alte Werte immer weiter nach unten wandern. Da ich noch keine Antenne und Elektronik habe, um UKW zu empfangen und zu verwerten, habe ich mir fürs Erste Messwerte ausgedacht. Sie stammen aus einer Excel-Tabelle und hören auf die Funktion
    $$ \frac{13\cdot x^{4}}{14000000000000}-\frac{1073\cdot x^{3}}{84000000000}+\frac{803\cdot x^{2}}{14000000}-\frac{8023\cdot x}{84000} $$
    , falls es jemand wissen will. Die 7080 Werte werden eingelesen. Ich habe die Messwerte absichtlich mit random.next etwas versaut, um Unterschiede besser sehen zu können. Die Signale links und rechts werden mit größerem Abstand zur Hauptfrequenz schwächer. Das sieht man sehr schön. Hier sind aktuell 5 Farben zu sehen.

    1.)
    In einem Timer_Tick werden die Laufindexe der jeweiligen Klassen erhöht. Wir reden derzeit von 5 Klassen. Danach PictureBox1.Invalidate(), aber asynchron. Das Thema hatten wir ja schon. Daher braucht es auch 5 Mal Klassex.Paint() in der Private Sub PictureBox1_Paint!
    Was passiert denn nun, wenn ich noch mehr Frequenzen haben möchte? Am besten per Button-Klick? Es geht mir darum, dass eine elektronische Schaltung ja noch viel, viel mehr Frequenzen bemerkt... Diese müssen auch als Wasserfall sichtbar sein, auch wenn man diese Frequenz aktuell gar nicht hört.

    2.) Könntet ihr bitte einmal drüberschauen, ob ich etwas besser machen kann?

    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    3. Imports System.Drawing.Drawing2D
    4. Public Class Form1
    5. Private Excel1 As New Microsoft.Office.Interop.Excel.Application
    6. Public S1 As New Signalvisualisierung(900)
    7. Public S2 As New Signalvisualisierung(895)
    8. Public S3 As New Signalvisualisierung(905)
    9. Public S4 As New Signalvisualisierung(890)
    10. Public S5 As New Signalvisualisierung(910)
    12. Private Werte_gelesen As Boolean = False
    13. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    14. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    15. End Sub
    17. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    18. If S1.dBm.Count = 0 OrElse S2.dBm.Count = 0 OrElse S3.dBm.Count = 0 Then Return
    19. Timer1.Start()
    20. End Sub
    22. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    23. Timer1.Stop()
    24. End Sub
    26. Private Sub Button_load_Excel_Click(sender As Object, e As EventArgs) Handles Button_load_Excel.Click
    27. Dim rand As New System.Random()
    28. Dim akt_Wert As Double = -100.0
    29. Dim txt As String
    30. If System.IO.File.Exists("C:\Users\Bartosz\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx") Then
    31. Excel1.Workbooks.Open("C:\Users\Bartosz\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx")
    32. For i As Integer = 2 To 7082 Step 1
    33. txt = Excel1.Range("B" & i.ToString).Value().ToString
    34. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    35. If Parse_Result Then
    36. akt_Wert += CDbl(rand.Next(0, 3))
    37. S1.dBm.Add(akt_Wert)
    38. S2.dBm.Add(akt_Wert - 2.0) 'Links und rechts von der Mitte wird das Signal schwächer (wie in echt).
    39. S3.dBm.Add(akt_Wert - 2.0)
    40. S4.dBm.Add(akt_Wert - 4.0)
    41. S5.dBm.Add(akt_Wert - 4.0)
    42. Else
    43. Debug.WriteLine("Fehler bei der Umwandlung")
    44. End If
    45. Next
    46. End If
    47. Excel1.Application.Quit()
    49. Werte_gelesen = True
    50. End Sub
    52. Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    53. S1.i += 1
    54. If S1.i > (S1.dBm.Count - 1) Then S1.i = 0
    55. S1.index_fuer_yPosition += 1
    56. If S1.index_fuer_yPosition > (S1.yPosition.Count - 1) Then S1.index_fuer_yPosition = 0
    58. S2.i += 1
    59. If S2.i > (S2.dBm.Count - 1) Then S2.i = 0
    60. S2.index_fuer_yPosition += 1
    61. If S2.index_fuer_yPosition > (S2.yPosition.Count - 1) Then S2.index_fuer_yPosition = 0
    63. S3.i += 1
    64. If S3.i > (S3.dBm.Count - 1) Then S3.i = 0
    65. S3.index_fuer_yPosition += 1
    66. If S3.index_fuer_yPosition > (S3.yPosition.Count - 1) Then S3.index_fuer_yPosition = 0
    68. S4.i += 1
    69. If S4.i > (S4.dBm.Count - 1) Then S4.i = 0
    70. S4.index_fuer_yPosition += 1
    71. If S4.index_fuer_yPosition > (S4.yPosition.Count - 1) Then S4.index_fuer_yPosition = 0
    73. S5.i += 1
    74. If S5.i > (S5.dBm.Count - 1) Then S5.i = 0
    75. S5.index_fuer_yPosition += 1
    76. If S5.index_fuer_yPosition > (S5.yPosition.Count - 1) Then S5.index_fuer_yPosition = 0
    78. Await Task.Run(Sub() PictureBox1.Invalidate())
    79. End Sub
    81. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    82. If Werte_gelesen Then
    83. S1.Paint(e.Graphics)
    84. S2.Paint(e.Graphics)
    85. S3.Paint(e.Graphics)
    86. S4.Paint(e.Graphics)
    87. S5.Paint(e.Graphics)
    88. End If
    89. End Sub
    90. End Class


    und die Klasse (der auskommentierte Block ist vom Probieren, kann auskommentiert bleiben)
    Falls ihr euch wegen HelligkeitA * 1.243 wundert, das kommt deswegen, weil die mathematische, lineare Funktion die Dezibelwerte in Helligkeitswerte umwandeln soll. Nun ist es aber so, dass der PictureBox-Hintergrund dunkelblau sein soll (RGB(0,0,50)) und das Signal nicht dunkler sein soll, als der Hintergrund ist (und somit mindestens 50 sein muss). Daher darf die Funktion maximal 205 ausspucken. Die Rot- und Grün-Werte dürfen aber gerne bis 255 nauf gehen.

    VB.NET-Quellcode

    1. Public Class Signalvisualisierung
    2. Public dBm As New List(Of Double)
    3. Public i As Integer = 0
    4. Public Frequenz_in_Hz As Integer
    5. Public yPosition As New List(Of Integer)
    6. Public index_fuer_yPosition As Integer = 0
    7. Public Sub New(ByVal Fr As Integer)
    8. Me.Frequenz_in_Hz = Fr
    9. For J As Integer = 0 To 1000 Step 10
    10. yPosition.Add(J)
    11. Next
    12. End Sub
    13. Public Sub Paint(ByVal g As Graphics)
    14. g.SmoothingMode = SmoothingMode.AntiAlias
    15. g.CompositingQuality = CompositingQuality.HighQuality
    16. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    17. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    19. 'Dim rect_Streifen As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(index_fuer_yPosition), 5, 10) 'zentral ← →
    20. ''mathematische Funktion g(x) = 2.5625 * x + 205 weil bei -80dBm die 50 sein soll und bei 0dBm die 205 (+50).
    21. ''Selbst bei schwächstem Signal erhalte ich kein Schwarz ;)
    22. 'Dim Helligkeit As Byte = CByte(Math.Round(2.5625 * dBm(i) + 205.0, 0))
    23. ' 'Form1.TextBox_Hell.Text = Helligkeit.ToString() & ", " & i.ToString() 'Kontrolle
    24. ' 'Form1.TextBox_Hell.Update()
    25. ' Dim R As Integer = CInt(Math.Round(Helligkeit * 1.243, 0))
    26. 'If R > 255 Then R = 255
    27. 'Dim Gr As Integer = CInt(Math.Round(Helligkeit * 0.4, 0))
    28. 'If Gr > 255 Then Gr = 255
    29. 'Dim B As Integer = 50 + Helligkeit
    30. 'If B > 255 Then B = 255
    31. '' 255 85 255
    32. 'Dim neue_Farbe As Color = Color.FromArgb(R, Gr, B)
    33. 'Using MyBrush = New SolidBrush(neue_Farbe)
    34. 'g.FillRectangle(MyBrush, rect_Streifen)
    35. 'End Using
    37. 'Je größer A wird, desto tiefer wird in die Vergangenheit geschaut. Weiter oben in PictureBox!
    38. 'Je öfter Invalidate() aufgerufen wird, desto weiter kommt die Schleife.
    39. For A As Integer = 0 To (yPosition.Count - 1) Step 1
    40. If (A) >= 0 AndAlso (A) < (yPosition.Count - 1) AndAlso (i - A) >= 0 Then
    41. Dim rect_StreifenA As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(A), 5, 10)
    42. Dim HelligkeitA As Byte = CByte(Math.Round(2.5625 * dBm(i - A) + 205.0, 0))
    43. 'Form1.TextBox_Hell.Text = HelligkeitA.ToString() & ", " & i.ToString() 'Kontrolle
    44. 'Form1.TextBox_Hell.Update()
    45. Dim Red As Integer = CInt(Math.Round(HelligkeitA * 1.243, 0))
    46. If Red > 255 Then Red = 255
    47. Dim Gre As Integer = CInt(Math.Round(HelligkeitA * 0.4, 0))
    48. If Gre > 255 Then Gre = 255
    49. Dim Bl As Integer = 50 + HelligkeitA
    50. If Bl > 255 Then Bl = 255
    51. Dim neue_FarbeA As Color = Color.FromArgb(Red, Gre, Bl)
    52. Using MyBrush = New SolidBrush(neue_FarbeA)
    53. g.FillRectangle(MyBrush, rect_StreifenA)
    54. End Using
    55. End If
    56. Next
    57. End Sub
    58. End Class
    Bilder

    • Screenshot 2020-11-23 002641.png

      36,4 kB, 900×657, 86 mal angesehen

    • Das meine ich - 5 mal dasselbe.png

      39,13 kB, 1.208×482, 75 mal angesehen

    Spekulatius/Schnellschuss, da zu müde: Statt S1, S2, S3, S4, S5 eine List(Of Signalvisualisierung), dann sollte der Wiederholungskram durch eine For- oder For-Each-Schleife ersetzbar sein.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ok, danke schonmal.
    Aber jetzt nehme ich mal einen Button her und tue so, als käme ein zweites Signal (siehe Button_load_excel_2_Click). Nicht aus Versehen bei Button_load_Excel_Click schauen, ist mir schon passiert

    Ich habe global Blanko-Klassen, die ich später mit New neu zuweise. Wie kann ich die bedienen? Erledigt, bitte bei Post 3 gucken!!!

    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    3. Imports System.Drawing.Drawing2D
    4. Public Class Form1
    5. Private Excel1 As New Microsoft.Office.Interop.Excel.Application
    6. Private meineKlassen As New List(Of Signalvisualisierung)
    7. Public S1 As New Signalvisualisierung(900)
    8. Public S2 As New Signalvisualisierung(895)
    9. Public S3 As New Signalvisualisierung(905)
    10. Public S4 As New Signalvisualisierung(890)
    11. Public S5 As New Signalvisualisierung(910)
    13. Public SB1 As Signalvisualisierung = Nothing
    14. Public SB2 As Signalvisualisierung = Nothing
    15. Public SB3 As Signalvisualisierung = Nothing
    16. Public SB4 As Signalvisualisierung = Nothing
    17. Public SB5 As Signalvisualisierung = Nothing
    18. Public SB6 As Signalvisualisierung = Nothing
    20. Private Werte_gelesen As Boolean = False
    21. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    22. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    24. meineKlassen.Add(S1)
    25. meineKlassen.Add(S2)
    26. meineKlassen.Add(S3)
    27. meineKlassen.Add(S4)
    28. meineKlassen.Add(S5)
    30. End Sub
    32. Private Sub Button_Timer_Start_Click(sender As Object, e As EventArgs) Handles Button_Timer_Start.Click
    33. For M As Integer = 0 To meineKlassen.Count - 1 Step 1
    34. If meineKlassen(M).dBm.Count = 0 Then Return
    35. Next
    36. Timer1.Start()
    37. End Sub
    39. Private Sub Button_Timer_Stopp_Click(sender As Object, e As EventArgs) Handles Button_Timer_Stopp.Click
    40. Timer1.Stop()
    41. End Sub
    43. Private Sub Button_load_Excel_Click(sender As Object, e As EventArgs) Handles Button_load_Excel.Click
    46. Dim rand As New System.Random()
    47. Dim akt_Wert As Double = -100.0
    48. Dim txt As String
    49. If System.IO.File.Exists("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx") Then
    50. Excel1.Workbooks.Open("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx")
    51. For i As Integer = 2 To 7082 Step 1
    52. txt = Excel1.Range("B" & i.ToString).Value().ToString
    53. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    54. If Parse_Result Then
    55. akt_Wert += CDbl(rand.Next(0, 3))
    56. S1.dBm.Add(akt_Wert)
    57. S2.dBm.Add(akt_Wert - 2.0) 'Links und rechts von der Mitte wird das Signal schwächer.
    58. S3.dBm.Add(akt_Wert - 2.0)
    59. S4.dBm.Add(akt_Wert - 4.0)
    60. S5.dBm.Add(akt_Wert - 4.0)
    61. Else
    62. Debug.WriteLine("Fehler bei der Umwandlung")
    63. End If
    64. Next
    65. End If
    66. Excel1.Application.Quit()
    67. Button_load_Excel.BackColor = Color.FromArgb(0, 200, 0)
    68. Werte_gelesen = True
    69. End Sub
    71. Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    72. For N As Integer = 0 To meineKlassen.Count - 1 Step 1
    73. meineKlassen(N).i += 1
    74. If meineKlassen(N).i > (meineKlassen(N).dBm.Count - 1) Then meineKlassen(N).i = 0
    75. meineKlassen(N).index_fuer_yPosition += 1
    76. If meineKlassen(N).index_fuer_yPosition > (meineKlassen(N).yPosition.Count - 1) Then meineKlassen(N).index_fuer_yPosition = 0
    77. Next
    78. Await Task.Run(Sub() PictureBox1.Invalidate())
    79. End Sub
    81. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    82. If Werte_gelesen Then
    83. For O As Integer = 0 To meineKlassen.Count - 1 Step 1
    84. meineKlassen(O).Paint(e.Graphics)
    85. Next
    86. End If
    87. End Sub
    89. Private Sub Button_load_excel_2_Click(sender As Object, e As EventArgs) Handles Button_load_excel_2.Click
    91. Dim rand As New System.Random()
    92. Dim akt_Wert As Double = -100.0
    93. Dim txt As String
    94. If System.IO.File.Exists("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx") Then
    95. Excel1.Workbooks.Open("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx")
    97. Dim Breite_in_Hertz As Integer = 30
    98. Dim wie_viele_Streifen_brauche_ich As Integer = Breite_in_Hertz \ 5
    100. For P As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    101. Dim Abweichung As Integer
    102. If P < (wie_viele_Streifen_brauche_ich / 2) Then
    103. Abweichung = -5
    104. ElseIf P > (wie_viele_Streifen_brauche_ich / 2) Then
    105. Abweichung = 5
    106. Else
    107. Abweichung = 0
    108. End If
    109. For Q As Integer = 0 To meineKlassen.Count - 1 Step 1
    110. If meineKlassen(Q) Is Nothing Then
    111. meineKlassen(Q) = New Signalvisualisierung(450 + Abweichung)
    113. Else
    114. Exit For
    115. End If
    116. Next
    118. Next
    120. For i As Integer = 2 To 7002 Step 1
    121. txt = Excel1.Range("B" & i.ToString).Value().ToString
    122. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    123. If Parse_Result Then
    124. akt_Wert -= CDbl(rand.Next(0, 3))
    125. SB1.dBm.Add(akt_Wert - 6.0)
    126. SB2.dBm.Add(akt_Wert - 3.0)
    127. SB3.dBm.Add(akt_Wert + 0.0)
    128. SB4.dBm.Add(akt_Wert + 0.0)
    129. SB5.dBm.Add(akt_Wert - 3.0)
    130. SB6.dBm.Add(akt_Wert - 6.0)
    131. Else
    132. Debug.WriteLine("Fehler bei der Umwandlung")
    133. End If
    134. Next
    135. End If
    136. Excel1.Application.Quit()
    138. Werte_gelesen = True
    139. End Sub
    140. End Class

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

    Dies ist nun mein Programm. Signal 1 ist fest von gestern, Signal 2 wird auf Knopfdruck dazugeschaltet.

    Ich würde mich freuen, wenn ihr eure Meinung dazu sagt. Mich stört es noch ein wenig, dass ich mehrere Klassen global "auf Halde" haben muss. Was mache ich denn für das dritte Signal :|

    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    3. Imports System.Drawing.Drawing2D
    4. Public Class Form1
    5. Private Excel1 As New Microsoft.Office.Interop.Excel.Application
    6. Private meineKlassen As New List(Of Signalvisualisierung)
    7. Public S1 As New Signalvisualisierung(900)
    8. Public S2 As New Signalvisualisierung(895)
    9. Public S3 As New Signalvisualisierung(905)
    10. Public S4 As New Signalvisualisierung(890)
    11. Public S5 As New Signalvisualisierung(910)
    12. Private bereits_verwendete_Klassen As Integer = 5
    13. Public SB1 As Signalvisualisierung = Nothing
    14. Public SB2 As Signalvisualisierung = Nothing
    15. Public SB3 As Signalvisualisierung = Nothing
    16. Public SB4 As Signalvisualisierung = Nothing
    17. Public SB5 As Signalvisualisierung = Nothing
    18. Public SB6 As Signalvisualisierung = Nothing
    20. Private Werte_gelesen As Boolean = False
    22. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    23. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    25. meineKlassen.Add(S1)
    26. meineKlassen.Add(S2)
    27. meineKlassen.Add(S3)
    28. meineKlassen.Add(S4)
    29. meineKlassen.Add(S5)
    30. meineKlassen.Add(SB1)
    31. meineKlassen.Add(SB2)
    32. meineKlassen.Add(SB3)
    33. meineKlassen.Add(SB4)
    34. meineKlassen.Add(SB5)
    35. meineKlassen.Add(SB6)
    37. End Sub
    39. Private Sub Button_Timer_Start_Click(sender As Object, e As EventArgs) Handles Button_Timer_Start.Click
    41. Timer1.Start()
    42. Button_Timer_Start.BackColor = Color.Green
    43. End Sub
    45. Private Sub Button_Timer_Stopp_Click(sender As Object, e As EventArgs) Handles Button_Timer_Stopp.Click
    46. Timer1.Stop()
    48. End Sub
    50. Private Sub Button_load_Excel_Click(sender As Object, e As EventArgs) Handles Button_load_Excel.Click
    52. Dim rand As New System.Random()
    53. Dim akt_Wert As Double = -100.0
    54. Dim txt As String
    55. If System.IO.File.Exists("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx") Then
    56. Excel1.Workbooks.Open("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte.xlsx")
    57. For i As Integer = 2 To 7082 Step 1
    58. txt = Excel1.Range("B" & i.ToString).Value().ToString
    59. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    60. If Parse_Result Then
    61. akt_Wert += CDbl(rand.Next(0, 3))
    62. S1.dBm.Add(akt_Wert)
    63. S2.dBm.Add(akt_Wert - 2.0) 'Links und rechts von der Mitte wird das Signal schwächer.
    64. S3.dBm.Add(akt_Wert - 2.0)
    65. S4.dBm.Add(akt_Wert - 4.0)
    66. S5.dBm.Add(akt_Wert - 4.0)
    67. Else
    68. Debug.WriteLine("Fehler bei der Umwandlung")
    69. End If
    70. Next
    71. End If
    72. Excel1.Application.Quit()
    73. Button_load_Excel.BackColor = Color.FromArgb(0, 200, 0)
    74. Werte_gelesen = True
    75. bereits_verwendete_Klassen = 5
    76. End Sub
    78. Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    79. For N As Integer = 0 To meineKlassen.Count - 1 Step 1
    80. meineKlassen(N).i += 1
    81. If meineKlassen(N).i > (meineKlassen(N).dBm.Count - 1) Then meineKlassen(N).i = 0
    82. meineKlassen(N).index_fuer_yPosition += 1
    83. If meineKlassen(N).index_fuer_yPosition > (meineKlassen(N).yPosition.Count - 1) Then meineKlassen(N).index_fuer_yPosition = 0
    84. Next
    85. Await Task.Run(Sub() PictureBox1.Invalidate())
    86. End Sub
    88. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    89. If Werte_gelesen Then
    90. For O As Integer = 0 To meineKlassen.Count - 1 Step 1
    91. If meineKlassen(O).dBm.Count > 0 Then
    92. meineKlassen(O).Paint(e.Graphics)
    93. End If
    94. Next
    95. End If
    96. End Sub
    98. Private Sub Button_load_excel_2_Click(sender As Object, e As EventArgs) Handles Button_load_excel_2.Click
    100. Dim rand As New System.Random()
    101. Dim akt_Wert As Double = -100.0
    102. Dim txt As String
    103. If System.IO.File.Exists("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx") Then
    104. Excel1.Workbooks.Open("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx")
    106. Dim Breite_in_Hertz As Integer = 30
    107. Dim wie_viele_Streifen_brauche_ich As Integer = Breite_in_Hertz \ 5
    109. For P As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    110. Dim Abweichung As Integer
    111. If P < (wie_viele_Streifen_brauche_ich / 2) Then
    112. Abweichung = -5
    113. ElseIf P > (wie_viele_Streifen_brauche_ich / 2) Then
    114. Abweichung = 5
    115. Else
    116. Abweichung = 0
    117. End If
    118. For Q As Integer = 0 To meineKlassen.Count - 1 Step 1
    119. If meineKlassen(Q) Is Nothing Then
    120. meineKlassen(Q) = New Signalvisualisierung(450 + Abweichung)
    121. bereits_verwendete_Klassen += 1
    122. Exit For
    123. End If
    124. Next
    125. Next
    127. For i As Integer = 2 To 7002 Step 1
    128. txt = Excel1.Range("B" & i.ToString).Value().ToString
    129. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    130. If Parse_Result Then
    131. akt_Wert -= CDbl(rand.Next(0, 3))
    132. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 0).dBm.Add(akt_Wert - 6.0)
    133. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 1).dBm.Add(akt_Wert - 3.0)
    134. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 2).dBm.Add(akt_Wert + 0.0)
    135. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 3).dBm.Add(akt_Wert + 0.0)
    136. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 4).dBm.Add(akt_Wert - 3.0)
    137. meineKlassen(bereits_verwendete_Klassen - 5 - 1 + 5).dBm.Add(akt_Wert - 6.0)
    138. Else
    139. Debug.WriteLine("Fehler bei der Umwandlung")
    140. End If
    141. Next
    142. End If
    143. Excel1.Application.Quit()
    144. Button_load_excel_2.BackColor = Color.FromArgb(0, 200, 0)
    145. Werte_gelesen = True
    146. End Sub
    147. End Class
    149. Public Class Signalvisualisierung
    150. Public dBm As New List(Of Double)
    151. Public i As Integer = 0
    152. Public Frequenz_in_Hz As Integer
    153. Public yPosition As New List(Of Integer)
    154. Public index_fuer_yPosition As Integer = 0
    155. Public Sub New(ByVal Fr As Integer)
    156. Me.Frequenz_in_Hz = Fr
    157. For J As Integer = 0 To 1000 Step 10
    158. yPosition.Add(J)
    159. Next
    160. End Sub
    161. Public Sub Paint(ByVal g As Graphics)
    162. g.SmoothingMode = SmoothingMode.AntiAlias
    163. g.CompositingQuality = CompositingQuality.HighQuality
    164. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    165. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    167. 'Dim rect_Streifen As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(index_fuer_yPosition), 5, 10) 'zentral ← →
    168. ''mathematische Funktion g(x) = 2.5625 * x + 205 weil bei -80dBm die 50 sein soll und bei 0dBm die 205 (+50).
    169. ''Selbst bei schwächstem Signal erhalte ich kein Schwarz
    170. 'Dim Helligkeit As Byte = CByte(Math.Round(2.5625 * dBm(i) + 205.0, 0))
    171. ' 'Form1.TextBox_Hell.Text = Helligkeit.ToString() & ", " & i.ToString() 'Kontrolle
    172. ' 'Form1.TextBox_Hell.Update()
    173. ' Dim R As Integer = CInt(Math.Round(Helligkeit * 1.243, 0))
    174. 'If R > 255 Then R = 255
    175. 'Dim Gr As Integer = CInt(Math.Round(Helligkeit * 0.4, 0))
    176. 'If Gr > 255 Then Gr = 255
    177. 'Dim B As Integer = 50 + Helligkeit
    178. 'If B > 255 Then B = 255
    179. '' 255 85 255
    180. 'Dim neue_Farbe As Color = Color.FromArgb(R, Gr, B)
    181. 'Using MyBrush = New SolidBrush(neue_Farbe)
    182. 'g.FillRectangle(MyBrush, rect_Streifen)
    183. 'End Using
    185. 'Je größer A, desto tiefer in die Vergangenheit. Weiter oben in PictureBox!
    186. 'Je öfter Invalidate() aufgerufen wird, desto weiter kommt die Schleife.
    187. For A As Integer = 0 To (yPosition.Count - 1) Step 1
    188. If A >= 0 AndAlso (i - A) >= 0 AndAlso Not dBm.Count = 0 Then
    189. Dim rect_StreifenA As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(A), 5, 10) 'zentral ← →
    190. Dim HelligkeitA As Byte
    191. If (2.5625 * dBm(i - A) + 205.0) < 0.0 Then
    192. HelligkeitA = 0
    193. Else
    194. HelligkeitA = CByte(Math.Round(2.5625 * dBm(i - A) + 205.0, 0))
    195. End If
    196. Dim Red As Integer = CInt(Math.Round(HelligkeitA * 1.243, 0))
    197. If Red > 255 Then Red = 255
    198. Dim Gre As Integer = CInt(Math.Round(HelligkeitA * 0.4, 0))
    199. If Gre > 255 Then Gre = 255
    200. Dim Bl As Integer = 50 + HelligkeitA
    201. If Bl > 255 Then Bl = 255
    202. Dim neue_FarbeA As Color = Color.FromArgb(Red, Gre, Bl)
    203. Using MyBrush = New SolidBrush(neue_FarbeA)
    204. g.FillRectangle(MyBrush, rect_StreifenA)
    205. End Using
    206. End If
    207. Next
    208. End Sub
    209. End Class

    Bilder

    • Screenshot 2020-11-23 161708.png

      19,86 kB, 1.919×655, 49 mal angesehen

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

    Bartosz schrieb:

    Ich würde mich freuen, wenn ihr eure Meinung dazu sagt. Mich stört es noch ein wenig, dass ich mehrere Klassen global "auf Halde" haben muss. Was mache ich denn für das dritte Signal

    Im FormLoad instanziieren und Add'en, und meineKlassen vernünftig benamen.
    "meineKlassen" ist so aussagekräftig wie Leberwurst oder Füllfederhalter. :P

    Im FormLoad instanziieren und Add'en
    Ich weiß zur Laufzeit nicht, also nach 1h oder 5h, ob etwas neues dazukommt. Das ist das Problem.
    Welche Benennung schlägst du vor?
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Bartosz schrieb:

    Ich weiß zur Laufzeit nicht, also nach 1h oder 5h, ob etwas neues dazukommt. Das ist das Problem.

    Das verstehe ich nun nicht.

    Bartosz schrieb:

    Welche Benennung schlägst du vor?

    "SinnvolleBennung" wäre doch nett, nicht sehr hilfreich beim Lesen, aber nett. :D
    Im Ernst, keine Ahnung, sinnvoll und hilfreich eben.
    Das ist eine der schwierigsten Disziplinen beim Coden. ;)

    Das verstehe ich nun nicht.
    Ok, ich muss mich besser ausdrücken. Es ist so, dass man nachts mehr Sender empfängt als tagsüber, aufgrund von Überreichweite. Zitat von Wikipedia:
    Die Raumwelle spielt beim Fernempfang eine besondere Rolle. Diese wird in die Erdatmosphäre ausgestrahlt und wird an der Ionosphäre zurück zur Erdoberfläche reflektiert. In den Tagesstunden dämpft die Ionosphäre die
    Mittelwellensignale, weil sie sehr viele ungebundene Elektronen enthält. In den Nachtstunden, wenn die Dämpfung durch die D-Region schwächer wird, steigt die Reichweite bis über tausend Kilometer. Daher kann nachts eine größere Anzahl an Mittelwellensendern empfangen werden als tagsüber. So können in Europa während der Nachtstunden sogar Mittelwellensender vom amerikanischen Kontinent und aus Fernost empfangen werden.


    Das heißt, es kann ja vorkommen, dass der Empfänger (ich)tagsüber nichts / oder nur sehr wenig bemerkt; nachts ist plötzlich ein nennenswertes Signal da, wenn das Programm aber schon ewig läuft... Daher will ich zu beliebigen Zeiten ein Signal hinzufügen können. Später, wenn ich Elektronik gebastelt habe, muss der Detektor dem Programm klarmachen, "Du, ich hab hier 'was Neues!". Andersherum, wenn es Tag wird, muss eine Frequenz herausgenommen werden.

    Edit: "nennenswertes" hinzugefügt
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

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

    @Bartosz
    Hört sich nach einem Konzept Problem an.
    Bau dir erstmal die Elektronik zusammen und überleg dir wie du das am sinnvollsten separierst.
    Da habe ich nun auch keine Lösung parat da ich keinen blassen Schimmer habe was da so rein kommen kann und was du mit den Daten genau vor hast.
    Radio hörten wohl eher nicht.

    Radio hörten wohl eher nicht.
    Doch :D

    Bau dir erstmal die Elektronik zusammen und überleg dir wie du das am sinnvollsten separierst.
    Mache ich!
    Kennst du noch alte Radios, die Langwelle, Mittelwelle und Kurzwelle empfangen können? Wenn du die entsprechende Elektronik hast und du sie entmodulierst, dann kannste das hören. jetzt habe ich mir gedacht, dass man die Lautstärke (zu Signalstärke proportional) visualisiert; also die Signale irgendwie in den Computer kriegt.

    Hört sich nach einem Konzept Problem an.
    Ja :/

    VLC bietet auch Visualisierungen an. Naja, nur dass schon alles auf dem PC läuft aber egal
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Ich hab's jetzt anders gemacht. Das Programm stellt einfach nur eine Tonspur dar.

    Public SB2 As Signalvisualisierung = Nothing
    Public SB3 As Signalvisualisierung = Nothing
    Public SB4 As Signalvisualisierung = Nothing
    Public SB5 As Signalvisualisierung = Nothing
    Public SB6 As Signalvisualisierung = Nothing
    braucht man gar nicht :rolleyes: Dann ist doch alles klar. Ich erstelle so viele Instanzen der Visualisierungsklasse (5er-Streifen), wie die Spur breit ist. Das frage ich ab. So feddich. Ohne Bedenken haben zu müssen, dass ich nicht genug Klassen habe. Ich dachte, die müssen verschiedene sein.

    Der nächste Schritt ist dann – statt die Excel-Werte herzunehmen – richtiger Musik zuzuhören und diese zu visualisieren. siehe Post 12
    Wie kann man die Soundkarte abfragen?     siehe Post 12

    VB.NET-Quellcode

    1. [/font]'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    3. Imports System.Drawing.Drawing2D
    4. Public Class Form1
    5. Private Excel1 As New Microsoft.Office.Interop.Excel.Application
    6. Private meineKlassen As New List(Of Signalvisualisierung)
    7. Private bereits_verwendete_Klassen As Integer = 0
    8. Public SB1 As Signalvisualisierung = Nothing
    9. Private Werte_gelesen As Boolean = False
    11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    13. Me.BackColor = Color.FromArgb(157, 155, 171)
    14. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    15. Button_Timer_Stopp.BackColor = Color.FromArgb(176, 176, 181)
    16. End Sub
    18. Private Sub Button_Timer_Start_Click(sender As Object, e As EventArgs) Handles Button_Timer_Start.Click
    19. Timer1.Start()
    20. Button_Timer_Start.BackColor = Color.FromArgb(0, 200, 0)
    21. End Sub
    23. Private Sub Button_Timer_Stopp_Click(sender As Object, e As EventArgs) Handles Button_Timer_Stopp.Click
    24. Timer1.Stop()
    25. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    26. End Sub
    28. Private Async Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    29. For N As Integer = 0 To meineKlassen.Count - 1 Step 1
    30. meineKlassen(N).i += 1
    31. If meineKlassen(N).i > (meineKlassen(N).dBm.Count - 1) Then meineKlassen(N).i = 0
    32. meineKlassen(N).index_fuer_yPosition += 1
    33. If meineKlassen(N).index_fuer_yPosition > (meineKlassen(N).yPosition.Count - 1) Then meineKlassen(N).index_fuer_yPosition = 0
    34. Next
    35. Await Task.Run(Sub() PictureBox1.Invalidate())
    36. End Sub
    38. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    39. If Werte_gelesen Then
    40. For O As Integer = 0 To meineKlassen.Count - 1 Step 1
    41. If meineKlassen(O).dBm.Count > 0 Then
    42. meineKlassen(O).Paint(e.Graphics)
    43. End If
    44. Next
    45. End If
    46. End Sub
    48. Private Sub Button_load_excel_2_Click(sender As Object, e As EventArgs) Handles Button_load_excel_2.Click
    49. Dim rand As New System.Random()
    50. Dim akt_Wert As Double = -100.0
    51. Dim txt As String
    52. If System.IO.File.Exists("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx") Then
    53. Excel1.Workbooks.Open("C:\Users\...\source\repos\VB.NET\Signalstärke visualisieren\Messwerte Signal2.xlsx")
    55. Dim Breite_in_Hertz As Integer = 80
    56. Dim wie_viele_Streifen_brauche_ich As Integer = Breite_in_Hertz \ 5
    57. For R As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    58. meineKlassen.Add(SB1) 'so viele Klassen (5er-Streifen) anlegen, wie die Spur breit ist.
    59. Next
    61. Dim wie_weit_zur_Seite As Integer = CInt(Math.Round(Breite_in_Hertz / 2.0 * (-1.0), 0)) 'z.B. 80/2*(-1)=-40
    62. For P As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    63. wie_weit_zur_Seite += 5 'jede neue Klasse geht um 5 Hz weiter nach rechts rüber.
    64. For Q As Integer = 0 To meineKlassen.Count - 1 Step 1
    65. If meineKlassen(Q) Is Nothing Then
    66. meineKlassen(Q) = New Signalvisualisierung(900 + wie_weit_zur_Seite)
    67. bereits_verwendete_Klassen += 1
    68. Exit For 'Wichtig!
    69. End If
    70. Next
    71. Next
    73. 'Excel-Werte einlesen
    74. For i As Integer = 2 To 7002 Step 1
    75. txt = Excel1.Range("B" & i.ToString).Value().ToString
    76. Dim Parse_Result = Double.TryParse(txt, akt_Wert)
    77. If Parse_Result Then
    78. akt_Wert -= CDbl(rand.Next(0, 2))
    79. For S As Integer = 0 To meineKlassen.Count - 1 Step 1
    81. If S = 0 OrElse S = meineKlassen.Count - 1 Then 'nach links und rechts farblich abschwächen
    82. meineKlassen(S).dBm.Add(akt_Wert - 14.0)
    83. ElseIf S = 1 OrElse S = meineKlassen.Count - 2 Then
    84. meineKlassen(S).dBm.Add(akt_Wert - 12.0)
    85. ElseIf S = 2 OrElse S = meineKlassen.Count - 3 Then
    86. meineKlassen(S).dBm.Add(akt_Wert - 10.0)
    87. ElseIf S = 3 OrElse S = meineKlassen.Count - 4 Then
    88. meineKlassen(S).dBm.Add(akt_Wert - 8.0)
    89. ElseIf S = 4 OrElse S = meineKlassen.Count - 5 Then
    90. meineKlassen(S).dBm.Add(akt_Wert - 6.0)
    91. ElseIf S = 5 OrElse S = meineKlassen.Count - 6 Then
    92. meineKlassen(S).dBm.Add(akt_Wert - 4.0)
    93. ElseIf S = 6 OrElse S = meineKlassen.Count - 7 Then
    94. meineKlassen(S).dBm.Add(akt_Wert - 2.0)
    95. Else
    96. meineKlassen(S).dBm.Add(akt_Wert)
    97. End If
    98. Next
    99. Else
    100. Debug.WriteLine("Fehler bei der Umwandlung")
    101. End If
    102. Next
    103. Excel1.Application.Quit()
    104. Button_load_excel_2.BackColor = Color.FromArgb(0, 200, 0)
    105. Werte_gelesen = True
    106. End If
    107. End Sub
    108. End Class
    110. Public Class Signalvisualisierung
    111. Public dBm As New List(Of Double)
    112. Public i As Integer = 0
    113. Public Frequenz_in_Hz As Integer
    114. Public yPosition As New List(Of Integer)
    115. Public index_fuer_yPosition As Integer = 0
    116. Public Sub New(ByVal Fr As Integer)
    117. Me.Frequenz_in_Hz = Fr
    118. For J As Integer = 0 To 1000 Step 10
    119. yPosition.Add(J)
    120. Next
    121. End Sub
    122. Public Sub Paint(ByVal g As Graphics)
    123. g.SmoothingMode = SmoothingMode.AntiAlias
    124. g.CompositingQuality = CompositingQuality.HighQuality
    125. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    126. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    128. 'Dim rect_Streifen As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(index_fuer_yPosition), 5, 10) 'zentral ← →
    129. ''mathematische Funktion g(x) = 2.5625 * x + 205 weil bei -80dBm die 50 sein soll und bei 0dBm die 205 (+50).
    130. ''Selbst bei schwächstem Signal erhalte ich kein Schwarz ;)
    131. 'Dim Helligkeit As Byte = CByte(Math.Round(2.5625 * dBm(i) + 205.0, 0))
    132. ' 'Form1.TextBox_Hell.Text = Helligkeit.ToString() & ", " & i.ToString() 'Kontrolle
    133. ' 'Form1.TextBox_Hell.Update()
    134. ' Dim R As Integer = CInt(Math.Round(Helligkeit * 1.243, 0))
    135. 'If R > 255 Then R = 255
    136. 'Dim Gr As Integer = CInt(Math.Round(Helligkeit * 0.4, 0))
    137. 'If Gr > 255 Then Gr = 255
    138. 'Dim B As Integer = 50 + Helligkeit
    139. 'If B > 255 Then B = 255
    140. '' 255 85 255
    141. 'Dim neue_Farbe As Color = Color.FromArgb(R, Gr, B)
    142. 'Using MyBrush = New SolidBrush(neue_Farbe)
    143. 'g.FillRectangle(MyBrush, rect_Streifen)
    144. 'End Using
    146. 'Je größer A, desto tiefer in die Vergangenheit. Oben sind immer die ältesten Werte, wenn die anderen schon unten sind.
    147. 'Je öfter Invalidate() aufgerufen wird, desto weiter kommt die Schleife (und desto größer wird der Wasserfall).
    148. For A As Integer = 0 To (yPosition.Count - 1) Step 1
    149. If A >= 0 AndAlso (i - A) >= 0 AndAlso Not dBm.Count = 0 Then
    150. Dim rect_StreifenA As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(A), 5, 10) 'zentral ← →
    151. Dim HelligkeitA As Byte
    152. If (2.5625 * dBm(i - A) + 205.0) < 0.0 Then
    153. HelligkeitA = 0
    154. Else
    155. HelligkeitA = CByte(Math.Round(2.5625 * dBm(i - A) + 205.0, 0))
    156. End If
    157. Dim Red As Integer = CInt(Math.Round(HelligkeitA * 1.243, 0))
    158. If Red > 255 Then Red = 255
    159. Dim Gre As Integer = CInt(Math.Round(HelligkeitA * 0.4, 0))
    160. If Gre > 255 Then Gre = 255
    161. Dim Bl As Integer = 50 + HelligkeitA
    162. If Bl > 255 Then Bl = 255
    163. Dim neue_FarbeA As Color = Color.FromArgb(Red, Gre, Bl)
    164. Using MyBrush = New SolidBrush(neue_FarbeA)
    165. g.FillRectangle(MyBrush, rect_StreifenA)
    166. End Using
    167. End If
    168. Next
    169. End Sub
    170. End Class
    172. [font='arial,helvetica,sans-serif']

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

    Ok, habe es geschafft. Ich habe aus dem Programm erstmal „nur“ ein Volume-Meter gemacht. Jede Millisekunde wird der Pegel der Soundkarte abgefragt und das wird in dem Wasserfall dargestellt.
    Eigentlich wollte ich ja verschiedene Farben haben, aber da ich mich vorerst nur auf ein Signal (das von der Soundkarte) fokussiere, habe ich es sein gelassen. Somit gibt es nur einen Streifen und eine verwendete Instanz der Klasse Signalvisualisierung. Ich habe den Code aber dringelassen, um mir die Möglichkeit offen zu halten, später wieder mehr zu benutzen.

    Zur Info:
    • Meine PictureBox ist 500 Pixel hoch und mit einer jeweiligen Rechteckhöhe von 3 Pixeln ergeben sich 167 Daten, die im Wasserfall zu sehen sind. (Btw ich hatte vorhin einen Thread aufgemacht, worin ich gefragt habe, wie ich es schaffe, nur die aktuellsten Werte in der List zu haben, aber das ging dann ^^ )
    • Es wird nur der Streifen invalidatet statt die komplette PictureBox
    Ich setze diesen Thread erstmal auf erledigt. Wenn ich den Empfänger gebautund die Daten in den PC bekomme, muss halt der Mikrophon-Eingang abgefragt werden. So weit erstmal. Dann mache ich hier wieder auf.
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Kann ich deinem Post iwie nicht entnehmen.
    Polemik mag ich nicht! Zumal ich jemand bin, der immer alles reinstellt :D Ich wollte den Code erst aufräumen, beor ich ihn reinstelle, jedoch kam mir gestern etwas dazwischen.
    wie kommst du nun an die Soundkarte ran
    Man geht in den NuGet-Paket-Manager und lädt sich NAudio herunter.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Das Programm arbeitet ohne VB6.
    3. 'Assembly-Sprache ist Deutsch (Deutschland).
    4. Imports System.Drawing.Drawing2D
    5. Imports NAudio.CoreAudioApi
    7. Public Class Form1
    8. #Disable Warning IDE0044 ' Modifizierer "readonly" hinzufügen
    9. Private MMDE As NAudio.CoreAudioApi.MMDeviceEnumerator = New NAudio.CoreAudioApi.MMDeviceEnumerator()
    10. Private DevCol As NAudio.CoreAudioApi.MMDeviceCollection = MMDE.EnumerateAudioEndPoints(NAudio.CoreAudioApi.DataFlow.All, NAudio.CoreAudioApi.DeviceState.Active)
    11. Private meineKlassen As New List(Of Signalvisualisierung)
    12. #Enable Warning IDE0044 ' Modifizierer "readonly" hinzufügen
    13. 'Private bereits_verwendete_Klassen As Integer = 0
    14. Public SB1 As Signalvisualisierung = Nothing
    15. Private fertig As Boolean = False
    16. Dim rc As System.Drawing.Rectangle = Nothing
    18. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    19. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    20. Me.BackColor = Color.FromArgb(157, 155, 171)
    21. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    22. Button_Timer_Stopp.BackColor = Color.FromArgb(176, 176, 181)
    23. End Sub
    25. Private Sub Button_Timer_Start_Click(sender As Object, e As EventArgs) Handles Button_Timer_Start.Click
    26. Timer_zeichnen.Start()
    27. Button_Timer_Start.BackColor = Color.FromArgb(0, 200, 0)
    28. End Sub
    30. Private Sub Button_Timer_Stopp_Click(sender As Object, e As EventArgs) Handles Button_Timer_Stopp.Click
    31. Timer_zeichnen.Stop()
    32. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    33. End Sub
    35. Private Async Sub Timer_zeichnen_Tick(sender As Object, e As EventArgs) Handles Timer_zeichnen.Tick
    36. 'DevCol(1) ist meine Soundblaster Z. Ihr müsst schauen, wie's bei euch ist. :-)
    37. Dim Pegel As Single = DevCol(1).AudioMeterInformation.MasterPeakValue * 100.0F
    39. For S As Integer = 0 To meineKlassen.Count - 1 Step 1
    40. meineKlassen(S).dBm.Add(Pegel)
    41. If meineKlassen(S).dBm.Count > 167 Then 'nur die ... aktuellsten Werte in der Liste → also den letzten Wert löschen
    42. meineKlassen(S).dBm.Remove(167)
    43. End If
    44. Next
    45. For N As Integer = 0 To meineKlassen.Count - 1 Step 1
    46. meineKlassen(N).i += 1
    47. If meineKlassen(N).i > (meineKlassen(N).dBm.Count - 1) Then meineKlassen(N).i = 0
    48. meineKlassen(N).index_fuer_yPosition += 1
    49. If meineKlassen(N).index_fuer_yPosition > (meineKlassen(N).yPosition.Count - 1) Then meineKlassen(N).index_fuer_yPosition = 0
    50. Next
    51. Await Task.Run(Sub() PictureBox1.Invalidate(rc)) 'mittels rc nur den Streifen aktualisieren
    52. End Sub
    54. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    55. If fertig Then
    56. For O As Integer = 0 To meineKlassen.Count - 1 Step 1
    57. If meineKlassen(O).dBm.Count > 0 Then
    58. meineKlassen(O).Paint(e.Graphics)
    59. End If
    60. Next
    61. End If
    62. End Sub
    64. Private Sub Button_Streifen_festlegen_Click(sender As Object, e As EventArgs) Handles Button_Streifen_festlegen.Click
    66. Dim Breite_in_Hertz As Integer = 40
    67. Dim wie_viele_Streifen_brauche_ich As Integer = Breite_in_Hertz \ 40 '5 Es waren mal \5, weil ich verschiedene Farben haben wollte, was mehr Streifen bedeutet.
    68. 'Ich will diesen Berechnungs-Code aber drinlassen, um mir die Möglichkeit offen zu halten, es später nochmal zu benutzen.
    69. For R As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    70. meineKlassen.Add(SB1) 'so viele Klassen (5er-Streifen) anlegen, wie die Spur breit ist.
    71. Next
    73. rc = New Rectangle(CInt(900 - Breite_in_Hertz / 2.0), 0, Breite_in_Hertz, 500)
    75. Dim wie_weit_zur_Seite As Integer = CInt(Math.Round(Breite_in_Hertz / 2.0 * (-1.0), 0)) 'z.B. 80÷2*(-1)=-40
    76. For P As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    77. wie_weit_zur_Seite += 5 'jede neue Klasse geht um 5 Hz weiter nach rechts rüber.
    78. For Q As Integer = 0 To meineKlassen.Count - 1 Step 1
    79. If meineKlassen(Q) Is Nothing Then
    80. meineKlassen(Q) = New Signalvisualisierung(900 + wie_weit_zur_Seite)
    81. 'bereits_verwendete_Klassen += 1
    82. Exit For 'Wichtig!
    83. End If
    84. Next
    85. Next
    87. Button_Streifen_festlegen.BackColor = Color.FromArgb(0, 200, 0)
    88. fertig = True
    89. End Sub
    90. End Class
    92. Public Class Signalvisualisierung
    93. Private ReadOnly Rasterung As Integer = 3
    94. Public dBm As New List(Of Double)
    95. Public i As Integer = 0
    96. Private ReadOnly Frequenz_in_Hz As Integer
    97. Public yPosition As New List(Of Integer)
    98. Public index_fuer_yPosition As Integer = 0
    99. Public Sub New(ByVal Fr As Integer)
    100. Me.Frequenz_in_Hz = Fr
    101. For J As Integer = 0 To 500 Step Rasterung 'y-Positionen in der PictureBox.
    102. 'Je feiner, desto mehr Rechtecke sind zu sehen → Programm hakt ab 3 mit Intel® Core™ i5-9600K
    103. yPosition.Add(J)
    104. Next
    105. End Sub
    106. Public Sub Paint(ByVal g As Graphics)
    107. g.SmoothingMode = SmoothingMode.AntiAlias
    108. g.CompositingQuality = CompositingQuality.HighQuality
    109. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    110. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    112. 'Je größer A, desto tiefer in die Vergangenheit. Oben sind immer die ältesten Werte, wenn die anderen schon unten sind.
    113. 'Je öfter Invalidate() aufgerufen wird, desto weiter kommt die Schleife (und desto größer wird der Wasserfall).
    114. For A As Integer = 0 To (yPosition.Count - 1) Step 1
    115. If A >= 0 AndAlso (i - A) >= 0 AndAlso Not dBm.Count = 0 Then
    116. Dim rect_StreifenA As New System.Drawing.Rectangle(Frequenz_in_Hz, yPosition(A), 40, Rasterung) 'zentral ← →
    117. Dim HelligkeitA As Byte
    118. If (2.05 * dBm(i - A)) < 0.0 Then
    119. HelligkeitA = 0
    120. Else
    121. HelligkeitA = CByte(Math.Round(2.05 * dBm(i - A), 0))
    122. End If
    123. Dim Red As Integer = CInt(Math.Round(HelligkeitA * 1.243, 0))
    124. If Red > 255 Then Red = 255
    125. Dim Gre As Integer = CInt(Math.Round(HelligkeitA * 0.4, 0))
    126. If Gre > 255 Then Gre = 255
    127. Dim Bl As Integer = 50 + HelligkeitA
    128. If Bl > 255 Then Bl = 255
    129. Dim neue_FarbeA As Color = Color.FromArgb(Red, Gre, Bl)
    130. Using MyBrush = New SolidBrush(neue_FarbeA)
    131. g.FillRectangle(MyBrush, rect_StreifenA)
    132. End Using
    133. End If
    134. Next
    135. End Sub
    136. End Class

    Bartosz schrieb:

    Kann ich deinem Post iwie nicht entnehmen.
    Polemik mag ich nicht!

    Sorry wenn das falsch rüber gekommen ist.
    Das war ne ernst gemeinte Frage, vielleicht etwas flapsig formuliert.
    Nix für ungut. :saint:

    Update: 1) Helligkeitsregler, 2) List(of Single) wird mal geleert (ich dachte erst, das passiert bereits, aber dem war nicht so) 3) Form aufgeräumt

    Hier ein kleines Update:


    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften aktiviert.
    2. 'Das Programm arbeitet ohne VB6.
    3. 'Assembly-Sprache ist Deutsch (Deutschland).
    4. Imports System.Drawing.Drawing2D
    6. Public Class Form1
    7. #Disable Warning IDE0044 ' Modifizierer "readonly" hinzufügen
    8. Private MMDE As NAudio.CoreAudioApi.MMDeviceEnumerator = New NAudio.CoreAudioApi.MMDeviceEnumerator()
    9. Private DevCol As NAudio.CoreAudioApi.MMDeviceCollection = MMDE.EnumerateAudioEndPoints(NAudio.CoreAudioApi.DataFlow.All, NAudio.CoreAudioApi.DeviceState.Active)
    10. Private meineKlassen As New List(Of Signalvisualisierung)
    11. #Enable Warning IDE0044 ' Modifizierer "readonly" hinzufügen
    12. 'Private bereits_verwendete_Klassen As Integer = 0
    13. Public SB1 As Signalvisualisierung = Nothing
    14. Private fertig As Boolean = False
    15. Private rc As System.Drawing.Rectangle = Nothing
    16. Public Extra_Helligkeit As Double = 1.0
    18. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    19. PictureBox1.BackColor = Color.FromArgb(0, 0, 50) 'Dunkelblau. ES IST WICHTIG, dass dieser Wert jetzt eine Vereinbarung ist, da später ein Wert draufaddiert wird!
    20. Me.BackColor = Color.FromArgb(157, 155, 171)
    21. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    22. Button_Timer_Stopp.BackColor = Color.FromArgb(176, 176, 181)
    23. Button_Streifen_festlegen.BackColor = Color.FromArgb(176, 176, 181)
    24. TrackBar1.BackColor = Color.FromArgb(176, 176, 181)
    25. End Sub
    27. Private Sub Button_Timer_Start_Click(sender As Object, e As EventArgs) Handles Button_Timer_Start.Click
    28. Timer_zeichnen.Start()
    29. Button_Timer_Start.BackColor = Color.FromArgb(0, 200, 0)
    30. End Sub
    32. Private Sub Button_Timer_Stopp_Click(sender As Object, e As EventArgs) Handles Button_Timer_Stopp.Click
    33. Timer_zeichnen.Stop()
    34. Button_Timer_Start.BackColor = Color.FromArgb(176, 176, 181)
    35. End Sub
    37. Private Async Sub Timer_zeichnen_Tick(sender As Object, e As EventArgs) Handles Timer_zeichnen.Tick
    38. 'DevCol(1) ist meine Soundblaster Z. Ihr müsst schauen, wie's bei euch ist. :-)
    39. 'Dies ist der Pegel, der vor der Soundkarte ankommt. Also z.B. die Lautstärkeregelung bei Youtube.
    40. Dim Pegel As Single = DevCol(1).AudioMeterInformation.MasterPeakValue * 100.0F
    42. For S As Integer = 0 To meineKlassen.Count - 1 Step 1
    43. meineKlassen(S).dBm.Add(Pegel)
    44. Next
    46. For N As Integer = 0 To meineKlassen.Count - 1 Step 1
    47. meineKlassen(N).index_dBm_Liste += 1
    48. If meineKlassen(N).index_dBm_Liste > (meineKlassen(N).dBm.Count - 1) Then
    49. meineKlassen(N).index_dBm_Liste = 0
    50. End If
    51. Next
    53. Await Task.Run(Sub() PictureBox1.Invalidate(rc)) 'mittels rc nur den Streifen aktualisieren
    55. End Sub
    57. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    58. If fertig Then
    59. For O As Integer = 0 To meineKlassen.Count - 1 Step 1
    60. If meineKlassen(O).dBm.Count > 0 Then
    61. meineKlassen(O).Paint(e.Graphics)
    62. End If
    63. Next
    64. End If
    65. End Sub
    67. Private Sub Button_Streifen_festlegen_Click(sender As Object, e As EventArgs) Handles Button_Streifen_festlegen.Click
    69. Dim Breite_in_Hertz As Integer = 40
    70. Dim wie_viele_Streifen_brauche_ich As Integer = Breite_in_Hertz \ 40 '5 Es waren mal \5, weil ich verschiedene Farben haben wollte, was mehr Streifen bedeutet.
    71. 'Ich will diesen Berechnungs-Code aber drinlassen, um mir die Möglichkeit offen zu halten, es später nochmal zu benutzen.
    72. For R As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    73. meineKlassen.Add(SB1) 'so viele Klassen (5er-Streifen) anlegen, wie die Spur breit ist.
    74. Next
    76. rc = New Rectangle(CInt(900 - Breite_in_Hertz / 2.0), 0, Breite_in_Hertz, 500)
    78. Dim wie_weit_zur_Seite As Integer = CInt(Math.Round(Breite_in_Hertz / 2.0 * (-1.0), 0)) 'z.B. 80÷2*(-1)=-40
    79. For P As Integer = 0 To wie_viele_Streifen_brauche_ich - 1 Step 1
    80. For Q As Integer = 0 To meineKlassen.Count - 1 Step 1
    81. If meineKlassen(Q) Is Nothing Then
    82. meineKlassen(Q) = New Signalvisualisierung(900 + wie_weit_zur_Seite)
    83. 'bereits_verwendete_Klassen += 1
    84. Exit For 'Wichtig!
    85. End If
    86. Next
    87. wie_weit_zur_Seite += 5 'jede neue Klasse geht um 5 Hz weiter nach rechts rüber.
    88. Next
    90. Button_Streifen_festlegen.BackColor = Color.FromArgb(0, 200, 0)
    91. fertig = True
    92. End Sub
    94. Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged
    95. Extra_Helligkeit = 0.05 * TrackBar1.Value + 1.0
    96. End Sub
    97. End Class
    99. Public Class Signalvisualisierung
    100. Private ReadOnly Rasterung As Integer = 3
    101. Public dBm As New List(Of Single)
    102. Public index_dBm_Liste As Integer = 0
    103. Private ReadOnly Frequenz_in_Hz As Integer
    104. Public yPositionen_Liste As New List(Of Integer)
    105. Public Sub New(ByVal Fr As Integer)
    106. Me.Frequenz_in_Hz = Fr
    107. For J As Integer = 0 To 500 Step Rasterung 'y-Positionen in der PictureBox.
    108. 'Je feiner, desto mehr Rechtecke sind zu sehen
    109. yPositionen_Liste.Add(J)
    110. Next
    111. End Sub
    112. Public Sub Paint(ByVal g As Graphics)
    113. g.SmoothingMode = SmoothingMode.HighQuality
    114. g.CompositingQuality = CompositingQuality.HighQuality
    115. g.PixelOffsetMode = PixelOffsetMode.HighQuality
    116. g.InterpolationMode = InterpolationMode.HighQualityBilinear
    118. 'Je größer A, desto tiefer in die Vergangenheit. Oben sind immer die ältesten Werte, wenn die anderen schon unten sind.
    119. 'Je öfter Invalidate() aufgerufen wird, desto weiter kommt die Schleife (und desto größer wird der Wasserfall).
    121. For index_Pos_Liste As Integer = 0 To yPositionen_Liste.Count - 1 Step 1 '0 - bis inkl 166
    122. 'Die For-Schleife erhöht stetig den Index der Positionsliste. Das geht aber nur,
    123. 'wenn es bereits genug Werte in der dBm-Liste gibt. Idealerweise funktioniert es über den kompletten
    124. 'Bildschirm ab 167 Werten (logisch!).
    125. If (index_dBm_Liste - index_Pos_Liste) >= 0 AndAlso Not dBm.Count = 0 Then
    126. Dim rect_StreifenA As New System.Drawing.Rectangle(Frequenz_in_Hz, yPositionen_Liste(index_Pos_Liste), 40, Rasterung) 'zentral ← →
    127. Dim HelligkeitA As Byte
    128. If (2.05 * dBm(index_dBm_Liste - index_Pos_Liste)) < 0.0 Then
    129. HelligkeitA = 0
    130. Else
    131. HelligkeitA = CByte(Math.Round(2.05 * dBm(index_dBm_Liste - index_Pos_Liste), 0)) 'Helligkeit_allgemein ist max 205
    132. End If
    134. Dim Red As Integer = CInt(Math.Round(CDbl(HelligkeitA) * 51.0 / 41.0, 0) * Form1.Extra_Helligkeit) ' = max 255
    135. If Red > 255 Then Red = 255
    137. Dim Green As Integer = 0
    138. If Green > 255 Then Green = 255
    140. Dim Bl As Integer = 50 + CInt(HelligkeitA * Form1.Extra_Helligkeit) '= max 205 (mit den + 50 = 255)
    141. If Bl > 255 Then Bl = 255
    143. Dim neue_FarbeA As Color = Color.FromArgb(Red, Green, Bl)
    144. Using MyBrush = New SolidBrush(neue_FarbeA)
    145. g.FillRectangle(MyBrush, rect_StreifenA)
    146. End Using
    147. Else
    148. 'Debug.WriteLine("A = " & $"{index_Pos_Liste}" & " " & "(i - A) = " & (index_dBm_Liste - index_Pos_Liste).ToString & " " & "dBm.Count = " & $"{dBm.Count}")
    149. Exit For
    150. End If
    151. Next
    153. If dBm.Count = 2 * 167 + 1 Then
    154. dBm.RemoveRange(0, 167)
    155. index_dBm_Liste = dBm.Count - 1
    156. End If
    157. End Sub
    158. End Class


    PS: das

    VB.NET-Quellcode

    1. If meineKlassen(S).dBm.Count > 167 Then
    2. meineKlassen(S).dBm.Remove(167)
    3. End If
    im Timer_Tick brachte gar nix. Habe ich geändert.

Facebook
Telefonspende