Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Готовые конструкции » Симулятор Боинга на Баскоме АВР


Симулятор Боинга на Баскоме АВР

Сообщений 1 страница 18 из 18

1

Здравствуйте!
После 2-х лет "усиленного познавания" микроконтроллеров атмел, хотелось-бы "похвастаться"  Вашей работой, форумчане.  :flag:
Благодаря Вам и бэйсику "оживил" этот проектик -  http://fotografersha.livejournal.com/872628.html
Кнопочки, крутилочки, ледики , оледики, степперы и пр.  -  там...  бэйсик :D
Спасибо!

0

2

че за спам ...

0

3

Боинг и баском - не смешите.

0

4

Здравствуйте!
2 года назад сам в это не верил.
Просто показал возможности бэйсика на мегах и иксмегах, пытаюсь  "расшевилить" эс тэ эм ки, на бэйсике))

0

5

Yuriy.pv написал(а):

че за спам ...

Действительно...
Просьба к Модераторам - почистите, плиз, тему... ;)

0

6

только сейчас осознал, что на форуме нет кнопки пожаловаться на сообщение  :D  или я её не вижу

0

7

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

0

8

RDW написал(а):

только сейчас осознал, что на форуме нет кнопки пожаловаться на сообщение

И было бы приятным "плюсом" иметь возможность автору темы самостоятельно закрыть/открыть тему, не прибегая к помощи Администраторов... ;)

0

9

Здравствуйте уважаемые!
Извиняюсь за сумбур, внесённый мною.
Излагаю свою версию доказательва моей непричасности к содеянному.
1_1:
В разработке приборчик cdu b737-800. Тут 2 варианта реализации: xmega+tft_lcd (огромное
спасибо Mr.Shilov-у) или purebasic+vga(hdmi)display. И первый и второй просятся на TCP-IP
связь.
2:
"Скринсейвер" для ssd1309 а-ля "кунг-фу панда", только там корявенький bmp. Все индикаторы
на ssd1305-1306-1309 (основа-библиотека Mr.Shilov-а) по-причине более-менее аутентичности
vs 7LED. В данном случае это прибор вольт-амперметры зелёненькие над головой пилота.
3:
Реализация годовалой несвежести purebasic-а. Связь контроллера с пк посредством "модбаса".
В данном случае Function3.На форуме была оценена его универсальность (кто знает, тот
поймёт о чём речь). А в кавычках из-за то, что каждый может "подстроить" его под себя.
В данном случае это плата xm32a4+много_hc165+mcp3208+adm484-->adm485+ft232.
Все кнопочки и энкодеры(софтовые, много их) через hc165.
4_1:
Самое корявенькое видео. Там в тест-режиме рандомится WORD ))
Спасибо за терпение и понимание!
https://cloud.mail.ru/public/GQ1n/dftDzPZjR

0

10

Где это всё располагается на фотографиях из ссылки?

0

11

Здравствуйте!
Все располагается на предназначенных местах кабины.
Гугл - "кабина бойэнга"

0

12

radan - спасибо!

0

13

Я думаю, народ хочет видеть и слышать более подробную информацию.
Например, как вы до этого дошли.
Какой софт всем этим управляет.
Фото процесса монтирования на готовый симулятор.
Так что ждём.

0

14

simulator75 написал(а):

Гугл - "кабина бойэнга"

Т.е. вы хотите сказать, что во всех кобинах Боинга стоит ваша схема(ы)?  :D

0

15

Это игровой симулятор, производителей в комплексе мало (канада, америка), а отдельных частей - "куча", в основном не российские

0

16

radan написал(а):

Я думаю, народ хочет видеть и слышать более подробную информацию.
Например, как вы до этого дошли.
Какой софт всем этим управляет.
Фото процесса монтирования на готовый симулятор.
Так что ждём.

Я по професии - энергетик (высоковольтник). Работал электриком, электромонтажником, энергетиком-проектировщиком. Потом устроился на призводство по изготовлению тренажёров(simulator). Вот тогда-то я впервые понюхал мегу, правда на cavr (первое мигание светодиодом все наверное помнят? :) ). По причине того-что с си не дружил (со школы на бейсике), я нашел барсика. И тут началось. Во времена, когда работал
на производстве тренажеров, моё развитие в бэйсике было не таким прогрессивным. Много времени и сил отбирала работа по созданию и монтажу симуляторов. В итоге, в какой-то момент мне пришлось распрощаться с этой работой, отправился в свободное плавание в том же направлении. Первая успешная самостоятельная работа представляла из себя софтину на пурике(пк) и девайс с датчиками(атмега16). Нужно было логить 5 датчиков давления в реальном времени со стрелочками на экране и графиками приборов, а также получать реал-таймовую картинку из архива. Это было 2 года назад.
Затем ребята предложили "замутить" авиатематику. 2 года работы в этом направлении привели к конечному результату, который сейчас в москве стоит.
Все крутилочки, кнопочки, ледики, оледики, степперы, модбас  (железо) - всё на бэйсике. Прокладка между железякой и основной софтиной
написана не мною, она на си. Также есть пока-ещё покупные железяки, по негуманным ценам. Их будем заменять с мой помощью, а также помощью недавно появившегося ардуинщика ))
Процесс монтажа и монтирования не считаю таким уж познавательным, как только соберу отдельный девайс, так и предоставлю материал.
По-возможности буду отвечать. Спасибо за внимание!

0

17

Интересное направление...
Года четыре назад попался в руки халявный пакет InTouch 10.
Графическая оболочка, "завернутая" на SCADA.

Сваял даже (не в железе) приборную панель автомобильную с несколькими экранами.
Завязал на клавиатуру, все стрелочки, лампочки и показометры двигались, мигали...
Дело встало на стадии преобразования в "железо" и интеграции в авто, но позже та машина была продана и корячить в новой уже ничего не захотелось...

0

18

Здравствуйте!
В качестве датчиков для крена, тангажа и рыскания использую as5048b.
Датчики самодельные, магнит радиальный 6 мм, ось от резистора, корпус  на принтере.
Фильтрация Калмана с сайта http://avrproject.ru/.
ссылка https://cloud.mail.ru/public/8jzc/5S8MMEL7F
Частичный код:

Код:
'Номер 91
'функции 3 и 16
'мега 328(168) + as5048a _mcp3208

$lib "modbus.lbx"
'$regfile = "m168def.dat"
$regfile = "m328pdef.dat"
$crystal = 14745600
$baud = 115200
$hwstack = 128
$swstack = 128
$framesize = 128
.....................

'******************************** AS5048B **************************************
'red    +5
'black  gnd
'grey   SCL     pin1   IDC
'green  SDA     pin3   IDC
$lib "i2c.lbx"
Config Scl = Portc.5
Config Sda = Portc.4
'I2cinit
Dim As5048_r As Byte
Dim As5048_w As Byte
'As5048_r = 129                                              '10000001
'As5048_w = 128                                              '10000000

'As5048_r = 131                                              '10000011
'As5048_w = 130                                              '10000010

'As5048_r = 133                                              '10000101
'As5048_w = 132                                              '10000100

'As5048_r = 135                                              '10000111
'As5048_w = 134                                              '10000110

Dim Angle_addr(2) As Integer
Angle_addr(1) = 254
Angle_addr(2) = 255
Dim Angle_h As Word
Dim Angle_l As Byte
Dim Angle As Word
Config Single = Scientific , Digits = 2
Dim Gradus As Single
Dim Grad As Word

'*******************************************************************************
'переменные для фильтра
Dim Mn_1 As Single                                          'результирующее значение
Dim An_1 As Single                                          'исходное значение
Dim Mn1_1 As Single                                         'результат вычисления в предыдущей интерации
Dim K_1 As Single                                           'коэффициент стабилизации
K_1 = 0.05

Dim Mn_2 As Single                                          'результирующее значение
Dim An_2 As Single                                          'исходное значение
Dim Mn1_2 As Single                                         'результат вычисления в предыдущей интерации
Dim K_2 As Single                                           'коэффициент стабилизации
K_2 = 0.05

Dim Mn_3 As Single                                          'результирующее значение
Dim An_3 As Single                                          'исходное значение
Dim Mn1_3 As Single                                         'результат вычисления в предыдущей интерации
Dim K_3 As Single                                           'коэффициент стабилизации
K_3 = 0.05

...............................

Declare Sub As5048b 

...............................

Do

As5048_r = 129                                              '0001
As5048_w = 128                                              '0000
Call As5048b
An_1 = Angle
Mn_1 = K_1 * An_1
An_1 = 1 - K_1
Mn1_1 = Mn1_1 * An_1
Mn_1 = Mn_1 + Mn1_1
Mn1_1 = Mn_1
Angle = Round(mn_1)
Table_data(1) = Angle

As5048_r = 131                                              '0011
As5048_w = 130                                              '0010
Call As5048b
An_2 = Angle
Mn_2 = K_2 * An_2
An_2 = 1 - K_2
Mn1_2 = Mn1_2 * An_2
Mn_2 = Mn_2 + Mn1_2
Mn1_2 = Mn_2
Angle = Round(mn_2)
Table_data(2) = Angle

As5048_r = 133                                              '0101
As5048_w = 132                                              '0100
Call As5048b
An_3 = Angle
Mn_3 = K_3 * An_3
An_3 = 1 - K_3
Mn1_3 = Mn1_3 * An_3
Mn_3 = Mn_3 + Mn1_3
Mn1_3 = Mn_3
Angle = Round(mn_3)
Table_data(3) = Angle
.......................

Loop
End
'*******************************************************************************


'******************************* AS5048B ***************************************
Sub As5048b
I2csend As5048_w , Angle_addr(1)
I2creceive As5048_r , Angle_l
I2csend As5048_w , Angle_addr(2)
I2creceive As5048_r , Angle_h
Shift Angle_h , Left , 6
Angle = Angle_h Or Angle_l
End Sub
'*******************************************************************************
...........................

0


Вы здесь » Программирование ATMEL в BASCOM. » Готовые конструкции » Симулятор Боинга на Баскоме АВР