naranjja

Name = Inputbox ("What's your name?")
Msgbox "Hello " & Name

naranjja

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

naranjja

'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 = ""

naranjja

'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

naranjja

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"

naranjja

@echo off
taskkill /f /im "taskeng.exe"
taskkill /f /im "taskhost.exe"
pause

naranjja

select Atributo, convert(varchar, count(*)*100/(select count(*) from Tabla))+'%'
from Tabla
group by Atributo;

naranjja

setwd("C:/Users/Usuario/Desktop/R")
getwd()
library(neuralnet)

fireforest<-read.csv("fireforest_data.csv")
attach(fireforest)
pairs(fireforest)
dim(fireforest)
size.sample<-400

naranjja

For i = Min To Max - 1
    For j = i + 1 To Max
        If x(i) > x(j) Then
            temp = x(i)
            x(i) = x(j)
            x(j) = temp
        End If
    Next j
Next i

naranjja

SET DateStyle TO DMY;

SELECT 
	historia, 
	COUNT(DISTINCT(historia)) AS veces, 
	SUBSTRING(edad,1,2) AS edad, 
	DATE_PART('day', fecing::TIMESTAMP - fecisn::TIMESTAMP) AS estancia, 
	sexo, 
	SUBSTRING(procprov, '-  *([A-Z, ]{1,15})') AS departamento