|
Проект "Слоганы"
|
|
| Serg | Дата: Среда, 03 Июня 2009, 15:48 | Сообщение # 1 |
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Простенькая программа предназначенная для...сами поймёте зачем 
Базу можно пополнять.
Какие недостатки?
|
| |
| |
| Sower | Дата: Среда, 03 Июня 2009, 16:15 | Сообщение # 2 |
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| Блин прикольная вещь, ввел слово "пердун", программа: "Прокладки и тампоны "пердун" - секрет твоей уверенности! .
 Добавлено (03 Июнь 2009, 16:15)
---------------------------------------------
А зачем в список выводишь результат? Строка не вмещается, сделай в Paragraph и кнопочку копировать, уж очень корышные там слоганы 
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 16:21 | Сообщение # 3 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Quote А зачем в список выводишь результат?
Список не читает RetString$
А так то никакой пазницы нету 
|
| |
| |
| Sower | Дата: Среда, 03 Июня 2009, 16:24 | Сообщение # 4 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| и еще сделай четние случайной строки, а то както по порядку не очень, а чтобы слоганы не повотрялись - извратись и сделай исключение повтора, если не сможешь в примерах с ммб вроде было подобное Добавлено (03 Июнь 2009, 16:24)
---------------------------------------------
Quote (Serg) Список не читает RetString$
непонял
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 16:43 | Сообщение # 5 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Ну если поставлю загрузку в парагапаш переменной то ничего неотображается
|
| |
| |
| Sower | Дата: Среда, 03 Июня 2009, 17:01 | Сообщение # 6 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| Quote (Serg) Ну если поставлю загрузку в парагапаш переменной то ничего неотображается
Всё отображается
Code If (EditBox$='') Then
Message("Вы не ввели слово!","")
Else
i=i+1
DisplayValue("EditBox2","i")
RV=StrToFile(C:\число.txt,EditBox2$,FALSE,FALSE)
string$='<SrcDir>\slogan.txt'
str$=StrFromFile(string$,i,1)
RetString$=StrChange(str$,$mirror,EditBox$)
LoadText("Paragraph","RetString$")
End Добавлено (03 Июнь 2009, 17:01)
---------------------------------------------
еще зачем ты количество слоганов и номер слогана отбражаешь в эдитбоксе? Вообще правильнее (как я думаю) в лэйблы
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 17:10 | Сообщение # 7 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| LoadText("Paragraph","RetString$")
у меня нерабоатет,я ж пробовал,мистика..
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 17:31 | Сообщение # 8 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Глюк.перезагрузил всё ок. НЕДОСТАТОК:Повторение слогов т.к. используется функция RND.
Давайте обсудим как исправить.Можно использовать флеш,там функция намного лучше,но я не умею передавать переменную во флеш.
Сообщение отредактировал Serg - Среда, 03 Июня 2009, 17:36 |
| |
| |
| toizy | Дата: Среда, 03 Июня 2009, 17:32 | Сообщение # 9 |
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
| А можно поступить проще и умнее - забить ListBox значениями от 1 до 100, а потом сделать ему рандомизацию
Жизнь оказалась не такой уж и забавной, как поначалу...
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 17:38 | Сообщение # 10 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| toizy,я так и хотел,даже можно просто в текстовый файл записать Добавлено (03 Июнь 2009, 17:38)
---------------------------------------------
А,ну да 
Сообщение отредактировал Serg - Четверг, 04 Июня 2009, 10:37 |
| |
| |
| Sower | Дата: Среда, 03 Июня 2009, 17:42 | Сообщение # 11 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| да просто записывать все прочтенные строки в массив, а потом прогонять его в цикле, сравнивать с текущим RND числом если не совпадет, то чиатем строку, совпадет, тогда опять RND! возможны торможения ноQuote (Serg) кол-во совпадений будет меньше или будет 100% разные числа? |
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 17:52 | Сообщение # 12 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Гранд,мне кажется так не прокатит,ведь RND половину чисел вообще не использует,тормозить здорово будет.
|
| |
| |
| Sower | Дата: Среда, 03 Июня 2009, 17:59 | Сообщение # 13 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| нафиг сделать плагин с random Добавлено (03 Июнь 2009, 17:59)
---------------------------------------------
Quote (Serg) кажется так не прокатит
ты попробуй!
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 18:25 | Сообщение # 14 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
|
А что пробовать,представь что у тебя будет 1000 слогонов.Сколько времени займёт запись строк в массив+проверка. Вот как сделал
Сообщение отредактировал Serg - Среда, 03 Июня 2009, 19:20 |
| |
| |
| toizy | Дата: Среда, 03 Июня 2009, 18:57 | Сообщение # 15 |
|
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
| Quote (Grand) если не совпадет, то чиатем строку, совпадет, тогда опять RND!
Это заведомо ложный подход. Мы уже обсуждали эту тему, за что меня один перец чуть не съел, когда я предложил метод сортировки массива. Учитывая тормознутость циклов в ММВ, способ с ListBox наилучийДобавлено (03 Июнь 2009, 18:55)
---------------------------------------------
читаем тут и тут и ещё тут Добавлено (03 Июнь 2009, 18:57)
---------------------------------------------
Кстати, вот тут эта тема и была раскрыта
Жизнь оказалась не такой уж и забавной, как поначалу...
|
| |
| |
| Serg | Дата: Среда, 03 Июня 2009, 19:32 | Сообщение # 16 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| toizy,я читал,твой скрипт  Добавлено (03 Июнь 2009, 19:32)
---------------------------------------------
То что я сделал тоже можно использовать,только лишний файл.
|
| |
| |
| Sower | Дата: Четверг, 04 Июня 2009, 15:02 | Сообщение # 17 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| Serg, а доделай этот проект до ума, сделай что-то типа МАТериализатора, как as-master, только со слоганами, добавь пару фишек, мне кажется очень круто будет идея прикольная! Можно даже полезную программку сделать (только нецензурные выражения убрать) для всяких сочинятелей слоганов, а лучше две версии - одна оффицальная для реальных слоганов, а другая типа такой, которая сейчас (я имею ввиду содержание слоганов)
|
| |
| |
| Serg | Дата: Четверг, 04 Июня 2009, 15:10 | Сообщение # 18 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Хорошо
|
| |
| |
| Serg | Дата: Пятница, 05 Июня 2009, 17:28 | Сообщение # 19 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 959
Репутация: 6
Награды: 8
Статус: Offline
| Новый проект.Правда уже не слоганы,т.к.это не всем интересно,теперь проект "Сборник афоризмов"
Какие недостатки,предложения?
Решил не делать функцию случайного афоризма,сделал выбор афоризма по его номеру.
|
| |
| |
| Sower | Дата: Пятница, 05 Июня 2009, 18:21 | Сообщение # 20 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 916
Репутация: 11
Награды: 3
Статус: Offline
| молодец, проделал работу, только прикольней было, когда свои слова вставляешь сделай лучше так, правда база большовата
|
| |
| |
Все права защищены
