/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Jeg er måske idiot, men...
Fra : Jens Rex Bræmhøj


Dato : 16-02-02 18:33

Okay. Case "1101" er sand.
mp3version=1 og mp3layer=3

Så min kode skriver korrekt "192 kbit/s" i Text1.Text. Så der bliver jeg
glad.

MEN den skriver også "112 kbit/s". Og så bliver jeg gal som et æsel.

Det er jo tydeligvis mit Or halløj det er lidt galt med, men hvordan laver
man det korrekt. Håber i fatter meningen.

<code>
Case "1011"
If mp3version = 1 And mp3layer = 1 Then Text1.Text = Text1.Text &
"352 kbit/s" & vbCrLf
If mp3version = 1 And mp3layer = 2 Then Text1.Text = Text1.Text &
"224 kbit/s" & vbCrLf
If mp3version = 1 And mp3layer = 3 Then Text1.Text = Text1.Text &
"192 kbit/s" & vbCrLf
If mp3version = 2 And mp3layer = 1 Then Text1.Text = Text1.Text &
"176 kbit/s" & vbCrLf
If mp3version = 2 And mp3layer = 1 Or 2 Or 3 Then Text1.Text =
Text1.Text & "112 kbit/s" & vbCrLf
</code>



 
 
Mikkel Bundgaard (16-02-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 16-02-02 19:48

"Jens Rex Bræmhøj" <nospam@fuckup.dk> wrote in message
news:a4m53k$rog$1@news.net.uni-c.dk...
> Okay. Case "1101" er sand.
> mp3version=1 og mp3layer=3
>
> Så min kode skriver korrekt "192 kbit/s" i Text1.Text. Så
> der bliver jeg glad.
>
> MEN den skriver også "112 kbit/s". Og så bliver jeg gal
> som et æsel.
>
> Det er jo tydeligvis mit Or halløj det er lidt galt med, men
> hvordan laver man det korrekt. Håber i fatter meningen.
>
> <code>
If mp3version = 2 And mp3layer = 1 Or 2 Or 3 Then Text1.Text =
Text1.Text & "112 kbit/s" & vbCrLf
> </code>
Hej Jens

Du skal nok skrive

If mp3version = 2 And ( mp3layer = 1 Or mp3layer = 2 Or
mp3layer = 3 )

Dog vil den ved inputtet
mp3version = 2 og mp3layer = 1 både skrive "176 kbit/s" og
"112 kbit/s". Så det skal nok rettes lidt til .
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste