مسابقه برنامه نويسي با VB6 ( ويژه بچه هاي كرج)

[mahboob_tr]

برنامه نويس هاي كرجي بسم الله .

http://forum.p30world.com/showthread.php?t=31226

[amirjan]

کد:

Function CalCHM(h, m, s, ss)

' This function calculates corner value
' between hour hand and minute hand in
' any time you want in a clock.
' Note: output is in degree.
' written by : >>> amirhossein313
' Free to use ! - WwW.IrAnViG.CoM

a = (360 / 60) / (60 * 100)        'Calculates minute hand corner change, in every 0.01 second
b = ((360 / 12) / (60 * 60)) / 100 'Calculates hour hand corner change, in every 0.01 second
If h > 12 Then h = h - 12
    out1 = (ss + (s * 100) + (m * 100 * 60)) * a
    out2 = (ss + (s * 100) + (m * 100 * 60) + (h * 60 * 60 * 100)) * b
    out3 = Abs(out1 - out2)
If out3 > 180 Then out3 = 360 - out3
CalCHM = out3
End Function

کد:

' Example :
i = Split(Time, ":")
i(2) = Val(i(2))
h = i(0)
m = i(1)
s = i(2)
MsgBox CalCHM(h, m, s, 0)

[kasrakhan]

امير زدي مسابقه ي اين بنده خدا ها رو خراب كردي !‌

[amirjan]

كل مسابقه 100 امتيازه ، هر كي تو ايرانويج باشه ، مزيتش اينه كه 40 امتيازش رو گرفته ! 8)

[Iron_Fist]

جايزش چيه ؟