PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : VBCode in Gambas



Atomara
12.01.2005, 15:45
Hi@all

ich habe folgenden VB Code und möchte ihn in Gambas übernehmen nur stellt sich mir das Problem mit der Klasse

im code ist die Klasse über dem Sub Main definiert nur hat aber Gambas eine extra Spalte dafür
Wer weiß weiter

Option Strict On
Imports System
Module Module1


Public Class Mustererkennung
Shared Sub Main()
Dim sInput As String
Dim spattern As String
Dim smatch As String

Console.Write("Bitte geben Sie Muster ein: ")
sInput = Console.ReadLine()
spattern = sInput

Console.Write("Bitte geben sie Vergleichsmuster ein: ")
sInput = Console.ReadLine()
smatch = sInput


If (smatch Like spattern) Then
'Der Vergleichsoperator "Like" verhält sich
' hier wie der Vergleichsoperator "-"
Console.WriteLine("ster (0) und (1) sind gleich.", spattern, smatch)
Else
Console.WriteLine("Muster (0) und (1) sind nicht gleich.", spattern, smatch)


End If

Console.ReadLine()



End Sub
End Class



End Module