Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: El_Andaluz en 12 Septiembre 2016, 01:01 AM
En la naturaleza quien sobrevive ? El mas fuerte.
Cita de: El_Andaluz en 11 Septiembre 2016, 21:03 PM
Puedes no estar de acuerdo con lo que he dicho porque es una opinión mía.
Te dejo aquí algo de información para que entiendas el concepto de acoso escolar o bullying
De hecho, muchos de los actos encuadrables en el acoso escolar han sido - siguen siéndolo aún- frecuentemente considerados parte integrante de la experiencia escolar, inherentes a la dinámica propia del patio del colegio, como una lección más de la escuela en la que como anticipo de la vida, el menor tiene que aprender a resistir, a defenderse, a hacerse respetar e incluso a devolver el golpe. En esta concepción darwinista de la lucha por la vida, los más débiles quedan con frecuencia sometidos a los designios de los matones o acosadores escolares.
Cita de: El_Andaluz en 11 Septiembre 2016, 17:32 PM
Claro hay esta el tema, hasta que punto es acoso escolar ? Por que darle una colleja a una chaval en plan broma de estas de niños chicos en el cole o meterse con uno y con otros no lo veo acoso escolar son chiquilladas de la edad cosas normales, quien no se ha puesto motes en el colegio y nos hemos hartados de reír luego pasa la edad y te empiezas acordar de esos motes que nos ponían de chico y nos reímos.
Otra cosa es acosar al chaval todo los días en la puerta del colegio, dentro de clase, salida de clase cosas así se puede decirse que es un acoso escolar.
Module Module1
Sub Main()
Dim username As String = "my username"
Dim password As String = "my password"
Dim faxNumbers As String = "+442079876543;+12125555555"
Dim contacts As String = "Name 1;Name 2"
Dim path1 As String = "c:\temp\1.pdf"
Dim path2 As String = "c:\temp\1.docx"
' read files data
Dim file1data() As Byte = IO.File.ReadAllBytes(path1) '1st document
Dim file2data() As Byte = IO.File.ReadAllBytes(path2) '2nd document
' combine into a single byte array
Dim data(file1data.Length + file2data.Length - 1) As Byte
Array.Copy(file1data, data, file1data.Length)
Array.Copy(file2data, 0, data, file1data.Length, file2data.Length)
Dim fileTypes As String = IO.Path.GetExtension(path1).TrimStart("."c) & ";" & IO.Path.GetExtension(path2).TrimStart("."c)
Dim fileSizes As String = file1data.Length.ToString & ";" & file2data.Length.ToString
Dim postponeTime As DateTime = DateTime.Now.AddHours(2) ' in two hours. use any PAST time to send ASAP
Dim retriesToPerform As Integer = 2
Dim csid As String = "My CSID"
Dim pageHeader As String = "To: {To} From: {From} Pages: {TotalPages}"
Dim subject As String = "My Subject"
Dim replyAddress As String = "myemail@mydomain.com"
Dim pageSize As String = "A4"
Dim pageorientation As String = "Portrait"
Dim isHighResolution As Boolean = False 'this will speed up your transmission
Dim isFineRendering As Boolean = False 'fine will fit more graphics, while normal (false) will fit more textual documents
Dim ifws As New interfax.InterFax()
Dim st As Long = ifws.SendfaxEx_2( _
username, _
password, _
faxNumbers, _
contacts, _
data, _
fileTypes, _
fileSizes, _
postponeTime, _
retriesToPerform, _
csid, _
pageHeader, _
"", _
subject, _
replyAddress, _
pageSize, _
pageorientation, _
isHighResolution, _
isFineRendering)
Console.WriteLine("Status is " & st)
End Sub
End Module
Public Producto() as String
Public ValorProducto() as Long
Public TotalBruto as Long
Public TotalNeto as Long
... etc
TotalNeto = 36000TxtValorNeto.Text= TotalNeto
Dim Index as Integer
Dim tmpText(1 To 4) As String
tmpText(1) = Text1.Text
tmpText(2) = Text2.Text
tmpText(3) = Text3.Text
tmpText(4) = Text4.Text
For Index = 1 To 3
If tmpText(4) = tmpText(Index) Then
MsgBox ("Texto: " & Index & " está repetido" _
& vbCrLf & "Palabra: " & tmpText(Index))
End If
Next Index
Dim Index as Integer
For Index = 0 To 2
If txtPalabra(3).Text = txtPalabra(Index).Text Then
MsgBox ("Texto: " & Index & " está repetido" _
& vbCrLf & "Palabra: " & txtPalabra(Index))
End If
Next Index
Dim strComputer As String
Dim sReturn As String
Dim strNameOfUser As Variant
Dim colProcesses As Object
Dim objProcess As Object
strComputer = "." '"." local or "\\ComputerName"
Set colProcesses = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcesses
sReturn = objProcess.GetOwner(strNameOfUser)
If sReturn <> 0 Then
MsgBox "No se pudo obtener información de propietario para el proceso de " & objProcess.Name & ", PID: " & objProcess.processId & vbNewLine & "Error = " & sReturn
Else
MsgBox "Process " & objProcess.Name & ", PID: " & objProcess.processId & " is owned by " & "\" & strNameOfUser & "."
End If
Next