Mensajes

De nada, un gusto. Estamos para ayudar 

Mira este ejemplo:



Código:

Código (vb) [Seleccionar] Expandir

Dim oX, oY, dX, dY, x, y As Integer

Private Sub Cmd_Graficar_Click()
x = oX + Val(Txt_CordX.Text)
y = oY - Val(Txt_CordY.Text)
Pic_Graf.Line (dX, dY)-(x, y), vbBlue
End Sub

Private Sub Form_Load()
Label1(0).Caption = "X"
Label1(1).Caption = "Y"
Txt_CordX.Text = ""
Txt_CordY.Text = ""
Me.ScaleMode = 3
Pic_Graf.ScaleMode = 3
Pic_Graf.Height = 400
Pic_Graf.Width = 400
Pic_Graf.AutoRedraw = True
Pic_Graf.Line (200, 0)-(200, 400)
Pic_Graf.Line (0, 200)-(400, 200)
oX = 200
oY = 200
dX = 200
dY = 200
End Sub

@Warcel: Kaiser tenía razón, lo dijo tal cual pensé lo estabas haciendo.

La configuración para activar por altos es



Y por bajo creo que es esta:



Lo que comunmente se identifica como "pull-up"



La resistencia es únicamente por cuestiones de limitación de corriente.

Tu salida está negada, por lo tanto tienes tensiones negativas.

Bajos son negativos, altos son positivos.

Ahora bien, me gustaría que pongas la foto para aclarar el error, por que hasta ahora son solo suposiciones.

No entiendo muy bien. Por lo que vi no tienes un comportamiento "inverso" de la puerta AND ya que no obtienes un OR. Lo que está sucediendo es que tienes negada tu salida, y esto me hace pensar que estás activando por bajos cuando deberías activar por altos.

Con respecto al algoritmo para conseguir "efectos"este es un code que encontré:

Código (vb) [Seleccionar] Expandir

'<-- Codigo ofrecido por Tutores.org -->
Private Sub Form_Resize()
Form1.Cls
Form1.AutoRedraw = True
Form1.DrawStyle = 6
Form1.DrawMode = 13
Form1.DrawWidth = 2
Form1.ScaleMode = 3
Form1.ScaleHeight = (256 * 2)
For i = 0 To 255
Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BF
Y = Y + 2
Next i
End Sub

Y con lo de forms transparentes, por internet hay módulos con muchos ejemplos.

Un saludo!

Pero lo que veo ahi es simplemente un background del form. A menos que tu quieras "estilizarlo" lo haría con algoritmos de formas a través de print tal vez. En recursos vb creo que estaba un ejemplo.

De nada. Por suerte tu solo puedes solucionar tus problemas 

while(1)
{
  if( PORTA.(X)==1)
  {
           cnt=0;
           while(cnt<(cantidadpines+1)
           {
                PORTC=cnt;
                 cnt++;
           }  
  }
}

Bien, analizando tu code, no son necesarios tus "switchs". Otra cosa, pusiste PORTA==1, ¿?, tu PORTA es únicamente el pin de tu clock?

Yo en todo caso

while(1)
{
  if( PORTA.(X)==1)
  {
           cnt++;
            if(cnt<(cantidad pines + 1))
           PORTC=cnt;
            else
            cnt=0;  
  }
}

Se entiende la idea?