1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
A continuación presentamos algunas ecuaciones polares características: Nombre Ecuación Circunferencia de radio Trébol de cuatro hojas n r = n r = 2cos2θ Cardioide r = 1 + cosθ Limazón Lemniscata Pétalo de rosa Espiral r = 1 + 2 cosθ 2 r = cos 2θ r = sen 4θ r = θ 2n Espiral logarítmica n r e θ = Astroide Nefroide Concoide Estrofoide 3 r = (cos 2 θ ) r = 3cos2 θ − cos6θ r = 1 r = + 1 cos 2θ 1 cos 2 θ + tan 2θ Para realizar una aplicación que permita dibujar ecuaciones polares crear un nuevo proyecto y añadir al formulario 1 cuadro de imagen (PicPlano), un cuadro de lista (LstEcuacion) y un botón de comandos (CmdVisualizar). La apariencia de la interfaz debe ser similar a la de la figura mostrada: Pág. 214
Luego proceda a ingresar el código que se presenta a continuación: Dim OP As Integer Function F(ByVal THETA As Single) As Single Select Case OP Case 0 : F = 2 Case 1 : F = 2 * Cos(2 * THETA) Case 2 : F = 1 + Cos(THETA) Case 3 : F = 1 + 2 * Cos(THETA) Case 4 : If Cos(2 * THETA) >= 0 Then F = Sqr(Cos(2 * THETA)) Case 5 : F = Sin(4 * THETA) Case 6 : F = THETA / 2 Case 7 : F = Exp(THETA / 8) Case 8 : F = Cos(2 * THETA) * Cos(2 * THETA) * Cos(2 * THETA) Pág. 215
- Page 163 and 164: Los datos del archivo deben aparece
- Page 165 and 166: Función Input Retorna los siguient
- Page 167 and 168: sus prestaciones son bastante limit
- Page 169 and 170: Private Sub MnuArchivoAbrir_Click()
- Page 171 and 172: longitud), lo cuales son identifica
- Page 173 and 174: Get # NÚMERO_ARCHIVO, NÚMERO_REG,
- Page 175 and 176: La función Loc() aplicada a un arc
- Page 177 and 178: Frame1 Frame2 Frame3 Label1 Label2
- Page 179 and 180: Command3 Command4 Command5 Command6
- Page 181 and 182: End Sub TxtVacantes.Locked = Not Ok
- Page 183 and 184: End Sub POSICION = Loc(N1) + 1 If P
- Page 185 and 186: End Sub Open “C:\DATA\TEMPO.DAT
- Page 187 and 188: Permite grabar en un archivo binari
- Page 189 and 190: Por ejemplo si ingresa el mensaje
- Page 191 and 192: Como ejemplo considere los siguient
- Page 193 and 194: El ejemplo inicial (código hexadec
- Page 195 and 196: Por ejemplo, las instrucciones sigu
- Page 197 and 198: A manera de ejemplo considere la es
- Page 199 and 200: Para el dibujo de puntos se usará
- Page 201 and 202: En el ejemplo anterior se utiliza l
- Page 203 and 204: Para este ejemplo crear una nueva a
- Page 205 and 206: Para el desarrollo de la presente a
- Page 207 and 208: Control Line Line es un control gr
- Page 209 and 210: Como ejemplo de este tipo de gráfi
- Page 211 and 212: Para realizar nuestra aplicación d
- Page 213: Para el caso de las gráficas de ec
- Page 217 and 218: La matemática fractal es producto
- Page 219 and 220: Para el desarrollo de la presente a
- Page 221 and 222: En este capítulo, debido a las lim
- Page 223 and 224: La presente Guía de Laboratorio de
- Page 225 and 226: Para el desarrollo de esta aplicaci
- Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
- Page 229 and 230: Luego, haga doble click sobre el bo
- Page 231 and 232: A continuación active la casilla d
- Page 233 and 234: Label10 Nombre LblImpuesto Caption
- Page 235 and 236: En primer lugar debemos cargar los
- Page 237 and 238: A continuación haga doble click so
- Page 239 and 240: Private Sub CmdAceptar_Click() Dim
- Page 241 and 242: Los descuentos a aplicar son sobre
- Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
- Page 245 and 246: Check3 Command1 Command2 Command3 N
- Page 247 and 248: Cuatro notas entre 0 y 20 represent
- Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
- Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
- Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
- Page 255 and 256: Case 10: CadMes = “Octubre” Cas
- Page 257 and 258: Para el desarrollo de esta aplicaci
- Page 259 and 260: El diseño de la interfaz debe ser
- Page 261 and 262: Para el desarrollo de esta aplicaci
- Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
A continuación presentamos algunas ecuaciones polares<br />
características:<br />
Nombre Ecuación<br />
Circunferencia de radio<br />
Trébol de cuatro hojas<br />
n r = n<br />
r = 2cos2θ<br />
Cardioide r = 1 + cosθ<br />
Limazón<br />
Lemniscata<br />
Pétalo de rosa<br />
Espiral<br />
r = 1 + 2 cosθ<br />
2<br />
r = cos 2θ<br />
r = sen 4θ<br />
r =<br />
θ<br />
2n<br />
Espiral logarítmica n<br />
r e θ<br />
=<br />
Astroide<br />
Nefroide<br />
Concoide<br />
Estrofoide<br />
3<br />
r = (cos 2 θ )<br />
r = 3cos2 θ − cos6θ<br />
r =<br />
1<br />
r = + 1<br />
cos 2θ<br />
1<br />
cos 2 θ + tan 2θ<br />
Para realizar una aplicación que permita dibujar<br />
ecuaciones polares crear un nuevo proyecto y añadir al<br />
formulario 1 cuadro de imagen (PicPlano), un cuadro de lista<br />
(LstEcuacion) y un botón de comandos (Cmd<strong>Visual</strong>izar). La<br />
apariencia de la interfaz debe ser similar a la de la figura<br />
mostrada:<br />
Pág. 214
Change language