سوال در مورد کارکرد ماهیانه تعدادی کارمند

[bahareh_toto]

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

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

[arashrj]

سلام

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

کد:

'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)

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

[bahareh_toto]

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

[arashrj]

سلام

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

کد:

'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)

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

[arashrj]

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

سلام

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

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