Главная » Форумы » Программирование

VB6 + arduino

5 ответов [Последнее сообщение]
Втр, 14/02/2017 - 00:24
Botanik
Offline
Зарегистрирован: 14.02.2017

Всем привет! Развлечения ради написал проект на Visual Basic 6.0 + скетч для управления светодиодом L. Иcпользован контрол MSComm32. Стояла задача научиться управлять ардуиной через виртуальный COM порт. Может кому будет интересно. Вот ссылка: https://yadi.sk/d/utfS8FSf3E3Me3 В архиве две папки: одна с проектом на VB6.0, другая со скетчем.

Верх
Втр, 14/02/2017 - 23:39
#1
olegzh75
Offline
Зарегистрирован: 24.10.2014

нет доступа к файлам.

Верх
Ср, 15/02/2017 - 10:19
#2
Botanik
Offline
Зарегистрирован: 14.02.2017

Ссылка живая. Скопируйте в адресную строку браузера - будет работать. Не знаю, почему из поста не открывается.

Верх
Ср, 15/02/2017 - 10:44
#3
ua6em
ua6em аватар
Offline
Зарегистрирован: 17.08.2016

Botanik пишет:

Всем привет! Развлечения ради написал проект на Visual Basic 6.0 + скетч для управления светодиодом L. Иcпользован контрол MSComm32. Стояла задача научиться управлять ардуиной через виртуальный COM порт. Может кому будет интересно. Вот ссылка: https://yadi.sk/d/utfS8FSf3E3Me3 В архиве две папки: одна с проектом на VB6.0, другая со скетчем.

Скетчи принято выкладывать сюда

Верх
Ср, 15/02/2017 - 11:11
#4
Botanik
Offline
Зарегистрирован: 14.02.2017

Скетч выкладываю. С проектом VB6.0 что делать будем?

int led = 13;
char incomingByte;
char One = '1'; // We couldn't use the double quotes!

void setup() {                
  pinMode(led, OUTPUT); 
  digitalWrite(led, LOW);
  Serial.begin(9600);    
}

void loop() {
  if (Serial.available() > 0) {  
      
     incomingByte = Serial.read(); 
    
    if (incomingByte == One) 
    {
      digitalWrite(led, HIGH); 
    }
    else 
    {
      digitalWrite(led, LOW);
    }
  }
}

 

Верх
Ср, 15/02/2017 - 11:25
#5
uni
uni аватар
Offline
Зарегистрирован: 24.09.2015

В ссылке выше лишний пробел в конце адреса.

Верх