Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Uhr im Visualbasic

Frage Entwicklung VB for Applications

Mitglied: fireplay

fireplay (Level 1) - Jetzt verbinden

31.03.2005, aktualisiert 17.07.2005, 6393 Aufrufe, 10 Kommentare

Wie kann ich......

Ich habe die Frage ob ich im Visualbasic ein Uhr Programieren kann.
Aber ich habe es bis her noch nicht geschaft .
Kann mir da einer Helfen???

PS:Es ist egal ob eine Digital oder Zeiger Uhr!!!

Gruss Fireplay
Mitglied: linkit
31.03.2005 um 08:18 Uhr
Naja, selbstverständlich geht das.... die Frage ist, wie komplex das ganze sein soll. Ob die Uhr manuell gestellt wird, vom System ausgelesen oder sogar per Internet upgedatet wird.


Dann kommt dazu, ob du in .net oder Version 6 arbeitest, weil sich hier die Befehle etwas unterscheiden.


Ich gehe mal davon aus, daß du Version 6 hast.


Die einfachste digitale Uhr ist, indem du Labels nimmst. Ein Label für Stunden, ein Label für Minuten und eines für Sekunden.

Wenn die Form geöffnet wird, also initialsiert, dann läßt du mit dem time Befehl die Uhrzeit vom System auslesen. Entweder du ließt gleich Stunden Minuten Sekunden eigens aus, oder du manipulierst die Zeichenkette, die du erhältst und splittst diese dann in diese drei Werte. Diese drei Werte läßt du in das entsprechende Labelfeld schreiben.


Jetzt zeigt die Form die aktuelle Uhrzeit an. Jetzt muß die Uhr nur noch weiter zählen. Hier gibt es verschiedene Möglichkeiten. Die allereinfachste ist, wenn du den Zeitgeber von Visual Basic 6 nimmst. Den stellst du auf eine Sekunde und läßt dann das Ereignis ausführen.

Im Ereignis schreibst du einfach, daß das Label Sekunde um eins hoch gezählt wird. Natürlich ist der Labelwert ein string, also mußt du diesen als Zahl umwandel und dann um eins hochzählen. Bevor du den Wert zurückschreibst, überprüfst du mit einer IF Bedingung beispielsweise, ob die Zahl = 60 ist. Ist dies der Fall, läßt du die Zahl auf 0 setzen und setzt den Wert von der Minute um eines hoch, wie du es mit der Sekunde gemacht hast.

Die Sekunde läßt du dann ins Labelfeld zurückschreiben.


Jetzt überprüfst du gleich, ob die Minute = 60 ist, oder du machst das im Minutenlabel, hierfür gibt es das Ereignis, wenn sich etwas geändert hat. Beides geht.


Ebenso funktioniert es mit der Stunde, nur ist hier das Ende bei 24.
Bitte warten ..
Mitglied: linkit
31.03.2005 um 09:09 Uhr
@alle Programmierer:

JA, es geht schöner, aber es geht um das Verständnis !!!!


@Author:


Ich habe dir mal ein Beispiel gebaut in Realbasic... wenn du Visual Basic hsat, kannst du kostenlos wechseln:

http://www.heise.de/newsticker/meldung/57838



Screenshot von der Uhr:

<img src="http://www.support.nesconn.com/temp/screenbasic.jpg;>"



Quellcode vom Timer:


rem Dimensionierung von der Variable x für die sekunden
rem Dimensionierung von der Variable y für die Minuten
rem Dimensionierung von der Variable z für die Stunden

dim x as integer
dim y as integer
dim z as integer

rem Abfragen der Variable x und hochsetzen des Wertes
rem Ist die Variable = 60, dann wird diese auf 0 gesetzt.

x = val(editSekunde.text)
x = x +1
if x = 60 then
x = 0

rem Abfragen der Variable Minuten,
rem weil ja eine Minute vergangen ist, muß der Wert
rem um eins erhöht werden.

y = val(editMinute.text)
y = y +1

REM Überprüfen, ob eine Stunde vergangen ist.
REM Dann wert Minute zurück auf 0 und den
REM Stundenwert erhöhen

if y = 60 then
y = 0

REM Wert der Stunde um eines erhöhen.

z = val(editStunde.text)
z = z +1

REM Überprüfen, ob ein Tag vergangen ist.

if z = 24 then
z = 0
end if

REM Stunde Schreiben
if y < 10 then
editStunde.text = "0" + str(z)
else
editStunde.text = str(z)
end if

end if
REM Schreiben des Wertes Minute, Erklärung
REM unten bei Sekunde

if y < 10 then
editMinute.text = "0" + str(y)
else
editMinute.text = str(y)
end if




end if

rem Hier wird überprüft, ob die Sekunde < 10 ist,
rem wenn das so ist, dann wird einfach eine 0 davor
rem geschrieben, damit dies schöner aussieht. 01.. 02

if x < 10 then
editSekunde.text = "0" + str(x)
else
editSekunde.text = str(x)
end if






Download Beispielcode


http://www.support.nesconn.com/temp/vb.zip
Bitte warten ..
Mitglied: linkit
31.03.2005 um 09:12 Uhr
Das Beispiel kannst du im Prinzip fast 1:1 nach Visual Basic übertragen. Visual Basic 6 habe ich nur bereits eingemottet und ist in der Packung im Schrank... für so kleine Exedateien habe ich Realbasic. Ansonsten .net......


Die Uhr fängt in diesem Beispiel um 0 Uhr an.... wenn die aktuelle Uhrzeit noch angezeigt werden soll, dann mußt du diese einfach beim initialisieren der Form noch vom System auslesen.
Bitte warten ..
Mitglied: linkit
07.04.2005 um 12:36 Uhr
@fireplay:


wie wäre es mit fairplay ???? eine kurze Rückmeldung wäre nett gewesen, wenn man sich schon die Arbeit macht....
Bitte warten ..
Mitglied: fireplay
07.04.2005 um 13:47 Uhr
Danke viel mal für eure Hilfe.
Hat keiner eine Uhr schon programiert die ich bearbeiten könnte???
Bitte warten ..
Mitglied: linkit
07.04.2005 um 18:27 Uhr
=> guck mal etwas höher.... Quellcode steht doch komplett zum Download bereit....
Bitte warten ..
Mitglied: fireplay
07.04.2005 um 22:37 Uhr
Hallo zusammen ich hab den download im obenstehenden Text nich im Visualbasic 2005 express öffnen können.Ich bracuhe eine vorprogramierte Uhr die ich nur noch im Visual aufmachen muss und bearbeiten kann.

Danke im voraus für euhre Hilfe

Greez Fireplay
Bitte warten ..
Mitglied: linkit
08.04.2005 um 07:48 Uhr
1. Lade dir Realbasic von der angegeben Seite herunter
2. Öffne den oben angebenen Quellcode als Download
3. Schau dir an wie es funktioniert, dann verstehst du das auch....



4. Übernehme den Quellcode der hier steht mit Copy und Paste nach Visual Basic. Erstelle die Steuerelemente und ändere in zwei Minuten einfach dann noch den Quellcode ab, so daß es paßt.... (Steuerelemente Namen müssen richtig sein etc....)
Bitte warten ..
Mitglied: timi007
29.04.2005 um 10:18 Uhr
Starte VB, einfach ein neues Projeckt (Standard exe)

1. auf Form1: ein Label setzten ( wo es dir passt : -)) )
das Label hat nun den namen : Label1
2. setzte einen Timer auf Form1 : geh auf Timer Eigenschaften Recht, bei "Interval: 1000" setzen.
Doppelklick auf Timer :

label1.capation = time


das selbe kannst du auch mit Datum machen, statt :

"label1.capation = time" nimmst du einfach "label1.capation = date"

aber, hier kannst du es downloaden:

http://www.evul-tech.de/uhr.zip

also nichts besonderes 1 Zeile...code...

bis dann HF
Bitte warten ..
Mitglied: Desperado
17.07.2005 um 22:05 Uhr
' Form mit Label und Timer
' Form1; Label1; Timer1

Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.caption = DateTime.Now()
End Sub

Sub Timer1_Timer()
Label1.caption = DateAdd("s", 1, CDate(Label1.caption))
End Sub


' Das wars schon
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VbYesNo VisualBasic
gelöst Frage von Questionmark93VB for Applications2 Kommentare

Hallo Community, ich wollte einmal fragen was an diesem Script falsch ist? :( >If MsgBox("Wurde die Liste bereits als ...

Visual Studio
VisualBasic Problem mit Addierung von Nachkommastellen
gelöst Frage von DeBiggingVisual Studio3 Kommentare

Hallo zusammen, Ich habe ein Problem bei meinem Programm. Um eine Oberfläche zu berechnen lasse ich aus verschiedene Werte ...

Visual Studio
Datei aus dem Web mit VisualBasic 6 öffnen
Frage von SarekHLVisual Studio9 Kommentare

Hallo zusammen, ich habe hier ein VB6-Programm, welches monatlich automatisch eine bestimmte PDF-Datei aus dem Web (z.B.) herunterladen und ...

Windows Server
NTP zurück auf Bios Uhr
Frage von Thor01Windows Server1 Kommentar

Hallo, welche schritte muss ich durchführen um mir nicht mehr die Zeit von dem NTP Server zu holen, sondern ...

Neue Wissensbeiträge
Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.Cilin vor 3 StundenPerl2 Kommentare

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 4 StundenSicherheit

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 1010 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless12 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Netzwerkgrundlagen
Belibiges Teilnetz einer Subnetzmaske rausfinden?
Frage von CenuzeNetzwerkgrundlagen10 Kommentare

Wundervollen Gutentag, mittlerweile kann ich Subnetting so einigermaßen, aber ein Problem habe ich noch. Netzwerkadresse und Boradcast errechnen ist ...

Windows Server
Logging von "gesendeten Nachrichten" auf Terminalservern
Frage von Z3R0C0MM4N0THiN6Windows Server9 Kommentare

Hallo zusammen, kann mir jemand auf kurzem Wege sagen ob 1) die per Task-Manager (oder damals tsadmin) an Benutzer ...