For k = 10 To 64 If Len(k) = 1 Then If (Left(Temp, 5) = "P00" & k & "M") Then Debug.Print "Preset nr: " & k & " er nu aktiv!" End If Else If (Left(Temp, 5) = "P0" & k & "M") Then Debug.Print "Preset nr: " & k & " er nu aktiv!" End If End If Next k
If Left(Temp, 2) = "P0" And (Right(Temp, 1) = "M") Then K = Val(Mid(Temp, 3, 2)) Debug.Print "Preset nr: " & K & " er nu aktiv!" End If
Synes godt om
Slettet bruger
09. november 2003 - 17:27#8
//kabbak
Den sidste kodestump du tilføjede ville gøre følgende (Ret mig, hvis det er forkert)
Hvis Temp = "P001M" og K = Val(Mid(Temp, 3, 2))
så K = 01
??
Vil du erstatte If(Left... osv med din kode eller ?
Synes godt om
Slettet bruger
09. november 2003 - 17:28#9
//kabbak
Ok kabbak du kom før mig... jeg prøver lige din kode... så vent bare med at svare...
Synes godt om
Slettet bruger
09. november 2003 - 17:46#10
//kabbak
Den sidste stump kode du smed i tråden bruger ->(Right(Temp,1) ="M") men det er ikke så heldigt i dette tilfælde - jeg får faktisk nogle flere data med ind fra COM-porten. Sidste del af strengen er desværre ikke altid ens...
Hvis allerede én mikrofon har været aktiv får jeg dette ind på COM-porten
Eksempel: P001M<13>R003 <13>
"R003" fortæller at mikrofon nr. 3 netop er deaktiveret...
Hvis derimod en mikrofon aktiveres som den første får jeg kun denne kode
Eksempel: P001M<13>
Da strengen ikke altid har den samme længde - kan jeg ikke umiddelbart bruge (Right(Temp,1))...
Problemet er egentligt løst (se tråden kl. 17.11.24) men hvis du har andre gode forslag, er de velkomne..
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.