Вопрос: Промили, програмирование, ностальгия.

Добавлено: 20.09.08 21:50

Автор вопроса:  Боцман | Web-сайт: Rus-Skipper.narod.ru | ICQ: 295725312

Сколько промилей останавливают программирование? Вопрос типа кто сколько пьет задавать не буду, тут наверно я чемпион, Средняя доза что бы не болели старые раны 0,5 литра водки и шлифовка 0,5 пива, в смысле это все на ужин вместо валерьянки в другое время не пью, заставлять выпить чревато. Могу и не пить, но тогда глаза ночью почти не закрываю, через пару недель срыв, две трое суток не просыпаюсь, потом все опять нормально, но первое время чуствителен к лжи. Теперь по сути тут в школе, все в той же, попросили написать пример для создания плей-листа, свойства ListBox они не знают, а магнитофоны пишут, звездец. Конечно написал полный пример вот кусок; 'Функция для записи имени и расширения в ListBox с чтением из другого ListBox_са полного пути этого файла Private Function NameAndExpansion_in_List(ByVal NameList As ListBox, ByVal NameAndExpansion As ListBox) 'считываем из ListBox_са-(NameList) полный путь, с записью в лист(NameAndExpansion) имени и расширения файла Dim № As Long № = 0 Do While № < NameList.ListCount     NameList.ListIndex = №  NameAndExpansion.AddItem Split(NameList.Text, "\")(UBound(Split(NameList.Text, "\"))) 'вариант-1(имя + расширение) ' NameAndExpansion.AddItem Dir(NameList.Text) 'вариант-2 (имя + расширение) ' ************эти строки для вывода только имени файла без расширения*************************************** ' Dim Point As Byte '\ ' Point = InStr(Dir(NameList.Text), ".") '\ ' If Point <> 0 Then '\ ' NameAndExpansion.AddItem (Left(Dir(NameList.Text), Point - 1)) 'выводим имя файла без расширения. '\ ' End If '\ '*****************************************************************************     № = № + 1 Loop End Function Private Sub Command3_Click() Call NameAndExpansion_in_List(List1, List2) End Sub Конечно не шедевр, но подумалось, а почему и для себя такие не создать в виде примеров? А тут как раз промили шкалили увидел картинку в инете и вдохновился. И вот по поводу бесполезных программ, хочу предложить горяченькую, с пылу жару так сказать.              Магнитофон семидесятых годов Весна305. Вообщем тоже магнитофон, но все-таки еще тот и глюки приделал еще те. А контроллы останутся, вроде и полезно. Вообщем для старшего поколения просто предлагаю скачать и поностальгировать. http://rus-skipper.narod.ru/Programs/Vesna.zipРазмер менее 190 кб. Другим думаю скучно будет. Не скучных вам промилей!!! Насчет сколько промилей останавливают программирование?, ПЕРЕБОР. Ответить

Ответы

Всего ответов: 23

Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz  Вопросов: 120 Ответов: 3302	Профиль | | #1	Добавлено: 20.09.08 21:59
	А мп3 он жуёт? Ответить

Номер ответа: 2 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #2	Добавлено: 20.09.08 22:05
	А мп3 он жуёт? УГУ только во время перемотки. Ответить

Номер ответа: 3 Автор ответа:  Arseny ICQ: 298826769  Вопросов: 53 Ответов: 1732	Профиль | | #3	Добавлено: 20.09.08 22:08
	жжоте... 2Боцман: тебе надо патефон на комп перевести, глядишь - и бабульки заколбасятся под пластинки. Ответить

Номер ответа: 4 Автор ответа:  Arseny ICQ: 298826769  Вопросов: 53 Ответов: 1732	Профиль | | #4	Добавлено: 20.09.08 22:10
	кто сколько пьет я завязал. а до этого - частенько принимал. твоя формула 0.5+0.5 - мне импонирует. Ответить

Номер ответа: 5 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #5	Добавлено: 20.09.08 22:12
	Arseny ты это к чему??? Сколько промилей принял признавайся! Ответить

Номер ответа: 6 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #6	Добавлено: 20.09.08 22:24
	У меня файл не скачивается, звездец. Страница если че эта http://rus-skipper.narod.ru/ProgramsMini.html Ответить

Номер ответа: 7 Автор ответа:  Arseny ICQ: 298826769  Вопросов: 53 Ответов: 1732	Профиль | | #7	Добавлено: 20.09.08 22:44
	Arseny ты это к чему??? Сколько промилей принял признавайся! я теперь даже кефир не пью... никаких промилей, если только прошлогодние... Ответить

Номер ответа: 8 Автор ответа:  HACKER   Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль | | #8	Добавлено: 21.09.08 00:44
	хз-хз, 0.5 я конечно не потяну сам за ужином. Вот чекушечку мона )) но вообще не люблю на ужин. У меня вертолёты потом всю ночь, если перебрать и тошнить может.. и бээээ а утром уйбла.. ))) Поэтому интереснее не так. Ломануться в клубец, коньячка с друзьями, и пришлифовать редбулом с водкой.. плюс обычно с девочкой за компанию самбуки, я конечно угощаю Все девченки любят самбуку, кому не нравиться по вкусу, всёравно говорят что нравится, наверное сам процесс приготоволения... А потом.. потом.. хех.. А какой прикол за ужином? :\ Ответить

Номер ответа: 9 Автор ответа:  Серёга ICQ: 262809473  Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru  Профиль | | #9	Добавлено: 21.09.08 00:55
	http://rus-skipper.narod.ru/Programs/Vesna.zip 1. слишком широко открывается подкассетник; 2. перемотки перепутаны; 3. регулятора скорости на пер. панели не было; но в остальном просто ЗАШИБИСЬ!!! Боцман, спасибо! Порадовал )) Ответить

Номер ответа: 10 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #10	Добавлено: 21.09.08 10:27
	Серега спасибо. Я с тобой согласен, подкассетник взял с современного магнитофона, куда крутились кассеты не помню, помню что постоянно спичкой с ваткой чистил головку. Вместо регулятора скорости был ТЕМБР, да и кино не показывал. Вместо БАЛАНСА был переключатель мощности 0,5вт или 1вт. Но это издержки модернизации. А какой прикол за ужином? :\ Так ведь писал вместо валерьянки, сплю как убитый. Останавливает программирование Run time ERROR 17 “Can't perform requested operation” Серега помоему ты как то подсказал про HALFTONE? Если интересует ВЕСНА305 могу дать исходники. Ответить

Номер ответа: 11 Автор ответа:  D o c a l ICQ: 408802757  Вопросов: 76 Ответов: 985	Web-сайт: www.doc-source.pp.net.ua/  Профиль | | #11	Добавлено: 21.09.08 13:54
	у меня всё время кричит file not found я канешно нажімаю всё подряд но єто мелочи Ответить

Номер ответа: 12 Автор ответа:  Серёга ICQ: 262809473  Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru  Профиль | | #12	Добавлено: 21.09.08 14:46
	Если интересует ВЕСНА305 могу дать исходники. - давай (houselab@mail.ru) Ответить

Номер ответа: 13 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #13	Добавлено: 21.09.08 15:13
	Серёга выслал.  ocal это когда происходит? Ответить

Номер ответа: 14 Автор ответа:  D o c a l ICQ: 408802757  Вопросов: 76 Ответов: 985	Web-сайт: www.doc-source.pp.net.ua/  Профиль | | #14	Добавлено: 21.09.08 19:08
	ужас что с смайлами творитса))) ocal это должно быть так ; Docal запустил прогу нажал на превую клавишу нажал на касету в касетнике нажал на мп3 в диалоговом окне (C:\Documents and Settings\Docal\Рабочий стол\}{OTT@BYCH.mp3) нажал на ней в касетнике началось проигравание потом во время проигравования нажал на вторую кнопочку и всё вот она наша ошибка Ответить

Номер ответа: 15 Автор ответа:  Боцман ICQ: 295725312  Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru  Профиль | | #15	Добавлено: 21.09.08 20:04
	Конечно Docal, но во время сохранения буква D исчезла, хотя если подвести курсор то она как подсказка появляется. потом во время проигравования нажал на вторую кнопочку и всё вот она наша ошибка Это ты про красную говоришь так там всего одна строчка Call Shell("sndrec32.exe", vbNormalFocus) Error не описан, не думал что у кого-то этого файлика нет. Поправлю. Кстати кино тоже крутит, вот только DVD просто отключил, иногда глючит. Ответить

Страница: 1 | 2 |