Led_Fading

Hallo an alle,
in KW 3 bin ich auf diesen Artikel gestossen Led_Fading
und habe die Exceldatei mal auf unsere bedürfnisse umgestellt.

Code

Const
pwmcount : Byte = 64;
pwmtable_a : Array[0..64] of Byte = (
  $0, $3, $3, $4, $4, $4, $5, $5, $5, $6,
  $6, $7, $7, $8, $8, $9, $9, $A, $B, $B,
  $C, $D, $E, $F, $10, $11, $13, $14, $16, $17,
  $19, $1B, $1D, $1F, $21, $23, $26, $29, $2C, $2F,
  $32, $36, $3A, $3E, $43, $48, $4D, $53, $59, $5F,
  $66, $6D, $75, $7E, $87, $91, $9C, $A7, $B3, $C0,
  $CE, $DD, $EE, $FF, $FF);

Const
pwmcount : Byte = 64;
pwmtable_b : Array[0..64] of Byte = (
  $0, $1, $1, $1, $2, $2, $2, $2, $2, $2,
  $3, $3, $3, $3, $4, $4, $4, $5, $5, $6,
  $6, $7, $7, $8, $9, $9, $A, $B, $C, $D,
  $F, $10, $11, $13, $15, $17, $19, $1B, $1D, $20,
  $23, $26, $29, $2D, $31, $36, $3B, $40, $46, $4C,
  $53, $5A, $62, $6B, $75, $80, $8B, $98, $A5, $B4,
  $C5, $D6, $EA, $FF, $FF);

Const
pwmcount : Byte = 64;
pwmtable_c : Array[0..64] of Byte = (
  $0, $0, $0, $0, $1, $1, $1, $1, $1, $1,
  $2, $2, $2, $2, $3, $3, $3, $4, $4, $5,
  $5, $6, $6, $7, $8, $9, $9, $A, $B, $C,
  $E, $F, $10, $12, $14, $16, $18, $1A, $1C, $1F,
  $22, $25, $28, $2C, $30, $35, $3A, $3F, $45, $4B,
  $52, $5A, $62, $6B, $74, $7F, $8B, $97, $A5, $B4,
  $C4, $D6, $EA, $FF, $FF);

Und das sieht meiner meinung deutlich geschmeidiger aus.
anbei die Änderungen.

Anhänge an diesem Beitrag

Option Explicit Sub generatePWM1() Dim arr As String arr = "Const" & vbCrLf arr = arr & "pwmcount : Byte = " & ActiveSheet.Cells(2, 7).Value & ";" & vbCrLf arr = arr & "pwmtable_a : Array[0.." & ActiveSheet.Cells(2, 7).Value & "] of Byte = (" & vbCrLf & " " Dim rRng As Range Set rRng = ActiveSheet.Range("$B$3:$B$258") Dim rCell As Range Dim i As Integer i = 1 Dim objData As New MSForms.DataObject For Each rCell In rRng.Cells If rCell.Value <= ActiveSheet.Cells(1, 7).Value Then If i = 10 Then arr = arr & "$" & Hex(rCell.Value) & ", " & vbCrLf & " " i = 1 Else arr = arr & "$" & Hex(rCell.Value) & ", " i = i + 1 End If End If If rCell.Row = ActiveSheet.Cells(2, 7).Value + 2 Then arr = arr & "$" & Hex(rCell.Value) & ");" & vbCrLf Debug.Print rCell End If Next rCell objData.SetText (arr) objData.PutInClipboard MsgBox ("Das Ergebis wurde in die Zwischenablge kopiert") End Sub Sub generatePWM2() Dim arr As String Rem arr = "static const uint8_t pwmtable[] PROGMEM = {" arr = "Const" & vbCrLf arr = arr & "pwmcount : Byte = " & ActiveSheet.Cells(2, 7).Value & ";" & vbCrLf arr = arr & "pwmtable_b : Array[0.." & ActiveSheet.Cells(2, 7).Value & "] of Byte = (" & vbCrLf & " " Dim rRng As Range Set rRng = ActiveSheet.Range("$C$3:$C$258") Dim rCell As Range Dim i As Integer i = 1 Dim objData As New MSForms.DataObject
Dateiname:	VBA.txt
Dateigröße:	3.75 KB
Titel:
Heruntergeladen:	11

Led_Fading

Led_Fading

Anhänge an diesem Beitrag

Re: Led_Fading

Re: Led_Fading

Registrierte in diesem Thema