Visual Basic - Como recorrer un vector string para activar/desactivar radiobutton

Hola buenas tardes,
estoy haciendo un programa que convierte un número decimal a uno binario. El problema es que quiero trabajar con un byte y activar los RadioButtons correspondientes de los 8 bits.

He procedido a realizar la lectura y comparación del vector para activar o desactivar el radiobutton y no doy con la solución ya que he probado de todas las formas y siempre me salen errores tales como fuera de rango de matriz, no acepta = para char, etc

El diseño está formado por 3 texbox donde se introduce el número decimal, se obtiene el número binario y otro con la longitud del vector de salida. También están los radiobutton que en la foto sólo hay 5 pero en realidad tengo que poner 8.
El código es el siguiente:


Un saludo

• Captura.rar(29,0 KB)

Carlos Una pregunta tu lo que quieres que de los 8 radio Buton se prendan o se apaguen mientras en el binario sea verdadero o falso

si es 100001
se debe prender el primer y el ultimo RadioButon?

Es eso lo qeu deseas hacer

Cabe indicar algo importante los radio button solo permiten una seleccion por grupo por lo que podrias ver los checkbutton
algo que podrias hacer es agrupar cadio radio button dentro de un frame

en todo caso confirmame esto para asi poderte ayudar

**El tema de la creacion de los radiobutton podria ser manejable asi como que aparezcan y si debe aparecer prendido o apagado

Saludos

Buenas Andrés ,
Si , es eso lo que quiero realizar .
El tema de los radiobutton lo soluciono poniendo un groupbox a cada uno, puede que no se aprecie bien en la foto que mandé.

Un saludo y gracias por la rapidez de respuesta

bueno es que como es .net me coge como nuevo

por que en vb6 hacias una matriz de controles y con el indice

pero bueno espero te ayude

• WindowsApplication1.zip(86,0 KB)

Muchas gracias por la solución, llevaba días sin conseguir avanzar.

Tengo algunas dudas del código que me cuesta entender. Son:

1.Debug.Print(TextBox2.Text) No entiendo esta linea de codigo. Probando he visto que si la borro el código funciona pero me gustaría saber el motivo.

2TextBox2.Text = New String("0"c, 8 - Len(TextBox2.Text)) & TextBox2.Text Aquí lo que entiendo es que creas la cadena TextBox2.text con new y lo rellenas con 0 hasta tener los 8 bits y concatenas el valor obtenido de la conversión.¿Cierto? Es que no consigo entender bien el funcionamiento de "new" y de instancias.

3. For I = 1 To Len(TextBox2.Text) ......Len(TextBox2.Text) se prodría sustituir por 8,¿no? ya que siempre textbox2.text sera de tamaño 8

4. R1.Checked = Mid(TextBox2.Text, 9 - I, 1) Otra cosa que no entiendo es esto.Para activar o desactivar R1 debería ser igual a true o false y en la explicación de visual studio dice que Mid arroja una cadena. Entiendo que textBox2.text su posición 0 es el bit más siginificativo, o sea , para 6 sería 1.

Probando he visto que si no se introduce un número decimal y se pulsa el botón se produce una interrupción. Eso se podría solucionar con un "if" indicando si no hay decimal no hacer nada, cierto? Como sería realmente en código?

Un saludo

Hola haber contesto con negritas tus dudas


1.Debug.Print(TextBox2.Text) No entiendo esta linea de codigo. Probando he visto que si la borro el código funciona pero me gustaría saber el motivo. En este caso sirve para ver en la pantalla de inmediato el valor que haces debug .print ... es verdad si lo quitas funcinara ... es netamente cuando haces seguimiento para no tener que mostrarlo en msgbox si no en la consola de inmediato

2TextBox2.Text = New String("0"c, 8 - Len(TextBox2.Text)) & TextBox2.Text Aquí lo que entiendo es que creas la cadena TextBox2.text con new y lo rellenas con 0 hasta tener los 8 bits y concatenas el valor obtenido de la conversión.¿Cierto? Es que no consigo entender bien el funcionamiento de "new" y de instancias. Es correcto lo relleno para obtener los 8 bits para poder prender o apagar los radiobuton ya que siempre seran 8, en VB6 existia la funcion String donde te permitia repetir un caracter n numero de veces .. en cambio en .net se hace asi .. yo tampoco lo sabia me toco aprenderlo ayer jejejejjeje


3. For I = 1 To Len(TextBox2.Text) ......Len(TextBox2.Text) se prodría sustituir por 8,¿no? ya que siempre textbox2.text sera de tamaño 8
Pues la verdad es que si .... lo que pasa es que a medida que vas desarrollando tratas en lo posible de no dejar valores quemados pero si es correcto lo podrias sustituir por 8 ya que el textbox siempre sera 8

4. R1.Checked = Mid(TextBox2.Text, 9 - I, 1) Otra cosa que no entiendo es esto.Para activar o desactivar R1 debería ser igual a true o false y en la explicación de visual studio dice que Mid arroja una cadena. Entiendo que textBox2.text su posición 0 es el bit más siginificativo, o sea , para 6 sería 1.

Mi respuesta:
Efectivamente yo pido una cadena pero de tu textbox de valores binarios entonces los valores siempre seran 1 o 0 que tambien son valores booleanos es un truco que el lenguaje me permite ya que si lepongo que sea igual a 2 me dara un error ...

Sobre como escojo la posicion .. recuerdas que haces un reverse bueno .. enotnce me toca coger de derecha a izquiera ... entonces hago un mid de la derecha a la izquierda (restando el valor 9 - i ) y escojo un byte ...
graficando

111111]11
---este sera 9-3 = 6 el de cursiva


Probando he visto que si no se introduce un número decimal y se pulsa el botón se produce una interrupción. Eso se podría solucionar con un "if" indicando si no hay decimal no hacer nada, cierto? Como sería realmente en código?
por su puesto esta ya seria una validacion de tu sistema en todo caso validas que el input

Muchas gracias por la ayuda y el esfuerzo.Todas las dudas resueltas y entendidas.

Un saludo