Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Как можно получить координаты мыши вне формы https://www.cyberforum.ru/ visual-basic/ thread367593.html
Подскажите плиз, как можно получить координаты мыши в не формы
Перевести код управления сервоприводом по протоколу CAN VB
Здравствуйте! Это пример управления сервоприводом по протоколу CAN. В С++ ничего не понимаю. Помогите пожалуйста перевести данный код на VB. Спасибо... // drive_control_sample.cpp : Defines the...
VB Чтение данных из текстовых файлов https://www.cyberforum.ru/ visual-basic/ thread367449.html
Есть текстовый файл со строками данных, вопрос: каким образом можно записать эти данные например в TextBox с переносом каждой записи на новую строку или ListBox?
VB Не могу найти ошибку в коде https://www.cyberforum.ru/ visual-basic/ thread366659.html
Помогите пожалуйста Объясните где ошибка Dim n As String Private Sub Command1_Click() Select Case n Case "+" Text2.Text = "plus" Case "-"
Visual Basic 6 и MySQL VB
Всем ку. Есть MySQL сервер с бд, как соединится через visual basic 6 с севером mysql и из таблицы вытаскивать значения.
VB MSFlexGrid. Функции копировать и вставить Подскажите товарищи как реализовать поддержку данных функций(достаочно лишь с помощью сочетаний ctr+c, ctr-v). Ну или Посоветуйте где можно почитать как реализавать. Заранее благодарен. https://www.cyberforum.ru/ visual-basic/ thread366176.html
VB Работа с протоколом CAN https://www.cyberforum.ru/ visual-basic/ thread366163.html
Здравствуйте! Подскажите, кто-нибудь имел дело с данным протоколом? Как к нему подступиться? Никакой толковой инфы в интернете не нашёл, только описание. Может у кого примеры есть? Допустим как...
Логирование ссылок из Firefox и отправка на e-mail VB
Ребят, как сделать так, чтоб программа формировала ссылки по которым я перехожу через браузер Firefox в файл web.txt, сохраняла его по адресу C:\web.txt и отправляла на мой имейл? Помогите оч...
VB Проверка компьютера в сети Интернет Смысл, таков Программа должна прописаться в автозагрузку системы(программно), затем при запуске системы она должна включится и значок программы должен появиться там где, обычно значки Антивирусов... https://www.cyberforum.ru/ visual-basic/ thread365834.html VB Хранимые процедуры в Oracle https://www.cyberforum.ru/ visual-basic/ thread365619.html
Пробую VB 2010. Подключаюсь к БД и вызываю ХП Dim Ds As New DataSet() Dim Oraclecon As New OracleConnection("Data Source=xxx;Password=xxx;User ID=xxx") Oraclecon.Open() ...
VB Через сколько дней у пациента наступит истощение организма
В ходе лечебного голодания масса пациента за N дней понизилась с М1 кг до М2 кг. Было установлено, что ежедневные потери массы пропорциональны массе тела. Вычислить, чему была равна масса пациента...
VB Реализовать в программе следование, развилку Помогите со структурой развилкаааа пожалуйстааа(( https://www.cyberforum.ru/ visual-basic/ thread365288.html
3 / 3 / 2
Регистрация: 18.01.2011
Сообщений: 54
0

Пример управления сервоприводом по протоколу CAN. С С++ перевести на VB - VB - Ответ 2077645

17.10.2011, 13:38. Показов 1730. Ответов 1
Метки (Все метки)

Здравствуйте! Это пример управления сервоприводом по протоколу CAN. В С++ ничего не понимаю. Помогите пожалуйста перевести данный код на 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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
// drive_control_sample.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
#include "Common.h"
#include "moto_dll2.h"
 
int _tmain(int argc, _TCHAR* argv[])
{
        int res;
        int pos;
        double val;
 
                printf("Sample HSD control program v 0.1\n");
                InitParser();
                printf("Init done, searching for device\n");
                int t=EnumDevices(false);
                if(t==0)
                {
                        printf("Error - device not found - check connection and power supply\n");
                        CloseParser();
                        exit(1);
                }
                printf("Found %d devices, working with device 1\n",t);
                printf("Checking status...");
                res=ReadVal(1,"dd11",&val);
                if(res!=ERR_OK)
                {
                        printf("Comm error %d\n",res);
                        CloseParser();
                        exit(2);
                }
                if((int)val!=0)
                {
                        printf("Drive 1 not ready: status=%d\n",(int)val);
                        CloseParser();
                        exit(2);
                }
                printf("OK\n");
                printf("Starting cycle - make sure position loop is closed and running PLC program doesn't alter position\n");
 
                while(1)
                {
                        printf("Now writing position\n");
                        pos=100000;
                        res=WriteVal(1,"ct3",100000.0);
                        if(res!=ERR_OK)
                        {
                                printf("Comm error %d\n",res);
                                CloseParser();
                                exit(2);
                        }
                        printf("Waiting for drive to complete task");
                        while(1)
                        {
                                Sleep(100);
                                res=ReadVal(1,"dd8",&val);
                                if(res!=ERR_OK)
                                {
                                        printf("Comm error %d\n",res);
                                        CloseParser();
                                        exit(2);
                                }
                                if((int)val==pos)
                                {
                                        printf("Done\n");
                                        break;
                                }
                                else
                                {
                                        printf(".");
                                }
                        }
 
                        printf("Now writing position\n");
                        pos=0;
                        res=WriteVal(1,"ct3",0.0);
                        if(res!=ERR_OK)
                        {
                                printf("Comm error %d\n",res);
                                CloseParser();
                                exit(2);
                        }
                        printf("Waiting for drive to complete task");
                        while(1)
                        {
                                Sleep(100);
                                res=ReadVal(1,"dd8",&val);
                                if(res!=ERR_OK)
                                {
                                        printf("Comm error %d\n",res);
                                        CloseParser();
                                        exit(2);
                                }
                                if((int)val==pos)
                                {
                                        printf("Done\n");
                                        break;
                                }
                                else
                                {
                                        printf(".");
                                }
                        }       
                        printf("Press q to quit or any other key for one more cycle\n");
                        int c=getch();
                        if(c=='q')break;
                }
        CloseParser();
        exit(0);
 
        return 0;
}


Вернуться к обсуждению:
Пример управления сервоприводом по протоколу CAN. С С++ перевести на VB VB
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2011, 13:38
Готовые ответы и решения:

Перевести код управления сервоприводом по протоколу CAN
Здравствуйте! Это пример управления сервоприводом по протоколу CAN. В С++ ничего не понимаю....

Программа для управления помпой и сервоприводом
Помогите разобраться в программе. В Ардуино новичок. Хочу понять, как это всё работает. #include...

Приложение для управления девайсом по протоколу Modbus RTU
Здравствуйте! Необходимо написать приложение для управления источником постоянного тока по...

Нужен пример программы для управления БД
Здравствуйте! Скиньте пожалуйста хороший пример программы для управления базой данных, в которой...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2011, 13:38

Нужен пример управления приложением с помощью клавиатуры
Добрый день! Я пишу небольшую программу, типо игрушки, там нужно управлять кнопками с клавиатуры....

Перевести пример из VB.net в C#
Было бы неплохо, если перевели пример...

Перевести пример на язык LISP
Помогите перевести пример на язык LISP

Перевести пример кода на PHP
Здравствуйте! Только стал изучать данный язык, никак не могу понять работу с классами. Нужно...

Перевести пример в pascal abc
Помогите пожалуйста перевести в pascalabc

Нужно перевести пример в программу
Сам пример: Моя попытка но выдает ошибку : k = powf(45.7, -1.0 / 4)*sinf(2)+ powf((tanhf(1) /...

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