Dim maLigne As String = "CHAN 112/HFF 273/H5C 301/H8F 302/HFF 303/HFF 304/HFF 305/HFF 307/H99 308/H99" Dim mesCouples() As String = maLigne.Split(" ") Dim mesDatas() As String Dim monPourcent As Integer For r As Integer = mesCouples.GetLowerBound(0) + 1 To mesCouples.GetUpperBound(0) mesDatas = mesCouples(r).Split("/") ' mesDatas(0) contient le channel_id, comme 112 ' mesDatas(1) contient le chiffre hexa, comme HFF monPourcent = Val("&" & mesDatas(1)) monPourcent = CInt(CDbl(monPourcent * 100 / 255)) Debug.Print(mesDatas(0) & vbTab & mesDatas(1) & vbTab & monPourcent.ToString) Next r
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCUE 90.0 $$CUEPARAMS 0 0 DOWN 10 0 UP 10 0 $$WAIT 0 0 TEXT Services $$TEXT Services $$GOONGO 2 CHAN 44/HFF 50/H99 51/H99 52/H99 53/H99 54/H99 CHAN 55/H99 181/H95 182/H95 183/H7E 184/H7F 185/H7E CHAN 186/H7F 187/H7E 189/H95 254/HFF $$PRESETTEXT Services $$TEXT Services $$ATTRIBUTETIMES 0 0 0 0 0 0 0 0 0 100 100 100
<Cue index="5"> <Number number="8" sub_number="0" /> <CueDatas> <CueData value_multipart_index="0" effect_multipart_index="0"> <Channel fixture_id="6" channel_id="6" attribute_name="DIM" /> <Value>25.000</Value> </CueData> <CueData value_multipart_index="0" effect_multipart_index="0"> <Channel fixture_id="7" channel_id="7" attribute_name="DIM" /> <Value>68.000</Value> </CueData> <CueData value_multipart_index="0" effect_multipart_index="0"> <Channel fixture_id="9" channel_id="9" attribute_name="DIM" /> <Value>59.000</Value> </CueData> </CueDatas> <CuePart index="0" name="test de cue" basic_fade="1.000" /> </Cue>
? maVariablepour qu'elle s'inscrive dans la fenêtre.