ايران ويج

سلام سلام
وای نمیدونم چرا این چند روزه اصلا نمیتونستم وارد انجمن بشم این تعویض سرورها هم خیلی کار رو بد کرده ......
اول از darg و ارش تشکر میکنم به خاطر کمک هایی که به من کردند چرا که همین کمک ها باعث مورد تشویق قرار گرفتن توسط استادمون شد. بازم ممنون
اما یک سوال دیگه دارم؟؟؟؟
برنامه ای که نام و شماره کارمندی و ساعت کارکرد ماهیانه تعدادی کارمند اداره را از ورودی گرفته و حقوق ان ها را از مقدار ساعتی 1000 تومان با کسر 3% مالیات و افزایش 2% حق اولاد محاسبه شود..سپس در خروجی نام - شماره کارمندی و حقوق دریافتی را چاپ کند ؟ این برنامه همچنین مشخصات کارمندی که کمترین و بیشترین حقوق را دریافت میکند چاپ کند ..

فقط تا جایی که ممکنه کد ها حرفه ای باشه (فقط با input box , msgbox ,print ,غیره از شی و لیبیل و .... استفاده نشه Shy

)...توی این مدت با این چند تا برنامه که به من کمک کردید کلی چیز یادگرفتم...اگه جایی از کدتون هم بود که فکر میکنید من متوجه نمیشم براش توضیح بزارید(البته اگر این لطف را بکنبد)(!@!)

سلام

این هم کد مربوط به این سوال !

کد:

'Arash RJ

'ArashRJ@gmail.Com

'Arash_RJ@Yahoo.Com

'Http://Www.ArashRJ.IR

'Http://Www.PersianFox.Com

Dim M1, M2, M3, M02, K0, K1, M01 As Integer

C1:

M1 = InputBox("تعداد کل کارمندان ", "Input", 1)

If M1 = "" Then GoTo C1

ReDim Number(M1) As Integer

ReDim Name1(M1) As String

ReDim tTime(M1) As Integer

ReDim Money(M1) As Integer

For RJ = 0 To M1 - 1

    Number(RJ) = InputBox("شماره کارمند ", "Input", 0)

    Name1(RJ) = InputBox("نام کارمند", "Input", "Default")

    tTime(RJ) = InputBox("زمان کل کارکرد یک ماهه", "Input", 1)

    Money(RJ) = tTime(RJ) * 1000

    M2 = (Money(RJ) * 3) / 100

    Money(RJ) = Money(RJ) - M2

    M3 = (Money(RJ) * 2) / 100

    Money(RJ) = Money(RJ) + M3

Next

M02 = Money(0)

For RJ1 = 0 To M1 - 1

    If M02 >= Money(RJ1) Then M02 = Money(RJ1): K0 = RJ1

Next

M01 = Money(0)

For RJ = 0 To M1 - 1

    If M01 <= Money(RJ) Then M01 = Money(RJ): K1 = RJ

Next

For RJ3 = 0 To M1 - 1

    Print "Number:" & Number(RJ3)

    Print "Name  :" & Name1(RJ3)

    Print "Money :" & Money(RJ3)

    Print "======================="

Next

Print "***************************************"

Print "MIN  :" & Name1(K0)

Print "MAX  :" & Name1(K1)

موفق باشی
خدانگهدار

سلم
اقا ارش برنامه ای که دادید باگ زیاد داره...مثلا اگر زمان کارکرد کارمند دورقمی داده بشه برنامه قفل میکنه ....یا از امثال این جور خطاها!!! اگر هم به اخر برسه اصلا خروجی نمیده
راستی این یعنی چی C1:
ReDim Number(M1) As Integer

سلام

این کد رو تست کن ! (مشکلش حل شد)

کد:

'Arash RJ

'ArashRJ@gmail.Com

'Arash_RJ@Yahoo.Com

'Http://Www.ArashRJ.IR

'Http://Www.PersianFox.Com

Dim M1, M2, M3 As Integer

Dim M02, K0, K1, M01

C1:

M1 = InputBox("تعداد کل کارمندان ", "Input", 1)

If M1 = "" Then GoTo C1

ReDim Number(M1)

ReDim Name1(M1)

ReDim tTime(M1)

ReDim Money(M1)

For RJ = 0 To M1 - 1

    Number(RJ) = InputBox("شماره کارمند ", "Input", 0)

    Name1(RJ) = InputBox("نام کارمند", "Input", "Default")

    tTime(RJ) = InputBox("زمان کل کارکرد یک ماهه", "Input", 1)

    Money(RJ) = Val(tTime(RJ)) * 1000

    M2 = (Val(Money(RJ)) * 3) / 100

    Money(RJ) = Money(RJ) - M2

    M3 = (Val(Money(RJ)) * 2) / 100

    Money(RJ) = Val(Money(RJ)) + M3

Next

M02 = Money(0)

For RJ1 = 0 To M1 - 1

    If M02 >= Money(RJ1) Then M02 = Money(RJ1): K0 = RJ1

Next

M01 = Money(0)

For RJ = 0 To M1 - 1

    If M01 <= Money(RJ) Then M01 = Money(RJ): K1 = RJ

Next

For RJ3 = 0 To M1 - 1

    Print "Number:" & Number(RJ3)

    Print "Name  :" & Name1(RJ3)

    Print "Money :" & Money(RJ3)

    Print "======================="

Next

Print "***************************************"

Print "MIN  :" & Name1(K0)

Print "MAX  :" & Name1(K1)

موفق باشی
خدانگهدار

نقل قول :راستی این یعنی چی C1:
ReDim Number(M1) As Integer

سلام

اگه کد رو نگاه کرده باشی ! متوجه میشی که اگه تعداد کارمندان ورودی خالی باشد یک پرش داریم ! (به C:)

موفق باشی
خدانگهدار

bahareh_toto

arashrj

bahareh_toto

arashrj

arashrj