| Автор |
Сообщение |
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
|
 |
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
 13.09.10 10:52 |
Ответить с цитатой |
2000 год... ностальгия.
Что примерно я писал для большой топливной компании:
| Код: |
Else
file = Dir1.Path & "\" & List1.Text
Open file For Input As #1
s = 0
Do While Not EOF(1)
s = s + 1
Line Input #1, TextLine
liniya = TextLine
'Dim chtoto(10)
o = 0
coun = 0
For i = 1 To Len(liniya)
um = Mid(liniya, i, 1)
If um = "," Then
coun = coun + 1
chtoto(coun) = Trim(Left(Right(liniya, Len(liniya) - o), i - o - 1))
o = i
Else
End If
Next i
'проверка времени
If mnu16.Checked = True Then
vremya = Left(Right(Trim(chtoto(2)), 6), 4)
If vremya = vremya1 Then
q = MsgBox("Внимание, в файле " & file & " содержатся строки с одинаковым временем! (строка № " & s & ")" & vbNewLine & vbNewLine & "Продолжить выполнение?", vbExclamation + vbYesNo + vbDefaultButton1, Me.Caption)
If q = vbNo Then Close #1: Me.MousePointer = 0: Exit Function
Else
End If
vremya1 = vremya
Else
End If
otmena = Trim(chtoto(4))
vid = Trim(chtoto(8))
kolvo = Trim(chtoto(9)) * 1
If kolvo > 1 Then kolvo = kolvo / 100
If otmena <> "V" Then
Select Case vid
Case "0001": vid1 = vid1 + kolvo
Case "0002": vid2 = vid2 + kolvo
Case "0003": vid3 = vid3 + kolvo
Case "0004": vid4 = vid4 + kolvo
Case "0005": vid5 = vid5 + kolvo
Case "0006": vid6 = vid6 + kolvo
Case "0007": vid7 = vid7 + kolvo
Case "0008": vid8 = vid8 + kolvo
Case "0009": vid9 = vid9 + kolvo
Case "0010": vid10 = vid10 + kolvo
Case "0011": vid11 = vid11 + kolvo
Case "0012": vid12 = vid12 + kolvo
Case "0013": vid13 = vid13 + kolvo
Case "0014": vid14 = vid14 + kolvo
Case "0015": vid15 = vid15 + kolvo
End Select
Else
End If
Loop
Close #1
End If |
|
|
|
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
| 13.09.10 14:27 |
Ответить с цитатой |
Сегодня по всей стране пьяные в говно программисты будут купаться в фонтанах, орать «За ПХП!» и пи**ить прохожих.
 |
|
|
UnMask 8478
Действительный тайный советник
Профиль
Сообщение
|
|
|
Кирилл 10378
Канцлер
Профиль
Сообщение
|
|
|
Rambo 12075
Канцлер
Профиль
Сообщение
|
| 13.09.10 14:51 |
Ответить с цитатой |
| Azs писал(а): |
| Сегодня по всей стране пьяные в говно программисты будут купаться в фонтанах, орать «За ПХП!» и пи**ить прохожих. |
Интересно, а среди ВДВ-шников есть программисты??? |
|
|
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
|
|
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
| 13.09.10 15:26 |
Ответить с цитатой |
| Rambo писал(а): |
| Интересно, а среди ВДВ-шников есть программисты??? |
Думаю, исчезающе малый процент  |
|
|
Кирилл 10378
Канцлер
Профиль
Сообщение
|
| 13.09.10 15:53 |
Ответить с цитатой |
| Azs писал(а): |
| Яндекс отменили? |
Спасибо, никогда бы сам не догадался.
И в яндух посмотреть забываю, с людьми как то лучше... |
|
|
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
|
|
Lena_rov 969
Коллежский секретарь
Профиль
Сообщение
|
|
|
Старый 255
Провинциальный секретарь
Профиль
Сообщение
|
| 13.09.11 10:23 |
Ответить с цитатой |
Программа на день:
1:
while(cash>0)
{
Programmer.Пить!();
}
Programmer.CallToAFriend();
goto 1; |
|
|
Anyuta 702
Губернский секретарь
Профиль
Сообщение
|
| 13.09.11 12:03 |
Ответить с цитатой |
С праздником, дорогие АСУшники! Здоровья и творческих успехов! |
|
|
UnMask 8478
Действительный тайный советник
Профиль
Сообщение
|
| 13.09.11 12:32 |
Ответить с цитатой |
это надо было в тему про картинку справа. теперь туда все поздравления, воспоминания, etc. |
|
|
Sagedragon 3376
Коллежский советник
Профиль
Сообщение
|
| 13.09.11 13:44 |
Ответить с цитатой |
Кому праздник, а кто и сейчас т... "развлекается" 
В общем, с праздником.
 |
|
|
Старый 255
Провинциальный секретарь
Профиль
Сообщение
|
|
|
Владиир 14161
Канцлер
Профиль
Сообщение
|
| 13.09.11 17:34 |
Ответить с цитатой |
Что бы такого сделать хорошего
| Цитата: |
Русским языком говоря, марафон программистов.
Суть мероприятия: с двух сторон Атлантики собираются программеры-добровольцы и пишут общественно полезные программы, идеи которых подсказаны широкой публикой. В Вашингтоне они собираются в Американском университете, в Москве — в офисе Яндекса (который, вместе с Гуглом, является соорганизатором этого события).
Так что если у кого-то из читающих эти строки есть идея общественно-полезного приложения (такого, которое улучшило бы жизнь российскому человечеству, но вряд ли в обозримом будущем могло бы быть реализовано у нас на коммерческих основаниях), то можете эту идею изложить организаторам. Я, например, предложил создать карту доступности, которая отображала бы на картах места, где созданы специальные условия для доступа инвалидов. Задача программеров при реализации такой задачи сводилась бы к разработке интерфейсов, которые позволяли бы разным людям добавлять новые объекты — сразу и в базу приложения, и в карты Google, и в карты Яндекса.
Если хотите принять участие в марафоне — вам сюда. |
http://dolboeb.livejournal.com/2189585.html |
|
|
Azs 38638
Дорогая редакция
Профиль
Сообщение
|
|
|
Кирилл 10378
Канцлер
Профиль
Сообщение
|
| 13.09.11 21:03 |
Ответить с цитатой |
Поздравляю нынешних и будущих очканавтов.
А куда наш ботан-сталинист пропал? |
|
|
Sagedragon 3376
Коллежский советник
Профиль
Сообщение
|
|
|
|
Список форумов Валдай
