TweakPC

Zurück   Computer Hardware Forum - TweakPC > Games und Software > Programmiersprachen

Antwort
 
LinkBack Themen-Optionen Ansicht
Alt 21.04.2004, 14:36   #1 (permalink)
Overclocker
 

Registriert seit: 23.12.2003
Beiträge: 233

N3ph.rOm befindet sich auf einem aufstrebenden Ast

Standard Visual Basic Namensliste

Hey Leute! Ich muss für den Unterricht ne Datenbank programmieren mit der man NAmen und so weiter eintragen kann. Ich habe das Interface schon so gut wie fertig auch den Quellcode, allerdings scheitere ich an ein paar dingen! und das betrifft die suchfunktion, das speichern von namen und so/das erstellen einer datei und das sortieren der einträge ich kopier mal den code

Code:
Option Explicit
Dim namen(1 To 20) As String * 15
Dim nachname(1 To 20) As String * 15
Dim strassen(1 To 20) As String * 15
Dim ort(1 To 20) As String * 20
Dim geb(1 To 20) As Date
Dim namenneu As String
Dim nachnameneu As String
Dim strassenneu As String
Dim ortneu As String
Dim gebneu As Date
Dim i As Single
Dim k As Single
Dim anzahl As String
Dim ende As String
Dim retten As String

Private Sub cmdbeenden_Click()
    End
End Sub

Private Sub cmdladen_Click()
i = 0
    Open "datenbank.txt" For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
            lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
        Loop
    Close #1
    ende = i
End Sub

Private Sub cmdsort_Click()
    retten = namen(i)
    namen(i) = namen(k)
    namen(k) = retten
End Sub

Private Sub cmdspeichern_Click()
    Open "datenbank.txt" For Append As #1
            Write #1, namenneu, nachnameneu, strassenneu, ortneu, gebneu
    Close #1
End Sub

Private Sub form_load()
    i = 0
    Open "datenbank.txt" For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Input #1, namen(i), nachname(i), strassen(i), ort(i), geb(i)
            lstdatenbank.AddItem namen(i) & vbTab & nachname(i) & vbTab & strassen(i) & vbTab & ort(i) & vbTab & geb(i)
        Loop
    Close #1
    ende = i
End Sub
Private Sub cmdclear_click()
    lstdatenbank.Clear
End Sub
Private Sub txtnamen_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
    txtnamen = ""
    txtnamen.Visible = True
    txtnachname.SetFocus
End If
End Sub

Private Sub txtnachname_KeyPressed(KeyAscii As Integer)
If KeyAscii = 13 Then
    txtnachnamen = ""
    txtnachnamen.Visible = False
    txtstrasse.SetFocus
End If
End Sub
außerdem will ich von einer textbox in das nächste springen wenn ich die entertaste drücke, hab da auch schon was versucht aber ihr seht ja dass das nicht klappt! könnt ihr helfen??

danke im vorraus
N3ph.rOm ist offline   Mit Zitat antworten
Alt 21.04.2004, 16:55   #2 (permalink)
Overclocker
 

Registriert seit: 23.12.2003
Beiträge: 233

N3ph.rOm befindet sich auf einem aufstrebenden Ast

Standard

kann mir denn keiner helfen??
N3ph.rOm ist offline   Mit Zitat antworten
Antwort

Stichworte
basic, namensliste, visual


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist aus.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
kostenloses Visual Basic 6 Tutorial mokus Programmiersprachen 1 07.01.2006 01:42
Problem bei Visual Basic Installation ToxiT Windows & Programme 7 23.02.2005 14:19
Visual Basic cromelain Programmiersprachen 7 04.02.2005 17:32
Visual Basic: Einfacher Countdown cromelain Programmiersprachen 1 27.10.2004 16:29
Visual Basic unter Linux? Mr. Puzzy Marty Linux bzw. Non-MS & Programme 14 21.02.2004 09:58


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:04 Uhr.




Powered by vBulletin® Version 3.8.10 (Deutsch)
Copyright ©2000 - 2021, vBulletin Solutions, Inc.
SEO by vBSEO 3.5.2 ©2010, Crawlability, Inc.
Impressum, Datenschutz Copyright © 1999-2015 TweakPC, Alle Rechte vorbehalten, all rights reserved