![Фотография](https://vse.kz/uploads/av-91185.jpg?_r=0)
Сообщество неадекватныхВсе кто себя таковым считает, идёт сюда...
Автор
Zumbi
, 28.04.2009, 10:35
#146302
Отправлено 30.06.2010, 10:16:51
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Жутко хочу корочку белого хлеба с подсолнечным маслом и чесноком.. ма меня в децтве кормила.. абажаю..
Ди, ты не знаешь почему именно при контакте с тобой оживает моя память? Произвольные выдержки, очень ярко со всеми чувствами? (
Жалко студенты пришли эхх.. придёццо отвлечься.
Ди, ты не знаешь почему именно при контакте с тобой оживает моя память? Произвольные выдержки, очень ярко со всеми чувствами? (
Жалко студенты пришли эхх.. придёццо отвлечься.
#146308
Отправлено 30.06.2010, 10:30:38
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
это у меня срабатывает защита??? (((ну не наю...может в этом причина и есть моей чувствительности, еси я медиум, а ты хочешь забыть, значить ты не хочешь ко мне прикасаца, а када делаешь это срабатывает защита у тебя и меня пробивает током...
ваще не понимаю ничё..
#146310
Отправлено 30.06.2010, 10:40:53
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
эммм.. я хочу к тебе прикасаться так как ни к кому никогда не хотел.. или я хочу и боюсь и ненавижу и срабатывает защита - короче человек глупое существо
хочу быть ангелом ) не а не хочу неинтересна навена (
хочу быть ангелом ) не а не хочу неинтересна навена (
Сообщение отредактировал zavuch: 30.06.2010, 10:41:10
#146318
Отправлено 30.06.2010, 14:16:02
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
'Ой ёй ёй чё мы ща написали со студентами..
'Реализация традиционной учебной модели "робот кипятит чайник" на ВБ, копирайт проги мой ))):
Dim voda
Dim spichki
Dim temp
Sub robot()
voda = 0
spichki = 10
temp = 20
i = 0
Do While voda < 1000
Call chainik(vodoprovod(True))
'MsgBox voda
i = i + 1
'MsgBox i
If i > 22 Then MsgBox "Malo vody": Exit Sub
Loop
MsgBox "Chainik polniy"
Do While spichki > 0
If zazhech_spichku = 1 Then
MsgBox "Spichka zazhglas"
GoTo dalshe
Else
'MsgBox "Spichka NE zazhglas"
'MsgBox "Ostalos " & spichki
End If
Loop
MsgBox "Spichek net"
Exit Sub
dalshe:
Do While Not plita = True
If plita(goryt:=True) = True Then
MsgBox "Plita zazhglas"
Exit Do
Else
MsgBox "Plita NE zazhglas"
End If
Loop
Do While temp < 100
plita goryt:=True
'MsgBox temp
Loop
plita goryt:=False
MsgBox "Gotovo!"
End Sub
Sub chainik(nalyt_vody, Optional goryachiy = False)
voda = voda + nalyt_vody
End Sub
Function vodoprovod(Optional otkryt = False)
If otkryt = True Then
vodoprovod = Rnd * 100
Else
vodoprovod = 0
End If
End Function
Function zazhech_spichku()
zazhech_spichku = Round(Rnd / 1.5)
spichki = spichki - 1
End Function
Function plita(Optional goryt = False)
If Round(Rnd * 1.5) = 1 Then
plita = goryt
temp = temp * 1.5
Else
plita = False
End If
End Function
'Реализация традиционной учебной модели "робот кипятит чайник" на ВБ, копирайт проги мой ))):
Dim voda
Dim spichki
Dim temp
Sub robot()
voda = 0
spichki = 10
temp = 20
i = 0
Do While voda < 1000
Call chainik(vodoprovod(True))
'MsgBox voda
i = i + 1
'MsgBox i
If i > 22 Then MsgBox "Malo vody": Exit Sub
Loop
MsgBox "Chainik polniy"
Do While spichki > 0
If zazhech_spichku = 1 Then
MsgBox "Spichka zazhglas"
GoTo dalshe
Else
'MsgBox "Spichka NE zazhglas"
'MsgBox "Ostalos " & spichki
End If
Loop
MsgBox "Spichek net"
Exit Sub
dalshe:
Do While Not plita = True
If plita(goryt:=True) = True Then
MsgBox "Plita zazhglas"
Exit Do
Else
MsgBox "Plita NE zazhglas"
End If
Loop
Do While temp < 100
plita goryt:=True
'MsgBox temp
Loop
plita goryt:=False
MsgBox "Gotovo!"
End Sub
Sub chainik(nalyt_vody, Optional goryachiy = False)
voda = voda + nalyt_vody
End Sub
Function vodoprovod(Optional otkryt = False)
If otkryt = True Then
vodoprovod = Rnd * 100
Else
vodoprovod = 0
End If
End Function
Function zazhech_spichku()
zazhech_spichku = Round(Rnd / 1.5)
spichki = spichki - 1
End Function
Function plita(Optional goryt = False)
If Round(Rnd * 1.5) = 1 Then
plita = goryt
temp = temp * 1.5
Else
plita = False
End If
End Function
Сообщение отредактировал zavuch: 30.06.2010, 14:17:11
Количество пользователей, читающих эту тему: 3
пользователей: 0, неизвестных прохожих: 3, скрытых пользователей: 0