Programa de calcular numeros binarios (visual foxpro 6.0)

num1=thisform.txtcodigo.value

if num1="0"

thisform.txtbinario.value="0"

endif

if num1="1"

thisform.txtbinario.value="1"

endif

if num1="2"

thisform.txtbinario.value="10"

endif

if num1="3"

thisform.txtbinario.value="11"

endif

if num1="4"

thisform.txtbinario.value="100"

endif

if num1="5"

thisform.txtbinario.value="101"

endif

if num1="6"

thisform.txtbinario.value="110"

endif

if num1="7"

thisform.txtbinario.value="111"

endif

if num1="8"

thisform.txtbinario.value="1000"

endif

if num1="9"

thisform.txtbinario.value="1001"

endif

if num1="10"

thisform.txtbinario.value="1010"

endif

if num1="11"

thisform.txtbinario.value="1011"

endif

if num1="12"

thisform.txtbinario.value="1100"

endif

if num1="13"

thisform.txtbinario.value="1101"

endif

if num1="14"

thisform.txtbinario.value="1110"

endif

if num1="15"

thisform.txtbinario.value="1111"

endif

if num1="16"

thisform.txtbinario.value="10000"

endif

if num1="17"

thisform.txtbinario.value="10001"

endif

if num1="18"

thisform.txtbinario.value="10010"

endif

if num1="19"

thisform.txtbinario.value="10011"

endif

if num1="20"

thisform.txtbinario.value="11100"

endif

if num1="21"

thisform.txtbinario.value="11101"

endif

if num1="22"

thisform.txtbinario.value="11110"

endif

if num1="23"

thisform.txtbinario.value="11111"

endif

if num1="24"

thisform.txtbinario.value="100000"

endif

if num1="25"

thisform.txtbinario.value="100001"

endif

if num1="26"

thisform.txtbinario.value="100010"

endif

if num1="27"

thisform.txtbinario.value="100011"

endif

if num1="28"

thisform.txtbinario.value="100100"

endif

if num1="29"

thisform.txtbinario.value="100101"

endif

if num1="30"

thisform.txtbinario.value="100110"

endif

if num1="31"

thisform.txtbinario.value="100111"

endif

if num1="32"

thisform.txtbinario.value="101000"

endif

if num1="33"

thisform.txtbinario.value="101001"

endif

if num1="34"

thisform.txtbinario.value="101010"

endif

if num1="35"

thisform.txtbinario.value="101011"

endif

if num1="36"

thisform.txtbinario.value="101100"

endif

if num1="37"

thisform.txtbinario.value="101101"

endif

if num1="38"

thisform.txtbinario.value="101110"

endif

if num1="39"

thisform.txtbinario.value="101111"

endif

if num1="40"

thisform.txtbinario.value="110000"

endif

if num1="41"

thisform.txtbinario.value="110001"

endif

if num1="42"

thisform.txtbinario.value="110010"

endif

if num1="43"

thisform.txtbinario.value="110011"

endif

if num1="44"

thisform.txtbinario.value="110100"

endif

if num1="45"

thisform.txtbinario.value="110101"

endif

if num1="46"

thisform.txtbinario.value="110110"

endif

if num1="47"

thisform.txtbinario.value="110111"

endif

if num1="48"

thisform.txtbinario.value="111000"

endif

if num1="49"

thisform.txtbinario.value="111001"

endif

if num1="50"

thisform.txtbinario.value="111010"

endif

una vez ejecutado nuestro programa se mostrara de la siguiente forma: