چند سورس برنامه در ویژوال بیسیک

[bermoda_khatar69]

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


Private sub command 1_click()
N = val (text1.text)
D = 0 P = 0
While n<>0
M = n mod 10
D= d+ m*2^p
P = p +1
N = n\10
Wend
Label1.caption = d
End sub

[bermoda_khatar69]

Private Sub Command1_Click()
Dim pri As Boolean
i = 2
While i <= 100
j = 2
pri = True
While j < SQR( i ) And pri = True
If i Mod j = 0 Then pri = False
j = j + 1
Wend
If pri = True Then Print i
i = i + 1
Wend
End Sub

[bermoda_khatar69]

Private Sub omid_Click()
Dim x As Integer
x = Text1.Text
Dim y As Integer
Dim a, b, c As Integer
a = Int(x / 100)
b = Int(x / 10) - 10 * a
c = x Mod 10
y = Val(c * 100 + b * 10 + a)
Print y
End Sub

[Samba]

با اين كد مي‌توانيد تصوير پس زمينه ويندوز خود را از طريق ويژوال بيسيك عوض نماييد

ابتدا تعاريف زير را در يك ماژول انجام دهيد



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


سپس كد زير را براي عوض كردن تصوير اجرا نماييد.


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

با استفاده از اين كد مي‌توانيد كامپيوتر را خاموش نماييد.
ابتدا بايد كد زير را در يك ماژول وارد نماييد



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
سپس كد زير را وارد كنيد تا كامپيوتر خاموش شود.



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

قبل از اجرا یه لیست باکس هم درست کنيد




برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

قبل از اجرا یه لیست باکس هم درست کنيد




برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

معكوس كردن متن( در ‌vb شما ميتونيد با استفاده از تابع StrReverse () يك متن رو معكوس كنيد) اين هم تابع كاملي براي معكوس كردن متن هستش




برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

به دست آوردن ب.م.م دو عدد






برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Samba]

به دست آوردن ب.م.م دو عدد






برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[MrGee]

دوست عزیز
سورس های خودتون رو اینجا بزارید.


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[13710]

دست طلا راحت شدم