VERSION 2.00
Begin Form Form1 
   BackColor       =   &H0080FFFF&
   Caption         =   "Logarithmus"
   ClientHeight    =   4200
   ClientLeft      =   936
   ClientTop       =   3012
   ClientWidth     =   7572
   Height          =   4644
   Icon            =   LOG.FRX:0000
   Left            =   888
   LinkTopic       =   "Form1"
   ScaleHeight     =   4200
   ScaleWidth      =   7572
   Top             =   2616
   Width           =   7668
   WindowState     =   2  'Auf Vollbild
   Begin CommandButton Befehl7 
      Caption         =   "Programminfo"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   14
      Top             =   3480
      Width           =   1932
   End
   Begin TextBox Text4 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   1440
      TabIndex        =   12
      Top             =   3000
      Width           =   5772
   End
   Begin CommandButton Befehl6 
      Caption         =   "Basis 10"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4200
      TabIndex        =   11
      Top             =   1080
      Width           =   972
   End
   Begin CommandButton Befehl5 
      Caption         =   "Basis e "
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   10
      Top             =   1080
      Width           =   852
   End
   Begin CommandButton Befehl4 
      Caption         =   "Basis 2"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   2280
      TabIndex        =   9
      Top             =   1080
      Width           =   852
   End
   Begin CommandButton Befehl3 
      Caption         =   "Beispiel 1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   1440
      TabIndex        =   8
      Top             =   3480
      Visible         =   0   'False
      Width           =   1692
   End
   Begin CommandButton Befehl2 
      Caption         =   "Ende"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   5280
      TabIndex        =   7
      Top             =   3480
      Width           =   1932
   End
   Begin CommandButton Befehl1 
      Caption         =   "Ausrechnen"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   6
      Top             =   2040
      Width           =   1932
   End
   Begin TextBox Text3 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   5
      Top             =   1560
      Width           =   1932
   End
   Begin TextBox Text2 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   1
      Top             =   120
      Width           =   1932
   End
   Begin TextBox Text1 
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   3240
      TabIndex        =   4
      Top             =   600
      Width           =   1932
   End
   Begin Label Bezeichnung4 
      Alignment       =   1  'Rechts
      BackColor       =   &H0080FFFF&
      Caption         =   "Info:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   360
      TabIndex        =   13
      Top             =   3000
      Width           =   972
   End
   Begin Label Bezeichnung3 
      Alignment       =   1  'Rechts
      BackColor       =   &H0080FFFF&
      Caption         =   " zur Basis"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   1800
      TabIndex        =   3
      Top             =   600
      Width           =   1332
   End
   Begin Label Bezeichnung2 
      Alignment       =   1  'Rechts
      BackColor       =   &H0080FFFF&
      Caption         =   "Der Logarithmus der Zahl"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   360
      TabIndex        =   2
      Top             =   120
      Width           =   2772
   End
   Begin Label Bezeichnung1 
      Alignment       =   1  'Rechts
      BackColor       =   &H0080FFFF&
      Caption         =   "beträgt"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.6
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   2160
      TabIndex        =   0
      Top             =   1560
      Width           =   972
   End
End

Sub Befehl1_Click ()
text4.Text = ""
text3.Text = ""
Rem Fehleingaben abfangen
If text2.Text = 0 Then text4.Text = "Unzulässige Eingabe": Exit Sub
If text2.Text < 0 Then text4.Text = "Unzulässige Eingabe": Exit Sub
If text1.Text = 0 Then text4.Text = "Unzulässige Eingabe": Exit Sub
If text1.Text < 0 Then text4.Text = "Unzulässige Eingabe": Exit Sub
Rem umrechnen zur Basis 2
x = text2.Text
y = text1.Text
L = Log(x) / Log(y)
text3.Text = Str(L)
End Sub

Sub Befehl2_Click ()
End
End Sub

Sub Befehl4_Click ()
text1.Text = 2
End Sub

Sub Befehl5_Click ()
text1.Text = "2,718282"
End Sub

Sub Befehl6_Click ()
text1.Text = 10
End Sub

Sub Befehl7_Click ()
    msg = "Diese Programm stammt von " + Chr$(13) + Chr$(10)
    msg = msg + "R.Hoffmann" + Chr$(13) + Chr$(10)
    msg = msg + "Grüne Au 5" + Chr$(13) + Chr$(10)
    msg = msg + "96317 KRONACH " + Chr$(13) + Chr$(10)
    msg = msg + "Tel 09261 61717" + Chr$(13) + Chr$(10)
    msg = msg + "email:   ReinerHoffmannKC@t-online.de" + Chr$(13) + Chr$(10)
    msg = msg + "Homepage: http://home.t-online.de/home/0926161717-0002/home.htm" + Chr$(13) + Chr$(10)
    msg = msg + "Es wurde mit Visual Basic 3.0 erstellt." + Chr$(13) + Chr$(10)
    msg = msg + "Für Fehler übernimmt der Autor keine Garantie." + Chr$(13) + Chr$(10)
    msg = msg + "Das Programm ist zur Zeit Freeware." + Chr$(13) + Chr$(10)
    msg = msg + "Es darf beliebig kopiert und verwendet werden." + Chr$(13) + Chr$(10)
    msg = msg + "Verbesserungsvorschläge bitte an obige Adresse." + Chr$(13) + Chr$(10)
    MsgBox msg, 1, "Programm-Info"

End Sub