Converting Decimal numbers to Binary
A function for converting decimal numbers to binary. Very fast.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Private Sub Command1_Click() DecValue = Val(Text1.Text) BinValue = "" Do TempValue = DecValue Mod 2 BinValue = CStr(TempValue) + BinValue DecValue = DecValue \ 2 Loop Until DecValue = 0 'Print 'Print BinValue Text2.Text = BinValue End Sub Upload
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine