سورس کدهای ویژوال بیسیک

سبحان

سلام دوست عزیز
میتونین یک الگوریتم خوب برای بازی منچ کمکم کنی .
اگه بتونی یه الگوریتم فوق العاده برای این بازی واسم ارائه بدی ممنون میشوم .
با تشکر

در همین رابطه یک بازی رو در وب دنبالش گشتم امیدوارم به دردت بخوره.

سورس بازی مار و پله (ویژوال بیسیک ۶):

http://rapidshare.com/files/95451358/snake_ladder.zip

حمیدرضا

سلام آقا علیرضا
یه سوال خیلی فنی دارم اگه می شه فوری جواب بده می خوام بدونم چطور میشه روی پروژه های ویژوال بیسیک پسورد گذاشت واقعا اورژانسی اگه میشه جوابشو برام میل کن با تشکر فراوان!!!

از تاخیری که در جواب به سوال شما پیش آمده شرمنده...

انجام اینکار از خود برنامه تا آنجائی که اطلاع دارم امکان پذیر نیست با نرم افزارهای جانبی یا فشرده سازی اینکار را می توانید انجام دهید.

سبحان

سلام دوست عزیز
بهتون تبریک میگم که قصد چنین کار بزرگی رو دارین .
گفتین اشنا با برنامه نویسی تحت وب مثلا چه زبانی و در چه حدی ؟
مرسی ممنون .

سلام

با asp.net,html در حد ابتدائی تا حداقل در مدیریت سایت به مشکل امنیتی برخورد نکنیم یا به قول خودمان سوتی های ناجور که باعث هک سایت شود ندهیم.راستی دوست عزیز شما از کجا هستید؟؟

سیما

من 2 تا سوال داشتم.
1
برنامه ای که 10 عدد را خوانده در آرایه ای قرار دهد بعد کوچکترین عدد و مکان آنرا پیدا کرده نمایش دهد؟
2
برنامه ای که عددی صحیح را خوانده تعداد ارقام غیر صفر آنرا نمایش دهد؟
3
فرمی با 3 دکمه طراحی کنید که با کلیک روی یکی فرم حداکثر و با کلیک بر روی دیگری حداقل وبر روی سومی به اندازه اولیه در آید همچنید تنظیمی انجام دهید که فرم در وسط قرار گیرد
4
عبارتی که ترکیبی از حرف و عدد باشد را دریافت کند بعد اعداد را درtext1 و حروف را در text2
بنویسد؟

علیرضا

1-برنامه ای که 10 عدد را خوانده در آرایه ای قرار دهد بعد کوچکترین عدد و مکان آنرا پیدا کرده نمایش دهد؟

For i = 1 To 10

("", "")) a(i) = Val(InputBox

Next i

(Min = a(1

For i = 2 To 10

(If a(i) < Min Then Min = a(i

Next i

Print Min

2-برنامه ای که عددی صحیح را خوانده تعداد ارقام غیر صفر آنرا نمایش دهد؟

cnt = 0

("", "")a = InputBox

(Do While (Len(a) > 0) And (a <> 0

If a Mod 10 <> 0 Then

cnt = cnt + 1

a = a \ 10

Else

a = a \ 10

End If

Loop

Print cnt

3-فرمی با 3 دکمه طراحی کنید که با کلیک روی یکی فرم حداکثر و با کلیک بر روی دیگری حداقل وبر روی سومی به اندازه اولیه در آید همچنید تنظیمی انجام دهید که فرم در وسط قرار گیرد.

برای کمینه کردن از تابع زیر استفاده کنید برای قرارگیری فرم در وسط صفحه مقالات مشاور املاک در ستون سمت چپ را مطالعه کنید و بقیه را هم اطلاعی ندارم.

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

()Private Sub Command1_Click

CloseWindow Me.hwnd

End Sub

4-عبارتی که ترکیبی از حرف و عدد باشد را دریافت کند بعد اعداد را در text1 و حروف را در text2 بنویسد.

"Const StrNumber = "0123456789

Dim Strtemp1, Strtemp2 As String

()Private Sub Command1_Click

Text2 = Strtemp1

Text3 = Strtemp2

End Sub

(Private Sub Text1_KeyPress(KeyAscii As Integer

If InStr(StrNumber, Chr(KeyAscii)) = 0 Then

(Strtemp1 = Strtemp1 & Chr(KeyAscii

Else

(Strtemp2 = Strtemp2 & Chr(KeyAscii

End If

End Sub