Google zum Lexikon umfunktionieren

Google als Lexikon

Wenn ich etwas nachschlagen will, war bis jetzt meine erste Anlaufstelle Wikipedia. Das könnte sich jetzt ändern, denn ich habe gerade eine neue Funktion bei Google entdeckt.

Wenn ihr vor euren Suchbegriff ein define:  setzt, spuckt Google automatisch sämtliche gefundene Lexikonartikel aus. 


Ein Beispiel: Wenn ich wissen will, was Pfeffer ist, suche ich nach define: Pfeffer und schon Spukt mir Google diverse Lexikonartikel aus:

zum Vergrößern klicken

Ein Tipp noch: Wenn Google euch Englische Lexikonartikel präsentiert, dann Scrollt ganz nach unten, dot könnt ihr dann "German" anklicken.

Visual Basic Tutorialreihe - Teil 7 - Notepad für Reiche

In diesem Teil meiner Tutorialreihe zeige ich euch, wie man mit einem OpenFileDialog dateien öffnet, mit einem SaveFileDialog Dateien speichert und Dateien druckt.

Imports System.IO
Imports System.Drawing

Public Class Form1

Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

OpenFileDialog1.ShowDialog()

End Sub

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

SaveFileDialog1.ShowDialog()

End Sub

Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
Form2.Show()
End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Bold Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Italic Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

If Not RichTextBox1.SelectionFont.Style = FontStyle.Underline Then
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
Else
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
End If

End Sub


Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged

Try
RichTextBox1.SelectionFont = New Font(New FontFamily(ToolStripComboBox1.Text), Convert.ToInt32(ToolStripComboBox2.Text), FontStyle.Regular)
Catch ex As Exception
End Try

RichTextBox1.Focus()

End Sub

Private Sub ToolStripComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.SelectedIndexChanged

Try
RichTextBox1.SelectionFont = New Font(New FontFamily(ToolStripComboBox1.Text), Convert.ToInt32(ToolStripComboBox2.Text), FontStyle.Regular)
Catch ex As Exception
End Try

RichTextBox1.Focus()

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

RichTextBox1.Text = ""

Dim sr As New StreamReader(OpenFileDialog1.FileName)

While Not sr.EndOfStream
RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
End While

sr.Close()

End Sub

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

Dim sw As New StreamWriter(SaveFileDialog1.FileName)

For Each line As String In RichTextBox1.Lines
sw.WriteLine(line)
Next

sw.Close()

End Sub

Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim Schrift As Drawing.Font = New Drawing.Font("Arial", 14, FontStyle.Regular)

e.Graphics.DrawString(RichTextBox1.Text, Schrift, Brushes.Black, 50, 50)

End Sub
End Class

ProgrammReview: StreamTransport (Jedes Video im WWW downloaden)

Mit dem Programm StreamTransport könnt ihr alle Videos im Internet downloaden. Sogar ganze TV-Sendungen von z.B. www.Prosieben.tv der ARD/ZDF/WDR etc. Mediathek, www.rtl-now.de und viele mehr lassen sich damit runterladen.



Download:
http://www.streamtransport.com

Google Body - der Blick in den eigenen Körper

Google überrascht mich doch immer wieder mit spektakulären und/oder außergewöhnlichen 3d-Erkundern.

Grade eben erst habe ich Google Body entdeckt, mit dem man einen Blick in den Menschlichen Körper wagen kann. Auf der linken Seite kann man einstellen, wie weit man in den Körper reingucken kann und oben rechts gibt es sogar eine Suche (derzeit nur auf Englisch).

Fazit: Während Google Earth mittlerweile altbacken ist, trumpft hier ein ganz neuer Aspekt der Information und Visualisation hervor.

zu Google Body

Horst Seehofer stellt sich den Bürgern - auf Youtube

Das finde ich lobenswert: Horst Seehofer veranstaltet eine Fragerunde auf Youtube. Aber nicht mit Fragen von irgendeinem Moderator der extrem unkritisch ist und niemals nachhackt sondern direkt mit Fragen von den Bürgern und das Live.

Fakt ist, das die Politik jetzt langsam endlich die Macht und Möglichkeiten des Internet entdeckt.

Solche Aktionen würde ich mir auch mal von Angela Merkel mit samt der Bundesregierung wünschen.

Wunderlist für iPhone

Heute teste ich für euch Ausnahmsweise kein Programm sondern ein iPhone-App. Und zwar Wunderlist. Ich habe dazu eine Photostrecke gemacht.



Download:
im AppStore

Das Leben von Julien Assange wird verfilmt

Grade erst lief "The Social Network" im Kino, schon wird an der nächsten Verfilmung einer wichtigen IT-Person gearbeitet. Dieses mal ist Julien Assange an der Reihe. 

Das hat mich gewundert, denn die Geschichte von Julien Assange ist noch längst nicht zu Ende. Es gibt von ihm auch noch keine Biographie. 

Dennoch könnte dieser Film interessant werden. Ich bin gespannt.

Google vs. Facebook - der Kampf um die Werbung

Die meisten Einnahmen macht Google ja bekanntlich mit seinem Werbedienst Google Ads. Google stellt den Webseitenbetreibern Werbung die entsprechende Werbung auf die Homepage.

Dabei ist es wichtig, dass sie Werbung möglichst personalisiert ist. Deshalb sammelt Google allerlei Daten über uns Nutzer.

Facebook wird in diesem Geschäft bald mitmischen wollen. Das Problem für Google: Bei Facebook fallen viel mehr personalisierte Daten an.  Dort geben wir freiwillig unsere Hobbys, Interessen, Pläne und manche sogar ihren Aufenthaltsort preis.

Dies ist ein Leckerbissen für die Werbeindustrie. Bald wird es so weit sein, dass Facebook diese Tatsache erkennt und unsere Daten weiterverkauft oder sonst irgendwie damit Werbung treibt.

Der einzige Weg, wie man sich zu 100% nutzen kann, ist der Weg sich bei Facebook abzumelden. Andernfalls bleibt man der Datenkrake unterlegen.

Leider gibt es keinen Weg Google zu 100% auszuweichen, da Google auch in vielen Webseiten drinn-steckt, ohne das wir es sehn (z.B. in Form von Google Analytic).

Visual Basic Tutorialreihe Teil 6 - NotePad für Arme

In diesem Teil meiner Video-Tutorial Reihe zeige ich euch, wie ihr in einer RichTextBox selektierten Text Fett/Kursiv/Unterstrichen macht und die Schriftgröße und Schriftart ändert.



Bilder:
zu jeder Nutzung freigegeben
Hier zum Downloaden klicken

Code:

Imports System.IO

Public Class Form1

    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

        RichTextBox1.Text = ""

        Dim sr As New StreamReader("Datei.txt")

        While Not sr.EndOfStream
            RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
        End While

        sr.Close()

    End Sub

    Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

        Dim sw As New StreamWriter("Datei.txt")

        For Each line As String In RichTextBox1.Lines
            sw.WriteLine(line)
        Next

        sw.Close()

    End Sub

    Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub FettToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FettToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Bold Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub KursivToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KursivToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Italic Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Italic)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub UnterstrichenToolStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnterstrichenToolStrip.Click
        If Not RichTextBox1.SelectionFont.Style = FontStyle.Underline Then
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Underline)
        Else
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Regular)
        End If
    End Sub

    Private Sub SchriftArtCombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchriftArtCombo.SelectedIndexChanged

        Try
            RichTextBox1.SelectionFont = New Font(New FontFamily(SchriftArtCombo.Text), Convert.ToInt32(SchriftGrößeCombo.Text), FontStyle.Regular)
        Catch
        End Try

        RichTextBox1.Focus()

    End Sub

    Private Sub SchriftGrößeCombo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchriftGrößeCombo.TextChanged

        Try
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.Name, Convert.ToInt32(SchriftGrößeCombo.Text), RichTextBox1.Font.Style, RichTextBox1.Font.Unit)
        Catch
        End Try

        RichTextBox1.Focus()

    End Sub

End Class

Visual Basic Tutorialreihe Teil 5 - Editor für Arme

In diesem Video zeige ich euch, wie ihr Dateien speichert und öffnet. Außerdem erstellen wir eine 2. Form.

Imports System.IO

Public Class Form1

Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click

RichTextBox1.Text = ""

Dim sr As New StreamReader("Datei.txt")

While Not sr.EndOfStream
RichTextBox1.Text = RichTextBox1.Text & sr.ReadLine & vbCrLf
End While

sr.Close()

End Sub

Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click

Dim sw As New StreamWriter("Datei.txt")

For Each line As String In RichTextBox1.Lines
sw.WriteLine(line)
Next

sw.Close()

End Sub

Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
Form2.Show()
End Sub
End Class

Free Studio wird bald nicht mehr kostenlos sein

Ich habe soeben eine traurige Nachricht erhalten: Das Free Studio wird bald nicht mehr Free sein. Die Version 6 wird bereits kostenpflichtig sein. Allerdings bekommen alle, die den Newsletter abonniert haben die Version Geschenkt. Deshalb empfehle ich euch, falls ihr die Version haben wollt, diesen Newsletter zu abonnieren.

Google hat jetzt leider ein Update hochgeladen, dass das Beatboxen von unserem Übersetzter unmöglich macht.

Aber Google hat trotzdem einen Weg geschaffen, den Traslator weiter zum Beatboxen zu bringen.

über 15 Minuten bei Youtube

Ich habe grade diese Nette Meldung auf Youtube bekommen:

Nun konnte ich endlich mein über 30 Minütiges Video zu der Tutorialreihe hochladen und habe auch sonst mehr Freiheit.

Danke Youtube.

Visual Basic Tutorialreihe Teil 4 - Quiz

In diesem Teil meiner Tutorialreihe Programmieren wir ein Quiz und lernen dabei Funktionen kennen.

Quellcode:

Public Class Form1

Dim Status As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Status = 0 Then

'Frage stellen
FrageStellen(1)

TextBox1.Enabled = True
Button1.Text = "weiter"
ElseIf Status = 1 Then
AntwortTesten(1)
ElseIf Status = 2 Then
FrageStellen(2)
ElseIf Status = 3 Then
AntwortTesten(2)
ElseIf Status = 4 Then
TextBox1.Enabled = False
TextBox1.Text = ""
Label1.Text = "Fertig. Nochmal spielen?"
Button1.Text = "Ja"
Status = 0
End If
End Sub

Private Sub FrageStellen(ByVal FrageNr As Integer)

If FrageNr = 1 Then
Label1.Text = "Wie heißt die Deutsche Bundeskanzlerin?"
Status = Status + 1
ElseIf FrageNr = 2 Then
Label1.Text = "Was ist in 3 Tagen?"
Status = Status + 1
End If

TextBox1.Text = ""
TextBox1.Focus()

End Sub

Private Sub AntwortTesten(ByVal FrageNr As Integer)

If TextBox1.Text = "" Then
MsgBox("Bitte gieb deine Antwort ein.", MsgBoxStyle.OkOnly, "Frage")
ElseIf FrageNr = 1 Then
If TextBox1.Text = "Angela Merkel" Then
Label1.Text = "Richtig"
Status = Status + 1
Else
Label1.Text = "Falsch"
End If

ElseIf FrageNr = 2 Then

If TextBox1.Text = "Weihnachten" Then
Label1.Text = "Richtig"
Status = Status + 1
Else
Label1.Text = "Falsch"
End If

End If

End Sub

End Class

ProgrammReview: Nitro PDF Reader

In diesem Video möchte ich euch eine Alternative zum Adobe Reader vorstellen: Den Nitro PDF Reader.



Download:
http://www.nitroreader.com

Snake auf Youtube spielen

Youtube hat in seinen Videoplayer ein kleines Gadget eingebaut: Ihr könnt in den Videos Snake spielen. Wie das geht zeige ich euch in diesem:

Das IT-Unwort des Jahres 2010

Nun ist die Abstimmung für das IT-Unworts des Jahres 2010 vorbei. Gewonnen hat:

Gefacebookt

Mich hat dieses Ergebnis nicht Überrascht. Facebook wird immer populärer und kritisierter. Deshalb finde ich das It-Unwort auch treffend.