Весовой контроль

[Saturn.65]

Набросал тут небольшой проек весов. Это никому не пригодится, просто я по своему профилю работы сделал.
Суть такова: для того, чтоб не разрушались дороги и небыло перегрузки автотранспорта при грузоперевозках на дорогах установлены посты весового контроля. Для каждого вида транспорта есть свои ограничения нагрузки на ось. Т.е. автомобиль проезжает по весам и данные о нагрузке каждой оси выводятся на компьютер весовщиков. И если произошло превышение допустимой нормы, то... следуют разные разборки.
В моей программе можно перетаскивать мышкой грузы со склада в прицеп, задавать им вес в кг и контролировать размещение грузов по кузову, тем самым регулируя нагрузку на оси. Старался сделать это наглядно. В проекте использовал заготовку Mikle "2D". Остальное выдумывал сам. Хотелось бы послушать критику скучающих гуру VB. Файл перезалил ниже.

[MIT]

Че-то я ничего не понял. Справа блок текстбоксов, а что в них вводить?
Наверно там комментарии должны быть какие-то...

[Saturn.65]

:?
Че-то я ничего не понял. Справа блок текстбоксов, а что в них вводить?
Наверно там комментарии должны быть какие-то...

Берешь груз, перетаскиваешь мышкой в кузов (зона погрузки) в текстбоксе вводишь вес этого груза, например 8000 и двигаешь по кузову. В зависимости от перемещения меняется нагрузка на оси.

[Debugger]

Когда груз таскаешь, он мерцает.
Насчет вида сбоку ничего плохого нет. А вот насчет вида сверху: твой грузик можно утащить за пределы кузова. Если так и должно быть, хотя бы нагрузку с осей тогда снимай.
Не очень в тему картинка в правом верхнем углу. А вот посерединке снизу - смотрится отлично.
P.S. А чем инсталлер делал?

[Saturn.65]

Когда груз таскаешь, он мерцает.
Насчет вида сбоку ничего плохого нет. А вот насчет вида сверху: твой грузик можно утащить за пределы кузова.

За пределы кузова можно конечно утащить. Надо будет поработать над этим. Интерфейс конечно сырой еще. Кое-что надо конечно исправить, чтоб было более понятно как грузить. Инсталлер делал Inno Setup. Родным собрал нужные контролы и запихнул их в Inno Setup.

[pronto]

собрал нужные контролы

А, что? Программа использует самописные (нестандартные) библиотеки, контролы? Если нет, то для работы под XP достаточно только исполняемого файла.

[Saturn.65]

Устранил кое-какие недостатки, кое-что добавил.

Весовой контроль 1.1.rar

[Ramzes]

Так и должно быть?

q.JPG

[Saturn.65]

Так и должно быть?

А отчего это так? У меня такого нет. Может нестандартные темы ХР влияют на это?

[Ramzes]

у меня вполне стандартная тема.

[pronto]

Повторюсь, что такая простенькая программка не требует таскания за собой всех библиотек. Если охота универсальности, то можно один дистрибутив сделать полным, а во второй запихнуть только EXE.
В процессе перетаскивания грузов и простого перемещения курсора наблюдается дикое мерцание тали в зоне погрузки и самих грузов на обоих видах.
Сама таль должна иметь отношение к виду сбоку, а не сверху. А лучше сделать прорисовку для обоих видов.
Неплохо было бы указывать расстояния от краёв груза до краёв кузова.
Было бы полезным научить программу расставлять предложеный груз автоматически так, чтобы нагрузки на оси были примерно одинаковыми.

[Saturn.65]

Кстати, а почему мерцает груз? Принцип движения крана не хитрый, координаты берутся с перетаскиваемого груза.

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = sh(1).Left
End Sub


Вот почему он мерцает я не знаю. И как сделать, чтоб не мерцал? От постоянной прорисовки что ли при MouseMove?
А таль так расположена для наглядности. Если ее сделать сверху, то будет непонятно, что это таль.
По поводу EXE. там есть всего один сторонний контрол для работы с реестром. Можно и облегчить по идее.
Ramzes Но другие то не жалуются, что интерфейс местами черный. У меня все контролы на форме стандартные.

[Ramzes]

а я и не жалуюсь, просто говорю, что такой баг имеет место быть

[Debugger]

Кстати, а почему мерцает груз? Принцип движения крана не хитрый, координаты берутся с перетаскиваемого груза.

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = sh(1).Left
End Sub


Вот почему он мерцает я не знаю. И как сделать, чтоб не мерцал? От постоянной прорисовки что ли при MouseMove?
А таль так расположена для наглядности. Если ее сделать сверху, то будет непонятно, что это таль.
По поводу EXE. там есть всего один сторонний контрол для работы с реестром. Можно и облегчить по идее.
Ramzes Но другие то не жалуются, что интерфейс местами черный. У меня все контролы на форме стандартные.

Рисовать на буффере. Который потом переводить на саму форму. Тогда мерцаний не будет.
Ну, и использовать средства API.

[1Steps]

У меня Setup даже не запустился. Сразу выкинул ошибку. Ошибку не помню и файл уже стёр.

[iGrok]

У меня Setup даже не запустился. Сразу выкинул ошибку. Ошибку не помню и файл уже стёр.

Браво! Бис! Автор, Вы прекрасны! ))
Я имею в виду гениальное по своей содержательности и смысловой нагрузке сообщение. Ничего личного, просто повеселило. =)

[1Steps]

Браво! Бис! Автор, Вы прекрасны! ))

Позже попробую повторить.

[1Steps]

Результат.
Пробовал различные изменения с именем, но не помогло.

[iGrok]

А положи дистриб в корень диска?

[1Steps]

А положи дистриб в корень диска?

Заработало.

Если взять груз и двигать его, остальные грузы(да и форма) довольно сильно мерцают.
В остальном, вроде бы всё нормально.

[Saturn.65]

Рисовать на буффере. Который потом переводить на саму форму. Тогда мерцаний не будет.
Ну, и использовать средства API.

Это для меня темный лес. Без примера все равно не осилю.

[SLIM]

Не помню точно где, но мигание это результат перересовки.
Помню нужно было создавать окно с определенным параметром, тогда мерцания не будет.

[Saturn.65]

Кто-нибудь может выложить пример передвижения рисунка по форме, чтоб тот не мерцал в движении? Он мерцает то как-то хитро: полосами какими-то.
Глас вопиющего в пустыне: так почему же мерцают рисунки при передвижении по форме?