Ja, da hast du Recht. Die Geschwindigkeit ist abhängig von der Zeit, also das v(t). Falls da wirklich nur ein bestimmtes v angegeben wird, handelt es sich dabei, wie du schon vermutet hast, um die Durchschnittsgeschwindigkeit oder aber die erreichte Endgeschwindigkeit.
Die Formel ist dann v(t) = a * t, also eine einfache Integrationsaufgabe.
Hier nochmal der Code:
Imports System
Imports System.Reflection
Imports System.Security.Policy
Public Class Form1
Dim R As IO.StreamReader
Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()
If (dr = System.Windows.Forms.DialogResult.OK) Then
Dim i As Integer = 0
Dim file As String
For Each file In OpenFileDialog1.FileNames
ImageList1.Images.Add(Bitmap.FromFile(file))
ListView1.LargeImageList = ImageList1
Dim item1 As New ListViewItem(file, i)
ListView1.Items.AddRange(New ListViewItem() {item1})
i = i + 1
Next file
End If
End Sub
Private Sub ListView1_ItemActivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.ItemActivate
Dim actitem As String = ListView1.SelectedItems.Item(0).Text
ListBox1.Items.Add(actitem)
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub ausfuehren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ausfuehren.Click
Try
reset()
Dim i As Integer = 1
For Each Str As String In ListBox1.Items
Dim Dateityp As String = IO.Path.GetExtension(Str)
My.Computer.FileSystem.RenameFile(Str, CStr("Temp_" & i) & Dateityp)
ListBox2.Items.Add(CStr("Temp_" & i) & Dateityp)
i = i + 1
Next Str
Catch ex As Exception
MsgBox("Fehler der temporären Dateien!", MsgBoxStyle.Critical)
End Try
reset()
Try
Dim s As Integer = 1
For Each thing As String In ListBox2.Items
Dim Dateityp As String = IO.Path.GetExtension(thing)
My.Computer.FileSystem.RenameFile(thing, CStr(s) & Dateityp)
s = s + 1
Next thing
MsgBox("Umbenennen ausgeführt!")
Close()
Catch ex As Exception
MsgBox("Fehler!", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub reset()
Dim adevidence As Evidence = AppDomain.CurrentDomain.Evidence
Dim domain As AppDomain = AppDomain.CreateDomain("MyDomain", adevidence)
AppDomain.Unload(domain)
End Sub
End Class
degradiert oder deklassiert (auch wenns nicht ganz passt)?
Ich hab nur das hier gefunden: https://itunes.apple.com/us/app/exoplanet/id327702034?mt=8
Also entweder du wartest, bis du wieder zum Arzt kannst oder du schneidest selbst das überschüssige weg. Ich würde aber dringend ein Arztbesuch empfehlen, bevor sich der Zeh entzündet.
Doggy-Style
Direkt ziehen schwarze Löcher kein Licht an.
Gravitation macht sich als Verzerrung der Raumzeit bemerkbar, und diese ist am schwarzen Loch eben extrem. Da sich Licht, wie alles andere auch, innerhalb der Raumzeit bewegt, und das nur durch den Raum, sieht man die Umgebung um ein schwarzes Loch verzerrt. Siehe auch: Gravitationslinseneffekt
Das wird schon, kannst besser schreiben als so manche hier vom Gymnasium...
birth
Ein Monat. Man sieht auf der Erde immer nur die eine Seite.
Enthaaren.
QED-Die seltsame Theorie des Lichts und der Materie
Ich kenns nicht, und bin froh drüber.
Unter der Haut, oder wie?
Bei den Ludolfs.
Warum sollte man sowas testen?
Du hast eine Nudel gemacht, aber es sind mehrere übrig geblieben, Respekt.
Verhext.
Du kannst schreiben, seit wann?
Suchst du sowas: Wegen der Brennbarkeit benutzt man es als Gas im Feuerzeug.