وحید این لینک برنامه ی http://sourceproject.blogfa.com/post-15.aspx
http://prozhe.blogfa.com/post-8.aspx
این هم
Option Explicit
Dim pos(16) As String
Public gametime As Long
Private Type userRecord
name As String * 20
score As String * 25
End Type
Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim i As Integer
pos(1) = "45 30"
pos(2) = "45 645"
pos(3) = "45 1260"
pos(4) = "45 1875"
pos(5) = "645 30"
pos(6) = "645 645"
pos(7) = "645 1260"
pos(8) = "645 1875"
pos(9) = "1245 30"
pos(10) = "1245 645"
pos(11) = "1245 1260"
pos(12) = "1245 1875"
pos(13) = "1845 30"
pos(14) = "1845 645"
pos(15) = "1845 1260"
pos(16) = "1845 1875"
For i = 1 To 15
lblSquare(i).Tag = pos(i)
Next i
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim direction As String
Dim recordlength As Integer
Dim score As Long
Dim highscore As userRecord
recordlength = LenB(highscore)
If tmrScore.Enabled = False Then Exit Sub
If KeyCode = 37 Then direction = "left"
If KeyCode = 38 Then direction = "up"
If KeyCode = 39 Then direction = "right"
If KeyCode = 40 Then direction = "down"
Call moveSquare(direction)
If checkFinished = True Then
tmrScore.Enabled = False
Open App.Path + "\highscores\highscores.dat" For Random Access Read As #1 Len = recordlength
Get #1, 5, highscore
Close #1
If gametime < formatTimeIntoSeconds(highscore.score) Then
frmHighScore.Show vbModal
Else
gametime = 0
End If
lblComment.Caption = "Press File then New Game to start another game."
End If
End Sub
Public Sub moveSquare(direction As String)
Dim emptypos As Integer
Dim x() As String
emptypos = findEmptypos
If direction = "left" Then
If ((emptypos Mod 4) = 0) Then
Exit Sub
Else
x = Split(pos(emptypos))
Call swish(1, direction, findSquare(emptypos + 1), CInt(x(1)))
lblSquare(findSquare(emptypos + 1)).Tag = pos(emptypos)
End If
End If
If direction = "right" Then
If ((emptypos Mod 4) = 1) Then
Exit Sub
Else
x = Split(pos(emptypos))
Call swish(1, direction, findSquare(emptypos - 1), CInt(x(1)))
lblSquare(findSquare(emptypos - 1)).Tag = pos(emptypos)
End If
End If
If direction = "down" Then
If (emptypos < 5) Then
Exit Sub
Else
x = Split(pos(emptypos))
Call swish(1, direction, findSquare(emptypos - 4), CInt(x(0)))
lblSquare(findSquare(emptypos - 4)).Tag = pos(emptypos)
End If
End If
If direction = "up" Then
If emptypos > 12 Then
Exit Sub
Else
x = Split(pos(emptypos))
Call swish(1, direction, findSquare(emptypos + 4), CInt(x(0)))
lblSquare(findSquare(emptypos + 4)).Tag = pos(emptypos)
End If
End If
PlaySound App.Path + "\sound\swish.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
Public Function findEmptypos() As Integer
Dim empt As Boolean
Dim i, j As Integer
For i = 1 To 16
empt = True
For j = 1 To 15
If pos(i) = lblSquare(j).Tag Then
empt = False
Exit For
End If
Next j
If empt = True Then
findEmptypos = i
Exit For
End If
Next i
End Function
Public Function findSquare(position As Integer) As Integer
Dim i As Integer
For i = 1 To 15
If pos(position) = lblSquare(i).Tag Then findSquare = i
Next i
End Function
Public Sub newGame()
Dim direction As Integer
Dim i As Integer
Dim x() As String
lblComment.Caption = ""
For i = 1 To 15
x = Split(pos(i))
lblSquare(i).Top = CInt(x(0))
lblSquare(i).Left = CInt(x(1))
lblSquare(i).Tag = pos(i)
Next i
lblComment.Caption = "Shuffling..."
For i = 1 To 250
direction = Int(4 * Rnd())
Select Case direction
Case 0
moveSquare ("left")
Case 1
moveSquare ("up")
Case 2
moveSquare ("right")
Case 3
moveSquare ("down")
End Select
Next i
tmrScore.Enabled = True
lblComment.Caption = "Use the arrow keys to move the relevant block into empty space"
gametime = 0
End Sub
Public Sub swish(delaytime As Integer, direction As String, square As Integer, destination_position As Integer)
If direction = "left" Or direction = "right" Then
While (lblSquare(square).Left <> destination_position)
Select Case direction
Case "left"
lblSquare(square).Left = lblSquare(square).Left - 1
Case "right"
lblSquare(square).Left = lblSquare(square).Left + 1
End Select
Wend
End If
If direction = "up" Or direction = "down" Then
While (lblSquare(square).Top <> destination_position)
Select Case direction
Case "up"
lblSquare(square).Top = lblSquare(square).Top - 1
Case "down"
lblSquare(square).Top = lblSquare(square).Top + 1
End Select
Wend
End If
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuHighScores_Click()
frmHighScore.Show vbModal
End Sub
Private Sub mnuNewgame_Click()
Call newGame
End Sub
Private Sub mnuOverview_Click()
MsgBox "The whole point to this game is to get the blocks ordered from left to right by moving the blocks into empty space using all four of your arrow keys. The blocks should look the way that you see them before you press File and New game. When you do this the blocks are shuffled randomly. Enjoy!"
End Sub
Private Sub tmrScore_Timer()
gametime = gametime + 1
lblTime.Caption = formatSecondsIntoTime(gametime)
End Sub
Public Function formatSecondsIntoTime(game_time_seconds As Long) As String
Dim hrs, min, sec As Long
Dim result As String
hrs = -1
min = -1
sec = -1
sec = game_time_seconds
If sec >= 60 Then
min = game_time_seconds \ 60
sec = game_time_seconds Mod 60
End If
If min >= 60 Then
hrs = min \ 60
min = min Mod 60
End If
result = Trim(Str(sec)) + " sec"
If min <> -1 Then result = Trim(Str(min)) + " min " + result
If hrs <> -1 Then result = Trim(Str(hrs)) + " hrs " + result
formatSecondsIntoTime = result
End Function
Public Function formatTimeIntoSeconds(game_time_string As String) As Long
Dim x() As String
Dim i, result As Long
x = Split(game_time_string)
For i = UBound(x) To LBound(x) Step -1
If x(i) = "sec" Then result = result + CLng(x(i - 1))
If x(i) = "min" Then result = result + CLng(x(i - 1)) * 60
If x(i) = "hrs" Then result = result + CLng(x(i - 1)) * 3600
Next i
formatTimeIntoSeconds = result
End Function
Public Function checkFinished() As Boolean
Dim i As Integer
checkFinished = True
For i = 1 To 15
If pos(i) <> lblSquare(i).Tag Then
checkFinished = False
Exit For
End If
Next i
End Function
بهم زنگ بزن نتیجه رو بگو
دیدگاه لیبرالیستسی:
اساس این دیدگاه بر مبنای جمله معروف(لسه فر):یعنی به حال خود رهایش کن.
در این دیدگاه دو نظر وجود دارد:1-افراطی=آدام اسمیت و هربرت اسپنسر
2-معتدل =جان استوارت میل و جرمی بنتهایم
نظریه افراطی تحت تاثیر آدام اسمیت و هربرت اسپنسر و وظایف دولت را بسیار محدود می داند. (وجود دولت ضروری است)
نظریه معتدل تحت تاثیر جان استوارت و میل و جرمی بنتهایم می باشد که معتقد است هر چند وجود دولت شر است اما شر ضروری است.
سلام
می خوام راجع به اتفاقی که افتاد حرف بزنم
استادی(سیاست) شروع به بحث عجیبی کرد و آان هم این بود که قرآن برای شما نیست قرآن برای اعراب عصر جاهلیت است ما احتیاج به قرآن نداریم ,نماز برای ما نبوده است برای کسانی بوده که تازه مسلمان شده بودن , خداوند آتش را برای اعراب مثال زده چون آنجا گرم بوده.
آنروز حرف های جالبی برای ما می زد بطوری که بعضی از بچه ها عصبانی شدن و نزدیک بود جنگ سختی شروع شود.
اما فردای آنروز من کنفرانس داشتم. بدین شرح:
آن هم اینکه قران برای همه زمان هاست طوری که هرچه از گذشت زمان بیشتر می شود بعضی حقایق رو شن می شوداگر شد درباره رابطه قرآن و ریاضی بعدآ توضیحی می دهم پس قرآن را نمی توانمربوط به شخص تلقی کرد چون حرف انسان کهنه می شود . اما قران نه کهنه می شود نه خسته کننده.
نماز، بعضی از ما ازشیطان هم بد تر هستیم چون شیطان خدا را سجده کرد ولی انسان را نه اما ما خدا رو هم سجده نمی کنیم و هیچ چیز بالا تر از عباد خدا نیست.و وسیله ای است که انسان هر وقت که احساس نیاز کرد می تواند ازآن کمک گیرد.
خلاصه کنفرانس ما هم خیلی خوب برگزار شد ولی دیگر نه از استاد خبری شد نه از دوستان ما.
دفاع در برابر ظالم
سلام دوستان عزیز
می خوام درباره فلسطین باشما صحبت کنم
فلسطینی که امروز بعضی از ملت ها باید تروریست خطاب کنند فکر می کنید برای چیست
برای این که ملتی در برابر ظلم، امپریالیسم ،صیهونیسم ایستادگی می کند
و از حق خود دفاع می کند حال ایرانیان دیگر بد تر از آنها که با آمریکا مخالف هستند و به قول معروف بابای تروریست هستند
خوب خود قضاوت کنید آیا دفاع در برابر ظالم تروریست حساب می شه . این در شامل ملت های دیگر هم می شود مانند :عراق؛افغانستان
حال ایران می گویم که بابا ما مخالف تروریست ومثل (طالبان) هستیم و تمام مرز ها مون رو بستیم .بابا ما خودمون شهید دادیم می گن نه شما تروریست هستید. پس این ها همه ساخته تبلیغات سو است که چون شما با افغانستان همسایه هستید به آنها اسلحه می فروشید.
دور دوم اش که تازگی شروع شده
می خواهد مو رو از ماست بکشه و ببینه که مسئولین چه کردن
به نام خداوند یاس ها
اول به خودم مجدد خوشا مد می گم که دوباره بر گشتم
خوب موضوع تغییر ساعت مطرح شد
ما الان با ساعت جهانی چند ساعت تفاوت داریم؟ ۵/۳
خوب اگر ۱ ساعت ساعتمان عقب برود می شود چقدر؟ ۵/۲
خوب ژاپن ساعت اش را ۱ دقیقه به جلو برد تمام چیزهای آن کشور بهم ریخت.
حالا ما ۱ساعت ساعت رو عقب ببریم ![]()
شما فقط می رید تو گوگل و می بینید که دیگران چه گفتند
اما عزیزان از عقل خود کمک بگیرید و کمی منصف باشید.
بشکست اگر دل من
مردم اول روی زمین دراز کشیدند و بعد هم به سمت در هجوم بردند، من اسلحهام را از ضامن خارج کرده بودم، تا برگشتم سمت جایگاه دیدم ــ بغضش را فرو میخورد ــ "آقا" از سمت چپ به پهلو افتادهاند روی زمین! داد زدم: حسین! "آقا"... تا برسم بالای سر "آقا" ...

نشست یادمان "6تیر" برگزار شد. به گزارش پایگاه اطلاعرسانی khamenei.ir، همزمان با بیست و ششمین سالگرد سوء قصد به حضرت آیتالله خامنهای، رهبر فرزانه انقلاب، بعد از 25 سال، برای نخستین بار جمعی از محافظان و اعضای تیم پزشکی ایشان در سال 1360 با حضور در بیت معظم له، به بیان خاطرات و ناگفتههایی از حادثه تلخ ششم تیر 1360 پرداختند. در این مراسم که نزدیک به 4 ساعت به طول انجامید، آقایان خسروی وفا، حاجیباشی، جباری، جوادیان، پناهی و حیاتی از محافظان قدیمی رهبر انقلاب، به همراه 3 نفر از تیم پزشکی ایشان ــ دکتر میلانی، دکتر زرگر و دکتر منافی ــ به مرور خاطرات خود از ششم تیر 1360 پرداختند. آنچه میخوانید روایتی است کوتاه از این نشست.
- اصلا اون روز مسجد یه جور دیگه بود...
- راست میگه! مثل همیشه نبود، هفتهی قبل هم که برنامه لغو شد، اومده بودیم اما اینطوری نبود!
- توی حیاط یه جایی واسه ضبط صوتها درست کرده بودیم.
- نماز ظهر که تموم شد، آقا رفتن پشت تریبون.
- سئوالها هم خیلی تند و بعضا بیربط بود...
- پرسیده بودن شما داماد وزیر گرفتی و فلان قدر مهر دخترت کردی.
- آقا اول کمی درباره شایعات علیه شهید مظلوم بهشتی صحبت کرد و بعد هم اشاره کرد که من اصلا دختر ندارم!
- من دیدم یه نفر با موهای وزوزی داره با یه ضبط صوت به سمت تریبون میاد.
- نه یه نفر نبود! ضبط رو دست به دست دادن تا کسی شک نکنه!
- منم فکر کردم ضبط بچههای خود مسجده؛ دیگه شک نکردم چرا این ضبط مثل بقیه توی حیاط نیست!
- ولی نفر آخر، از خودشون بود!
- آره! آره! چون دقیقا ضبط رو گذاشت رو به آقا و سمت چپ؛ درست مقابل قلب ایشون!
- من همینطوری رفتم به ضبط یه سری بزنم! کمی زیر و بمش را نگاه کردم و بعد ناخودآگاه جاشو عوض کردم، گذاشتم سمت راست، کنار میکروفن، کمی با فاصلهتر از آقا!
- یکدفعه میکروفن شروع کرد به سوت کشیدن...
- آقا برگشتن گفتن: این صدا را درست کنید یا اصلا خاموش کنید.
- منبریها این جور مواقع کمی عقب و جلو میشن تا بلکه صدا درست بشه!
- من روبروی آقا، کنار در شبستان وایساده بودم، آقا کمی به عقب و سمت چپ رفتند که یکدفعه...
- یه صدای عجیبی توی شبستان پیچید...
- اول فکر کردم، تیر اندازی شده...
- سریع اسلحهام رو درآوردم... تا برگشتم دیدم...
و اشک، چنان سر میخورد توی صورتش که هر چهقدر هم لبش را بگزد؛ نمیتواند کنترلش کند... سرش را تکان میدهد و به "حاجیباشی" نگاه میکند، او هم سرش را انداخته پائین و با دست اشکهایش را میچیند. "پناهی" به دادش میرسد و ادامه میدهد:
ــ مردم اول روی زمین دراز کشیدند و بعد هم به سمت در هجوم بردند، من اسلحهام را از ضامن خارج کرده بودم، تا برگشتم سمت جایگاه دیدم ــ بغضش را فرو میخورد ــ "آقا" از سمت چپ به پهلو افتادهاند روی زمین! داد زدم: حسین! "آقا"... تا برسم بالای سر "آقا"، "حسین جباری" تنهایی "آقا" را بلند کرده بود و به سمت در میرفت...
"جوادیان" که هنوز صورت گردش سرخ سرخ است، فقط سرش را به طرفین تکان میدهد و حتی چشمهایش را هم از ما میدزدد. "حیاتی" اما ماجرا را اینگونه ادامه میدهد:
ــ هرطور بود راه را باز کردیم و خودم برگشتم پشت تریبون، ضبط صوت مثل یک دفتر 40برگ از وسط باز شده بود. با ماژیک قرمز هم روی جداره داخلیاش نوشته بودند: "اولین عیدی گروه فرقان به جمهوری اسلامی!"
***
ــ به هر ترتیبی بود آقا را سوار ماشین کردیم. یک بلیزر سفید. با سرعت از بین جمعیت کنده شدیم و راه افتادیم. توی راه یک لحظه آقا به هوش آمدند. نگاهی به چهرهی من کردند و از هوش رفتند. بعدها پرسیدم آن لحظه چه چیزی احساس کردین، گفتند: "دو چیز! یکی اینکه ماشین داشت پرواز میکرد و دیگر اینکه سرم روی پای کسی بود..."
حاجیباشی یکدفعه نگاهش را از زمین میکند و بلندتر میگوید: توی ماشین همهاش به این فکر بودم که اگر اتفاقی بیافته، مردم به ما چی میگن؟! و دوباره باران، حرفهایش را خیس میکند.
"جوادیان" ادامه میدهد: از جلوی یک درمانگاه گذشتیم که گفتم: "حسین! برگرد... درمانگاه ..."
پنج نفری وارد درمانگاه شدیم، همه هول برشان داشته بود، یک نفر غرق خون توی آغوش جباری، 3 نفر هم با لباس خونی و اسلحه دنبالش... اولین دکتری که آمد و نبض آقا را گرفت، بیمعطلی گفت: دیگه کار از کار گذشته و رفت... پرستاری جلو آمد و گفت: "ببرینش بیمارستان بهارلو؛ پل جوادیه!"
به سرعت دویدیم سمت ماشین. پرستار هم همراهمان شد، با یک کپسول اکسیژن که توی ماشین نمیرفت و بچهها روی رکاب در عقب گرفتنش تا بریم بیمارستان بهارلو...
توی مسیر بیسیم را برداشتم و :
- حافظ هفت! مرکز... مرکز! موقعیت پنجاه - پنجاه... (پنجاه - پنجاه موقعیت آمادهباش بود) بعد گفتم: مرکز! حافظ هفت مجروح شده!
دوباره همه با هم ساکت شدند... انگار همین دیروز بوده، همین دیروز که از توی ماشین اعلام میکنند به دکتر فیاض بخش، دکتر زرگر و ... بگوئید از مجلس خودشان را برسانند، بیمارستان بهارلو.
ماشین از در عقب بیمارستان وارد محوطه میشود. برانکارد میآورند. آقا را میرسانند پشت در اتاق عمل. دکتری که از اتاق عمل بیرون میآید؛ نبض را میگیرد و با اطمینان میگوید: "تمام کرده!" اما...
اما دکتر فاضل که آن روز اتفاقی و برای مشاورهی یکی از بیماران در بیمارستان بهارلو حضور داشته، خودش را به اتاق عمل میرساند و دستور آماده سازی اتاق عمل را میدهد.
***

از راست آقایان دکتر باقی، دکتر میلانی، دکتر منافی، محمود خسرویوفا، دکتر زرگر، جوادیان، حسین جباری، مجتبی حیاتی، دکتر مرندی، رضا حاجیباشی، پناهی، حجتالاسلام مطلبی
ــ شهید بهشتی به من خبر داد. تازه رسیده بودم منزل. پیکانم را سوار شدم و راه افتادم. به محض رسیدن، دکتر محجوبی گفت نگران نباش، خون را بند آوردم. و من آماده شدم برای جراحی.
دکتر زرگر ادامه میدهد: "رگ پیوندی میخواستیم، پای راست را شکافتیم. رگ دست راست و شبکه عصبیاش کاملا متلاشی شده بود. فقط توانستیم کمی جلوی خونریزی را بگیریم و کمی هم پانسمان کنیم. تصمیم بر این شد که آقا را ببریم بیمارستان قلب."
دکتر میلانی هم که مثل دکتر زرگر تمام موهای سرش سفید شده، غرق روزهای تلخ دهه 60 شده است، آرام و با تامل تعریف میکند:
ــ جراحت خیلی سنگین بود، سمت راست بدن پر از ترکش و قطعات ضبط صوت بود، حتی یکی از ترکشها زیر گلوی آقا جا خوش کرده بود. قسمتی از سینه ایشان کاملا سوخته بود! یکی دو تا از دندهها هم شکسته بود. دست راست هم کاملا از کار افتاده بود و از شدت ضربه ورم کرده بود. استخوانهای کتف و سینه کاملا دیده میشد. 37 واحد خونی و فراوردههای خونی به آقا زده بودند که خود این تعداد، واکنشهای انعقادی را مختل میکرد... دو سه بار نبض آقا افتاد و چند بار مجبور شدیم پانسمان را باز کنیم و دوباره رگها را مسدود کنیم... خیلی عجیب بود، انگار هیچ چیز به ارادهی ما نبود...
و دکتر منافی چشمهایش را روی هم میگذارد و آن روزها را اینگونه از پشت پرچین خاطرات ماندگارش بیرون میریزد: "مردم بیرون بیمارستان صف کشیده بودند برای اهدای خون. رادیو هم اعلام کرده بود جراحت به قلب آقا رسیده، عدهای توی محوطه جلوی اورژانس ایستاده بودند و میگفتند میخواهیم "قلبمان" را بدهیم... با هلیکوپتر، آقا را رساندیم بیمارستان قلب. لوله تنفس داشتند و تا بیمارستان دو بار مونیتور وضعیت نبض، خط ممتد نشان داد... عمل جراحی 3 ساعت طول کشید و آقا به بخش "آی سی یو" منتقل شدند. شب برای چند لحظه به هوش آمدند...کاغذ خواستند تا چیزی بنویسند... کاغذ که دادیم با دست چپ و خیلی آرام و با دقت چند کلمه را به زحمت کنار هم چیدند:
- همراهان من چطورند؟
***
چند روز بعد که دیگر مطمئن شده بودیم، دست راست کاملا از کار افتاده است، از تلویزیون آمدند تا گزارش تهیه کنند، یک ساعتی معطل شدند تا آقا به هوش بیایند، وقتی پرسیدند که حالتان چطور است؟ این پاسخ را گرفتند:
بشکست اگر دل من به فدای چشم مستت / سر خُمِّ می سلامت، شکند اگر سبویی
***
و حالا که 25 سال از آن روز تلخ گذشته، شاید شیرینی عیدی گروهک فرقان بیشتر خودش را نشان میدهد که به قول "خسروی وفا" هر وقت در حزب جلسه بود، آقا آخرین نفری بود که از حزب خارج میشد "و فردای آن روز هفتم تیر بود...
حالا شاید بهتر بشود فهمید چرا سالهاست ضربان قلب این مردم میگوید: "دست" خدا بر سر ماست... این دست، رنگ خدا را دیده و طعم بهشت را چشیده، سوغات یک سفر غیبی به آن سوی ابرهاست که پیش رهبر مانده تا به قول دکتر میلانی: "با دست موعود بیعت کند..."
***
صدای اذان یعنی شوق پرواز در آسمان آبی نماز. خودمان را به نمازخانه میرسانیم، این گروه آشنای قدیمی، صف اول و دوم نماز میایستند... رهبر که میآید مثل پروانههای حرم رضوی که در بهار گرد زائر حضرتش بیقراری میکنند، دور آقا حلقه میزنند. دکتر میلانی زودتر از باقی خودش را به آقا میرساند و همینطور که با چشم خیس به دست آقا خیره شده، دست رهبر را میبوسد و غرق آن نگاه پدرانه میشود... و چه خندهی شیرینی بر لبهای رهبر نقش بسته، خیلی وقت بود این جمع سالهای جوانی را یکجا ندیده بود... چه غافلگیری لذت بخشی
