ELEGANT

Airoop Linux

360-yahoo — Wed, 09 Jul 2008 04:15:43 GMT

سلام یکی از ناب ترین و بهترین سورس ها ی وی بی

دئانلود کنید

دانلود استثنایی ترین کنترل های ویستا

360-yahoo — Fri, 27 Jun 2008 07:47:18 GMT

چند تا از زیباترین کنترل های ویندوز ویستا برای وی بی ۶

دانلود کنید ۲۷۰ kb

ریاضیات و ترکیبیات در vb6

360-yahoo — Fri, 30 May 2008 08:50:13 GMT

برنامه ای بنویسید که خروجی زیر را تولید کند:

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

1 2 3 4 5

1 2 3

Private Sub Command1_Click()

For s = 0 To 2

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

For s = 3 To 0 Step -1

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

End Sub

آنالیز و ترکیب در vb6 2

360-yahoo — Fri, 30 May 2008 08:49:14 GMT

برنامه ای بنویسی ه و عد صحیح A و B را از ورودی بگیرد و بزرگترین مقسوم علیه مشترک و کوچک ترین مضرب مشترک بین آن دو عدد را محاسبه و چاپ کند.

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("Enter")

b = InputBox("Enter")

a1 = a

b1 = b

If a < b Then

a = a + b

b = a - b

a = a - b

End If

c = a Mod b

If c = 0 Then Exit Do

a = b

b = c

Loop

Print "BMM: "; b

Print "KMM: "; a1 * b1 / b

End Sub

آنالیز و ترکیب در vb6

360-yahoo — Fri, 30 May 2008 08:48:35 GMT

برنمه ای بنویسید که 50 اسم را از ورودی دریافت و تعداد افرادی را که نامشان Ali است، نمایش دهد.

Private Sub Command1_Click()

For i = 1 To 10

If LCase(InputBox("Enter a name: " & i)) = "ali" Then a = a + 1

Print a

End Sub

سورس دیکشنری در ویژوال بیسیک

360-yahoo — Fri, 30 May 2008 08:32:18 GMT

این هم کد دیکشنری که با بانک اطلاعاتی است...
Download

GIFT

360-yahoo — Sat, 24 May 2008 06:45:18 GMT

به کسانی که نظر خوب واساسی بدهند ۵ ساعت اینترنت رایگان تعلق می گیرد

در ضمن اگه کسی مایله که تو نویسندگی این وبلاگ کمک کنه بگه

ماژول تيديل تاريخ ميلادی به شمسی و برعکس

360-yahoo — Sat, 09 Feb 2008 14:02:40 GMT

سلام دوستان اینم یک ماژول برای تبدیل تاریخ شمسی به میلادی و برعکس

نحوه کارکرد با این برنامه طوری است که باید در Form_Load بايد كد Make_Array نوشته شود تا تاريخ محاسبه گردد

براي مثال مي توان كد زير را نوشت

Private Sub Form_load()

Make_array

Text1.text=LD2FD("")

Text2.Text=FD2LD("تاريخ شمسي مورد نظر")

End Sub

اميدوارم كه استفادشو ببريد.

دانــــــــلــــــود كـــــــــد

360-yahoo — Sat, 09 Feb 2008 14:01:46 GMT

سلام دوستان اینم یک ماژول که عدد رو به حروف تبدیل می کنه و کارشم درسته فقط باید کلمه Alphaset رو توي Form_load بايد نوشته شود و كل دستور تبديل به حروف آن بشرح زير است

Text1.text= Horof(text2.text)

در اين كد Text2.Text عدد ماست و در Text1.Text حروف آن نوشته مي شود ...

اميدوارم كه موفق باشيد

دانـــــــــلـــــــــــود كـــــــــــــد