Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21100

cant display my binary answer

$
0
0
Hi Ev1~

here is my sample code for binary code somehow when i try to click the answer it only display 00000 when i press no like 98 or any other no..

Code:

Private Sub Binary_Click()
Dim df As Integer
Dim r As Integer


df = Val(lblDisplay.Caption)
lblDisplay.Caption = ""
Do While (df)
lblDisplay.Caption = r & lblDisplay.Caption
df = Int(df / 2)
Loop
End Sub

Thanks guys:wave:

Viewing all articles
Browse latest Browse all 21100

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>