Перевести код с С# на VB.net

@DimkaBel · Регистрация: 21.11.2012

Студворк — интернет-сервис помощи студентам

Народ всех С Новым Годом! и помогите перекодить с С# на VB.net сразу говару на developerfusion.com/tools/convert/csharp-to-vb/ был код не работает, тачней одна строчка портит всю картину.
Вот код С#

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using CoreAudioApi;
 
namespace CoreAudioSample
{
    public partial class Form1 : Form
    {
        private MMDevice device;
 
        public Form1()
        {
            InitializeComponent();
            MMDeviceEnumerator DevEnum = new MMDeviceEnumerator();
            device = DevEnum.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia);
            tbMaster.Value = (int)(device.AudioEndpointVolume.MasterVolumeLevelScalar * 100);
            device.AudioEndpointVolume.OnVolumeNotification += new AudioEndpointVolumeNotificationDelegate(AudioEndpointVolume_OnVolumeNotification);
            timer1.Enabled = true;
        }
 
        void AudioEndpointVolume_OnVolumeNotification(AudioVolumeNotificationData data)
        {
            if (this.InvokeRequired)
            {
                object[] Params = new object[1];
                Params[0] = data;
                this.Invoke(new AudioEndpointVolumeNotificationDelegate(AudioEndpointVolume_OnVolumeNotification), Params);
            }
            else
            {
                tbMaster.Value = (int)(data.MasterVolume * 100);
            }
        }
 
        private void tbMaster_Scroll(object sender, EventArgs e)
        {
            device.AudioEndpointVolume.MasterVolumeLevelScalar = ((float)tbMaster.Value / 100.0f);
        }
 
        private void timer1_Tick(object sender, EventArgs e)
        {
            pkMaster.Value = (int)(device.AudioMeterInformation.MasterPeakValue * 100);
            pkLeft.Value = (int)(device.AudioMeterInformation.PeakValues[0]*100);
            pkRight.Value = (int)(device.AudioMeterInformation.PeakValues[1]* 100);
        }
 
        
    }
}

Вот на VB.net конв-т сайтом developerfusion.com/tools/convert/csharp-to-vb/

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports CoreAudioApi
Namespace CoreAudioSample
 Public Partial Class Form1
  Inherits Form
  Private device As MMDevice
  Public Sub New()
   InitializeComponent()
   Dim DevEnum As New MMDeviceEnumerator()
   device = DevEnum.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia)
   tbMaster.Value = CInt(device.AudioEndpointVolume.MasterVolumeLevelScalar * 100)
   device.AudioEndpointVolume.OnVolumeNotification += New AudioEndpointVolumeNotificationDelegate(AddressOf AudioEndpointVolume_OnVolumeNotification)
   timer1.Enabled = True
  End Sub
  Private Sub AudioEndpointVolume_OnVolumeNotification(data As AudioVolumeNotificationData)
   If Me.InvokeRequired Then
    Dim Params As Object() = New Object(0) {}
    Params(0) = data
    Me.Invoke(New AudioEndpointVolumeNotificationDelegate(AddressOf AudioEndpointVolume_OnVolumeNotification), Params)
   Else
    tbMaster.Value = CInt(data.MasterVolume * 100)
   End If
  End Sub
  Private Sub tbMaster_Scroll(sender As Object, e As EventArgs)
   device.AudioEndpointVolume.MasterVolumeLevelScalar = (CSng(tbMaster.Value) / 100F)
  End Sub
  Private Sub timer1_Tick(sender As Object, e As EventArgs)
   pkMaster.Value = CInt(device.AudioMeterInformation.MasterPeakValue * 100)
   pkLeft.Value = CInt(device.AudioMeterInformation.PeakValues(0) * 100)
   pkRight.Value = CInt(device.AudioMeterInformation.PeakValues(1) * 100)
  End Sub
 End Class
End Namespace

конкретно не хотит работать вот эта стрчка

VB.NET
1
device.AudioEndpointVolume.OnVolumeNotification += New AudioEndpointVolumeNotificationDelegate(AddressOf AudioEndpointVolume_OnVolumeNotification)

P.S Заранее благадарю а еще на всякий случай фаил библиотеки :

Release · 03.01.2014, 16:48

держи!

Release · 03.01.2014, 16:53

Сообщение от DimkaBel

конкретно не хотит работать вот эта стрчка

она и не нужна там

да кстати у всех TB выставил Maximum = 100.

Добавлено через 4 минуты
да и это можно убрать:

VB.NET
1
2
3
4
5
6
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

раньше юзал эту библиотеку, но не думал, что с помощью нее можно регулировать громкость. спасибо.

@DimkaBel · 03.01.2014, 17:18 **[ТС]**

Release, Самый умный да типа я не пробовал с

VB.NET
1
device.AudioEndpointVolume.OnVolumeNotification += New AudioEndpointVolumeNotificationDelegate(AddressOf AudioEndpointVolume_OnVolumeNotification)

и без неё
в этой строке вся соль!!!

Release · 03.01.2014, 17:27

DimkaBel,

Не по теме:

таким, как ты, я во век больше не помогу..

@DimkaBel · 03.01.2014, 17:30 **[ТС]**

Сообщение от Release

DimkaBel, ты вложение скачай... таким, как ты я во век больше не помогу..
И да, в мою сторону лучше такое не говорить, я тебя предупредил.

Запустите код C# и сразу все поймете в чем разница между первым вложением и С#

Release · 03.01.2014, 17:35

Что требуется заранее пишем на форум.

@DimkaBel · 03.01.2014, 18:10 **[ТС]**

Да еще один нюансик библиотека написана на VS 2010 так что не пытай тесь работать с ней на VS 2008 или 2005!!!

Добавлено через 31 минуту

Сообщение от Release

Что требуется заранее пишем на форум.

А че не понятно? перекодить C# код на VB.NET полностью не выкидывая ни чего!

Release · 03.01.2014, 18:12

Замена той строки.

VB.NET
1
AddHandler device.AudioEndpointVolume.OnVolumeNotification, AddressOf AudioEndpointVolume_OnVolumeNotification

отличие результата не заметил..

Добавлено через 56 секунд

Сообщение от DimkaBel

А че не понятно? перекодить C# код на VB.NET полностью не выкидывая ни чего!

Во всем нужно знать, что должно происходить в итоге..

@DimkaBel · 03.01.2014, 18:51 **[ТС]**

Release, Вот другой коленкор!

Теперече всё работает надлежащем образом!

Добавлено через 9 минут
Release, К стати о твоем блоге сайт классный как раз для начинающих как я но отсутсвие поиска по сайту затрудняет поиск информации. Если не трудно замути какой ни буть поисковик.

Добавлено через 8 минут
Замена той строки.

VB.NET
1
AddHandler device.AudioEndpointVolume.OnVolumeNotification, AddressOf AudioEndpointVolume_OnVolumeNotification

Я бы сам не вжисть не догадался, даже хваленая подсказывалка VS.Net 2010 и блиско ни чего подобного не подсказывала..!!!

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

Release 1652 / 715 / 47 Регистрация: 11.03.2012 Сообщений: 1,855 Записей в блоге: 1
	03.01.2014, 17:27
	DimkaBel, Не по теме: таким, как ты, я во век больше не помогу.. 1

Release 1652 / 715 / 47 Регистрация: 11.03.2012 Сообщений: 1,855 Записей в блоге: 1
	03.01.2014, 17:35
	Что требуется заранее пишем на форум. 1