Visual basic
Enviado por Programa Chuletas y clasificado en Informática y Telecomunicaciones
Escrito el en 
español con un tamaño de 1,58 KB
Nº de 1 a 100
Dim numero as integer
Private sub command1_click()
Randomize
Numero = Int(Rnd*99+1)
End Sub
Private sub command2_click()
if numero < val(Text1.text)then
label1.caption = "el numero es menor"
Else
Label1.caption = "este es el numero
End if
End sub
Private sub form_load()
Randomize
Numero = Int (Rnd*99+1)
End sub
Cambio de Colores
Private sub form_click()
Dim R As Integer, G As Integer, B As Integer
For R = 0 To 255
For B = 0 To 255
Shape1:Fillcolor = RGB (R,G,B)
Shape1.RefresH
Next B
Next G
Next R
End Sub
Private Sub Form_load()
Form1.Caption=256^3
End Sub
Mover con barras un cuadrado cn botones:form_load
hscroll 1.min=shape1.left
hscroll 1.max=form1.width_shape1.width
vscroll 1.min=shape1.top
vscroll.max=form1.height_shape1.height
hscroll 1_change
shape 1.left=hscroll1.value
hscroll 1_scroll1
shape 1.left=hscroll1.value
vscroll1_change
shape 1.top=vscroll1.value
vscroll 1_scroll1
shape 1.top=vscroll1.value
Dim numero as integer
Private sub command1_click()
Randomize
Numero = Int(Rnd*99+1)
End Sub
Private sub command2_click()
if numero < val(Text1.text)then
label1.caption = "el numero es menor"
Else
Label1.caption = "este es el numero
End if
End sub
Private sub form_load()
Randomize
Numero = Int (Rnd*99+1)
End sub
Cambio de Colores
Private sub form_click()
Dim R As Integer, G As Integer, B As Integer
For R = 0 To 255
For B = 0 To 255
Shape1:Fillcolor = RGB (R,G,B)
Shape1.RefresH
Next B
Next G
Next R
End Sub
Private Sub Form_load()
Form1.Caption=256^3
End Sub
Mover con barras un cuadrado cn botones:form_load
hscroll 1.min=shape1.left
hscroll 1.max=form1.width_shape1.width
vscroll 1.min=shape1.top
vscroll.max=form1.height_shape1.height
hscroll 1_change
shape 1.left=hscroll1.value
hscroll 1_scroll1
shape 1.left=hscroll1.value
vscroll1_change
shape 1.top=vscroll1.value
vscroll 1_scroll1
shape 1.top=vscroll1.value