Главная
Регистрация
Вход
RSS |
|
Navvy 3.0
| |
| Glob | Дата: Вторник, 05.05.2009, 16:31 | Сообщение # 1 |
 в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| значит это темка по третей версии нави тут высказывайте свои предложения... может кто чем поможет а то у мя уже мозх закипает...
вощем помогаем в разработке... я понимаю что я тут почти единственный кто хоть в чёмто разбирается но алгоритм (абстрагированный от языка) может придумать каждый у каво есть логическое мышление
|
| |
| |
| Glob | Дата: Вторник, 05.05.2009, 16:41 | Сообщение # 2 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| вопщем щяс у мя такая проблема есть 6 массивов (медь железо мдк и тд)в которых содержатся результаты всех копок но их надо поделить на сессии для этово существует вспомогательный массив разделителей в котором содержатся номера строк в с котороых начинаются сессии следовательно полная история копок за сессию начинается с соответствующего разделителя и заканчивается зразу перед следущим разделителем тоесть всё выглядит так Code
5 0 0 0 0 0 - первая копка, 5 меди
0 9 0 0 0 0 -вторая копка 9 железа
............
0 0 3 0 0 0 -последняя копка в истории копок, 3 мдк
массив разделителей выглядит както так
Code
1 -первая сессия начинается с первой строчки
12 -вторая сессия начинается с первой строчки первая заканчивается на 11 строчке
.........
N -N какоето число... с нево начинается последняя сессия и идёт до конца тоесть существует еявный разделитель который равен общему числу копок и обозначает последнюю строчку
вопщем что мне надо... вывести всю историю копок ночтоб перед строчкой с разделителем выводилась линия шоб было видно где сессии разделяются
|
| |
| |
| Glob | Дата: Вторник, 05.05.2009, 16:48 | Сообщение # 3 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| функция отвечаящяя за это выглядит так
Code
Sub ms()
Dim rep As String
Dim Lp As Integer
Dim Tp As Integer
Console_frm.List1.Clear
Console_frm.List1.AddItem "DIG DATABASE"
Lp = 7
Tp = 0
For i = 0 To devider_long - 1
For j = sess_start(i) To sess_start(i + 1)
Call num_format(sess_m(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_zh(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_mdk(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_rm(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_kdk(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_hdd(j), Lp, Tp)
rep = rep + formatted_report
Console_frm.List1.AddItem rep
Next j
Console_frm.List1.AddItem ">>---------| Ëèíèÿ ðàçðûâà |---------<<"
Next i
For j = sess_start(devider_long) + 1 To end_dig
rep = ""
Call num_format(sess_m(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_zh(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_mdk(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_rm(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_kdk(j), Lp, Tp)
rep = rep + formatted_report
Call num_format(sess_hdd(j), Lp, Tp)
rep = rep + formatted_report
Console_frm.List1.AddItem rep
Next j
Console_frm.List1.AddItem ""
Call str_format("End Dig ", 30, 1)
Console_frm.List1.AddItem formatted_report + Str(end_dig)
Call str_format("End Session ", 30, 1)
Console_frm.List1.AddItem formatted_report + Str(end_session)
Call str_format("Dig Exp ", 30, 1)
Console_frm.List1.AddItem formatted_report + Str(dig_exp)
Call str_format("Êîëè÷åñòâî ðàçäåëèòåëåé ", 30, 1)
Console_frm.List1.AddItem formatted_report + Str(divider_long)
End Sub
результат выполнения 
|
| |
| |
| Glob | Дата: Вторник, 05.05.2009, 16:49 | Сообщение # 4 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| как видно по скрину во всех строках кроме первой и последней - нули хотя я забивал норамальные значения
|
| |
| |
| SkyDragon | Дата: Вторник, 05.05.2009, 18:49 | Сообщение # 5 |
|
воин Кайриена
Группа: Пользователи
Сообщений: 64
Статус: Offline
| А это на чем написано? О_о
|
| |
| |
| Orygeunik | Дата: Вторник, 05.05.2009, 20:19 | Сообщение # 6 |
 в рядах армии Дракона
Группа: Хранители Летописей
Сообщений: 764
Статус: Offline
| Слушай Эд, я кое-что похожее встречал... Кожется есть *зажглась лампочка над головой* идейка)
Пишите, всегда постарась помочь)))
Зовите меня просто
Огурец...
|
| |
| |
| Glob | Дата: Вторник, 05.05.2009, 23:15 | Сообщение # 7 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| это вижал бэйсик мне уже дали идейку (пока гулял) возможно этот человек присоединица к проекту
|
| |
| |
| wheeloftime | Дата: Вторник, 05.05.2009, 23:39 | Сообщение # 8 |
 Ранд ал'Тор. Дракон Возрожденный
Группа: Администраторы
Сообщений: 1189
Статус: Offline
| 
Колесо Времени и жизни. Никакой жалости. Никаких сожалений.
Колесо Времени на самом деле гораздо обширнее и сложное произведение, чем кажется. А впрочем кто я, чтоб перестроить историю, особенно на тех листах где нас должно быть много. У кого-то сила в единстве. А у кого - то в единичестве. Иногда служу депром для своих товарищей. Потом лекарем. Ха! После разных странностей...Незнаю что это находит на меня порой. Когда остальные слепо следуют за истиной, помни -
Ничто не истина...
Когда остальные ограничены моралью или законом -
Всё дозволено... В этом была честь. Честь, предполагающая, что каждый человек должен быть способен позаботиться о себе и своих вещах, не задерживая клан. (с) Айил. Колесо Времени
|
| |
| |
| Glob | Дата: Среда, 06.05.2009, 16:38 | Сообщение # 9 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| значет предложили мне следущее если абстрагироваться от масиивов (это формальности) базу данных можно представить как двумерную таблицу и мне предложили добавить в неё один столбец (в конец) точно такойже размерности как и сама таблица и ставить в нём флажки тоесть если на строчке нет указателя то в том столбце(буду называть ево вспомогательным разделителем) стоит 0 если есть указатель то 1 это очень сильно облегчает задачи где надо перебирать всю базу данных но в режиме редактора сессии всётаки удобно пользоваться обычным массивом разделителей
|
| |
| |
| wheeloftime | Дата: Среда, 06.05.2009, 22:32 | Сообщение # 10 |
|
Ранд ал'Тор. Дракон Возрожденный
Группа: Администраторы
Сообщений: 1189
Статус: Offline
| тут вникать надо....
Колесо Времени и жизни. Никакой жалости. Никаких сожалений.
Колесо Времени на самом деле гораздо обширнее и сложное произведение, чем кажется. А впрочем кто я, чтоб перестроить историю, особенно на тех листах где нас должно быть много. У кого-то сила в единстве. А у кого - то в единичестве. Иногда служу депром для своих товарищей. Потом лекарем. Ха! После разных странностей...Незнаю что это находит на меня порой. Когда остальные слепо следуют за истиной, помни -
Ничто не истина...
Когда остальные ограничены моралью или законом -
Всё дозволено... В этом была честь. Честь, предполагающая, что каждый человек должен быть способен позаботиться о себе и своих вещах, не задерживая клан. (с) Айил. Колесо Времени
|
| |
| |
| Glob | Дата: Четверг, 07.05.2009, 01:22 | Сообщение # 11 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| хех а то... если я толком не могу объяснить как выглядит зеркало темболее представить ево...
|
| |
| |
| Glob | Дата: Вторник, 12.05.2009, 02:21 | Сообщение # 12 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| после долгих мучений всётаки нашол ошыбки так выглядит консольное окно после загрузки программы
 а это когда сохранены 3 сессии по 2 копки вроде всё работает правильно
|
| |
| |
| Glob | Дата: Вторник, 12.05.2009, 02:24 | Сообщение # 13 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| начнём делать окно архитектора как думаете каких функций туда понапихать? (это окно позволяющее просматривать и редактировать копки в каждой сессии.. есть идеи по поводу фильтров и границ (например сессия в которую было выкопанно больше всево меди)
|
| |
| |
| Glob | Дата: Вторник, 12.05.2009, 22:54 | Сообщение # 14 |
|
в рядах армии Дракона
Группа: Пользователи
Сообщений: 817
Статус: Offline
| для тех кто не в курсе... Navvy это статистическая шахтёрская программа (пока  ) позволяет хранить результаты и историю сессий делать расчёты связанные со стоимостью ресурсов выводить статистические данные... включает в себя шахтёрскую бухгалтерию... сейчас пишу версию 3,0
в 3,1 ожыдается расширение на все профессии
|
| |
| |
| wheeloftime | Дата: Воскресенье, 17.05.2009, 11:37 | Сообщение # 15 |
|
Ранд ал'Тор. Дракон Возрожденный
Группа: Администраторы
Сообщений: 1189
Статус: Offline
| "Это будет нечто грандиозное..." По поводу копок- всё зависит от рандома. Иногда хорошо копается, иногда плохо. Вот мои наблюдения:
Так же если начнёт копаться медь- надо обновить страницу или выйти из шахты и снова зайти. Тогда как бы сброс происходит и все ресурсы могут выкапаться. А если введёшь те цифры которые появились после окончания копки- тогда 70% что тот же вид ресурса будет(чем меньше в стоимости ресурс-тем больше Поэтому если выкапал РМ-я стараюсь ввести те цмфры,которые были. Но всё равно постепенно спускается всё к меди.
Колесо Времени и жизни. Никакой жалости. Никаких сожалений.
Колесо Времени на самом деле гораздо обширнее и сложное произведение, чем кажется. А впрочем кто я, чтоб перестроить историю, особенно на тех листах где нас должно быть много. У кого-то сила в единстве. А у кого - то в единичестве. Иногда служу депром для своих товарищей. Потом лекарем. Ха! После разных странностей...Незнаю что это находит на меня порой. Когда остальные слепо следуют за истиной, помни -
Ничто не истина...
Когда остальные ограничены моралью или законом -
Всё дозволено... В этом была честь. Честь, предполагающая, что каждый человек должен быть способен позаботиться о себе и своих вещах, не задерживая клан. (с) Айил. Колесо Времени
|
| |
| |
|
|
|
