(no subject)
просто нравится...
cupuyc6661313
"Как ты?"-спрашивали меня...ну разве не видно что не как...я убит...не физически ,а морально...я страдаю не снаружи ,а в нутри...я стараюсь не показывать этого...Но это тяжело...."Почему?"-спросила ты...потому что друзья отвернулись....потому что любовь жестока и я не могу добиться ее.Вопросов много у тебя...но отвечать на них не хочу...просто я этого не переживу...Я молю тебя,Боже....хоть я в тебя и не верю...но это не важно...Важно то что я умру...во мне бомба замедленного действия...которая грызет,режет,рвет мою душу...от нее и так не чего не осталось...после тебя Ира(псевдоним,не хочу называть твоё имя)Страх?Нет,не какого страха перед любовью...он был раньше,но когда я начал добиваться твоей любви,он исчез...потому что я был для тебя не кем...просто человеком,который не чего не значит.Боль?Да...в отличие от страха,она осталась...и не хочет покидать меня....Чувства?Нет...осталось только равнодушие к тебе...Слезы?Да..но они текут не наружу....и глаза не плачут...потому что плачет душа...Хоть я и страдаю...я все равно..пытаюсь остаться человеком не лишенным разума,и как я писал ранее....я изливаю душу листку бумаги....Я страдаю...ты веселишся...Я плачу...ты смеешся...Ты не можеш себе представить какого мне...я не желаю тебе такой участи...Я хочу чтобы ты была счастлива.
Да....я знаю что многое делал не так...я не хотел тебя ни чем обидеть...я просто боролся за светлое чувство....ты не выбирала меня...не говорила мне "Да".Я понял что это произошло к лучшему...я же не вещь чтобы ты могла выбрать меня...Я не хочу тебе писать...не хочу звонить...С меня хватит!Я натерпелся твоих выходок...твоих обманов и предательств...я прошел через многое..
Это как война...тут не кого не жалеют...Я любил тебя всем сердцем, но ты говорила "Нет" и резала мне душу одним этим словом...эх....прошло уже два года...но я все помню.....странно...может это правдо была любовь?может быть....я точно не знаю...Если честно я немного скучаю по тебе...да я настрадался...да,у меня осталось лишь равнодушие к тебе...но я все равно рад видеть тебя.


код для кнопки тест..
просто нравится...
cupuyc6661313
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
If Form1.Option3.Value = True Then Label3.Caption = "правильно": n = n + 1 Else: Label3.Caption = "неверно"
If Form1.Option5.Value = True Then Label4.Caption = "правльно": n = n + 1 Else: Label4.Caption = "неверно"
If Label3.Caption = "неверно" Then Label3.ForeColor = vbRed Else Label3.ForeColor = vbGreen
If Label4.Caption = "неверно" Then Label4.ForeColor = vbRed Else Label4.ForeColor = vbGreen
If n = 2 Then Label6.Caption = "5" Else If n = 1 Then Label6.Caption = "3" Else Label6.Caption = "2"
 

Вопрос дня: Больше, чем слова
просто нравится...
cupuyc6661313

Тексты каких песен вас пробирают до мозга костей? Какие поражают действительно до глубины души?

Прислал(а) [info]alphz

<input ... > Смотреть ответы (2897)

Владимир Высоций - Баллада о любви.

Код для программы "Попади в цель"
просто нравится...
cupuyc6661313
 Dim intk, intkmin As Integer

Private Sub Command1_Click()
Shape2.Left = Int(Rnd * 244 + 16)
Shape3.Left = Int(Rnd * 244 + 16)
Shape2.Top = Int(Rnd * 66 + 48)
Shape3.Top = Int(Rnd * 66 + 48)
Label1.Caption = ""
intk = 0
intkmin = Abs(Shape3.Left - Shape2.Left) + Abs(Shape3.Top - Shape2.Top)
End Sub

Private Sub Command2_Click()
Timerv.Enabled = True
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = False



End Sub

Private Sub Command3_Click()
Timerv.Enabled = False
Timern.Enabled = True
Timerp.Enabled = False
Timerl.Enabled = False
End Sub

Private Sub Command4_Click()
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = True

End Sub

Private Sub Command5_Click()
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = True
Timerl.Enabled = False
End Sub

Private Sub Form_Load()
Randomize
Shape2.Left = Int(Rnd * 244 + 16)
Shape3.Left = Int(Rnd * 244 + 16)
Shape2.Top = Int(Rnd * 66 + 48)
Shape3.Top = Int(Rnd * 66 + 48)
intk = 0
intkmin = Abs(Shape1.Left - Shape2.Left) + Abs(Shape1.Top - Shape2.Top)

End Sub

Private Sub Timer2_Timer()

End Sub

Private Sub Timerl_Timer()
Shape3.Left = Shape3.Left - 1
intk = intk + 1
If Shape3.Left = Shape2.Left And Shape3.Top = Shape2.Top Then
Label1.Caption = "Вы попали!не прошло и года =))Количество очков" & (100 - (intk - intkmin))
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = False
End If
End Sub

Private Sub Timern_Timer()
Shape3.Top = Shape3.Top + 1
intk = intk + 1
If Shape3.Left = Shape2.Left And Shape3.Top = Shape2.Top Then
Label1.Caption = "Вы попали!не прошло и года =))Количество очков" & (100 - (intk - intkmin))
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = False
End If
End Sub

Private Sub Timerp_Timer()
Shape3.Left = Shape3.Left + 1
intk = intk + 1
If Shape3.Left = Shape2.Left And Shape3.Top = Shape2.Top Then
Label1.Caption = "Вы попали!не прошло и года =))Количество очков" & (100 - (intk - intkmin))
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = False
End If
End Sub

Private Sub Timerv_Timer()
Shape3.Top = Shape3.Top - 1
intk = intk + 1
If Shape3.Left = Shape2.Left And Shape3.Top = Shape2.Top Then
Label1.Caption = "Вы попали!не прошло и года =))Количество очков" & (100 - (intk - intkmin))
Timerv.Enabled = False
Timern.Enabled = False
Timerp.Enabled = False
Timerl.Enabled = False
End If
End Sub

Свобода-смерть.
просто нравится...
cupuyc6661313

2010г.Россия-свободное государство....
Коррупция,алкоголизм...Честь?Нет ни какой чести.Происходят убийства,рассовая дискриминация...Люди!
Послушайте!Остановитесь!Хватит убивать друг друга из-за цвета кожи,из-за бутылки...ХВАТИТ!Хотя зачем я вам это говорю...вы не послшаете меня,я для вас не кто!Чепвь,букашка которого можно взять и выкинуть на свалку...эх...вы жаждите свободы?Разве вы ни понимаете что она убивает вас...пожирает ваш рассудок....Вы не сможете восстановить его....Вам вдалбливают в голову-"Свобода-хорошо!Кури!Пей!Колись!"Но мир не становится лучше от этого.....Закройте глаза...загляните в будующее..каким вы его видите?Население страны уменьшается с каждым днем?!Все пьют,колятся?!Везде наркоманы и убийци?!Власти без действуют?!Вам даже бужет страшно прогуляться по днем по улице такого города!!!Вот это будующее ожидает вас!Вы хотите этого?Лично я нет........


Я мечтатель....
просто нравится...
cupuyc6661313
Я мечтатель...жить на половину в реальном мире,это забавно и больно...
Жизнь не сказка...я понял это с того самого момента,когда услышал от тебя "Нет"...эх...были бы у меня крылья...
Я бы смог улететь от всех этих проблем...от всего,что держит меня сдесь...
Закат...я сижу на лугу...поднимаю свои крылья чтобы возвысится над землей,чтобы улететь...
Я поднялся!Поднялся на довольно большое расстояние над землей...
Я смог это сделать!Теперь я улечу...но не тут то было...удар в спину...удар острым предметом-любовью...
Моё тело пронзила жуткая боль...как ты могла...ты предала меня...ты и не принемаеш меня,но и не хочеш отпускать...
Ты лишила меня жизни...забрала последний стук сердца,последнее дыхание...
Я не жив,и не мертв...я застрял между жизнью и смертью...
Кто меня ждет ,там,внизу?Ни кто...абсолютно ни кто...
Прошло уже два года после того предательства...в тот день я рухнул на землю...но смог оправится...смог востановить свой рассудок...попрежнему я нахожусь на грани...на грани между миром живых и миром мертвых...но хоть ты и предала меня...я все равно мечтаю...мечтаю что мы будем вместе...но жизнь не сказка...чудес не бывает...у меня есть одно тайное место в котором я могу побыть один...оно находится в моей голове...именно там я могу подумать о своих поступках....и о жизни в целом...я хочу жить лучше...хочу любить....не хочу чтобы меня предавали те,кого я люблю....и все таки жизнь далеко не сказка.......


?

Log in