پاسخ دوستان

 

سلام به همه. مروری بر نظرات دوستان:

+ دوست عزیزی که اسمشان را نگذاشته بودن ، پیام داده بودن که ( لطفا اگه می شه در مورد

فتوشاب مطلب بگذارید)

دوست عزیز حتما سعی می کنم تا هفته اینده مطالب جالبی از برنامه فتوشاب را ارائه کنم و همچنین

اگر عمری باقی ماند به معرفی نرم افزارهای طراحی می پردازیم.

+ مجید عزیز از تهران:

( لطفا اگر یک قسمت دوستیابی به قسمتی از وبلگتان اضافه کنید ممنون می شوم. )

 مجید جان برای ما مشکلی ندارد که یک قسمت در وبلاگ اضافه کنیم.

در صورتیکه پیامها دراین باره زیاد بود حتما این قسمت اضافه میشود.

+ لیلا از اصفهان خودمون:

( لطفا یک قسمت تفریحی برای وبلاگ درست کنید چون زیادی مطالب باعث خستگی می

شود. )

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

به امید روزی که بتوانیم خودمان برای خودمان تصیم بگیریم و کشوری آزاد و

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

مديريت چندتابع رشته ای

 توابعی که برای مديريت رشته ها در وی بی می توانيد از آنها استفاده کنيد عبارتند از :

تابع Instr :

اين تابع محل اولين وقوع يک رشته را درون رشته ديگر نشان می دهد. فرمت کلی آن بصورت زير است :

InStr([start],string1, string2)

Start : اين پارامتر اختياری است و محل شروع جستجو را نشان می دهد . اگر اين پارامتر وارد نشود

جستجو از ابتدای رشته آغاز می شود .

String1 : رشته ای که جستجو در آن انجام می شود .

String2 : رشته مورد جستجو

مثال :

         Instr(1,”learnvb”,”vb”)=6

اگر طول رشته string1 برابر صفر باشد مقدار بازگشتی صفر است . اگر string1 يا string2 برابر Null باشد

مقدار بازگشتی نيز Null است . اگر طول رشته string2 برابر صفر باشد مقدار بازگشتی start خواهد بود.

اگر رشته string2 درون string1 پيدا نشود مقدار بازگشتی صفر است . اگر start بزرگتر از طول رشته

string1 باشد مقدار بازگشتی صفر است .

تابع InstrRev : برعکس تابع Instr می باشد يعنی عمل جستجو را از انتهای رشته انجام می دهد .

فرمت کلی آن بصورت زير است :

InstrRev(string1, string2,[start],[compare])

تابع Replace : رشته ای را برمی گرداند که در آن يک رشته خاص با رشته ديگری به تعداد دفعات

مشخصی جايگزين شده است .

فرمت کلی آن بصورت زير است :

Replace(str, find, replace[,start[,count[,compare]]])

Expression

ادامه نوشته

پاسخ سعید عزیز:

 

 سعید عزیز با این آموزش تمام نیازهای شما برطرف میشود.

(شما در این برنامه به ابزار های زیر احتیاج دارید:

3عدد --------------TextBox

3عدد --------------- Label

3عدد -------------- CommandButton

1عدد ------------- ComboBox

1عدد -------------- Shape

با اضافه نمودن ابزارهای بالا ، فقط کافی است کد پایین عکس را در برنامه

کپی کنید.)

Private Sub Combo1_click() Shape1.Shape = Combo1.ListIndex End Sub Private Sub dec_Click() If Shape1.BorderWidth > 1 Then Shape1.BorderWidth = Shape1.BorderWidth - 1 End Sub Private Sub End_Click() End End Sub Private Sub Form_Load() Label1.Caption = "Draw Mode" List1.Clear List1.AddItem "1-BlackNess" List1.AddItem "2-NOt Merge Pen" List1.AddItem "3-Mask Not Pen" List1.AddItem "4-Not Copy pen" List1.AddItem "5-Mask pen Not" List1.AddItem "6-Invert" List1.AddItem "7-Xor Pen" List1.AddItem "8-Not Mask Pen" List1.AddItem "9-Mask Pen" List1.AddItem "10-NOt Xor Pen" List1.AddItem "11-NOp" List1.AddItem "12-Merge NOt Pen" List1.AddItem "13-Copy Pen" List1.AddItem "14-Merge Pen Not" List1.AddItem "15-Merge Pen " List1.AddItem "16-WhiteNess" Label2.Caption = "Draw Style" List2.Clear List2.AddItem "0-Soild" List2.AddItem "1-Dash" List2.AddItem "2-Dot" List2.AddItem "3-Dash-Dot" List2.AddItem "4-Dash-Dot-Dot" List2.AddItem "5-Trasparent" List2.AddItem "6-In Side Solid " Combo1.Clear Combo1.AddItem "0-Rectangle" Combo1.AddItem "1-Square" Combo1.AddItem "2-Oval" Combo1.AddItem "3-Circle" Combo1.AddItem "4-Rounded Rectangle " Combo1.AddItem "5-Rectangle Square" Label3.Caption = "FilLStyle" Label3.Caption = "Fill Style" List3.Clear List3.AddItem "0-Solid" List3.AddItem "1-Transparent" List3.AddItem "2-Horizontalline" List3.AddItem "3-VerticalLine" List3.AddItem "4-Upward Diagonal" List3.AddItem "5-DownWard Diagonal" List3.AddItem "6-Gross" List3.AddItem "7-Diagonal Cross" End Sub Private Sub inc_Click() Shape1.BorderWidth = Shape1.BorderWidth + 1 End Sub Private Sub List1_Click() Shape1.DrawMode = List1.ListIndex + 1 End Sub Private Sub List2_Click() Shape1.BorderStyle = List2.ListIndex End Sub Private Sub List3_Click() Shape1.FillStyle = List3.ListIndex End Sub

جواب سوال

 

باسلام دوست عزیز:

سوال شما به این صورت است که می خواهید تنظیمات بعد از خارج شدن از ویندوز هم باقی بماند.....!

سوال شما : فرض کنیم یک تکست دارم در صفحه ی فرم...به اسم t1

و من در هنگام اجرای برنامه میتوانم سایز رنگ و فونت تکست را تغییر دهم...

میخواهم t1 را بگونه ای کنم که اگر از برنامه خارج شدم...و یا رایانه را روشن خاموش کردم...رنگ و مشخصات

 دیگری که به آن وارد کردم هنوز باقی باشد...

جواب: دوست عزیز شما از راههای متفاوتی می توانید این کار را انجام دهید ( ذخیره در رجیستری ویندوز ،

 استفاده از فایلها ، استفاده از بانکهای اطلاعاتی و ... ) اما به نظر من ساده ترین روش استفاده از فایلها می

باشد چون دستورات ساده تری دارد. بافرض خودتان کار را ادامه می دهیم: 

برای این کار شما احتیاج دارید که یک فایل را باز کنید و اطلاعات را درون ان ذخیره ( هنگام خروج از برنامه ) و 

اطلاعات را از ان بخوانید (هنگام ورود مجدد به برنامه.)

ادامه نوشته

سوالات

 

برنامه ای که 10 عدد را بگیرد و ذخیره کند و سپس عدد دیگری را بگیرد و در آن جستجو کند اگر عدد بود

پیغام دهد "ok" در غیر این صورت "not found " ؟؟؟؟

دوست عزیز کد برنامه شما به این صورت است: ( بهترین روش )

 

Dim aryy(1 To 10) As Integer

Private Sub Command1_Click()
Open (App.Path & "\Log.log") For Append As #1
Print #1, ("______________________________")
Print #1, ("[" & Time & "]")
List1.Clear
    For i = 1 To 10
        aryy(i) = InputBox("Enter Number:")
        Print #1, "Number" & Trim(Str(i)) & "=" & Str(aryy(i))
        List1.AddItem (aryy(i))
    Next
Print #1, ("-------------")
Close
End Sub

Private Sub Command2_Click()
 Dim SFind As Integer
 Dim vfind As Boolean
 a = 0
Open (App.Path & "\Log.log") For Append As #1
SFind = InputBox("Please Enter Find Number:", "Find Number")
Print #1, ("Find Number=" & Str(SFind))
For i = 1 To 10
    If aryy(i) = SFind Then
        vfind = True
        Exit For
    End If
Next
If vfind = True Then
    Call MsgBox("Number" & Str(SFind) & " Find!", vbInformation, "Find Number")
Print #1, ("Number Find!")
Print #1, ("-------------")
Else
    Call MsgBox("Number" & Str(SFind) & " Not Find!", vbInformation, "Not Find")
Print #1, ("Number Not Find!")
Print #1, ("-------------")
End If
Close
End Sub

Private Sub Command3_Click()
Open (App.Path & "\Log.log") For Append As #1
    Print #1, ("End Program ___________________________")
    End
Close
End Sub