Visual Basic Foro

 Bueno voy a tratar de darles mas o menos un pantallaso rápido de tutoriales muy bien explicados y redactados de una forma fácil y rápida de aprender incluso sin consultar tanto los libros y que me ayudaron en mucho

  Si vamos a empezar programando en ENSAMBLADOR con el MPLAB q es gratuito. Les recomiendo la lectura de este articulo:
1ro)http://www.todopic.com.ar/foros/index.php?topic=24720.0

 De bibliográfica use las 2 ediciones de Angulo pero la 2da esta mejor, asi q les dejo esta:
http://www.taringa.net/posts/ebooks-tutoriales/1356014/Microcontroladores-PIC-2da-parte.html

 En caso de no querernos complicar tanto, podemos elegir programar en C. En mi caso empece con CCS q es simple de manejar y con instrucciones muy buenas.

2do)http://www.mikropic.com/forum/index.php?PHPSESSID=do6arv4nbdmpgv8ejklniaugm1&topic=49.0

Bibliográfica:
http://www.agapea.com/libros/COMPILADOR-C-CCS-Y-SIMULADOR-PROTEUS-PARA-MICROCONTROLADORES-PIC-isbn-8426714293-i1970855.htm
 Bueno en ambos casos tanto en ENSAMBLADOR como en C, podemos ver la forma de comunicar la PC con cualquier cosa Electrónica y eléctrica a través  de sistemas de comunicación como el RS232 o USB. Mas adelanto cuando tenga mas tiempo subo ejemplos básicos.

 Para los q empiezan y son de argentina les recomiendo comprar los instrumentos como ser el programador y otros en http://www.mcelectronics.com.ar/ es uno de los  mas confiables y q aceptan varias formas de pago y ademas hacen envíos a cualquier parte del país. Con esto ya creo q pueden empezar   

Bueno lea mira esto es lo q pude hacer... estaba bueno el problema gracias

(+) Agrega un text1.text
(+) Dos Label label1 y label2
(+) Un boton Command1
(+) Un timer con intervalo 1000 osea 1segundo
Pinta de color negro el fondo del formulario
Const PI180 As Double = 0.01745392 '3,14159265 / 180
Private Sub Command1_Click()
Call DibujoCuadrado(Text1.Text) ' el valor de los angulos en grado
End Sub
Sub DibujoCuadrado(Angulo As Double)
Form1.Cls
Dim X0, Y0, X1, Y1, X2, Y2, X3, Y3 As Integer ' PO,P1,P2,P3 donde P(X,Y) forman los cuatro puntos del cuadrado
X0 = 2500 - (1000 * Cos(Angulo * PI180)) ' Para pasar de radianes a grados multiplicamos por Pi y dividimos por 180�
Y0 = 5000 - (1000 * Sin(Angulo * PI180))
X1 = 2500 + (1000 * Cos(Angulo * PI180))
Y1 = 5000 + (1000 * Sin(Angulo * PI180))
Line (X0, Y0)-(X1, Y1), vbRed
Label1.Caption = "X0 :" & X0 & vbCrLf & "Y0 :" & Y0 & vbCrLf & "X1 :" & X1 & vbCrLf & "Y1 :" & Y1
X2 = 2500 - (1000 * Cos(Angulo * PI180)) ' Para pasar de radianes a grados multiplicamos por Pi y dividimos por 180�
Y2 = 2000 - (1000 * Sin(Angulo * PI180))
X3 = 2500 + (1000 * Cos(Angulo * PI180))
Y3 = 2000 + (1000 * Sin(Angulo * PI180))
Line (X2, Y2)-(X3, Y3), vbRed
Label2.Caption = "X2 :" & X2 & vbCrLf & "Y2 :" & Y2 & vbCrLf & "X3 :" & X3 & vbCrLf & "Y3 :" & Y3
Line (X0, Y0)-(X2, Y2), vbRed
Line (X1, Y1)-(X3, Y3), vbRed
End Sub
Private Sub Timer1_Timer()
Text1 = Text1 + 5
Call DibujoCuadrado(Text1)   ' el valor de los angulos en grado
End Sub

BIOGRAFÍA CITADA:
http://es.wikipedia.org/wiki/Trigonometr%C3%ADa