Private Sub Mise_a_Jour()
timedeb = Time
Call chenillard
n = 0
Do Until n = 64
Select Case n
Case 0 To 11
DMXoutput(ValCanal(n)) = DMXBO(n) And DMXOff(n) And (DMXAudio(n) Or DMXFader(n) Or DMXEFFET(n) Or DMXchen(n) Or DMXAlea(n) Or MinLevel Or DMXPF(n))
If DMXoutput(ValCanal(n)) > MasterLevel Then DMXoutput(ValCanal(n)) = MasterLevel
DmxOut(n) = DMXoutput(ValCanal(n))
Picture1(n).BackColor = RGB(0, DmxOut(n), 0)
TextMaxLevel(4).Text = Time - timedeb
'MSFlexGrid1.Row = 1
'MSFlexGrid1.Col = n + 1
'MSFlexGrid1.Text = DMXoutput(n)
'MSFlexGrid1.Row = 3
'MSFlexGrid1.Text = DMXoutput(n + 32)
Case 12 To 15
DMXoutput(ValCanal(n)) = DMXBO(n) And DMXOff(n) And (DMXAudio(n) Or DMXFader(n) Or DMXEFFET(n) Or DMXchen(n) Or DMXAlea(n) Or DMXPF(n))
If DMXoutput(ValCanal(n)) > MasterLevel Then DMXoutput(ValCanal(n)) = MasterLevel
DmxOut(n) = DMXoutput(ValCanal(n))
Picture1(n).BackColor = RGB(0, DmxOut(n), 0)
'MSFlexGrid1.Row = 1
'MSFlexGrid1.Col = n + 1
'MSFlexGrid1.Text = DMXoutput(n)
'MSFlexGrid1.Row = 3
'MSFlexGrid1.Text = DMXoutput(n + 32)
Case 16 To 31
DMXoutput(ValCanal(n)) = DMXBO(n) And (DMXEFFET(n) Or DMXPF(n))
'MSFlexGrid1.Row = 1
'MSFlexGrid1.Col = n + 1
'MSFlexGrid1.Text = DMXoutput(n)
'MSFlexGrid1.Row = 3
'MSFlexGrid1.Text = DMXoutput(n + 32)
Case 32
DMXoutput(n) = Form1.DmxChan1
Case 33
DMXoutput(n) = Form1.DmxChan2
Case 34
DMXoutput(n) = Form1.DmxChan3
Case 35
DMXoutput(n) = Form1.DmxChan4
Case 36
DMXoutput(n) = Form1.DmxChan5
Case 37
DMXoutput(n) = Form1.DmxChan6
Case 38
DMXoutput(n) = Form1.DmxChan7
Case 39
DMXoutput(n) = Form1.DmxChan8
Case 40
DMXoutput(n) = Form1.DmxChan9
Case 41
DMXoutput(n) = Form1.DmxChan10
End Select
n = n + 1
Loop
'For n = 0 To 31
' MSFlexGrid1.Row = 1
' MSFlexGrid1.Col = n + 1
' MSFlexGrid1.Text = DMXoutput(n)
' MSFlexGrid1.Row = 3
' MSFlexGrid1.Text = DMXoutput(n + 32)
'Next
TextMaxLevel(2).Text = Time - timedeb
End Sub