Ну на самом деле проблема просто в отсутствии популяризации темы, да и время возможно еще не пришло.
У ретро есть свой период тени, потом оно опять всплывает.
Просто период начала 2000х - это такой себе переходный период, когда тема еще не совсем реликтовая, но и уже не популярная.
Но судя по последним звоночкам, эпоха ретро-компьютеров начинает обретать популярность, когда новое поколение, наши дети например начинают спрашивать, "а были в нашем детстве компьютеры?"
Да и судя по ценам на ретро-компы, тема становится более интересной, так как компьютеров все меньше и они оседают у частных коллекционеров некоторые из которых вкладывают собственные деньги в создание музеев, типа меня например.
Я славлюсь барыгой на этом форуме, но в отличии от многих я делал это все с одной целью СОЗДАНИЕ МУЗЕЯ и поверьте вложенные деньги никогда не отобъются, особенно учитывая сколько я вложил в это.
В лучшем случае деньги за экскурсии будут покрывать текущие расходы музея.
И я готов к этому, так как мне важно нести эту тему для новых поколений, быть так сказать одним из хранителей )))
Моя коллекция:Atari 400, 800, 800XL, 65XE, 130XE, 1040ST, MSX 1, MSX2, Amstrad CPC, Commodore Plus4, C64, C128, VIC-20, Amiga 500, 1200, Sinclair Timex, Spectrum, +, +2, +3, Pentagon 128, TI-99/4A, TRS-80, Apple IIe, Apple MACINTOSH 6100, iMac G3, Power Mac G4, Беста88, Львов ПК01, БК 0010,01, Электроника МС 1502, 0511, Поиск1, и еще всякие древние PC, ноуты, клоны Speccy ... всего уже и не упомню.
ну что сказать - достойно
- - - Добавлено - - -
без истории - мы никто
Вот.
В этом вся суть и есть.
Ретрокомпы дают возможность не только понять принципы работы и даже "физику процесса" относительно несложных железяк, но и освоить управление этого железа программированием, в том числе - низкоуровневым. Это - творчество. Неисчерпаемый источник увлекательного самообучения.
Взяв в руки паяльник, еще и бесконечная череда "побед над мирозданием" тебя ожидает.
Но всё это доступно лишь для того, кто осилил переступить вязкую грань потребительство/творчество.
А это сейчас непопулярно.
Проще хвалиться и чувствовать себя крутым от дорогой железяки/телефона/машины.
Которую не ты создал.
Которую даже не ты купил, а папа/мама.
Или ты сам, но - в кредит
Про работу которой ты не имеешь ни малейшего представления.
У тебя нет власти над ней. Это она влавствует над тобой... раб Золотого Тельца.
ScorpEvo ZS 1024 turbo+ CF-HDD/FDD/Mouse/SMUC 3.1/ProfROMse/NeoGS/ZC
Speccy-2007 128/AY/TR-DOS
Сайт с документацией к "Scorpion ZS 256"
Моя коллекция:Atari 400, 800, 800XL, 65XE, 130XE, 1040ST, MSX 1, MSX2, Amstrad CPC, Commodore Plus4, C64, C128, VIC-20, Amiga 500, 1200, Sinclair Timex, Spectrum, +, +2, +3, Pentagon 128, TI-99/4A, TRS-80, Apple IIe, Apple MACINTOSH 6100, iMac G3, Power Mac G4, Беста88, Львов ПК01, БК 0010,01, Электроника МС 1502, 0511, Поиск1, и еще всякие древние PC, ноуты, клоны Speccy ... всего уже и не упомню.
кем работаешь, хозяин "Золотого Тельца"? а так согласен
- - - Добавлено - - -
Бейсик - хороший язык, ничем не хуже других. но учить надо системному мышлению. экономия ресурсов - это у нас врожденное
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Если ты меня спрашиваешь, то - технарь на фармпроизводстве. Мастер по ремонту оборудования, десятый год уже пихают на главного инженера, столько же лет отбрыкиваюсь от этого. Не люблю бумаги, номеклатуры и прочую нетворческую дребедень. Меня прямо колотит от составления бумажек. Даже на форуме я со скрипом схемы рисую
- - - Добавлено - - -
Ну, начинал я с педальной детской машины. И вот права уже давно есть. Так что Бейсик - вполне себе вещь!
А на самом деле, он остается моим любимым языком, несмотря на кучу освоенных других.
ScorpEvo ZS 1024 turbo+ CF-HDD/FDD/Mouse/SMUC 3.1/ProfROMse/NeoGS/ZC
Speccy-2007 128/AY/TR-DOS
Сайт с документацией к "Scorpion ZS 256"
да все правильно, все в тему
- - - Добавлено - - -
на педальной детской машине кататься нужно не с целью сдать права, а с целью научиться водить. а Бейсик там или паскаль - дело личного вкуса
- - - Добавлено - - -
Function In2DimSortedArray(i2aArr, i2aValue, i2aSeek, i2aReturn, i2aStart, i2aEnd) ' первое попавшееся в массиве, i2aSeek - столбец по которому ищем, i2aReturn - столбец, какой нужен (-1 = ищем индекс)
if i2aReturn=-1 then In2DimSortedArray=-1 else In2DimSortedArray="" end if
if not IsArray(i2aArr) then
Exit Function
end if
i2aStartI=i2aStart
if i2aEnd<>0 then i2aEndI=i2aEnd else i2aEndI=UBound(i2aArr,2) end if
if i2aArr(i2aSeek,i2aStartI)>i2aValue or i2aArr(i2aSeek,i2aEndI)<i2aValue then
Exit Function
end if
if i2aStartI=i2aEndI and i2aArr(i2aSeek,i2aStartI)=i2aValue then
if i2aReturn=-1 then In2DimSortedArray=i2aStartI else In2DimSortedArray=i2aArr(i2aReturn,i2aStartI) end if
Exit Function
end if
do while i2aStartI<i2aEndI
i2aLook=Int(i2aStartI+(i2aEndI-i2aStartI)/2)
'Response.Write(i2aLook & "<br />")
if i2aArr(i2aSeek,i2aLook)>i2aValue then
i2aEndI=i2aLook
elseif i2aArr(i2aSeek,i2aLook)<i2aValue then
i2aStartI=i2aLook+1
if i2aStartI=i2aEndI and i2aArr(i2aSeek,i2aStartI)=i2aValue then ' хм...
In2DimSortedArray=i2aStartI
exit do
end if
else
if i2aReturn=-1 then In2DimSortedArray=i2aLook else In2DimSortedArray=i2aArr(i2aReturn,i2aLook) end if
exit do
end if
loop
End Function
- - - Добавлено - - -
это бинарный поиск по массиву - наверняка с ошибками а вообще очень не хватает Go to
- - - Добавлено - - -
Function In2DimSortedArrayFirstIndex(i2aArr, i2aValue, i2aSeek, i2aStart, i2aEnd) ' первый индекс в массиве, i2aSeek - столбец по которому ищем
'Session("ASPDbgStr")=i2aStart & "#" & i2aEnd
In2DimSortedArrayFirstIndex=-1
if not IsArray(i2aArr) then
Exit Function
end if
i2aStartI=i2aStart
if i2aEnd<>0 then i2aEndI=i2aEnd else i2aEndI=UBound(i2aArr,2) end if
if i2aArr(i2aSeek,i2aStartI)>i2aValue or i2aArr(i2aSeek,i2aEndI)<i2aValue then
Exit Function
end if
if i2aStartI=i2aEndI and i2aArr(i2aSeek,i2aStartI)=i2aValue then
In2DimSortedArrayFirstIndex=i2aStartI
Exit Function
end if
do while i2aStartI<i2aEndI
i2aLook=Int(i2aStartI+(i2aEndI-i2aStartI)/2)
if i2aArr(i2aSeek,i2aStartI)=i2aValue then
In2DimSortedArrayFirstIndex=i2aStartI
exit do
end if
if i2aArr(i2aSeek,i2aLook)>i2aValue then
i2aEndI=i2aLook
elseif i2aArr(i2aSeek,i2aLook)<i2aValue then
i2aStartI=i2aLook+1
if i2aStartI=i2aEndI and i2aArr(i2aSeek,i2aStartI)=i2aValue then ' хм...
In2DimSortedArrayFirstIndex=i2aStartI
exit do
end if
else
if i2aLook=i2aStartI+1 then
In2DimSortedArrayFirstIndex=i2aLook
exit do
else
i2aEndI=i2aLook+1
end if
end if
loop
End Function
Function In2DimSortedArrayLastIndex(i2aArr, i2aValue, i2aSeek, i2aStart, i2aEnd) ' последний индекс в массиве, i2aSeek - столбец по которому ищем
In2DimSortedArrayLastIndex=-1
if not IsArray(i2aArr) then
Exit Function
end if
i2aStartI=i2aStart
if i2aEnd<>0 then i2aEndI=i2aEnd else i2aEndI=UBound(i2aArr,2) end if
if i2aArr(i2aSeek,i2aStartI)>i2aValue or i2aArr(i2aSeek,i2aEndI)<i2aValue then
Exit Function
end if
if i2aStartI=i2aEndI and i2aArr(i2aSeek,i2aEndI)=i2aValue then
In2DimSortedArrayLastIndex=i2aEndI
Exit Function
end if
do while i2aStartI<i2aEndI
i2aLook=Int(i2aStartI+(i2aEndI-i2aStartI)/2)
'Response.Write(i2aLook & "<br />")
if i2aArr(i2aSeek,i2aEndI)=i2aValue then
In2DimSortedArrayLastIndex=i2aEndI
exit do
end if
if i2aArr(i2aSeek,i2aLook)>i2aValue then
i2aEndI=i2aLook
elseif i2aArr(i2aSeek,i2aLook)<i2aValue then
i2aStartI=i2aLook+1
else
if i2aLook=i2aEndI-1 then
In2DimSortedArrayLastIndex=i2aLook
exit do
else
i2aStartI=i2aLook
end if
end if
loop
End Function
- - - Добавлено - - -
язык - просто способ взаимодействия с машиной (асм или его коды - на родном , главное - что в голове )
TreeMind, ежели не секрет, сколько квадратов помещение у вас?
Мы вот уже почти закончили ремонт и до сентября планируем расставиться и запуститься... На 90 квадратов хотим порядка 40-50 машин (в том числе и нашу СМ-1420) запихнуть работающих.
Последний раз редактировалось BYTEMAN; 12.07.2016 в 14:30.
С уважением, Александр.
Scorpion ZS-256 Turbo+ GMX-2048
SID-Blaster/ZX
Музей ретрокомпьютеров в Минске!
Здесь ничего нет => http://byteman.by
И здесь тоже --->>> http://bytespace.by
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)