Ĺadny brzuch
Mam pytanie :) ... czy ktoś mi wytłumaczy te zmienne (czy tam stałe, jak kto woli ^_^ ):
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
Mam pytanie :) ... czy ktoś mi wytłumaczy te zmienne (czy tam stałe, jak kto woli ^_^ ):
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
Troszkę się pogubiłem... hehe :D a najbardzije w tej ostatniej linijce.. ale naprawdę wielkie dzięki :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
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
Mam pytanie :) ... czy ktoś mi wytłumaczy te zmienne (czy tam stałe, jak kto woli ^_^ ):
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

Troszkę się pogubiłem... hehe :D a najbardzije w tej ostatniej linijce.. ale naprawdę wielkie dzięki :)