Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
3 / 3 / 0
Регистрация: 21.11.2012
Сообщений: 91
1

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

03.01.2014, 16:12. Показов 1241. Ответов 9
Метки нет (Все метки)

Народ всех С Новым Годом! и помогите перекодить с С# на 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 Заранее благадарю а еще на всякий случай фаил библиотеки :
1

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: rar CoreAudioApi.rar (10.7 Кб, 21 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2014, 16:12
Ответы с готовыми решениями:

Работа с Excel средствами VB.net. Как перевести код из VBA в VB.net?
Коллеги, добрый день! Нужна помощь! В свое время был написан макрос для Excel, но прошло и...

Перевести код с C# в Vb.net
Еще раз всем привет. Роясь по интернету, наткнулся на такую вот программку. (которая скачивает...

Перевести код с C# в Vb.net
Перевести код с c# в vb.net. пробовал пользоваться переводчиками кода в инете..не вышло ничего....

Перевести код с VB6 на VB .NET
Dim dig_cyr() Dim dig_cyr_4, dig_10 Private Sub Form_Load() ReDim dig_cyr(1 To 3, 0 To 9) ...

9
Заблокирован
03.01.2014, 16:48 2
держи!
1
Вложения
Тип файла: zip Регулятор громкости.zip (105.8 Кб, 29 просмотров)
Заблокирован
03.01.2014, 16:53 3
Цитата Сообщение от 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
раньше юзал эту библиотеку, но не думал, что с помощью нее можно регулировать громкость. спасибо.
1
3 / 3 / 0
Регистрация: 21.11.2012
Сообщений: 91
03.01.2014, 17:18  [ТС] 4
Release, Самый умный да типа я не пробовал с
VB.NET
1
device.AudioEndpointVolume.OnVolumeNotification += New AudioEndpointVolumeNotificationDelegate(AddressOf AudioEndpointVolume_OnVolumeNotification)
и без неё
в этой строке вся соль!!!
0
Заблокирован
03.01.2014, 17:27 5
DimkaBel,

Не по теме:

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

1
3 / 3 / 0
Регистрация: 21.11.2012
Сообщений: 91
03.01.2014, 17:30  [ТС] 6
Цитата Сообщение от Release Посмотреть сообщение
DimkaBel, ты вложение скачай... таким, как ты я во век больше не помогу..
И да, в мою сторону лучше такое не говорить, я тебя предупредил.
Запустите код C# и сразу все поймете в чем разница между первым вложением и С#
0
Заблокирован
03.01.2014, 17:35 7
Что требуется заранее пишем на форум.
1
3 / 3 / 0
Регистрация: 21.11.2012
Сообщений: 91
03.01.2014, 18:10  [ТС] 8
Да еще один нюансик библиотека написана на VS 2010 так что не пытай тесь работать с ней на VS 2008 или 2005!!!

Добавлено через 31 минуту
Цитата Сообщение от Release Посмотреть сообщение
Что требуется заранее пишем на форум.
А че не понятно? перекодить C# код на VB.NET полностью не выкидывая ни чего!
0
Заблокирован
03.01.2014, 18:12 9
Замена той строки.
VB.NET
1
AddHandler device.AudioEndpointVolume.OnVolumeNotification, AddressOf AudioEndpointVolume_OnVolumeNotification
отличие результата не заметил..

Добавлено через 56 секунд
Цитата Сообщение от DimkaBel Посмотреть сообщение
А че не понятно? перекодить C# код на VB.NET полностью не выкидывая ни чего!
Во всем нужно знать, что должно происходить в итоге..
1
3 / 3 / 0
Регистрация: 21.11.2012
Сообщений: 91
03.01.2014, 18:51  [ТС] 10
Release, Вот другой коленкор!

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

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

Добавлено через 8 минут
Замена той строки.
VB.NET
1
AddHandler device.AudioEndpointVolume.OnVolumeNotification, AddressOf AudioEndpointVolume_OnVolumeNotification
Я бы сам не вжисть не догадался, даже хваленая подсказывалка VS.Net 2010 и блиско ни чего подобного не подсказывала..!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.01.2014, 18:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Перевести код с C# в VB.NET с Windows Forms
Здравствуйте, помогите перевести код с c# в vb.net и чтобы программа работала не через консоль, а...

Перевести код с VBA на Visual Basic.NET
Здравствуйте! Прошу помощи. Переведите, пожалуйста, код ниже с VBA (Эксель) на Visual Basic.NET....

Перевести код с Delphi на VB .NET (программа имитирует маятник)
Здравствуйте ! помогите пожалуйста перевести код дельфи в вб(даная программа имитирует маятник) ...

Запись звука в .NET - как перевести на vb.net c языка C++
Можно ли этот код: Запись звука в .NET перевести на vb.net ? Может кто-то уже переводил или писал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.