Keskustelu: Ohjelmointikysymykset: VB.NET: Mp3 tiedoston kesto, dB...

Olen tekemässä Mp3 soitinta putkan ohjeiden mukaan - miten sen saisi näyttämään kuinka paljon ja kuinka kauan mp3 tiedostosta on mennyt tyyliin "00:13 / 13:00" ja sen, kuinka monta desibeliä (dB) kaiuttimista kuuluu. esim: "50 dB"

Tuota desipeli -juttua en tiedä. Volume kyllä on helppo säätää, jos se kelpaa.

dim p as integer = mci.Position ' Nykyinen sijainti millisekunteissa
dim l as integer = mci.Length ' Kappaleen pituus(ms)
p = p / 1000 ' sekunteissa
l = l / 1000 ' sekunteissa

dim s1 as integer = p mod 60 ' sekunnit
dim m1 as integer = p / 60 ' minuutit
dim s2 as integer = l mod 60 ' sekunnit
dim m2 as integer = l / 60 ' minuutit

dim v as String = m1 & ":" & s1 & "/" & m2 & ":" & s2
' Nyt v sisältää oikein formatoidun sijainnin!

Volumea en ehdi nyt. Pitää lähteä koristreeneihin.
Kerron myöhemmin. Se on helppo!

sis mite noi positionit voi tietää siis nää kaikki on "punasta":

> dim p as integer = mci.Position ' Nykyinen sijainti millisekunteissa
> dim l as integer = mci.Length ' Kappaleen pituus(ms)
p = p / 1000 ' sekunteissa
l = l / 1000 ' sekunteissa

> dim s1 as integer = p mod 60 ' sekunnit
> dim m1 as integer = p / 60 ' minuutit
> dim s2 as integer = l mod 60 ' sekunnit
> dim m2 as integer = l / 60 ' minuutit

> dim v as String = m1 & ":" & s1 & "/" & m2 & ":" & s2
' Nyt v sisältää oikein formatoidun sijainnin!

> = punattu

VB:n dim-lauseeseen ei voi sisällyttää sijoituslausetta. Onkohan nuo esimerkit VB.NET ?

nii mä käytän iha vaa vb6:sta en .NETii

Jaa sitten Dim- ja sijoituslauseet eri riveille, siis
Dim p As Integer = mci.Psition =>
Dim p As Integer
p = mci.Position
Tarvit myös mci-nimisen ohjaimen

Tossa olisi se Volumen säätö juttu! Laitoin sen tonne TXT tiedostoon etten hirveesti piten täisi tätä keskustelua.
Koodi tarvitsee vaan VSCroll:lin jonka Max = 100 Ja Min 0
http://koti.mbnet.fi/petrinm/Volume.txt

HUOM:Säätö koskee kaikkia ääniä, mitkä kaijuttimista kuuluu!!

Kiitos, tosta oli mulle hyötyä!!!
Tosi hieno ohjelma

setä kirjoitti:

VB:n dim-lauseeseen ei voi sisällyttää sijoituslausetta. Onkohan nuo esimerkit VB.NET ?

Joo, sori, en oo käyttäny vb6:sta pitkään aikaan. Yritin kyllä tuon esimerkin koodata vb6:selle. Näköjään lipsahti sekaan .Net:iä. Noi kyllä on aika helposti korjattavissa. =/

Rivillä

Private Declare Function mixerOpen Lib "winmm.dll" (phmx As Long, ByVal uMxId As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long

Herjaa end subin, end functionin jne. puuttumisesta...!

Tuo määrittely täytyy kirjoittaa ohjelman alkuun eikä jonkun toisen aliohjelman sisään.

joo niin muistaakseni teinkin mutta saatoin laittaa vahingosa aliohjelmaan...tarkistan...