1 Тема от gold_

  • gold_
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-11-10
  • Сообщений: 89
  • Репутация : [ 0 | 0 ]

Тема: Визуализация схем

Здравствуйте. Оцените, пожалуйста, возможности оживления схем при помощи эксель. Стоит ли развивать это направление. Файл содержит макросы, поэтому нужно поставить низкий уровень защиты. Вирусов нет. Есть еще недоработанная логическая часть ДЗ ШДЭ, но с собой её сейчас нет ICQ/ab:)

Post's attachments

МТЗ.rar 312.38 Кб, 120 скачиваний с 2011-11-10 

You don't have the permssions to download the attachments of this post.

2 Ответ от x4iterx

  • x4iterx
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-05-04
  • Сообщений: 70
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

хотел протестить выдает ошибку
Private Sub Worksheet_Change(ByVal Target As Range)
    'Ðàçðàáîòêà ÌÒÇ
    If Range("F26") / 5 * Range("F24") < Range("Y23") And Range("M25") = 3 Then
    ActiveSheet.Shapes("ËË1").Line.Weight = 2.5
    ActiveSheet.Shapes("ËË2").Line.Weight = 2.5
    ActiveSheet.Shapes("KA1").Fill.ForeColor.SchemeColor = 11
    ActiveSheet.Shapes("KA2").Fill.ForeColor.SchemeColor = 11
    Shapes("KA1.1").Rotation = 0
    Shapes("KA2.1").Rotation = 0
    ActiveSheet.Shapes("KTðåëå").Fill.ForeColor.SchemeColor = 11

3 Ответ от x4iterx

  • x4iterx
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-05-04
  • Сообщений: 70
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

На предпоследней строчке выдает ошибку

4 Ответ от ShSF (2011-11-11 09:14:03 отредактировано ShSF)

  • ShSF
  • ShSF
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-01-17
  • Сообщений: 713
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Run-time error `-2147024809(80070057)`

В журнале : строчка желтая
    Shapes("KA1.1").Rotation = 0
Excel 2007

5 Ответ от gold_

  • gold_
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-11-10
  • Сообщений: 89
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Честно говоря, сии проблемы мне не по силе, одно могу сказать: версия экселя 2003, обычный виндоус.

Присоединяйтесь!!! Мы в социальных сетях и на Ютуб.

6 Ответ от S_Lava

  • S_Lava
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-01-24
  • Сообщений: 31
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

У меня заработало. Эксель 2003 использовал.
Звуки только не проигрывает - пытается вызвать внешний редактор звуков.
Но выглядит интересно. Для целей обучения - интересный вариант. Но помоему Эксель не самый надежный способ написания таких программ - зависимость от версии и прав запуская макроса может вызвать больше проблем в дальнейшем.
По самой симуляции: АПВ всегда успешное? Неуспешное апв не удалось сделать  ICQ/ab:)

7 Ответ от dominator

  • dominator
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-01-07
  • Сообщений: 711
  • Репутация : [ 1 | 0 ]

Re: Визуализация схем

x4iterx пишет:

Private Sub Worksheet_Change(ByVal Target As Range)
    'Ðàçðàáîòêà ÌÒÇ
    If Range("F26") / 5 * Range("F24") < Range("Y23") And Range("M25") = 3 Then
    ActiveSheet.Shapes("ËË1").Line.Weight = 2.5
    ActiveSheet.Shapes("ËË2").Line.Weight = 2.5
    ActiveSheet.Shapes("KA1").Fill.ForeColor.SchemeColor = 11
    ActiveSheet.Shapes("KA2").Fill.ForeColor.SchemeColor = 11
    Shapes("KA1.1").Rotation = 0
    Shapes("KA2.1").Rotation = 0
    ActiveSheet.Shapes("KTðåëå").Fill.ForeColor.SchemeColor = 11

Скорй всего проблема с кодировкой в винде. Для исправления можно воспользоваться програмой http://myasnick.com/cyra_2_3/

8 Ответ от gold_

  • gold_
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-11-10
  • Сообщений: 89
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Возможно Вы и правы, но упор был на то, что эксель есть у всех.
Раз у Вас заработало, оцените и эту недоработку ICQ/ab:)

Post's attachments

ДЗ ШДЭ.rar 85.22 Кб, 105 скачиваний с 2011-11-11 

You don't have the permssions to download the attachments of this post.

9 Ответ от Dnestr

  • Dnestr
  • Dnestr
  • Пользователь
  • Неактивен
  • Откуда: Приднестровье
  • Зарегистрирован: 2011-01-09
  • Сообщений: 1,196
  • Репутация : [ 2 | 0 ]

Re: Визуализация схем

gold_ пишет:

Возможно Вы и правы, но упор был на то, что эксель есть у всех.
Раз у Вас заработало, оцените и эту недоработку ICQ/ab:)

Как говорил один мой знакомый на утренней разнорядке своим подчиненным: "Сегодня будем недоделывать недоделки..."   

У меня обе программки работают и звук в первой воспроизводится.  Вторая программка уже гораздо серьёзней. Хорошая программа Excel! Большое подспорье инженерам. С макросами на ней можно делать довольно  интересные "вещи".

Сайт Dnestr

10 Ответ от golod (2011-11-11 18:27:11 отредактировано golod)

  • golod
  • Практикующий-Проектировщик
  • Неактивен
  • Откуда: Новосибирск
  • Зарегистрирован: 2011-01-19
  • Сообщений: 22
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Классная вещь. Красиво...
Хорошо такие прикалюхи  студентам показывать.
А вот на практическое применение уже сложней. т. к. не все умеют программировать в Exce-е.
Мы как проектировщики схемы логику разрисовываем а асаде, просматриваем, просчитываем ее, а потом обкатываем на терминалах защит.
Вот так.

Всегда рад помочь....

11 Ответ от gold_

  • gold_
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-11-10
  • Сообщений: 89
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Спасибо. Программировать в экселе не так уж и трудно. Схему ДЗ я сделал за две недели с нуля, не распологая знаниями программирования, просто случайно наткнулся на сайт http://www.rosinka.vrn.ru/dinex/index.htm, идея понравилась, решил попробовать ICQ/ab:). На любое дело нужно вдохновение, время и средства, сейчас пока не складывается.

12 Ответ от Dnestr

  • Dnestr
  • Dnestr
  • Пользователь
  • Неактивен
  • Откуда: Приднестровье
  • Зарегистрирован: 2011-01-09
  • Сообщений: 1,196
  • Репутация : [ 2 | 0 ]

Re: Визуализация схем

gold_ пишет:

Спасибо. Программировать в экселе не так уж и трудно. Схему ДЗ я сделал за две недели с нуля, не распологая знаниями программирования, просто случайно наткнулся на сайт http://www.rosinka.vrn.ru/dinex/index.htm, идея понравилась, решил попробовать ICQ/ab:). На любое дело нужно вдохновение, время и средства, сейчас пока не складывается.

Та ссылка не работала из-за лишней запятой  http://www.rosinka.vrn.ru/dinex/index.htm

Сайт Dnestr

13 Ответ от S_Lava

  • S_Lava
  • Пользователь
  • Неактивен
  • Зарегистрирован: 2011-01-24
  • Сообщений: 31
  • Репутация : [ 0 | 0 ]

Re: Визуализация схем

Да, вторая схема впечатляет! Заработало и в 2003 и в 2007 экселе. Правда у меня кое-какие ошибки вылазят - при активации макроса и "нажатии" кнопок( Run-time error 1004), но все равно работает.