LED-Matrix (Programmstruktur-Beschleunigen)

  • VB.NET

Es gibt 66 Antworten in diesem Thema. Der letzte Beitrag () ist von kremsy.

    LED-Matrix (Programmstruktur-Beschleunigen)

    Hallo Leute,

    bin noch nicht der Beste VB Programmierer.

    Ich habe einen Programmteil, der mir Daten eines Programmes in eine txt Datei speichern soll.

    Allerdings dauert es immer sehr lange bis fertig gespeichert ist. Das liegt wahrscheinlich an den vielen Schleifen des Programmteils.

    (Die Erste schleife braucht nicht viel Zeit).

    Vielleicht habt ihr ja Tipps wie man das ganze Beschleunigen könnte.

    VB.NET-Quellcode

    1. Private Sub But_Save_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Save_C.Click
    2. ' ToolStripStatusLabel1.Text = "Speichervorgang"
    3. Me.Cursor = Cursors.WaitCursor
    5. ' ToolStripProgressBar1.Maximum = FormAnz + 2
    6. 'ToolStripProgressBar1.Value = 0
    8. Dim colorArr(0 To 255) As String
    9. colorArr = savebtncolors(btnArray)
    10. For i = 1 To 256 Step 1
    11. gesArray(FormNumb, i) = colorArr(i)
    12. Next
    14. ' ToolStripProgressBar1.Value = 1
    15. If FileExists(FNAME) Then
    16. My.Computer.FileSystem.DeleteFile(FNAME)
    17. End If
    19. ' ToolStripProgressBar1.Value = 2
    22. For i = 1 To FormAnz 'MAXIMAL 64!!!!
    23. My.Computer.FileSystem.WriteAllText(FNAME, Chr(127), True) ' BILD-Start 0x7F
    24. My.Computer.FileSystem.WriteAllText(FNAME, Chr(i - 1), True) ' BILD-Nummer
    27. For k = 1 To Matrixsize * Matrixsize
    29. Select Case gesArray(i, k)
    30. Case "Red"
    31. code = 1
    32. Case "Green"
    33. code = 2
    34. Case "Blue"
    35. code = 4
    36. Case "White"
    37. code = 7
    38. Case "Black"
    39. code = 0
    40. Case "Yellow"
    41. code = 3
    42. Case "Magenta"
    43. code = 5
    44. Case "Cyan"
    45. code = 6
    46. End Select
    48. My.Computer.FileSystem.WriteAllText(FNAME, Chr(code), True) ' Led Farbe
    50. Next
    51. ' ToolStripProgressBar1.Value = i + 2
    53. If (i = FormAnz) Then
    54. My.Computer.FileSystem.WriteAllText(FNAME, Chr(126), True) ' BILD-Ende 0x7E
    55. Else
    56. My.Computer.FileSystem.WriteAllText(FNAME, Chr(125), True) ' BILD-Ende 0x7D
    57. End If
    58. ' My.Computer.FileSystem.WriteAllText(FNAME, "00000000", True) 'Stop Bild
    59. Next
    61. ' ToolStripStatusLabel1.Text = 2
    62. Me.Cursor = Cursors.Default
    63. MessageBox.Show("Daten erfolgreich in FNAME gesichert", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
    64. End Sub

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

    schreibe den text erst in einen string statt zeilenweise (?) in dei datei.
    Der Schreibvorgang braucht nämlich seine Zeit - und wenn er so oft aufgerufen wird....

    Erst am Schluss den String in einem Rutsch in die Datei schreiben.


    BTW: statt der Sting-vergleiche "Red", "Blue", etc kannst du auch eine enum schreiben - das ist sauberer und bringt vllt ne nanosekunde mehr speed xD

    kremsy schrieb:

    VB.NET-Quellcode

    1. Dim colorArr(0 To 255) As String
    2. colorArr = savebtncolors(btnArray)
    3. For i = 1 To 256 Step 1

    Mach da folfendes draus:

    VB.NET-Quellcode

    1. Dim colorArr(255) As String
    2. colorArr = savebtncolors(btnArray)
    3. For i = 0 To 255
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen dank für eure schnelle Hilfe.

    VB.NET-Quellcode

    1. Private Sub But_Save_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Save_C.Click
    2. ' ToolStripStatusLabel1.Text = "Speichervorgang"
    3. Me.Cursor = Cursors.WaitCursor
    5. ' ToolStripProgressBar1.Maximum = FormAnz + 2
    6. 'ToolStripProgressBar1.Value = 0
    8. Dim colorArr(255) As String
    9. colorArr = savebtncolors(btnArray)
    10. For i = 0 To 255
    11. gesArray(FormNumb, i ) = colorArr(i)
    12. Next
    14. ' ToolStripProgressBar1.Value = 1
    15. If FileExists(FNAME) Then
    16. My.Computer.FileSystem.DeleteFile(FNAME)
    17. End If
    19. ' ToolStripProgressBar1.Value = 2
    21. Dim tempstring As String
    23. For i = 1 To FormAnz 'MAXIMAL 64!!!!
    24. tempstring = Chr(127)
    25. ' My.Computer.FileSystem.WriteAllText(FNAME, Chr(127), True) ' BILD-Start 0x7F
    26. tempstring = tempstring & Chr(i - 1)
    27. 'My.Computer.FileSystem.WriteAllText(FNAME, Chr(i - 1), True) ' BILD-Nummer
    30. For k = 1 To Matrixsize * Matrixsize
    32. Select Case gesArray(i, k)
    33. Case "Red"
    34. code = 1
    35. Case "Green"
    36. code = 2
    37. Case "Blue"
    38. code = 4
    39. Case "White"
    40. code = 7
    41. Case "Black"
    42. code = 0
    43. Case "Yellow"
    44. code = 3
    45. Case "Magenta"
    46. code = 5
    47. Case "Cyan"
    48. code = 6
    49. End Select
    50. tempstring = tempstring & Chr(code)
    51. ' My.Computer.FileSystem.WriteAllText(FNAME, Chr(code), True) ' Led Farbe
    52. Next
    53. ' ToolStripProgressBar1.Value = i + 2
    55. If (i = FormAnz) Then
    56. tempstring = tempstring & Chr(126)
    57. ' My.Computer.FileSystem.WriteAllText(FNAME, Chr(126), True) ' BILD-Ende 0x7E
    58. Else
    59. tempstring = tempstring & Chr(125)
    60. ' My.Computer.FileSystem.WriteAllText(FNAME, Chr(125), True) ' BILD-Ende 0x7D
    61. End If
    62. ' My.Computer.FileSystem.WriteAllText(FNAME, "00000000", True) 'Stop Bild
    63. My.Computer.FileSystem.WriteAllText(FNAME, tempstring, True) ' BILD-Ende 0x7D
    64. Next
    66. ' ToolStripStatusLabel1.Text = 2
    67. Me.Cursor = Cursors.Default
    68. MessageBox.Show("Daten erfolgreich in FNAME gesichert", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
    69. End Sub



    Jetzt ist das Ganze gefühlte 5min schneller.


    Ich hätte jetzt noch einen Programmteil der Optimierungsbedürftig ist:

    VB.NET-Quellcode

    1. Private Function loadbtns(ByVal gesArray, ByVal FormNumb)
    2. Akt.Text = FormNumb
    3. Dim col As String
    5. For i As Integer = 1 To Matrixsize * Matrixsize
    6. col = gesArray(FormNumb, i)
    7. ' Neuen Button erzeuge
    8. btnArray(i) = New Button
    10. ' Den erzeugten Button verwenden:
    11. With btnArray(i)
    13. ' Parent festlegen und Controls-Collection erweitern
    14. .Parent = Me
    15. .Parent.Controls.Add(btnArray(i))
    17. ' Verwaltungsinformationen zuweisen
    18. .Name = "Button" & CStr(i)
    19. .TabIndex = i
    21. ' Darstellung: Beschriften und positionieren
    22. ' For iz = 0 To 8 Step 1
    23. ' .Text = "Button(" & CStr(i) & ")"
    24. .Size = New Size(20, 20)
    25. .Visible = True
    26. ' Standartfarbe:
    27. .BackColor = Color.FromName(col)
    28. ' For iz = 0 To 5
    30. ' If i < Matrixsize * iz Then
    31. '.Location = New Point(10 * Matrixsize * iz, 10 + (i - Matrixsize * (iz - 1)) * 2 * .Height)
    32. ' Next iz
    33. Select Case i
    34. Case 0 To Matrixsize
    35. .Location = New Point(10 + Matrixsize * 1 * 2, 10 + (i - Matrixsize * (0)) * .Height)
    36. Case Matrixsize To 2 * Matrixsize
    37. .Location = New Point(10 + Matrixsize * 1.6 * 2, 10 + (i - Matrixsize * (1)) * .Height)
    38. Case Matrixsize To 3 * Matrixsize
    39. .Location = New Point(10 + Matrixsize * 2.2 * 2, 10 + (i - Matrixsize * (2)) * .Height)
    40. Case Matrixsize To 4 * Matrixsize
    41. .Location = New Point(10 + Matrixsize * 2.75 * 2, 10 + (i - Matrixsize * (3)) * .Height)
    42. Case Matrixsize To 5 * Matrixsize
    43. .Location = New Point(10 + Matrixsize * 3.3 * 2, 10 + (i - Matrixsize * (4)) * .Height)
    44. Case Matrixsize To 6 * Matrixsize
    45. .Location = New Point(10 + Matrixsize * 3.9 * 2, 10 + (i - Matrixsize * (5)) * .Height)
    46. Case Matrixsize To 7 * Matrixsize
    47. .Location = New Point(10 + Matrixsize * 4.5 * 2, 10 + (i - Matrixsize * (6)) * .Height)
    48. Case Matrixsize To 8 * Matrixsize
    49. .Location = New Point(10 + Matrixsize * 5.1 * 2, 10 + (i - Matrixsize * (7)) * .Height)
    50. Case Matrixsize To 9 * Matrixsize
    51. .Location = New Point(10 + Matrixsize * 5.7 * 2, 10 + (i - Matrixsize * (8)) * .Height)
    52. Case Matrixsize To 10 * Matrixsize
    53. .Location = New Point(10 + Matrixsize * 6.3 * 2, 10 + (i - Matrixsize * (9)) * .Height)
    54. Case Matrixsize To 11 * Matrixsize
    55. .Location = New Point(10 + Matrixsize * 6.9 * 2, 10 + (i - Matrixsize * (10)) * .Height)
    56. Case Matrixsize To 12 * Matrixsize
    57. .Location = New Point(10 + Matrixsize * 7.5 * 2, 10 + (i - Matrixsize * (11)) * .Height)
    58. Case Matrixsize To 13 * Matrixsize
    59. .Location = New Point(10 + Matrixsize * 8.1 * 2, 10 + (i - Matrixsize * (12)) * .Height)
    60. Case Matrixsize To 14 * Matrixsize
    61. .Location = New Point(10 + Matrixsize * 8.7 * 2, 10 + (i - Matrixsize * (13)) * .Height)
    62. Case Matrixsize To 15 * Matrixsize
    63. .Location = New Point(10 + Matrixsize * 9.28 * 2, 10 + (i - Matrixsize * (14)) * .Height)
    64. Case Matrixsize To 16 * Matrixsize
    65. .Location = New Point(10 + Matrixsize * 9.87 * 2, 10 + (i - Matrixsize * (15)) * .Height)
    67. End Select
    68. ' Auf das Click-Ereignis reagieren können:
    69. AddHandler .Click, AddressOf btnArray_Click
    70. ' AddHandler .MouseHover, AddressOf btnArray_Click
    71. End With
    72. Next i
    73. loadbtns = 1
    74. End Function


    Dieser Teil sieht so aus:

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

    ist mir voll unklar, was der code macht.

    ich empfehle malwieder ein typ.Dataset aufzusetzen, was alle wesentlichen Daten beinhaltet, und was man dann auch auf platte schreiben kann.

    Aber dafür müssteste von vorne anfangen zu konzipieren, insbesondere genau erklären, was das für Daten sind, und was damit gemacht werden soll.

    Also mal zum Projekt.

    Es ist ein Projekt um mehrere 16x16pixel Bilder zu zeichen, die man dann codiert als Asci-Zeichen auf eine SD-Karte speichert, um dieses Hex-File dann per µ-Controller auszulesen. Das ganze funktioniert auch schon, und muss nur etwas geschwindigkeitsoptimiert werden.

    Der 1. Programmteil der Speichvorgang ist jetzt schnell genug.

    Der 2. Programmteil ist nur die Darstellung der einzelnen Pixel auf der Programmoberfläche, und dieses beansprucht schon einiges an Zeit um angezeigt zu werden. Aber denke das wird nicht viel schneller gehn. Hier wär ich über Tipps sehr dankbar.

    Und das entfernen der Buttons dauert auch wieder sehr lang:

    VB.NET-Quellcode

    1. Public Function removebuttons(ByVal btnArray)
    2. For i = 1 To 256
    3. btnArray(i).Parent.Controls.Remove(btnArray(i))
    4. Next
    5. removebuttons = 1
    6. End Function


    Zwischen den Formen lösche ich immer die Buttons und lade sie neu (dies Benötigt 2-3 sekunden was zum vernünftigen Arbeiten fast zulange ist):

    VB.NET-Quellcode

    1. removebuttons(btnArray)
    2. loadbtns(gesArray, FormNumb)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „kremsy“ ()

    kremsy schrieb:

    VB.NET-Quellcode

    1. [vb]Select Case i
    2. Case 0 To Matrixsize
    3. .Location = New Point(10 + Matrixsize * 1 * 2, 10 + (i - Matrixsize * (0)) * .Height)
    4. Case Matrixsize To 2 * Matrixsize
    5. .Location = New Point(10 + Matrixsize * 1.6 * 2, 10 + (i - Matrixsize * (1)) * .Height)

    '...[/vb]
    Wo soll er denn nun hin, wenn i = Matrixsize ist?
    VB schickt ihn in das 1. Case.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Stimmt ist mir jetz auch erst aufgefallen, aber case1 ist korrekt. Da 0 bis Matrixsize-1 die erste Spalte Dargestellt wird und dann im case1 die 2.

    Hier ist etwas einsparungsbedarf.

    VB.NET-Quellcode

    1. Select Case i
    2. Case 0 To Matrixsize - 1
    3. .Location = New Point(10 + Matrixsize * 1 * 2, 10 + (i - Matrixsize * (0)) * .Height)
    4. Case Matrixsize To 2 * Matrixsize - 1


    Hmm hab das überall so geändert funktioniert aber nichtmehr ganz, muss mir das jetz nochmal genauer überlegen. Ist schon paar monate her als ich diesen Programmteil geschrieben habe.

    also 16 * 16 Daten zu speichern oder zu lesen + darzustellen darf nicht eine zehntel sekunde dauern.
    Auch nicht 100 Stück davon - das wären ja auch nur 26kb.

    ich weiß jetzt nicht, wie dein prog arbeiten soll - soll es mehrere solcher Matrizen verfügbar haben, und eine davon bearbeiten, und dann dem µ-Prozessor zum Fraß vorwerfen?



    Also angezeigt wird immer nur eine, wenn man New klickt wird eine Neue erstellt, navigieren kann man mit Next bzw Prev, hier wird auch die erwähnte Removebuttons bzw. loadbuttons funktionen angewendet.


    Die Cases hab ich jetzt so geändert:

    VB.NET-Quellcode

    1. Select Case i - 1
    2. Case 0 To Matrixsize - 1
    3. .Location = New Point(10 + Matrixsize * 1 * 2, 10 + (i - Matrixsize * (0)) * .Height)
    4. Case Matrixsize To 2 * Matrixsize - 1


    Der µ-Prozessor liest dann so aus (Ist nur die Bufferung des 1. Bildes):

    C-Quellcode

    1. if(SDstatus==2)
    2. {
    3. Fread(buffer,5);
    4. if(buffer[3]!=0x7F)
    5. imageR[0][6][0]=0; //Error Pic Start
    6. if(buffer[4]!=0x00)
    7. imageR[0][7][0]=0; //Wrong Pic
    8. }
    9. if(SDstatus==2)
    10. {
    12. for(int sdrow=7;sdrow>=0;sdrow--)
    13. {
    14. Fread(buffer,16);
    15. for(int sdcol=7;sdcol>=0;sdcol--)
    16. {
    17. imageR[0][sdrow][sdcol]=buffer[sdcol];
    18. imageL[0][sdrow][sdcol]=buffer[sdcol+8];
    19. imageR[1][sdrow][sdcol]=buffer[sdcol];
    20. imageL[1][sdrow][sdcol]=buffer[sdcol+8];
    21. }
    23. }
    24. for(int sdrow=15;sdrow>=8;sdrow--)
    25. {
    26. Fread(buffer,16);
    27. for(int sdcol=7;sdcol>=0;sdcol--)
    28. {
    29. imageR[0][sdrow][sdcol]=buffer[sdcol];
    30. imageL[0][sdrow][sdcol]=buffer[sdcol+8];
    31. imageR[1][sdrow][sdcol]=buffer[sdcol];
    32. imageL[1][sdrow][sdcol]=buffer[sdcol+8];
    33. }
    34. }


    Das ganze wird dann auf 16x16 RGB Leds ausgegeben.

    Aber das sollte ja jetzt keine Rolle spielen. Funktionieren tut ja alles. Nur die geschwindigkeit der Buttons laden im VB Programm ist noch das Problem.

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

    oh, da hätte ich einige verbesserungsvorschläge

    zb. könnteste dir eine Tabelle anlegen mit Entwürfen, und jeder Entwurf bekommt einen Namen.
    Dann kann man eine Liste anzeigen und einen Entwurf auswählen, bzw. auch einen neuen entwurf anlegen oder entwürfe löschen.

    dann die Darstellung in einem DGV abhandeln mit .RowCount = .ColumnCount = 16.
    Keinesfalls 256 Buttons generieren!

    den µ-code verstehe ich nicht - ich dachte, er muß eine Datei öffnen?

    Passiert noch davor am Prozessor:

    C-Quellcode

    1. switch(GetDriveInformation())
    2. {
    3. case 1: //ALL is Working
    4. SDstatus=1;
    5. break;
    6. case 2:
    7. imageL[0][1][0]=0; //FAT-Type nicht erkannt
    8. break;
    9. case 3:
    10. imageL[0][2][0]=0; //CF gives no answer
    11. break;
    12. case 4:
    13. imageL[0][3][0]=0; // no response from card return CMD0_TIMEOUT;
    14. break;
    15. default:
    16. imageL[0][4][0]=0; //other errors
    17. }
    19. if(SDstatus==1)
    20. {
    22. // unsigned int readbytes;
    24. switch(Fopen("0", F_READ)) //Datei Öffnen
    25. {
    26. case F_OK: //Öffnen erfolgreich
    27. SDstatus=2;
    28. //readbytes=Fread(buffer,10); // Achte auf das & vor by !
    29. //imageR[0][0][0]=readbytes; //Anzahl von Bytes
    30. break;
    31. case F_ERROR:
    32. imageR[0][5][0]=0; //Datei kann nicht geöffnet werden
    33. break;
    34. }
    35. }


    (Datei heißt 0).

    Wie schon gesagt bin noch nicht der Erfahrenste VB Programmierer, und die Zeit die noch zu verfügung steht für dieses Projekt ist auch sehr Begrenzt. Das Programm kann bis jetzt, akt Bild Kopieren, einfügen. Neues Bild einfügen, Bild Löschen, Bild um 1 nach Rechts oder Links verschieben (Praktisch für Laufschrift und co.).

    Ich werd mal anfangen eine Anleitung zu finden über einen DGV. Habe ehrlich gesagt noch keine Ahnung was das genau sein soll ;).

    Was soll denn dieses 3-Dimensionale Feld imageL[0][1][0]?
    Das sollte doch wesentrlich eleganter gehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    kk :)

    Hab mir das gradschon auf galileobook angeschaut, sieht ja ganz gut aus, aber ist sicher viel Arbeit das so zu ändern dass so aussieht wie die andere, dass man easy die felder mit verschiedenen Farben anmalen kann.

    Zudem hatte ich bei den Buttons auch noch eine funktion, wenn man A drückt eine Farbe behalten kann und man mit der maus übers bild ziehen kann und anmalen:

    VB.NET-Quellcode

    1. If e.KeyCode = Keys.A Then
    3. For i As Integer = 1 To Matrixsize * Matrixsize
    4. AddHandler btnArray(i).MouseMove, AddressOf btnArray_Click
    6. Next i
    7. ToolStripStatusLabel1.Text = "A Aktivated"
    8. End If



    Das 3dimensionale Array ist nur zu buffern da in C, hat ja mit dem VB gar nix zu tun ;).
    [bildnr][row][col]


    So sieht imageL aus (imageR sieht gleich aus):

    C-Quellcode

    1. uint8_t imageL[][16][8]=
    2. {
    3. {{1,1,1,1,1,1,1,1},
    4. {1,0,0,0,0,0,0,1},
    5. {1,0,0,0,0,0,0,1},
    6. {1,0,0,7,7,0,0,1},
    7. {1,0,0,7,7,0,0,1},
    8. {1,0,0,0,0,0,0,1},
    9. {1,0,0,0,0,0,0,1},
    10. {1,1,1,1,1,1,1,1},
    11. {1,1,1,1,1,1,1,1},
    12. {1,0,0,0,0,0,0,1},
    13. {1,0,0,0,0,0,0,1},
    14. {1,0,0,0,0,0,0,1},
    15. {1,0,0,0,0,0,0,1},
    16. {1,0,0,0,0,0,0,1},
    17. {1,0,0,0,0,0,0,1},
    18. {1,1,1,1,1,1,1,1}},
    19. {{2,2,2,2,2,2,2,2},
    20. {2,1,1,1,1,1,1,2},
    21. {2,1,0,0,0,0,1,2},
    22. {2,1,0,0,0,0,1,2},
    23. {2,1,0,0,0,0,1,2},
    24. {2,1,0,0,0,0,1,2},
    25. {2,1,1,1,1,1,1,2},
    26. {2,2,2,2,2,2,2,2},
    27. {1,5,5,5,4,5,5,1},
    28. {5,1,5,5,4,5,1,5},
    29. {5,1,1,5,4,4,5,5},
    30. {4,4,4,1,4,4,4,4},
    31. {5,5,5,1,1,5,5,5},
    32. {5,5,1,5,4,1,5,5},
    33. {5,1,5,5,4,5,1,5},
    34. {1,5,5,5,4,5,5,1}}
    35. };


    Der Inhalt is irelevant, wird eh vom SD Inhalt überschrieben. 0-7 sind die verschieden farben.
    Es wird immer in [0] gebuffert während [1] angezeigt wird und umgekehrt.

    (Die obere Initalisierung schreibt in beide dieses ersten Arrays das 1. Bild von der SD-Karte.

    Bevor ich von SD-Karte gelesen habe, habe ich da einfach mehrere bilder angelegt und die nach der Reihe ausgelesen, jedoch durch den Speicher vom µ-Controller auf etwa 10-15 Bilder beschränkt (Zudem hat das Compillieren jedes mal auch zeit in Anspruch genommen), jetzt SD Karte in PC, daten drauf, rein in Matrix und fertig ;).

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

    Ich habe mir die Lösung vom ErfinderDesRades nicht angesehen, gehe aber davon aus, dass sie wie immer top ist^^
    Habe mir das ganze doch mal angeguckt und muss sagen, dass es richtig klasse aussieht! Lässt sich per GDI genauso machen, ist aber etwas anspruchsvoller.

    Meine Alternative zu dem DGV wäre es, dass ganze selbst per GDI zu zu zeichnen. Hat, wie ich finde, den vorteil, dass man ganz einfach selbst bestimmen kann wie alles auzusehen hat. Nachteil ist, dass man sich selbst um alles kümmern muss. Inwiefern das DGV da Vorteile bringt weiß ich nicht...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    4. Public Class Form1
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Me.DoubleBuffered = True
    8. End Sub
    10. Dim tmp As New LEDMatrix
    11. Dim PixelsPerLED As Integer = 10
    12. Dim AktColor As LEDMatrix.eLEDFarbe = LEDMatrix.eLEDFarbe.Red 'durch klicks auf einen button kann dies geändert werden..
    14. Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    15. Dim lx As Integer = CInt((e.X - PixelsPerLED / 2) / PixelsPerLED)
    16. Dim ly As Integer = CInt((e.Y - PixelsPerLED / 2) / PixelsPerLED)
    18. If lx >= 0 And lx < LEDMatrix.MatrixSize Then
    19. If ly >= 0 And ly < LEDMatrix.MatrixSize Then
    20. tmp.Matrix(lx, ly) = AktColor
    21. TextBox1.Text = tmp.ToFileString 'nur zur verdeutlichung...
    22. Me.Invalidate()
    23. End If
    24. End If
    26. End Sub
    28. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    30. For x = 0 To LEDMatrix.MatrixSize - 1
    31. For y = 0 To LEDMatrix.MatrixSize - 1
    33. Dim lx As Integer = x * PixelsPerLED
    34. Dim ly As Integer = y * PixelsPerLED
    36. e.Graphics.FillRectangle(New SolidBrush(tmp.GetColorFromMatrix(x, y)), lx, ly, PixelsPerLED, PixelsPerLED)
    37. e.Graphics.DrawRectangle(Pens.Gray, lx, ly, PixelsPerLED, PixelsPerLED)
    39. Next
    40. Next
    42. End Sub
    45. End Class
    47. Class LEDMatrix
    49. Public Sub New()
    50. For x = 0 To MatrixSize - 1
    51. For y = 0 To MatrixSize - 1
    52. Matrix(x, y) = eLEDFarbe.Black
    53. Next
    54. Next
    55. End Sub
    57. Public Const MatrixSize As Integer = 16
    58. Public Matrix(MatrixSize - 1, MatrixSize - 1) As eLEDFarbe
    60. Enum eLEDFarbe
    61. Red = 1
    62. Green = 2
    63. Blue = 3
    64. White = 4
    65. Black = 5
    66. Yellow = 6
    67. Magenta = 7
    68. Cyan = 8
    69. End Enum
    70. Public Function GetColor(ByVal LEDFarbe As eLEDFarbe) As Color
    71. Select Case LEDFarbe
    72. Case eLEDFarbe.Red : Return Color.Red
    73. Case eLEDFarbe.Black : Return Color.Black
    74. Case eLEDFarbe.Blue : Return Color.Blue
    75. Case eLEDFarbe.Cyan : Return Color.Cyan
    76. Case eLEDFarbe.Green : Return Color.Green
    77. Case eLEDFarbe.Magenta : Return Color.Magenta
    78. Case eLEDFarbe.White : Return Color.White
    79. Case eLEDFarbe.Yellow : Return Color.Yellow
    81. Case Else
    82. Return Color.Fuchsia
    83. End Select
    84. End Function
    85. Public Function GetColorFromMatrix(ByVal x As Integer, ByVal y As Integer) As Color
    86. Return GetColor(Matrix(x, y))
    87. End Function
    89. Public Function ToFileString() As String
    90. Dim tmp As String = ""
    92. For y = 0 To MatrixSize - 1
    93. For x = 0 To MatrixSize - 1
    94. tmp &= CInt(Matrix(x, y))
    95. Next
    96. tmp &= vbCrLf
    97. Next
    99. Return tmp
    100. End Function
    102. End Class

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

    Vielen dank für eure tollen, hochkarätigen Lösungen.

    Hab mir beide Angesehen, und muss auf den Ersten Blick Feststellen dass mir die Lösung von FreakJNS fast besser gefällt, vom design her und von der Auswahl, farbe erstauswählen dann anklicken usw. werde mir Morgen aber beide Lösungen noch genauer anschauen.


    Vielen Dank für eure Arbeit!!!

    Bin euch sehr dankbar!!

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

    kremsy schrieb:

    vom design her
    mit design meinst du, dass schwarz als standard-farbe voreingestellt ist?

    das kannste mit einer kleinen änderung auch bei die dgv-lsg bewirken:

    VB.NET-Quellcode

    1. Private _Brush As Brush() = {Brushes.Black, Brushes.Red, Brushes.Green, Brushes.Blue, Brushes.White, Brushes.Yellow, Brushes.Magenta, Brushes.Turquoise}
    ist halt so gemacht, dass der erste Brush der Standard-Brush ist.

    Und mitte Selection musstemal rumprobieren: Mulitselection ermöglicht, mitte Maus größere Bereiche zu umfassen, und wenndedann die Strg-Taste hälst, kannste noch weitere Bereiche zufügen.
    Auch mit Strg-Taste kann man einzelne Zellen oder Bereiche unselecten.
    Dann eine Farbe klicksen, und bunt ist :)

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

Facebook
Telefonspende