البته یه کم قدیمی شدن ولی خب چون آهنگای قشنگین میزارمشون(شادمهر.یگانه.رضا صادقی.چاوشی و حمید عسکری)
برای دانلود برید ادامه ی مطلب:
ادامه مطلب
دلم مي خواد واست بميرم... اما حيف که پهلوانان نمي ميرند!
به حيف نون ميگن تو که روزه نمي گيري، چرا سحري مي خوري؟ مي گه نماز که نخونم،... روزه که نگيرم... سحري هم نخورم؟ بابا مگه من کافرم؟
چرخه زندگي مردها:
بچگي:
م.ذ: مامان ذليل
جواني:
د.ذ: دوست دختر ذليل
ميان سالي:
ز.ذ: زن ذليل
پيري:
ب.ذ: بچه ذليل
مرگ:
ذ.م: ذليل مرده!
کار سره بذاره رو يكي آدم مي ده حال كلي
زور نزن! از آخر بخون!
اي بابا! هر شب من بايد عين منگ ها با SMS بيدارت کنم؟ خوب مثل بچه آدم موبايلتو خاموش کن ديگه!
حيف نون با گوسفنداش لج مي کنه، مي بردشون زمين چمن مصنوعي!
حيف نون داشته دعا مي کرده: خدايا منو نيامرز!
ازش مي پرسن چرا اين جوري دعا مي کني؟ مي گه دارم شکسته نفسي مي کنم!
توجه! توجه!
...
...
...
از توجهت متشکرم!
حيف نون رنگ مي زنه ثبت احوال، مي گه ببخشيد اونجا ثبت احواله؟ مي گن بله... مي گه من امروز حالم خوبه، لطفا ثبتش کنيد.
ببخشيد لنگه كفش من خونه تون جا نمونده؟
امضا: سيندرلا
...
...
(طرح پيدا كردن شوهر براي دختران دم بخت)
به حيف نون ميگن فعل خوردن رو صرف کن. ميگه: ميل ندارم، صرف شده، نوش جان، چشم!
تف به اين زندگي
تف به نامردي
تف به دلتنگي
تف به جدايي
...
تف برسون، تفم تموم شد!
پيرزنه 200 سال عمر کرده بود، بهش مي گن: مادر! تو اين سن چه آرزويي داري؟ مي گه: ننه 6 سال ديگه عمر کنم بشم 206 جوونا بيفتن دنبالم!
باتوجه به تفاوت نرخ Sms فارسي and engelisi اين sms
Only for
گيج نمودن
Computere
مخابرات
درتشخيص هزينه اين sms
ارسال شده است و ارزش digari ندارد.
دوستت دارم
...
...
به اندازه تمام مدال هاي المپيک ايران!
اگه تو بامن باشي، چراغ خونم باشي...
...
...
آنقدر روشن خاموشت مي کنم تا بسوزي!
گرمي دستانت، سرخي لبهات، تپش قلبت، نرمي صدات...
...
...
همش مال فشار خونه! برو دکتر!
اگه تونستي شصت پات رو تو دماغت بکني، يا تونستي با دنده عقب جلو بري، يا اينکه ايستاده بدويي...
...
...
اون موقع مي توني بگي من با اس ام اس سر کار نمي رم!
ده تا لر داشتن غذا مي خوردند...
يکي از آنها ميترکه!
نه نفره ديگه ميگن خوش به حالش سير شد!!!
پيره مرده به پيره زنه ميگه جيگرت رو بخورم...
پيره زنه ميگه: برو بابا تو كه دندون نداري !!!
مي دوني چرا زن هاي عرب مايه دارند؟
.
.
.
چون دست به معامله هاي گنده مي زنن!!!
يه بار يه قزوينيه تو صف آخر نماز جمعه وايساده بوده...
تو ركعت آخر يه كم از بقيه زودتر پا ميشه بعد ميگه:
خدايا من به خاطر اين 2 ركعت نماز سزاوار اين همه نعمتم؟!!!
يدفه غضنفر ميميره،...
اعلاميه فوتشو ميزنن به درو ديوار اردبيل همه ملت ميرن بهش راي ميدن!!!
تركه اسم پيغمبر(ص) يادش ميره، ميگه: بر جمال پاك پدر خانم حضرت علي(ع) صلوات!!!
تحقيقات نشون داده اصفهانيها فقط در 22 روز سال رشد مي کنند:
(دهه اول محرم + 12روز اول عيد)
اگه ديدي بچه اي كنار يك روزنامه نشسته و روزنامه زرد شده...
بدون كار بچه نيست، تبليغ ايرانسله!!!
الهي شمع بشي پروانه شم دورت بگردم بعدش فوتت كنم خاموش بشي هرهر بخندم!!!
**********************************************************
rozi az lope yar roboodam boosi.........goft: ham bi adabi ham loosi.......goftam ke gonaham chist kardam boosi?.........gofta:labo vel kardi lopo miboosi
********************************************************************************
pesar ha dar 360:hame khatashon ghate 0935 dasteshone..hame khunehashon baalaie share va yek mashin daran....(ke osolan vaghte gharar ya kharabe ya ba babashon davash shode laj karde kilide mashino dade behesh)chand vaghte gf nadaran(gf ghablishon vasie pool mikhastateshon)kasaii ham ke be mobeshon zang mizanan gfhaie dostashonan(baarye rafe ekhtelaf ba bfeshon zang mizanan albate ha fekre bad nakonid) ya just friendashonan(yani mesle khahareshonan).... hamashon akahre hafte yek moshkele bozorgi vasashon pish miad va nemitonan mobeshono javab bedan.....hamie 2khataraie addlisteshonam mesle khahareshonan....khodaii mazlomtar az in pesarha roie zamin vojod dare?!?!?!?!
*******************************************************************************
yeki ghashangie manzare ro mibine,yeki kasifie panjare ro. In toi ke tasmim migiri chi bebini ! Omid varam ke hamishe ghashang bebini, Hata az poshte panjareye kasif
************************************************************************************
و خدا زن را در پهلوي چپ مرد آفريد نه از سر او تا فرمانرواي او باشد نه از پاي او تا لگد کوب اميال او گردد بلکه از پهلوي او تا برابر او باشد و از زير بازوي او تا مورد حمايت او باشد و از نزديکترين نقطه به قلب او تا معشوق و محبوب او باشد
**********************************************************************************************
kash mashoogh ze ashegh talabe jaan mikard_ta ke har bi saro paae nashavad yare kasi
**********************************************************************************
salami be garmiye ootoo, be narmiye patoo, be shiriniye laboo,be torshi albaloo pas key on mishi hoolooo ?
*************************************************************
با اس ام اس های جدید چطورید؟؟؟؟؟؟
برای دیدن اس ام اس ها به ادامه ی مطلب بروید:
ادامه مطلب
![[SND]](http://bia2yazd.co.cc/icons/sound2.gif){kind=icon}
01 Nafas Haye Bi Hadaf.mp3 07-Jul-2008 21:51 3.9M 02 Akheh Deleh Man.mp3 07-Jul-2008 21:51 4.1M 03 Nakhastam.mp3 07-Jul-2008 21:51 3.4M 04 Gonahi Daram.mp3 07-Jul-2008 21:51 3.3M 05 Inja Jaye To Nist.mp3 07-Jul-2008 21:51 3.5M 06 Cheshmhay Khiseh Man.mp3 07-Jul-2008 21:51 3.9M 07 Sareh To Balaa Begir.mp3 07-Jul-2008 21:51 3.1M 08 Nashkon Delamo.mp3 07-Jul-2008 21:51 4.0M 09 Hichki Nemituneh Befahmeh.mp3 07-Jul-2008 21:51 4.2M 10 Benevis Az Sareh Khat.mp3 07-Jul-2008 21:51 3.2M 11 Akheh Deleh Man (Bi Kalaam).mp3 07-Jul-2008 21:51 3.6M
در ضمن نظر یادتون نره!!!!!!!
بعد از اندی برگشتم با یه آلبوم جالب وزیبا!
۱) برنامه ای بنویسید که به محض اجرا نام نرم افزار را برای عنوان فرم قرار دهد وفرم فاصله ۱۰۰۰ از چپ و ۱۲۰۰ از بالا قرار بگیرد.
Private Sub Form_Activate()
Form۱.Caption = “visual basic”
Form۱.Left = ۱۰۰۰
Form۱.Top = ۱۲۰۰
End Sub
۲) برنامه ای بنویسید که با کلیک بر روی دکمه color رنگ زمینه فرم را به قرمز و با کلیک بر روی دکمه text عبارت pouyeshgaran را با اندازه قلم ۲۱ و با نوع قلم Tahoma به صورت مورب به رنگ زرد بر روی ابزار label نشان دهد.
Private Sub color_Click()
Form۱.BackColor = vbRed
End Sub
Private Sub text_Click()
Label۱.Caption = “poyeshgran”
Label۱.FontSize = ۲۱
Label۱.Font = tahoma
Label۱.FontItalic = True
Label۱.ForeColor = vbYellow
End Sub
۳) برنامه ای بنویسید که که با اجرای آن _ فرم با عرض ۴۰۰۰ و طول ۲۵۰۰ نشان داده شود
_ با بردن اشاره گر برروی فرم اشاره گر به صورت پیکان مورب نشان داده شود
_ زمینه فرم به رنگ آبی نشان داده شود.
Private Sub Form_Load()
Form۱.Width = ۴۰۰۰
Form۱.Height = ۲۵۰۰
Form۱.MousePointer = ۲ - cross
Form۱.BackColor = vbBlue
End Sub
۴) برنامه ای بنویسید که دو عدد صحیح از ورودی گرفته و حاصلضرب آنها را نشان دهد با انتخاب دکمه exit از برنامه خارج شود با قرار دادن اشادهگر برروی ابزارهای text کادر راهنما را نشان دهد.
Private Sub Command۱_Click()
Dim a, b As Integer
a = Val(Text۱.Text)
b = Val(Text۲.Text)
Label۳.Caption = a * b
Text۱.ToolTipText = “enter number ۱″
Text۲.ToolTipText = “enter number ۲″
End Sub
Private Sub Command۲_Click()
Unload Me
End Sub
۵) پروژه ای طراحی کنید که نام و ۲ نمره دانش آموزی را دریافت کرده با انتخاب دکمه average معدل آن را نشان دهد و با انتخاب دکمه new فرم را برای وارد کردن داده های جدید آماده کند.( ورودیهای برنامه با اندازه قلم ۱۴ و به صورت وسط چین باشند)
Private Sub new_Click()
Text۱.Text = “”
Text۲.Text = “”
Text۳.Text = “”
End Sub
Private Sub Form_Load()
Text۱.Alignment = ۲
Text۱.FontSize = ۱۴
Text۲.Alignment = ۲
Text۲.FontSize = ۱۴ :Text۳.Alignment = ۲
Text۳.FontSize = ۱۴
End Sub
Private Sub average_Click()
Dim a As String
Dim c, b As Integer
a = (Text۱.Text):c = Val(Text۲.Text) :b = Val(Text۳.Text)
Label۴.Caption = (c + b) / ۲
End Sub
۶) برنامه ای بنویسید که یک عدد سه رقمی از ورودی گرفته و حاصل جمع ارقام آن را نشان دهد.
Private Sub Command۱_Click()
Dim a, b, c, d, f As Integer
a = Val(Text۱.Text)
b = a \ ۱۰۰
c = a Mod ۱۰۰
d = c \ ۱۰
f = c Mod ۱۰
Label۲.Caption = b + d + f
End Sub
۷) برنامه ای بنویسید که یک عدد سه رقمی از ورودی گرفته و معکوس آن را نشان دهد.
Private Sub Command۱_Click()
Dim a, b, c, d, f As Integer
a = Val(Text۱.Text)
b = a \ ۱۰۰
c = a Mod ۱۰۰
d = c \ ۱۰
f = c Mod ۱۰
Label۲.Caption =f*۱۰۰+d*۱۰+b
End Sub
برنامه ای بنویسید که ۳ عدد صحیح از ورودی گرفته و بیشترین عدد را نمایش دهد.
Private Sub Command۱_Click()
Dim a, b, c, max As Integer
a = Val(Text۱.Text)
b = Val(Text۲.Text)
c = Val(Text۳.Text)
If a > b And a > c Then
Text۴.Text = a
ElseIf b > a And b > c Then
Text۴.Text = b
ElseIf c > a And c > b Then
Text۴.Text = c
End If
End Sub
۹) برنامه ای بنویسید که اعدا بین ۲۰ تا ۳۵ را نشان دهد.
Private Sub Form_Activate()
Dim i As Integer
Let i = ۲۰
۱۱: Print i
i = i + ۱
If i <= ۳۵ Then GoTo ۱۱
End Sub
۱۰) برنامه ای بنویسید که نام ونام خانوادگیتان را از ورودی گرفته و آنها را در کنار هم نشان دهد.
Private Sub Command۱_Click()
Dim n, f As String
n = (Text۱.Text)
f = (Text۲.Text)
Label۳.Font = arial
Label۳.FontSize = ۱۴
Label۳.ForeColor = vbRed
Label۳.Caption = n + f
End Sub
۱۱) پروژه حل معادله درجه ۲ را بنویسید
Private Sub Command۱_Click()
Dim a, b, c, d As Integer
a = Val(Text۱.Text)
b = Val(Text۲.Text)
c = Val(Text۳.Text)
d = b ^ ۲ - ۴ * a * c
If d > ۰ Then
Text۴.Text = (-b - Sqr(d)) / (۲ * a)
Text۵.Text = (-b + Sqr(d)) / (۲ * a)
ElseIf d = ۰ Then
Text۴.Text = -b / (۲ * a)
Text۵.Text = b / (۲ * a)
Else
Text۴.Text = “no root”
End If
End Sub
۱۲) برنامهای بنویسید که یک عدد صحیح مثبت از ورودی گرفته و با انتخاب دکمه sum جمع اعداد کمتر از آن تا رسیدن به صفر را نشان دهد.
Private Sub Command۱_Click()
Dim a As Integer
a = Val(Text۱.Text)
i = a
While i >= ۰
Sum = Sum + i
i = i - ۱
Wend
Label۱.Caption = Sum
End Sub
۱۳) برنامه ای بنویسید که کلیه اعداد بخشپذیر بر ۵ از عدد ۱۰۰ تا ۱۵۰ را نشان دهد.
برای ابزار text خاصیت scrollbar عمودی را انتخاب کرده و همچنین خاصیت multiline را true میکنیم
Private Sub Command۱_Click()
Dim i As Byte
i = ۱۰۰
While i <= ۱۵۰
Text۱.text=text۱.text+str(i)
i = i + ۵
Wend
End Sub
۱۴) برنامه ای بنویسید که با انتخاب دکمه multi حاصل ضرب اعداد فرد کمتر ار ۱۰۰ را محاسبه کرده و نشان دهد با انتخاب دکمه exitاز برنامه خارج شود.
Private Sub multi_Click()
Dim a As Integer
Dim multi As Long
a = ۱
multi = ۱
While a < ۱۰۰
multi = multi * a
a = a + ۲
Wend
Label۱.Caption = multi
End Sub
Private Sub exit_Click()
Unload Form۱
End Sub
چهار چيز را در زندگيت نشکن:
¤اعتماد¤
¤قول¤
¤رابطه¤
¤قلب¤
!زيرا وقتي اينها مي شکنند هرگز صدا ندارند ولي درد بسياري دارند!