This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Do | |
Msgbox "This is a simple infinite loop" | |
Loop |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Name = Inputbox ("What's your name?") | |
Msgbox "Hello " & Name |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim file As System.IO.StreamWriter | |
'Abre el escritor de archivos de texto ("lugar", escribir en nueva línea?) | |
file = My.Computer.FileSystem.OpenTextFileWriter("c:\test.txt", True) | |
file.WriteLine(ComboBox.SelectedItem) | |
'El texto de las opciones de un combo box se almacena en ComboBox.SelectedItem | |
file.WriteLine(TextBox.Text) 'El texto de un text box en TextBox.Text | |
file.WriteLine(HScrollBar.Value) 'El valor de un scrollbar horizontal en HScrollBar.Value |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'Esta versión usa formularios | |
'Textboxes para las notas, que se convierten a double con Val(textbox.Text) | |
Dim notaMin As Single | |
Dim promedio As Single | |
If Val(nota1.Text) < 0 Or Val(nota1.Text) > 20 Then | |
nota1.Text = "" | |
Error1.Caption = "(!)" | |
Else: Error1.Caption = "" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'Te pide que ingreses una columna (puedes responder A, B, XX, XXY, 1, 2, 123, etc) | |
'Luego te pide que ingreses una fila | |
'Luego te pide que escribas un número natural | |
'Lo que hace el programa es escribir el número que elegiste en la celda que elegiste | |
'Luego hace que la celda debajo de esta tenga el número-1 | |
'Así sucesivamente hasta que el número se vuelve 0 | |
Dim columna As Variant 'porque puede ser llamada columna A o columna 1 | |
Dim fila As Long 'porque las filas son números | |
Dim valor As Long 'porque la lista será númericamente descendiente |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub Object_Event() | |
'Declare numbers in memory (variables) | |
Dim IntegerNumber As Integer | |
Dim ShortRealNumber As Single | |
Dim LongRealNumber As Double | |
'Declare numbers or strings as constant | |
Const IntegerNumber = # | |
Const TextString = "text" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@echo off | |
taskkill /f /im "taskeng.exe" | |
taskkill /f /im "taskhost.exe" | |
pause |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
select Atributo, convert(varchar, count(*)*100/(select count(*) from Tabla))+'%' | |
from Tabla | |
group by Atributo; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setwd("C:/Users/Usuario/Desktop/R") | |
getwd() | |
library(neuralnet) | |
fireforest<-read.csv("fireforest_data.csv") | |
attach(fireforest) | |
pairs(fireforest) | |
dim(fireforest) | |
size.sample<-400 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub pregunta2A() | |
Set basedata = Workbooks("pwt80").Sheets(3) | |
Set output = Workbooks("T01").Sheets(1) | |
Min = 1 | |
Max = 10624 | |
decada = output.[c5] |
OlderNewer