| Автор |
Сообщение |
Azs 38842
Дорогая редакция
Профиль
Сообщение
|
 19.12.03 15:31 |
Ответить с цитатой |
Люди, а тут окромя меня есть программисты?
Кто знает хотя бы один язык? |
|
 |
Nik 848
Коллежский секретарь
Профиль
Сообщение
|
| 19.12.03 15:51 |
Ответить с цитатой |
Мощно задвинул! Внушает! В Интернете вообще или в Новгородской области? Да уж наверное ПОВТ 40-50 человек закончили, на троечки. |
|
|
Azs 38842
Дорогая редакция
Профиль
Сообщение
|
| 19.12.03 15:56 |
Ответить с цитатой |
Я имел ввиду ТУТ, в ЭТОМ форуме, из 59-ти зарегистрированных пользователей. |
|
|
MAD ADMIN 648
Губернский секретарь
Профиль
Сообщение
|
| 21.12.03 04:45 |
Ответить с цитатой |
ну хрен знает на басике калькуляор наишу )) ну могет на паскале))) срр только начал юзать кроме hello world больше не с бацаю))) |
|
|
PAVlion 653
Губернский секретарь
Профиль
Сообщение
|
|
|
T 35
Профиль
Сообщение
|
| 16.01.04 11:52 |
Ответить с цитатой |
| Azs писал(а): |
Люди, а тут окромя меня есть программисты?
Кто знает хотя бы один язык? |
есть такие
"знает" у нас много, а вот толк есть не от всех |
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 21.01.04 12:29 |
Ответить с цитатой |
Более мение 1с, Delphi, SQL
А в остальных боевого опыта не имею, но балуюсь  |
|
|
avator
Гость
|
|
|
darkich 259
Провинциальный секретарь
Профиль
Сообщение
|
| 31.01.04 10:26 |
Ответить с цитатой |
на работе частенько пользую VB, Delphi
и остального по немножечку... |
|
|
Fargal 404
Провинциальный секретарь
Профиль
Сообщение
|
| 02.02.04 15:55 |
Ответить с цитатой |
Builder, Delphi... FORTH! но это когда совсем тоска, мозги поразмять |
|
|
UnMask 8532
Действительный тайный советник
Профиль
Сообщение
|
| 09.02.04 08:29 |
Ответить с цитатой |
Училка сынку программера:
- Ты чего в словосочетании "Дубовая роща" слово "роща" через "я" написал? А ну-ка на доске 20 раз правильно напиши, чтобы на всю жизнь запомнил! Через минуту поворачивается и видит:
@Repeat("роща"; 20) |
|
|
Azs 38842
Дорогая редакция
Профиль
Сообщение
|
| 19.02.04 14:00 |
Ответить с цитатой |
Комментарии!
| Код: |
'ВТОРАЯ ЧАСТЬ ПОЭМЫ
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
chtoto = Split(liniya, ",")
'проверка времени
vremya = Left(Right(Trim(chtoto(1)), 6), 4)
If vremya = vremya1 Then
Text1.Text = Text1.Text & "Одинаковое время, строка " & s & vbNewLine
Else
End If
vremya1 = vremya
otmena = Trim(chtoto(3))
vid = Trim(chtoto(7))
kolvo = Trim(chtoto(8)) * 1
If vid = "0011" Then
summa = Trim(chtoto(10)) / 100
Else
summa = Trim(chtoto(10)) * 1
End If
price = Format(summa / kolvo, "##0.00")
If kolvo > 1 Then kolvo = kolvo / 100
'потом параметры странности впердолить в настройки
If kolvo > 1000 Then Text1.Text = Text1.Text & "Количество литров больше 1000, строка " & s & vbNewLine
If price = 0 Then Text1.Text = Text1.Text & "Нулевая цена, строка " & s & vbNewLine
If price > 100 Then Text1.Text = Text1.Text & "Странная цена, строка " & s & vbNewLine
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
MSFlexGrid1.Visible = False
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 1: MSFlexGrid1.Text = vid1
MSFlexGrid1.Row = 2: MSFlexGrid1.Text = vid2
MSFlexGrid1.Row = 3: MSFlexGrid1.Text = vid3
MSFlexGrid1.Row = 4: MSFlexGrid1.Text = vid4
MSFlexGrid1.Row = 5: MSFlexGrid1.Text = vid5
MSFlexGrid1.Row = 6: MSFlexGrid1.Text = vid6
MSFlexGrid1.Row = 7: MSFlexGrid1.Text = vid7
MSFlexGrid1.Row = 8: MSFlexGrid1.Text = vid8
MSFlexGrid1.Row = 9: MSFlexGrid1.Text = vid9
MSFlexGrid1.Row = 10: MSFlexGrid1.Text = vid10
MSFlexGrid1.Row = 11: MSFlexGrid1.Text = vid11
MSFlexGrid1.Row = 12: MSFlexGrid1.Text = vid12
MSFlexGrid1.Row = 13: MSFlexGrid1.Text = vid13
MSFlexGrid1.Row = 14: MSFlexGrid1.Text = vid14
MSFlexGrid1.Row = 15: MSFlexGrid1.Text = vid15
For d = 1 To 15
MSFlexGrid1.Row = d
MSFlexGrid1.Col = 0: MSFlexGrid1.CellBackColor = RGB(255, 255, 255): MSFlexGrid1.CellFontBold = False: MSFlexGrid1.CellForeColor = RGB(0, 0, 0)
MSFlexGrid1.Col = 1: MSFlexGrid1.CellBackColor = RGB(255, 255, 255): MSFlexGrid1.CellFontBold = False: MSFlexGrid1.CellForeColor = RGB(0, 0, 0)
MSFlexGrid1.Col = 2: MSFlexGrid1.CellBackColor = RGB(255, 255, 255): MSFlexGrid1.CellFontBold = False: MSFlexGrid1.CellForeColor = RGB(0, 0, 0)
Next d
For w = 1 To 15
MSFlexGrid1.Row = w
If MSFlexGrid1.Text * 1 <> 0 Then
MSFlexGrid1.Col = 0: MSFlexGrid1.CellBackColor = RGB(230, 230, 230)
MSFlexGrid1.Col = 1: MSFlexGrid1.CellBackColor = RGB(230, 230, 230)
MSFlexGrid1.Col = 2: MSFlexGrid1.CellBackColor = RGB(230, 230, 230)
MSFlexGrid1.CellFontBold = True: MSFlexGrid1.CellForeColor = RGB(255, 0, 0)
Else
End If
Next w
MSFlexGrid1.Visible = True
Me.MousePointer = 0
Exit Function
err:
MsgBox "Ошибка при чтении файла " & file & vbNewLine & "Проверьте корректность файла.", vbCritical, Me.Caption
Close #1
Me.MousePointer = 0
|
Это мои старые исходники чего-то двух-трехлетней давности |
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 19.02.04 15:56 |
Ответить с цитатой |
Кусок прогри на VBA по учету топлива по видам и по времени вероятно. Да и еще с хранением в текстовых файлах или импортом. |
|
|
Azs 38842
Дорогая редакция
Профиль
Сообщение
|
| 19.02.04 16:08 |
Ответить с цитатой |
Анализатор логов терминала топливных кредитных карт. На простом VB, не for Applications. |
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 19.02.04 16:10 |
Ответить с цитатой |
... кажеться этот кусок отвечает за поступление топлива (или чего еще жидкого или газообразного) по видам, с проверкой на время(дату) и с проверкой на обьем за раз не более 1000 литров ...
 |
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 19.02.04 16:14 |
Ответить с цитатой |
нигода еще не писал на VB и даже отличий от VBA не знаю, это у нас Darkich любит VB (или VBA не знаю). Он даже чего-то красочное писал, я сам видел . |
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 19.02.04 16:15 |
Ответить с цитатой |
| Azs писал(а): |
| Анализатор логов терминала топливных кредитных карт. На простом VB, не for Applications. |
После 1С мне везде учет мерещиться ... |
|
|
Azs 38842
Дорогая редакция
Профиль
Сообщение
|
|
|
Илья 3787
Коллежский советник
Профиль
Сообщение
|
| 19.02.04 16:29 |
Ответить с цитатой |
Простите малограмотного, я ж консерваториев не кончал, за всю жизнь по русскому языку получи 4 только один раз все остальное 3 и 2 ... да ещё и куча ...
А если серьезно то я прочитал много литературы и по идее я должен писать грамотно, но не пишу. Не научился не по русски, не по казахски не по английски не по чукотски не по французски ... могила вобщем меня исправит. |
|
|
Fargal 404
Провинциальный секретарь
Профиль
Сообщение
|
| 29.03.04 16:31 |
Ответить с цитатой |
Вот взялся тут неделю на зад за изучение PHP... я в шоке... мега язык... ничто из того что я знаю рядом не стояло по удобности...... в общем результаты 6 дневного изучения PHPтут |
|
|
|
Список форумов Валдай
