I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.