[Community Projekt] OpenLib

xXMichaelXx · 18. September 2010, 21:49

Hey, ich hab hier mal irgendwo so ein kleines "Spiel" gesehen.
Ich dachte, das es eigentlich keine schlechte Idee ist, einfach Codesnipptes zu posten und in eine Anwendung einzufügen.

Ich dachte mir, man könnte das auch mit einem Class Library machen, das OpenLib.
Das OpenLib soll eine Ansammlung aus nützliche Codes sein, die ich dann im Showroom releasen werden.

Version 1.0.0 wird vorraussichtlich morgen um 20:00 Uhr im Showroom gepostet.
Also strengt euch an, und postet ein paar nützliche Codes.

Aktuelle Klassen / Subs:

Allgemein.vb:
Public Shared Function SortIntegerArray(ByVal Array As Integer(), Optional ByVal Aufsteigend As Boolean = True) As Integer()

Internet.vb:
-> Public Shared Sub Download(ByVal Address As String, ByVal Path As String)
-> Public Shared Sub Upload(ByVal Address As String, ByVal Username As String, ByVal Password As String, ByVal File As String)

Ausweis.vb:
-> Public Shared Function IsDataValid() As Boolean

cpu_johnny · 18. September 2010, 22:27

Ähh.. was? - und das soll funktionieren?? .. ich kann mir das nur schwer vorstellen...

Mein Vorschlag:

VB.NET-Quellcode

Exit Sub

mmh.. ich bin ja mal gespannt, ob das hier noch was wird.. sry für meinen optimismus.. B-)

LG, Johnny

xXMichaelXx · 18. September 2010, 22:43

Es könnte was werden, wenn die Codes nicht in andere Subs eingreifen.
Also eben jeder Code ein eigenen Bereich hat.
Dann sollte eine funktionierende DLL zusammen kommen

Vb K1ng · 18. September 2010, 23:37

VB.NET-Quellcode

'Eine Datei aus dem Internet auf den Computer laden.
Public Sub httpDownload(ByVal adress As String, ByVal savePath As String)
Dim downloadClient As new WebClient()
Try
downloadClient.DownloadFile(adress, savePath)
Catch ex As WebException
MsgBox(ex.Message)
End Try
End Sub

Pacifer · 18. September 2010, 23:44

Der Code stammt vermutlich nicht vom Autor selbst.
Code
Bitte niemals fremden Code ohne Angabe der Quelle posten.
mikeb69

Personalausweis auf gültigkeit untersuchen und mehr:

VB.NET-Quellcode

''' <summary>
''' Information über den Aufbau eines deutschen Personalausweises:
''' 123412345XD--123456X-123456X-------X
''' | | || | | | | |_Prüfsumme von allen Ziffern (1 Ziffer)
''' | | || | | | |_________Prüfsumme des Ablaufdatums (1 Ziffer)
''' | | || | | |_______________Das Ablaufdatum des Ausweises im Format YYMMDD (6 Ziffern)
''' | | || | |_________________Prüfsumme des Geburtsdatums (1 Ziffer)
''' | | || |_______________________Eigenes Geburtsdatum im Format YYMMDD (6 Ziffern)
''' | | ||__________________________Nationalität (D für Deutschland)
''' | | |___________________________Prüfsumme der ersten 9 Ziffern (1 Ziffer)
''' | |________________________________Die fortlaufende Nummer der Behördenkennzahl (5 Ziffern)
''' |____________________________________Die Behördenkennzahl (4 Ziffern)
''' </summary>
Public Class Germany
Private mGovernmentClassification(3) As Integer
Private mCountNumber(4) As Integer
Private mBirthDate(5) As Integer
Private mExpirationDate(5) As Integer
Private ValidData As Integer = 0
Public Enum EnumPersonData
FirstResidenceCFC = 1
CountNumber = 2
BirthDate = 4
ExpirationDate = 8
End Enum
''' <summary>
''' Die Behördenkennzahl (Die ersten 4 Ziffern)
''' </summary>
Public WriteOnly Property GovernmentClassification() As String
Set(ByVal value As String)
ValidData = ValidData And Not CInt(EnumPersonData.FirstResidenceCFC)
If value.Length <> 4 Then Throw New ArgumentException("INVALID DATALENGTH. MUST BE 4")
For i As Integer = 0 To 3
mGovernmentClassification(i) = Int32.Parse(value(i).ToString)
Next
ValidData = ValidData Or CInt(EnumPersonData.FirstResidenceCFC)
End Set
End Property
''' <summary>
''' Die fortlaufende Nummer der Behördenkennzahl (Die nächsten 5 Ziffern nach der Behördenkennzahl)
''' </summary>
Public WriteOnly Property CountNumber() As String
Set(ByVal value As String)
ValidData = ValidData And Not CInt(EnumPersonData.CountNumber)
If value.Length <> 5 Then Throw New ArgumentException("INVALID DATALENGTH. MUST BE 5")
For i As Integer = 0 To 4
mCountNumber(i) = Int32.Parse(value(i).ToString)
Next
ValidData = ValidData Or CInt(EnumPersonData.CountNumber)
End Set
End Property
''' <summary>
''' Das eigene Geburtsdatum (Die ersten 6 Ziffern des zweiten Ziffernblocks im Format JJMMDD)
''' </summary>
Public WriteOnly Property BirthDate() As String
Set(ByVal value As String)
ValidData = ValidData And Not CInt(EnumPersonData.BirthDate)
If value.Length <> 6 Then Throw New ArgumentException("INVALID DATALENGTH. MUST BE 6")
For i As Integer = 0 To 5
mBirthDate(i) = Int32.Parse(value(i).ToString)
Next
ValidData = ValidData Or CInt(EnumPersonData.BirthDate)
End Set
End Property
''' <summary>
''' Das Ablaufdatum des Ausweises (Die ersten 6 Ziffern des dritten Ziffernblocks im Format JJMMDD)
''' </summary>
Public WriteOnly Property ExpirationDate() As String
Set(ByVal value As String)
ValidData = ValidData And Not CInt(EnumPersonData.ExpirationDate)
If value.Length <> 6 Then Throw New ArgumentException("INVALID DATALENGTH. MUST BE 6")
For i As Integer = 0 To 5
mExpirationDate(i) = Int32.Parse(value(i).ToString)
Next
ValidData = ValidData Or CInt(EnumPersonData.ExpirationDate)
End Set
End Property
''' <summary>
''' Diese Funktion prüft ob die angegebene Daten alle richtig sind.
''' </summary>
Public Function IsDataValid() As Boolean
Dim nValidIf As Integer = CInt(EnumPersonData.FirstResidenceCFC) Or _
CInt(EnumPersonData.CountNumber) Or _
CInt(EnumPersonData.BirthDate) Or _
CInt(EnumPersonData.ExpirationDate)
Return (nValidIf = ValidData)
End Function
Private Function HashData() As IDHASH
If Not IsDataValid() Then Return Nothing
Dim HashA, HashB, HashC, HashD As Integer
HashA = _
(mGovernmentClassification(0) * 7) + _
(mGovernmentClassification(1) * 3) + _
(mGovernmentClassification(2) * 1) + _
(mGovernmentClassification(3) * 7) + _
(mCountNumber(0) * 3) + _
(mCountNumber(1) * 1) + _
(mCountNumber(2) * 7) + _
(mCountNumber(3) * 3) + _
(mCountNumber(4) * 1)
HashB = _
(mBirthDate(0) * 7) + _
(mBirthDate(1) * 3) + _
(mBirthDate(2) * 1) + _
(mBirthDate(3) * 7) + _
(mBirthDate(4) * 3) + _
(mBirthDate(5) * 1)
HashC = _
(mExpirationDate(0) * 7) + _
(mExpirationDate(1) * 3) + _
(mExpirationDate(2) * 1) + _
(mExpirationDate(3) * 7) + _
(mExpirationDate(4) * 3) + _
(mExpirationDate(5) * 1)
HashD = _
(mGovernmentClassification(0) * 7) + _
(mGovernmentClassification(1) * 3) + _
(mGovernmentClassification(2) * 1) + _
(mGovernmentClassification(3) * 7) + _
(mCountNumber(0) * 3) + _
(mCountNumber(1) * 1) + _
(mCountNumber(2) * 7) + _
(mCountNumber(3) * 3) + _
(mCountNumber(4) * 1) + _
(HashA * 7) + _
(mBirthDate(0) * 3) + _
(mBirthDate(1) * 1) + _
(mBirthDate(2) * 7) + _
(mBirthDate(3) * 3) + _
(mBirthDate(4) * 1) + _
(mBirthDate(5) * 7) + _
(HashB * 3) + _
(mExpirationDate(0) * 1) + _
(mExpirationDate(1) * 7) + _
(mExpirationDate(2) * 3) + _
(mExpirationDate(3) * 1) + _
(mExpirationDate(4) * 7) + _
(mExpirationDate(5) * 3) + _
(HashC * 1)
Return New IDHASH(HashA Mod 10, HashB Mod 10, HashC Mod 10, HashD Mod 10)
End Function
''' <summary>
''' Diese Funktion erstellt eine gültige Personalausweis ID
''' </summary>
''' <param name="nGovernmentClassification">4-Stellige Behördenkennzahl (kann irgendeine Nummer sein oder eine aus den offiziellen Listen zu findem im Internet).</param>
''' <param name="nCountNumber">5-Stellige fortlaufende Nummer der Behördenkennzahl (kann irgendeine Nummer sein).</param>
''' <param name="nBirthDate">Geburtsdatum</param>
''' <param name="nExpirationDate">Ablaufdatum</param>
Public Function CreateFullID(ByVal nGovernmentClassification As String, ByVal nCountNumber As String, ByVal nBirthDate As Date, ByVal nExpirationDate As Date) As FULLID
Dim TmpBirthDate As String = nBirthDate.Year.ToString.Substring(2, 2) & Format(nBirthDate.Month, "0#") & Format(nBirthDate.Day, "0#")
Dim TmpExpDate As String = nExpirationDate.Year.ToString.Substring(2, 2) & Format(nExpirationDate.Month, "0#") & Format(nExpirationDate.Day, "0#")
GovernmentClassification = nGovernmentClassification
CountNumber = nCountNumber
BirthDate = TmpBirthDate
ExpirationDate = TmpExpDate
Dim HashValues As IDHASH = HashData()
Dim NewFullID As FULLID
NewFullID.GovernmentClassification = nGovernmentClassification
NewFullID.CountNumber = nCountNumber
NewFullID.BirthDate = TmpBirthDate
NewFullID.ExpirationDate = TmpExpDate
NewFullID.HashValues = HashValues
Return NewFullID
End Function
Public Structure FULLID
Public GovernmentClassification As String
Public CountNumber As String
Public BirthDate As String
Public ExpirationDate As String
Public HashValues As IDHASH
Public Overrides Function ToString() As String
Return GovernmentClassification & CountNumber & HashValues.HashA.ToString & "D<<" & BirthDate & HashValues.HashB.ToString & "<" & ExpirationDate & HashValues.HashC.ToString & "<<<<<<" & HashValues.HashD.ToString
End Function
End Structure
Public Structure IDHASH
Public HashA As Integer
Public HashB As Integer
Public HashC As Integer
Public HashD As Integer
Sub New(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer, ByVal D As Integer)
HashA = A
HashB = B
HashC = C
HashD = D
End Sub
End Structure
End Class

xXMichaelXx · 18. September 2010, 23:47

@VB King: eingefügt.

@Pacifier: eingefügt.

YaPh1l · 18. September 2010, 23:54

bitte nur Subs posten.

Finde ich nicht gut, denn es ist eine Klassenbibliothek, keine Subbibliothek.
Desweiteren sind MessageBox (bzw. MsgBox) Ausgaben auf Bibliotheksebene nicht so toll.

Viele Grüße, Phil.

Vb K1ng · 19. September 2010, 00:05

Zitat

bitte nur Subs posten.

Finde ich nicht gut, denn es ist eine Klassenbibliothek, keine Subbibliothek.
Desweiteren sind MessageBox (bzw. MsgBox) Ausgaben auf Bibliotheksebene nicht so toll.

Viele Grüße, Phil.

Ist doch klar das man nur Subs posten kann!
Das ist nicht eine Klasse an dem du selber sitzt und arbeitest.
Einzelne und hilfreiche Funktionen soll sie beinhalten und jeder soll damit arbeiten können ....

Vb K1ng · 19. September 2010, 00:37

VB.NET-Quellcode

'Ein Integer-Irray wird sortiert und zurückgegeben.
'Sortieralgorithmus: Bubble-Sort
Public Function sortIntegerArray(ByVal intArray As Integer(), Optional ByVal aufsteigend As Boolean = True) As Integer()
Dim newArray As Integer() = intArray.Clone
For i = 0 To newArray.Length - 1
For x = 0 To newArray.Length - 1
If (newArray(x) > newArray(i) And aufsteigend = True) Then
Dim tmp As Integer = newArray(i)
newArray(i) = newArray(x)
newArray(x) = tmp
End If
If (newArray(x) < newArray(i) And aufsteigend = False) Then
Dim tmp As Integer = newArray(i)
newArray(i) = newArray(x)
newArray(x) = tmp
End If
Next
Next
Return newArray
End Function

nikeee13 · 19. September 2010, 01:00

Kann mir mal einer erklären, wie man ne vernünftige Struktur erstellen kann, wenn man nur Subs Posten darf? Das zeigt doch schon, dass der TE keine Ahnung von OOP hat. Keine Namespaces?.. oh no.

Einen Personalausweis-prüfer im gleichen Namespace wie nen Download-Sub. Oha.

jvbsl · 19. September 2010, 01:19

außerdem seeehr übersichtlich für den Benutzer der Lib...

(Achtung war diesmal ironie, dass das nicht wieder falsch verstanden wird...)
[/]
@ Vb K1ng : Was hälst du von diesem Code?:

VB.NET-Quellcode

New WebClient().DownloadFileAsync(New Uri(Adresse),Zielpfad)

damit hab ich nicht wirklich was gespart, außerdem ist mein Aufruf sogar noch etwas performanter

xXMichaelXx · 19. September 2010, 09:02

Kann mir mal einer erklären, wie man ne vernünftige Struktur erstellen kann, wenn man nur Subs Posten darf? Das zeigt doch schon, dass der TE keine Ahnung von OOP hat. Keine Namespaces?.. oh no.

Einen Personalausweis-prüfer im gleichen Namespace wie nen Download-Sub. Oha.

Sicherlich wird unübersichtlich.
Eventuell könnte man ja einzelne Klassen erstellen (Kategorieren), und in diese dann die jeweiligen Subs.
Also z.B.
-> Allgemein
-> Internet
-> Dateisystem
-> usw..

mikeb69 · 19. September 2010, 10:16

Hallo,

die Idee eine solche Dll zu erstellen ist nicht neu aber dennoch eine gute Sache.
Das Ganze rein auf Subs zu reduzieren halte ich aber für nicht gut.

Es zeigt im Prinzip wie unerfahren der Thread Ersteller ist.
Vermutlich dient dieses Thema nur dazu Funktionen ohne Anstrengung freihaus geliefert zu bekommen.

Gruss

mikeb69

Kangaroo · 19. September 2010, 10:50

mikeb69 schrieb:

Vermutlich dient dieses Thema nur dazu Funktionen ohne Anstrengung freihaus geliefert zu bekommen.

Hmm Mike, das glaube ich eher nicht. Auch muss man anerkennen, daß der von ihm selber gepostete Code doch zumindest fehlerfrei war

Ausserdem ist die Idee, einmal die vielen nützlichen Code-Schnippsel in diesem Forum zu sammeln , auch nicht schlecht. Allerdings ist die Form als Library wohl eher falsch.

Wie wäre es wenn man ein eigenes Subforum für "Code Snippets" einrichtet, in der fertige Snippets (z.B. in der XML Form) gepostet werden können ? Allerdings mit sehr strikten Regeln über Form und Inhalt, sonst wird das genau so ein Wildwuchs wie das Sourcecode Forum .

xXMichaelXx · 19. September 2010, 10:52

Haha lol, ich habs mir irgendwie gedacht das soetwas kommt.
Natürlich geht es mir nicht darum, irgendwelche Funktionen geliefert zu bekommen.

Wenn ich etwas brauche / nicht verstehe frage ich im Forum im entsprechenden Bereich nach.

Nur Sub's währen einfach übersichtlicher.

Wie gesagt, Klassen gibt's ja auch.
Im ersten Post gibt's eine Übersicht von den aktuellen Subs / Klassen.

mikeb69 · 19. September 2010, 10:57

Hallo xxMichaelxx,

der Verdacht drängt sich hier aber auf.
Du - als Threadersteller - hast noch nicht eine Funktion in deine Lib eingebracht.

Gruss

mikeb69

xXMichaelXx · 19. September 2010, 11:00

Kann ich gerne machen o_O.
Aber warum sollte ich auf so eine skuriele Art & Weiße Codes "erbetteln"?
Wofür gibt's Google, MSDN?

Also bitte, das ist kindisch

mikeb69 · 19. September 2010, 11:15

Hallo xxMichaelxx,

wenn du meinst - das es kindisch ist, dann wird es wohl so sein.

Vorschlag:
Vereinheitlich das Ganze doch etwas und gib jedem Autor die Möglichkeit genannt zu werden.
Dies kann man bequem mit einem Interface erreichen.

Gruss

mikeb69

xXMichaelXx · 19. September 2010, 11:19

Gennant werden die Autoren so:
"' SortIntegerArray by Vb K1ng | Date: 09:14 - 19.09.2010"

Das steht als Kommentar über der Funktion / Sub / Klasse.

Der Code wird natürlich auch released.

Pacifer · 19. September 2010, 14:33

Quelle meines Codes: dotnet-snippets.de/dns/personalausweis-klasse-SID549.aspx

Ich poste das jetzt weil ich dachte das ich das im Off-Topic nicht machen muss aber ich wurde wegen sowas verwarnt.

[Community Projekt] OpenLib

[Community Projekt] OpenLib

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

mikeb69 schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben