برنامه های دست نوشته خودم (رضا = مستربین) - *

مرسی داداشی.ببخشید اسمت حامده یا حمید شما خوبی؟
به راحتی میسازمش.ماشین حساب هنوز سادشه تواینده برنامه های خوبی برای ساده دلیهای عزیز میسازم.
کدشم میذارم.تاهمه استفاده کنند.

http://file.20upload.com/download-15055-1282203098-2e7dc1e3778b22cd1b2bf62da7620d32.exe
این یک بازی هست که شماسوال هارو به هم میچسبونید و60ثانیه فرصت دارید تا جواب بدهید(بااستفاده از ویژوال بیسیک نوشتم)
مغزخودتونو امتحان کنید تا ببینید چقدر توانایی دارید(از دستش ندید خیلی بازیه جالبیه)
اینم کدش به احترام اقا حامد

Dim i As Integer
Dim k As Integer

Private Sub cmdA_Click(Index As Integer)
If i = Index Then
cmdQ(i).Visible = False
cmdA(Index).Visible = False
k = k + 1
End If
End Sub

Private Sub cmdQ_Click(Index As Integer)
i = Index
End Sub

Private Sub Form_Load()
k = 0
cmdQ(0).Caption = " كنترلي كه قادر است تصوير را به اندازه خود در آورد"
cmdQ(1).Caption = " پسود فايل پروژه چيست؟"
cmdQ(2).Caption = " كدام كنترل هنگام اجرا ديده نمي‌شود؟"
cmdQ(3).Caption = " كدام خصوصيت در مقام كنترل‌ها وجود ندارد؟"
cmdQ(4).Caption = " كدام كنترل رويداد ندارد؟"
cmdQ(5).Caption = " کدام کنترل براي گروه‌بندي کنترل‌ها است؟"
cmdQ(6).Caption = " تابع چيست؟"
cmdQ(7).Caption = " يك متد گرافيكي"
cmdA(0).Caption = "Image"
cmdA(1).Caption = "vbp"
cmdA(2).Caption = "Timer"
cmdA(3).Caption = "name"
cmdA(4).Caption = "Shape"
cmdA(5).Caption = "Frame"
cmdA(6).Caption = "روالي كه مقداري باز مي‌گرداند"
cmdA(7).Caption = "pset"
End Sub

Private Sub Timer1_Timer()
If k = 8 Then
Timer1.Enabled = False
MsgBox "Very Good"
End
End If
If Label1.Caption > 0 Then
Label1.Caption = Label1.Caption - 1
Else
Timer1.Enabled = False
MsgBox "I'm Sorry..."
End
End If
End Sub

موضوع: برنامه های دست نوشته خودم (رضا = مستربین) (دفعات بازدید: 1326 بار)	ابزارهاي تاپيك	جستجو
0 كاربران و 1 مهمان درحال دیدن موضوع.