• ایجاد لوزی با ویژوال بیسیک 6
    #1
    Note 
    سلام
    من کدی میخوام که یه لوزی ساده print کنه مثل این

    *
    **
    ***
    ****
    ***
    **
    *


    ممنون میشم کمک کنید.

    پاسخ
    #2
    Note 
    با سلام
    من با استفاده حلقه for اینکار رو انجام دادم:
    [VB]
    Private Sub cmd_create_Click()
    spcc = 5
    For i = 1 To 5
    Print Spc(spcc); RepeatStr(" * ", i)
    spcc = spcc - 1
    Next
    spcc = 2
    For i = 4 To 1 Step -1
    Print Spc(spcc); RepeatStr(" * ", i)
    spcc = spcc + 1
    Next
    End Sub

    Function RepeatStr(aString As String, ByVal aNumber As Integer) As String
    Dim bString As String

    bString = aString
    If aNumber > 1 Then
    For i = 2 To aNumber
    bString = bString & aString
    Next i
    End If
    RepeatStr = bString
    End Function

    [/VB]

    چطور امضا کنم؟  Huh
    پاسخ
    #3
    Note 
    واقعا ممنونم

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note دانلود نمونه سولات ویژوال بیسیک SOFTAFZAR 1 2,568 18-12-2015 ساعت 11:30
    آخرین ارسال: majidvajih
    Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,694 28-01-2015 ساعت 16:36
    آخرین ارسال: xMAN
    Note space در ویژوال بیسیک 6 شهره 1 801 04-10-2014 ساعت 10:42
    آخرین ارسال: Comodo
    Note ویژوال بیسیک amir7519 1 725 19-07-2014 ساعت 17:36
    آخرین ارسال: C0der
    Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 791 18-05-2014 ساعت 19:28
    آخرین ارسال: VBProgrammer
    Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,838 29-03-2014 ساعت 09:44
    آخرین ارسال: Stack OverFlow
    Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 764 14-03-2014 ساعت 22:37
    آخرین ارسال: Daniel
    Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,340 13-03-2014 ساعت 19:32
    آخرین ارسال: Daniel
    Note دانلود 105 پروژه ویژوال بیسیک SOFTAFZAR 6 5,074 23-02-2014 ساعت 18:21
    آخرین ارسال: Daniel
    Note پروژه بارش برف به زبان ویژوال بیسیک 6 THE KNIGHT 1 810 16-02-2014 ساعت 21:04
    آخرین ارسال: xMAN

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان