HELP - CONVERTER C# PARA VB.NET [1 FORM APENAS]

 Tópico anterior Próximo tópico Novo tópico

HELP - CONVERTER C# PARA VB.NET [1 FORM APENAS]

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#487075 - 11/02/2019 16:46:04

GTSDIGITAL
SAO PAULO
Cadast. em:Janeiro/2015


Última edição em 16/02/2019 09:28:46 por GTSDIGITAL

 Anexos estao visíveis somente para usuários registrados

Amigos me ajude

Consegui este projeto de apenas 1 tela na net que seria um espectro do áudio que esta sendo reproduzido na placa de som, mas está em C# e precisava dele em VB.NET, alguém pode me ajudar ?


Form1.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Un4seen.Bass;
using Un4seen.BassWasapi;
using System.Threading.Tasks;

namespace Audio_Spectrum
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            analyzer = new Analyzer(progressBar1, progressBar2, spectrum1, comboBox1, chart1);
            analyzer.Enable = true;
            analyzer.DisplayEnable = true;
            timer1.Enabled = true;

            timer2.Enabled = true;
        }

        Analyzer analyzer;

        private void timer2_Tick(object sender, EventArgs e)
        {
            label3.Visible = false;
            timer3.Enabled = true;
            timer2.Enabled = false;
        }

        private void timer3_Tick(object sender, EventArgs e)
        {
            if (label3.Visible == false)
            {
                label3.Visible = true;
                timer2.Enabled = true;
                timer3.Enabled = false;
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }
    }
}




Analyzer.cs

using System;
using System.Collections.Generic;
using System.IO.Ports;
//using System.Windows;
using System.Windows.Forms;
using System.Windows.Threading;
using Un4seen.Bass;
using Un4seen.BassWasapi;
using System.Windows.Forms.DataVisualization.Charting;

namespace Audio_Spectrum
{

    internal class Analyzer
    {
        private bool _enable;               //enabled status
        private DispatcherTimer _t;         //timer that refreshes the display
        public float[] _fft;               //buffer for fft data
        private ProgressBar _l, _r;         //progressbars for left and right channel intensity
        private WASAPIPROC _process;        //callback function to obtain data
        private int _lastlevel;             //last output level
        private int _hanctr;                //last output level counter
        public List<byte> _spectrumdata;   //spectrum data buffer
        private Spectrum _spectrum;         //spectrum dispay control
        private ComboBox _devicelist;       //device list
        private bool _initialized;          //initialized flag
        private int devindex;               //used device index
        private Chart _chart;

        private int _lines = 64;            // number of spectrum lines

        //ctor
        public Analyzer(ProgressBar left, ProgressBar right, Spectrum spectrum, ComboBox devicelist, Chart chart)
        {
            _fft = new float[8192];
            _lastlevel = 0;
            _hanctr = 0;
            _t = new DispatcherTimer();
            _t.Tick += _t_Tick;
            _t.Interval = TimeSpan.FromMilliseconds(25); //40hz refresh rate//25
            _t.IsEnabled = false;
            _l = left;
            _r = right;
            _l.Minimum = 0;
            _r.Minimum = 0;
            _r.Maximum = (ushort.MaxValue);
            _l.Maximum = (ushort.MaxValue);
            _process = new WASAPIPROC(Process);
            _spectrumdata = new List<byte>();
            _spectrum = spectrum;
            _chart = chart;
            _devicelist = devicelist;
            _initialized = false;

            chart.Series.Add("wave");
            chart.Series["wave"].ChartType = SeriesChartType.FastLine;
            chart.Series["wave"].ChartArea = "ChartArea1";

            chart.ChartAreas["ChartArea1"].AxisX.MajorGrid.Enabled = false;
            chart.ChartAreas["ChartArea1"].AxisY.MajorGrid.Enabled = false;
            chart.ChartAreas["ChartArea1"].AxisY.Maximum = 255;
            chart.ChartAreas["ChartArea1"].AxisY.Minimum = 0;
            chart.ChartAreas["ChartArea1"].AxisX.Maximum = 64;
            chart.ChartAreas["ChartArea1"].AxisX.Minimum = 0;
            for (int i = 0; i < chart.ChartAreas["ChartArea1"].AxisX.Maximum; i++)
            {
                chart.Series["wave"].Points.Add(0);
            }

            Init();
        }

        // Serial port for arduino output


        // flag for display enable
        public bool DisplayEnable { get; set; }

        //flag for enabling and disabling program functionality
        public bool Enable
        {
            get { return _enable; }
            set
            {
                _enable = value;
                if (value)
                {
                    if (!_initialized)
                    {
                        var array = (_devicelist.Items[_devicelist.SelectedIndex] as string).Split(' ');
                        devindex = Convert.ToInt32(array[0]);
                        bool result = BassWasapi.BASS_WASAPI_Init(devindex, 0, 0, BASSWASAPIInit.BASS_WASAPI_BUFFER, 1f, 0.05f, _process, IntPtr.Zero);
                        if (!result)
                        {
                            var error = Bass.BASS_ErrorGetCode();
                            MessageBox.Show(error.ToString());
                        }
                        else
                        {
                            _initialized = true;
                            _devicelist.Enabled = false;
                        }
                    }
                    BassWasapi.BASS_WASAPI_Start();
                }
                else BassWasapi.BASS_WASAPI_Stop(true);
                System.Threading.Thread.Sleep(500);
                _t.IsEnabled = value;
            }
        }

        // initialization
        private void Init()
        {
            bool result = false;
            for (int i = 0; i < BassWasapi.BASS_WASAPI_GetDeviceCount(); i++)
            {
                var device = BassWasapi.BASS_WASAPI_GetDeviceInfo(i);
                if (device.IsEnabled && device.IsLoopback)
                {
                    _devicelist.Items.Add(string.Format("{0} - {1}", i, device.name));
                }
            }
            _devicelist.SelectedIndex = 0;
            Bass.BASS_SetConfig(BASSConfig.BASS_CONFIG_UPDATETHREADS, false);
            result = Bass.BASS_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero);
            if (!result) throw new Exception("Init Error");
        }

        //timer
        private void _t_Tick(object sender, EventArgs e)
        {
            int ret = BassWasapi.BASS_WASAPI_GetData(_fft, (int)BASSData.BASS_DATA_FFT8192);  //get ch.annel fft data
            if (ret < -1) return;
            int x, y;
            int b0 = 0;

            //computes the spectrum data, the code is taken from a bass_wasapi sample.
            for (x = 0; x < _lines; x++)
            {
                float peak = 0;
                int b1 = (int)Math.Pow(2, x * 10.0 / (_lines - 1));
                if (b1 > 1023) b1 = 1023;
                if (b1 <= b0) b1 = b0 + 1;
                for (; b0 < b1; b0++)
                {
                    if (peak < _fft[1 + b0]) peak = _fft[1 + b0];
                }
                y = (int)(Math.Sqrt(peak) * 3 * 255 - 4);
                if (y > 255) y = 255;
                if (y < 0) y = 0;
                _spectrumdata.Add((byte)y);
                //Console.Write("{0, 3} ", y);
            }

            if (DisplayEnable) _spectrum.Set(_spectrumdata);
            for (int i = 0; i < _spectrumdata.ToArray().Length; i++)
            {
                try
                {
                    _chart.Series["wave"].Points.Add(_spectrumdata[i]);
                }
                catch (Exception)
                {
                }
                try
                {
                    _chart.Series["wave"].Points.RemoveAt(0);
                }
                catch (Exception)
                {
                }

            }
            _spectrumdata.Clear();


            int level = BassWasapi.BASS_WASAPI_GetLevel();
            _l.Value = (Utils.LowWord32(level));
            _r.Value = (Utils.HighWord32(level));
            if (level == _lastlevel && level != 0) _hanctr++;
            _lastlevel = level;

            //Required, because some programs hang the output. If the output hangs for a 75ms
            //this piece of code re initializes the output so it doesn't make a gliched sound for long.
            if (_hanctr > 3)
            {
                _hanctr = 0;
                _l.Value = (0);
                _r.Value = (0);
                Free();
                Bass.BASS_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero);
                _initialized = false;
                Enable = true;
            }

        }

        // WASAPI callback, required for continuous recording
        private int Process(IntPtr buffer, int length, IntPtr user)
        {
            return length;
        }

        //cleanup
        public void Free()
        {
            BassWasapi.BASS_WASAPI_Free();
            Bass.BASS_Free();
        }
    }
}






#487077 - 11/02/2019 17:05:32

GTSDIGITAL
SAO PAULO
Cadast. em:Janeiro/2015


E mais essa procedure...


Spectrum.xaml

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;

namespace Audio_Spectrum
{
    /// <summary>
    /// Interaction logic for Spectrum.xaml
    /// </summary>
    public partial class Spectrum : UserControl
    {
        public Spectrum()
        {
            InitializeComponent();
        }
        public void Set(List<byte> data)
        {
            if (data.Count < 64) return;

            Bar01.Value = data[0];
            Bar02.Value = data[1];
            Bar03.Value = data[2];
            Bar04.Value = data[3];
            Bar05.Value = data[4];
            Bar06.Value = data[5];
            Bar07.Value = data[6];
            Bar08.Value = data[7];
            Bar09.Value = data[8];
            Bar10.Value = data[9];
            Bar11.Value = data[10];
            Bar12.Value = data[11];
            Bar13.Value = data[12];
            Bar14.Value = data[13];
            Bar15.Value = data[14];
            Bar16.Value = data[15];
            Bar17.Value = data[16];
            Bar18.Value = data[17];
            Bar19.Value = data[18];
            Bar20.Value = data[19];
            Bar21.Value = data[20];
            Bar22.Value = data[21];
            Bar23.Value = data[22];
            Bar24.Value = data[23];
            Bar25.Value = data[24];
            Bar26.Value = data[25];
            Bar27.Value = data[26];
            Bar28.Value = data[27];
            Bar29.Value = data[28];
            Bar30.Value = data[29];
            Bar31.Value = data[30];
            Bar32.Value = data[31];
            Bar33.Value = data[32];
            Bar34.Value = data[33];
            Bar35.Value = data[34];
            Bar36.Value = data[35];
            Bar37.Value = data[36];
            Bar38.Value = data[37];
            Bar39.Value = data[38];
            Bar40.Value = data[39];
            Bar41.Value = data[40];
            Bar42.Value = data[41];
            Bar43.Value = data[42];
            Bar44.Value = data[43];
            Bar45.Value = data[44];
            Bar46.Value = data[45];
            Bar47.Value = data[46];
            Bar48.Value = data[47];
            Bar49.Value = data[48];
            Bar50.Value = data[49];
            Bar51.Value = data[50];
            Bar52.Value = data[51];
            Bar53.Value = data[52];
            Bar54.Value = data[53];
            Bar55.Value = data[54];
            Bar56.Value = data[55];
            Bar57.Value = data[56];
            Bar58.Value = data[57];
            Bar59.Value = data[58];
            Bar60.Value = data[59];
            Bar61.Value = data[60];
            Bar62.Value = data[61];
            Bar63.Value = data[62];
            Bar64.Value = data[63];

        }
    }
}




#487079 - 11/02/2019 17:07:10

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


Desculpe a pergunta, mas pra quê você quer converter este código para VB.NET?





#487080 - 11/02/2019 17:12:07

GTSDIGITAL
SAO PAULO
Cadast. em:Janeiro/2015


Última edição em 11/02/2019 17:13:22 por GTSDIGITAL

Citação:
:
Desculpe a pergunta, mas pra quê você quer converter este código para VB.NET?



Grande GUIMORAES, então amigo é que meu player já esta pronto 100% feito em VB.NET e precisava agora das barras VUMETER para ficar oscilando com o audio que esta saindo nas caixas de som.
Este projetinho C# que encontrei na net está funcionando perfeitinho para coloca-lo dentro do FORM em VB.NET, entendeu ?




#487081 - 11/02/2019 17:37:41

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Veja este.
https://www.carlosag.net/tools/codetranslator/



#487084 - 11/02/2019 17:47:37

JABA
CABO FRIO
Cadast. em:Agosto/2005


Citação:
Grande GUIMORAES, então amigo é que meu player já esta pronto 100% feito em VB.NET e precisava agora das barras VUMETER para ficar oscilando com o audio que esta saindo nas caixas de som.
Este projetinho C# que encontrei na net está funcionando perfeitinho para coloca-lo dentro do FORM em VB.NET, entendeu ?


Não há necessidade de conversão, a plataforma permite lidar com projetos de linguagens diferentes envolvendo uma mesma compilação. Adicione o projeto ao seu e faça o teste.


_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#487087 - 11/02/2019 18:11:28

GTSDIGITAL
SAO PAULO
Cadast. em:Janeiro/2015


Citação:
:
Veja este.
https://www.carlosag.net/tools/codetranslator/

Tentei estes conversores, mas da varios erros na compilação pois ele nao converter perfeito.



#487089 - 11/02/2019 18:47:06

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Não sei se esta certo não intendo muito de vb net mas acho que seria mais ou menos isso


Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports Un4seen.Bass
Imports Un4seen.BassWasapi
Imports System.Threading.Tasks

Namespace Audio_Spectrum
    Partial Public Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()

            analyzer = New Analyzer(progressBar1, progressBar2, spectrum1, comboBox1, chart1)
            analyzer.Enable = True
            analyzer.DisplayEnable = True
            timer1.Enabled = True

            timer2.Enabled = True
        End Sub

        Private analyzer As Analyzer

        Private Sub timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
            label3.Visible = False
            timer3.Enabled = True
            timer2.Enabled = False
        End Sub

        Private Sub timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If label3.Visible = False Then
                label3.Visible = True
                timer2.Enabled = True
                timer3.Enabled = False
            End If
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

        End Sub
    End Class
End Namespace







Imports System
Imports System.Collections.Generic
Imports System.IO.Ports
'using System.Windows;
Imports System.Windows.Forms
Imports System.Windows.Threading
Imports Un4seen.Bass
Imports Un4seen.BassWasapi
Imports System.Windows.Forms.DataVisualization.Charting

Namespace Audio_Spectrum

    Friend Class Analyzer
        Private _enable As Boolean 'enabled status
        Private _t As DispatcherTimer 'timer that refreshes the display
        Public _fft() As Single 'buffer for fft data
        Private _l, _r As ProgressBar 'progressbars for left and right channel intensity
        Private _process As WASAPIPROC 'callback function to obtain data
        Private _lastlevel As Integer 'last output level
        Private _hanctr As Integer 'last output level counter
        Public _spectrumdata As List(Of Byte) 'spectrum data buffer
        Private _spectrum As Spectrum 'spectrum dispay control
        Private _devicelist As ComboBox 'device list
        Private _initialized As Boolean 'initialized flag
        Private devindex As Integer 'used device index
        Private _chart As Chart

        Private _lines As Integer = 64 ' number of spectrum lines

        'ctor
        Public Sub New(ByVal left As ProgressBar, ByVal right As ProgressBar, ByVal spectrum As Spectrum, ByVal devicelist As ComboBox, ByVal chart As Chart)
            _fft = New Single(8191){}
            _lastlevel = 0
            _hanctr = 0
            _t = New DispatcherTimer()
            AddHandler _t.Tick, AddressOf _t_Tick
            _t.Interval = TimeSpan.FromMilliseconds(25) '40hz refresh rate//25
            _t.IsEnabled = False
            _l = left
            _r = right
            _l.Minimum = 0
            _r.Minimum = 0
            _r.Maximum = (UShort.MaxValue)
            _l.Maximum = (UShort.MaxValue)
            _process = New WASAPIPROC(AddressOf Process)
            _spectrumdata = New List(Of Byte)()
            _spectrum = spectrum
            _chart = chart
            _devicelist = devicelist
            _initialized = False

            chart.Series.Add("wave")
            chart.Series("wave").ChartType = SeriesChartType.FastLine
            chart.Series("wave").ChartArea = "ChartArea1"

            chart.ChartAreas("ChartArea1").AxisX.MajorGrid.Enabled = False
            chart.ChartAreas("ChartArea1").AxisY.MajorGrid.Enabled = False
            chart.ChartAreas("ChartArea1").AxisY.Maximum = 255
            chart.ChartAreas("ChartArea1").AxisY.Minimum = 0
            chart.ChartAreas("ChartArea1").AxisX.Maximum = 64
            chart.ChartAreas("ChartArea1").AxisX.Minimum = 0
            For i As Integer = 0 To (chart.ChartAreas("ChartArea1").AxisX.Maximum) - 1
                chart.Series("wave").Points.Add(0)
            Next i

            Init()
        End Sub

        ' Serial port for arduino output


        ' flag for display enable
        Public Property DisplayEnable() As Boolean

        'flag for enabling and disabling program functionality
        Public Property Enable() As Boolean
            Get
                Return _enable
            End Get
            Set(ByVal value As Boolean)
                _enable = value
                If value Then
                    If Not _initialized Then
                        Dim array = (TryCast(_devicelist.Items(_devicelist.SelectedIndex), String)).Split(" "c)
                        devindex = Convert.ToInt32(array(0))
                        Dim result As Boolean = BassWasapi.BASS_WASAPI_Init(devindex, 0, 0, BASSWASAPIInit.BASS_WASAPI_BUFFER, 1F, 0.05F, _process, IntPtr.Zero)
                        If Not result Then
                            Dim [error] = Bass.BASS_ErrorGetCode()
                            MessageBox.Show([error].ToString())
                        Else
                            _initialized = True
                            _devicelist.Enabled = False
                        End If
                    End If
                    BassWasapi.BASS_WASAPI_Start()
                Else
                    BassWasapi.BASS_WASAPI_Stop(True)
                End If
                System.Threading.Thread.Sleep(500)
                _t.IsEnabled = value
            End Set
        End Property

        ' initialization
        Private Sub Init()
            Dim result As Boolean = False
            For i As Integer = 0 To BassWasapi.BASS_WASAPI_GetDeviceCount() - 1
                Dim device = BassWasapi.BASS_WASAPI_GetDeviceInfo(i)
                If device.IsEnabled AndAlso device.IsLoopback Then
                    _devicelist.Items.Add(String.Format("{0} - {1}", i, device.name))
                End If
            Next i
            _devicelist.SelectedIndex = 0
            Bass.BASS_SetConfig(BASSConfig.BASS_CONFIG_UPDATETHREADS, False)
            result = Bass.BASS_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero)
            If Not result Then
                Throw New Exception("Init Error")
            End If
        End Sub

        'timer
        Private Sub _t_Tick(ByVal sender As Object, ByVal e As EventArgs)
            Dim ret As Integer = BassWasapi.BASS_WASAPI_GetData(_fft, CInt(Math.Truncate(BASSData.BASS_DATA_FFT8192))) 'get ch.annel fft data
            If ret < -1 Then
                Return
            End If
            Dim x, y As Integer
            Dim b0 As Integer = 0

            'computes the spectrum data, the code is taken from a bass_wasapi sample.
            For x = 0 To _lines - 1
                Dim peak As Single = 0
                Dim b1 As Integer = CInt(Math.Truncate(Math.Pow(2, x * 10.0 / (_lines - 1))))
                If b1 > 1023 Then
                    b1 = 1023
                End If
                If b1 <= b0 Then
                    b1 = b0 + 1
                End If
                Do While b0 < b1
                    If peak < _fft(1 + b0) Then
                        peak = _fft(1 + b0)
                    End If
                    b0 += 1
                Loop
                y = CInt(Math.Truncate(Math.Sqrt(peak) * 3 * 255 - 4))
                If y > 255 Then
                    y = 255
                End If
                If y < 0 Then
                    y = 0
                End If
                _spectrumdata.Add(CByte(y))
                'Console.Write("{0, 3} ", y);
            Next x

            If DisplayEnable Then
                _spectrum.Set(_spectrumdata)
            End If
            For i As Integer = 0 To (_spectrumdata.ToArray().Length) - 1
                Try
                    _chart.Series("wave").Points.Add(_spectrumdata(i))
                Catch e1 As Exception
                End Try
                Try
                    _chart.Series("wave").Points.RemoveAt(0)
                Catch e2 As Exception
                End Try

            Next i
            _spectrumdata.Clear()


            Dim level As Integer = BassWasapi.BASS_WASAPI_GetLevel()
            _l.Value = (Utils.LowWord32(level))
            _r.Value = (Utils.HighWord32(level))
            If level = _lastlevel AndAlso level <> 0 Then
                _hanctr += 1
            End If
            _lastlevel = level

            'Required, because some programs hang the output. If the output hangs for a 75ms
            'this piece of code re initializes the output so it doesn't make a gliched sound for long.
            If _hanctr > 3 Then
                _hanctr = 0
                _l.Value = (0)
                _r.Value = (0)
                Free()
                Bass.BASS_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero)
                _initialized = False
                Enable = True
            End If

        End Sub

        ' WASAPI callback, required for continuous recording
        Private Function Process(ByVal buffer As IntPtr, ByVal length As Integer, ByVal user As IntPtr) As Integer
            Return length
        End Function

        'cleanup
        Public Sub Free()
            BassWasapi.BASS_WASAPI_Free()
            Bass.BASS_Free()
        End Sub
    End Class
End Namespace











Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes

Namespace Audio_Spectrum
    ''' <summary>
    ''' Interaction logic for Spectrum.xaml
    ''' </summary>
    Partial Public Class Spectrum
        Inherits UserControl

        Public Sub New()
            InitializeComponent()
        End Sub
        Public Sub [Set](ByVal data As List(Of Byte))
            If data.Count < 64 Then
                Return
            End If

            Bar01.Value = data(0)
            Bar02.Value = data(1)
            Bar03.Value = data(2)
            Bar04.Value = data(3)
            Bar05.Value = data(4)
            Bar06.Value = data(5)
            Bar07.Value = data(6)
            Bar08.Value = data(7)
            Bar09.Value = data(8)
            Bar10.Value = data(9)
            Bar11.Value = data(10)
            Bar12.Value = data(11)
            Bar13.Value = data(12)
            Bar14.Value = data(13)
            Bar15.Value = data(14)
            Bar16.Value = data(15)
            Bar17.Value = data(16)
            Bar18.Value = data(17)
            Bar19.Value = data(18)
            Bar20.Value = data(19)
            Bar21.Value = data(20)
            Bar22.Value = data(21)
            Bar23.Value = data(22)
            Bar24.Value = data(23)
            Bar25.Value = data(24)
            Bar26.Value = data(25)
            Bar27.Value = data(26)
            Bar28.Value = data(27)
            Bar29.Value = data(28)
            Bar30.Value = data(29)
            Bar31.Value = data(30)
            Bar32.Value = data(31)
            Bar33.Value = data(32)
            Bar34.Value = data(33)
            Bar35.Value = data(34)
            Bar36.Value = data(35)
            Bar37.Value = data(36)
            Bar38.Value = data(37)
            Bar39.Value = data(38)
            Bar40.Value = data(39)
            Bar41.Value = data(40)
            Bar42.Value = data(41)
            Bar43.Value = data(42)
            Bar44.Value = data(43)
            Bar45.Value = data(44)
            Bar46.Value = data(45)
            Bar47.Value = data(46)
            Bar48.Value = data(47)
            Bar49.Value = data(48)
            Bar50.Value = data(49)
            Bar51.Value = data(50)
            Bar52.Value = data(51)
            Bar53.Value = data(52)
            Bar54.Value = data(53)
            Bar55.Value = data(54)
            Bar56.Value = data(55)
            Bar57.Value = data(56)
            Bar58.Value = data(57)
            Bar59.Value = data(58)
            Bar60.Value = data(59)
            Bar61.Value = data(60)
            Bar62.Value = data(61)
            Bar63.Value = data(62)
            Bar64.Value = data(63)

        End Sub
    End Class
End Namespace










#487095 - 12/02/2019 07:18:38

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Apenas faça como o JABA disse que irá funcionar...


Grupo DotNet.Br no FaceBook



#487097 - 12/02/2019 08:31:49

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


É exatamente o que eu ia dizer, adicione este projeto ao seu.
Primeiro, compile este projeto para uma dll, e em seguida importe para o seu projeto principal, vai dar certo.




#487106 - 12/02/2019 12:20:36

GTSDIGITAL
SAO PAULO
Cadast. em:Janeiro/2015


Citação:
:
Grande GUIMORAES, então amigo é que meu player já esta pronto 100% feito em VB.NET e precisava agora das barras VUMETER para ficar oscilando com o audio que esta saindo nas caixas de som.
Este projetinho C# que encontrei na net está funcionando perfeitinho para coloca-lo dentro do FORM em VB.NET, entendeu ?

Não há necessidade de conversão, a plataforma permite lidar com projetos de linguagens diferentes envolvendo uma mesma compilação. Adicione o projeto ao seu e faça o teste.

Citação:
:
É exatamente o que eu ia dizer, adicione este projeto ao seu.
Primeiro, compile este projeto para uma dll, e em seguida importe para o seu projeto principal, vai dar certo.

Citação:
:
Apenas faça como o JABA disse que irá funcionar...

Vocês são feras, valeu!!!!



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário