Soy principiante en VB, pero ahora tengo un programa que necesito programar con el software MICROSOFT VISUAL BASIC 2010. ¿Cómo redactar una solicitud urgente de asesoramiento? Gracias
Primero, observemos esta regla de transformación. El binario 0000 es el decimal 0, el binario 0001 es el decimal 1, el binario 0010 es el decimal 2... En resumen, la primera mitad y la segunda mitad de la cadena se consideran cada una como un número binario, luego, después de cada iteración, estos dos números se suman. 1 a cada uno. Repita tres veces y agregue 1 tres veces. Pero 1111 va seguido de 0000, lo que significa que estos dos números binarios no pueden ser mayores que 15. Si es superior a quince deberá reducirse en quince.
Primero viene un cuadro de texto (que se supone que es Textbox1) y un botón (que se supone que es Button1), y define las siguientes cinco variables: a, b, i, j son números enteros y Tempstr es una cadena. Luego haga doble clic en el botón y escriba el siguiente código debajo del evento Click en el botón:
1. Lea la cadena
a=0
b=. 0
p>Para i = 1 a 4
a = a * 2 Val(GetChar(Textbox1.Text, i))
Siguiente
Para i = 5 a 8
b = b * 2 Val(GetChar(Textbox1.Text, i))
Siguiente
2. Procesando
tempstr=""
Para j=1 a 3
tempstr=tempstr " Iterar " str(j) " veces: "
a= a 1
b=b 1
si es 15 entonces a=a-15
si es 15 entonces b=b; -15
Para i = 1 a 4
Tempstr = Str(b Mod 2) Tempstr
b = b \ 2
Siguiente
Para i = 1 a 4
Tempstr = Str(a Mod 2) Tempstr
a = a \ 2
Siguiente
Siguiente
textbox1.text=tempstr