roboforum.ru

Технический форум по робототехнике.


Помогите код написать...

Готовая электроника для самодельного робота. Уровень от начинающих до опытных конструкторов.

Re: Помогите код написать...

Сообщение кулер 23 » 26 янв 2010, 09:54

Захотелось зажигать светик через инет))http://cdxp.zx6.ru/viewp.php?id=37 Нашел прогу Исправил порт светика но вот вопрос что то тут еще менять надо?
до изменения портов
Код: Выделить всёРазвернуть
switch(UDR) 

{

case '1':

PORTB.1 = 0xFF;   //включено

break;

case '0':

PORTB.1 = 0x00;   //выключено

break; 

}

void main (void)

{

while(1);

}

После изменения
Код: Выделить всёРазвернуть
switch(UDR)  



case '1': 

PORTC.7 = 0xFF;   //включено 

break; 

case '0': 

PORTC.7 = 0x00;   //выключено 

break;   



void main (void)

{

while(1);

}


Добавлено спустя 19 секунд:
прога на СИ))
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение Master » 26 янв 2010, 10:32

Че за?
PORTC.7 = 0xFF;

Вот так можно
Код: Выделить всёРазвернуть
PORTC = 0xFF;

или так
Код: Выделить всёРазвернуть
PORTC.1 = 0;
PORTC.0 = 1;


Добавлено спустя 11 минут 7 секунд:
А вообще тема интересная, PHP страничку уже асилил?
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

Re: Помогите код написать...

Сообщение кулер 23 » 26 янв 2010, 11:17

Со страничкой помогли)) Сам несмог =(
А вот с прогой не многа не понял.....

Добавлено спустя 40 минут 11 секунд:
АА вот так=))??
Код: Выделить всёРазвернуть
switch(UDR)  



case '1': 

PORTC = 1;   //включено 

break; 

case '0': 

PORTC.7 = 0;   //выключено 

break;   



void main (void)

{

while(1);

}
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение Master » 26 янв 2010, 13:28

Код: Выделить всёРазвернуть
PORTC = 1;   //включено 

может так?
Код: Выделить всёРазвернуть
PORTC.7 = 1;   //включено
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С

Re: Помогите код написать...

Сообщение кулер 23 » 01 фев 2010, 14:05

ммм.....Мне захотелось Подключить экранчик L2F50126 от сименса S65
В уроке написанно что надо выпаевать резисторы.....но там другой минибот.
А надо-ли выпаевать на моей версии 2.1 какие нибудь ризюки или не?
Зарание спасибо :)
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 01 фев 2010, 18:02

какие еще резюки?
цитату в студию!
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение кулер 23 » 01 фев 2010, 19:59

--- 3.1 выпаять два резистора
--- 3.2 впаять первую перемычку
--- 3.3 впаять вторую перемычку
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 02 фев 2010, 01:40

ты фото смотрел откуда это всё выпаивать?
Сможешь на своем МиниБоте найти такой участок платы? :D
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение galex1981 » 02 фев 2010, 01:45

На своем миниботе он точно не найдет такой участок платы ;)
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: Помогите код написать...

Сообщение SkyStorm » 02 фев 2010, 11:03

Дык, он конкретно и спрашивает надо ли что нибудь делать с 2.1.
кулер 23 писал(а):А надо-ли выпаевать на моей версии 2.1 какие нибудь ризюки или не?
Никто кроме нас!!!
4Robots.ru - Все для роботов!
Аватара пользователя
SkyStorm
 
Сообщения: 2687
Зарегистрирован: 05 фев 2008, 15:33
Откуда: St. Petersburg - Moscow
Skype: SkyStorm77
ФИО: Костюк Константин Вячеславович

Re: Помогите код написать...

Сообщение =DeaD= » 02 фев 2010, 11:07

Мышь непонимания пробежала между кулером 23 и EdGull'ом :crazy:
Проект [[Open Robotics]] - Универсальные модули для построения роботов
Аватара пользователя
=DeaD=
 
Сообщения: 24218
Зарегистрирован: 06 окт 2004, 18:01
Откуда: Ебург
прог. языки: C++ / PHP / 1C
ФИО: Антон Ботов

Re: Помогите код написать...

Сообщение кулер 23 » 02 фев 2010, 12:30

SkyStorm писал(а):Дык, он конкретно и спрашивает надо ли что нибудь делать с 2.1.

вот вот хоть ктото понял :)
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 02 фев 2010, 13:21

согласен, это я тупанул.
в версиях 2.х ничего выпаивать или пределывать не нужно, тупо втыкаешь ЖКИ с припаяным шлейфом в разъем МиниБота
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите код написать...

Сообщение кулер 23 » 02 фев 2010, 14:39

А прога таже подоидет?
Код: Выделить всёРазвернуть
$hwstack = 128
$swstack = 128
$framesize = 128

$regfile = "m32def.Dat"
$crystal = 8000000
$baud = 1200

$include "LCD_Siemens_S65.cfg"

Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim W As Word , J As Single

Cls
Box(0 , 0) ,(176 , 131) , White

Do
   Lcdat 1 , 0 , "MiniBot спецом" , Blue , White
   Lcdat 8 , 0 , "для Roboforum.ru" , Blue , White

   Start Adc : W = Getadc(7) : Stop Adc : J = W / 400 : J = J * 2

   Lcdat 16 , 0 , "Akb=" ; J , 0 , 255
   Lcdat 24 , 0 , "4" , Blue , White
   Lcdat 32 , 0 , "5" , Blue , White
   Lcdat 40 , 0 , "6" , Blue , White
   Lcdat 48 , 0 , "7" , Blue , White
   Lcdat 56 , 0 , "8" , Blue , White
   Lcdat 64 , 0 , "9" , Blue , White
   Lcdat 72 , 0 , "10" , Blue , White
   Lcdat 80 , 0 , "11" , Blue , White
   Lcdat 88 , 0 , "12" , Blue , White
   Lcdat 96 , 0 , "13" , Blue , White
   Lcdat 104 , 0 , "14" , Blue , White
   Lcdat 112 , 0 , "15" , Blue , White
   Lcdat 120 , 0 , "16" , Blue , White
   Lcdat 128 , 0 , "17" , Blue , White
   Lcdat 136 , 0 , "18" , Blue , White
   Lcdat 142 , 0 , "19" , Blue , White
   Lcdat 150 , 0 , "20" , Blue , White
   Lcdat 158 , 0 , "21" , Blue , White
   Lcdat 166 , 0 , "22" , Blue , White

   Wait 1
Loop
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Помогите код написать...

Сообщение EdGull » 02 фев 2010, 15:12

если подправить кварец и ноги, то будет.
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Пред.След.

Вернуться в МиниБот — национальный класс роботов

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3