ďťż

Ładny brzuch

Witam. Mam pewien kod (na dole) chciałbym żeby ktos mi go "rozszyfrował" tzn. napisał co znaczą wszystkie zmienne. :helpsmilie: Ale chciałbym że były podane wszystkie zmienne w tym tekscie... I też w miare szybko. Dziękuje za pomoc :worshippy:

to ten tekst:
Dim Accum Dim FlagNewNum Dim PendingOp Sub NumPressed(Byval Num) If FlagNewNum Then document.Keypad.Readout.Value = Num FlagNewNum = False Else If document.Keypad.Readout.Value = 0 Then document.Keypad.Readout.Value = CStr(Num) Else document.Keypad.ReadOut.Value= document.Keypad.ReadOut.Value & CStr(Num) End If End If End Sub Sub Decimal_onclick() Dim curReadout curReadOut = document.Keypad.ReadOut.Value If FlagNewNum Then curReadOut = "0" FlagNewNum = False Else If InStr(curReadOut, ".") = 0 Then curReadOut = curReadOut & "." End If End If document.Keypad.ReadOut.Value = curReadOut End Sub Sub Plus_onclick() Operation "+" End Sub Sub Minus_onclick() Operation "-" End Sub Sub Multiply_onclick() Operation "*" End Sub Sub Divide_onclick() Operation "/" End Sub Sub Operation(Byval Op) Dim Readout ReadOut = document.Keypad.ReadOut.Value If FlagNewNum and PendingOp <> "=" Then ' Else FlagNewNum = True Select Case PendingOp Case "+" Accum = CDbl(Accum) + CDbl(ReadOut) Case "-" Accum = CDbl(Accum) - CDbl(ReadOut) Case "/" Accum = CDbl(Accum) / CDbl(ReadOut) Case "*" Accum = CDbl(Accum) * CDbl(ReadOut) Case Else Accum = ReadOut End Select document.Keypad.ReadOut.Value = Accum PendingOp = Op End If End Sub Sub ClearEntry_onclick() document.Keypad.ReadOut.Value = "0" FlagNewNum = True End Sub Sub Clear_onclick() Accum = 0 PendingOp = "" ClearEntry_onclick End Sub Sub Neg_onclick() document.Keypad.ReadOut.Value = CDbl(document.Keypad.ReadOut.Value) * -1 End Sub Sub Percent_onclick() document.Keypad.ReadOut.Value = (CDbl(document.Keypad.ReadOut.Value) / 100) * Accum End Sub Sub Equals_onclick() Operation "=" End Sub
Użytkownik Bełdzio edytował ten post 07 czerwiec 2005, 21:29
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •