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

دئانلود کنید

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

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

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

1

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

1 2 3 4 5

1 2 3

1

Private Sub Command1_Click()

For s = 0 To 2

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

For s = 3 To 0 Step -1

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

End Sub

برنامه ای بنویسی ه و عد صحیح 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

Do

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

 

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

 

Private Sub Command1_Click()

For i = 1 To 10

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

Next

Print a

End Sub

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

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

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

 

 

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

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

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

Private Sub Form_load()

Make_array

Text1.text=LD2FD("")

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

End Sub

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

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

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

Text1.text= Horof(text2.text)

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

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

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