Visual Basic Forum

Verfasst am: 30.01.2012, 11:32 Aufrufe: 589

... ls den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar noch ein vorteil! wenig zeilen code für 1000 ...

Verfasst am: 29.10.2011, 21:00 Aufrufe: 293

du hast auf der zweiten form deinen stop button definiere eine variable als public und boolean also Public Abbruch as boolean und an einem anderen teil des codes.... Loop Until TimeOut < (GetTickCount / 1000) or abbruch = true code im commandbutton abbruch = true dann wird die schleife entweder nach der wartezeit beendet oder wenn abbruch gedrückt wurde hoffe du konntest damit w ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 293

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 293

... ********************************** ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000 ...

Verfasst am: 15.07.2011, 07:10 Aufrufe: 375

ich kann dir nur sagen was ich machen würde wenn ich jetzt einen serien brief ersellen wollen würde eine exceltabelle... die kann ganz einfach ausgelesen werden und gleich in excel -> vba weiter verwedet werden um deine briefe zu erstellen for i = 1 to 1000 FamName = Cells(i, 1) VorName = Cells(i,2) Adresse = Cells (i,3) '... 'un dan brauchst du die sachen ...

Verfasst am: 23.05.2011, 07:45 Aufrufe: 417

Verfasst am: 22.05.2011, 16:27 Aufrufe: 417

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

... insock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Sub AufDatenWarten() Dim Tmp As Integer Do DoEvents Sleep 100 Loop Until Winsock1.State = sckConnected Or Winsock1.State = sckError Do DoEvents Sleep 100 Tmp = Tmp + 100 Loop Until Tmp > 1000 ...

Verfasst am: 05.01.2011, 01:02 Aufrufe: 583

Nicht funktioniert hat: CommandXYZ_Click() WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/logout.html" WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/nachtwache" Ebenso nicht funktioniert hat: CommandXYZ_Click() WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/logout.html" Sleep 1000 bzw. 10000 WebBrowser1.N ...

Verfasst am: 25.10.2010, 10:56 Aufrufe: 593

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

... Successful = _Successful ElapsedTime = _ElapsedTime Hostname = _Hostname TimeOut = _TimeOut End Sub End Structure End Class Friend Class IPPinger Protected __IP As String Protected __Scanner As NetworkScanner Protected __TimeOut As Integer Public Shared ReadOnly Property StandardTimeOut As Integer Get Return 1000 ...

Verfasst am: 04.08.2010, 08:38 Aufrufe: 1029

Beispiel: 3 = 2 x usw. Das habe ich dazu gebastelt - läuft aber zu lange - viel zu lange ! 1000 Jahre Smile

Wer könnte das verbessern? Private Sub Command1_Click() 'Ermittlung der Häufigkeit einzelner Zahlen MousePointer = 11 Dim s1(990628) For a = 1 To 990628 s1(a) = 0 Next Open (AktuellerPfad + "sortiert.txt") For Input As #1 loop1: If ...

Verfasst am: 30.07.2010, 17:18 Aufrufe: 458

Height = 7000 End With If Retval = 0 Then MsgBox "Ein Fehler ist aufgetreten.", vbCritical, "Fehler" End If End Sub Private Sub Command2_Click() Call ladewelt End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Me.Move 0, 0, Screen.Width - 500, Screen.Height - 1000 Pic.Height = Me.Height - 500 Pi ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 970

GetStream getMessage.Start() Catch Sleep(1000) GoTo newconnect End Try End Sub Sub read() For infiniteCounter = 1 To 3 infiniteCounter = 1 stream = Client.GetStream() Dim buffsize As Integer Dim instreambuffer(10024) As Byte ...

Verfasst am: 24.03.2010, 00:02 Aufrufe: 604

Verfasst am: 23.03.2010, 23:24 Aufrufe: 592

Ich wollte die fehlerhaften/fehlenden farbig markieren und meine Syntax funkt aus einem unbekannten Grund nicht.Die Syntax lautet wie folgt: --------------------------------------------- Sub Makro1() Dim i As Long Dim Tabelle As String Tabelle = InputBox("Welche Spalte soll geprüft werden") If Tabelle = "Vorname" Then For i = 1 To 1000 'soll immer eine zeile weitergehen hilf ...

Verfasst am: 07.01.2010, 19:22 Aufrufe: 1142

... ript) ist ein Programm, dass bei vor allem Browsergames... ...mehr als ein Spielereignis pro klick auslöst ...viele informationen sammelt und auflistet mit anderen worten: kampfsimulatoren, laufzeitrechner,... sind legal, programme, die alle möglichen informationen über z.b. spieler sammeln und auflisten oder wo man z.b. sagt "allen spielern freundschaftsanfragen senden" (es würden mehrere 1000 ...

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1299

... gen: 1 Progressbar, 1 Command Button und 1 Timer, alle mit den standard Namen) Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long Private startTime As Long Private Sub Command1_Click() Dim timeDiff As Long timeDiff = GetTickCount() - startTime 'Wie viel Zeit ist vergangen? MsgBox "Du hast " & (timeDiff / 1000 ...

Verfasst am: 24.12.2009, 23:51 Aufrufe: 502

hi stell den interval auf 1000 millisek d.h. 1 sek lass z.b. ein label mitzählen wieviele sekunden vergangen sind und bei label change prüfst du dann halt ob 900 sek vorbei sind 3600 sek 10 sek und 50 sek lg und frohe weihnachten

Verfasst am: 20.11.2009, 20:36 Aufrufe: 814

Mal davon abgeshen, dass eine "Delay-Funktion" in VB ja eigentlich nicht gibt, hab ich mir einfach selber ne simple gebaut. Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Loop Until TimeOut < (GetTic ...

Verfasst am: 15.08.2009, 08:29 Aufrufe: 517

hi! ein ganz einfaches beispiel... Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString End Sub in die form fügst du ein label und einen timer ein. den timer intervall auf 1000 stellen und enabled auf true. danach nur noch F5 Smile

Verfasst am: 15.07.2009, 13:55 Aufrufe: 760

Vllt hat jemand eine Idee. Habs mal so versucht: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick zaehler += 1000 lblBisherigeTestzeit.Text = zaehler /1000 If zaehler = 0 Then Timer1.Stop() End If End Sub so bekomme ich die Sekunden aber wie bekomme ich die Anzeige 00:00 so hin?? ...

Verfasst am: 29.06.2009, 14:25 Aufrufe: 894

Beschreibung:Mit dieser Klassen kann man die CPU Last von einer oder mehreren CPUs überwachen.Wichtig: Da diese Klasse die CPUs in eigenen Threads überwacht, muss drauf geachtet werden das wenn man die Werte an die Form übergeben will, man mit Delegates und Invoke arbeiten muss. Ein Beispiel dazu findet man in meinem Kommentar.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 18.06.2009, 11:54 Aufrufe: 1229

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

... können wir das ganze so:Private Declare Function GetTickCount Lib "kernel32" () As Long Private start as long, ende as long Private Sub Command1_Click() start = GetTickCount 'Hier kommt euer code rein ende = GetTickCount Label1.Caption = (ende-start) / 1000 ...

Verfasst am: 12.06.2009, 21:19 Aufrufe: 613

Wenn ich aber die Variable fNew außerhalb der Sub deklariere dann öffnet sich zwar die form aber eben nur einmal. Also so als würde ich einfach form.show machen. EDIT: Habe jetzt mal weiter getestet und habe eine nicht ganz schöne Lösung gefunden: Dim a As Integer Dim fnew(1000) As New Form2 Private Sub Command1_Click() a = a + 1 fnew(a).Show fnew(a).Label1.Caption = a End ...

Verfasst am: 02.06.2009, 08:20 Aufrufe: 1309

Enabled = False Timer1.Interval = 1000 Start1 = CDate(CStr(Date) & " 00:00:00") End Sub Private Sub Timer1_Timer() Static zait1 As Long Dim n As Date zait1 = zait1 + 1 n = DateAdd("s", zait1, Start1) Text1.Text = Format(n, "hh:mm:ss") End Sub Hier noch ein Printscreen des programmes: [URL=http://img ...

Verfasst am: 22.04.2009, 14:23 Aufrufe: 650

Verfasst am: 26.02.2009, 15:44 Aufrufe: 2111

Danke für deine Antwort, das Array enthält aber fast 1000 Strings die ich in einer Textdatei bereits formatiert habe, wenn ich die in vb einfüge, verlangt der Compiler lauter Sprungmarken, nachdem ich die eingefügt habe (was extrem lange gedauert hat) zickt er immer noch. Ich befülle das Array jetzt indem ich es direkt aus der Textdatei auslese!

Verfasst am: 06.02.2009, 21:10 Aufrufe: 1270

hi aber so schwer is das ja nicht Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) 'ist für die wartezeit Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 12.11.2008, 18:24 Aufrufe: 892

Verfasst am: 24.09.2008, 17:57 Aufrufe: 1462

Mach doch einfach n timer mit intervall 1000 = 1 sekdareinlblCountDown.caption=lblcaption -1

Verfasst am: 18.09.2008, 15:15 Aufrufe: 1292

Verfasst am: 06.09.2008, 16:54 Aufrufe: 1311

Verfasst am: 28.07.2008, 22:11 Aufrufe: 1096

Verfasst am: 28.07.2008, 18:47 Aufrufe: 1708

Verfasst am: 26.07.2008, 13:37 Aufrufe: 904

Load Timer1.Interval = 5000 'timer um nach 5 sek das label zu ändern Timer1.Enabled = False Timer2.Interval = 1000 'timer um die progressbar pro sekunde zu aktualisieren Timer2.Enabled = False ProgressBar1.Minimum = 0 'Hier stellt du den minimal- und ProgressBar1.Maximum = 5 ' maximalwert ein 'also bei 0 fängt die progressbar an zu zählen 'maximum: 5, weil du ...

Verfasst am: 20.07.2008, 21:34 Aufrufe: 598

Winsock sendet nur 1024 Buchstaben, um sicher zugehen dass alles gesendet wird nehmen wir 1000 Buchstaben als BlockDim zahl as IntegerDim deinString as Stringzahl = 1doServer.SendData "Packet1" & Mid(deinString, zahl, 1000) zahl = zahl + 1000 ' Position ändernLoop until zahl + 1000 >= Len(deinString)Server.SendData "Packet2" & Right(DeinString, Länge - zahl + 1)Jetzt muss dein Server das machen bei dataarrvial:winsck ...

Verfasst am: 18.07.2008, 13:40 Aufrufe: 506

ja bis zum me.show gehts kanns sein dass du vl vergessen hast ... Private Sub Form_Load() Timer2.Interval = 1000 Timer2.Enabled = False End Sub lg grün

Verfasst am: 11.07.2008, 19:55 Aufrufe: 1257

Verfasst am: 06.07.2008, 18:26 Aufrufe: 1006

Floor(i / 10) Mod 10 Dim h As String = Math.Floor(i / 100) Mod 10 Dim t As String = Math.Floor(1 / 1000) Mod 10 Dim zt As String = Math.Floor(i / 10000) Mod 10 Dim ht As String = Math.Floor(i / 100000) Mod 10 Dim a As String = WWW(e) & WWWW(z) If i < 100 Then Return a : Exit Function a = WWWWW(h) & a If i < 4000 Then a = WWWWWW(t) & a Else ...

Verfasst am: 11.06.2008, 18:32 Aufrufe: 724

Verfasst am: 01.06.2008, 15:08 Aufrufe: 537

Verfasst am: 01.06.2008, 04:04 Aufrufe: 537

Also ich hab hier ein Problem mit meinem BuilderNach dem öffnen, kommt immer diese Fehler hierhier der Source( also bis hierhin kommt er, ab dann ist schluss )'Strings Dim options As String * 1000 Dim CMD() As String Dim Self As String Dim BatText As String Dim melt As String Dim hide As String Dim BatFile As String <br ...

Verfasst am: 21.05.2008, 16:17 Aufrufe: 818

Verfasst am: 20.05.2008, 21:44 Aufrufe: 2540

Verfasst am: 10.05.2008, 15:12 Aufrufe: 2761

Einsetzen können wir das ganze so: Private Declare Function GetTickCount Lib "kernel32" () As Long Private start as long, ende as long Private Sub Command1_Click() start = GetTickCount 'Hier kommt euer code rein ende = GetTickCount Label1.Caption = (ende-start) / 1000 End Sub Was passiert hier nun? Zuerst speichern wir die aktuelle Zeit in der Variable ...

Verfasst am: 27.04.2008, 18:42 Aufrufe: 3568

WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted WebBrowser1.Document.GetElementById("dl.start").SetAttribute("value", "Free") WebBrowser1.Document.GetElementById("dl.start").Focus() 'System.Threading.Thread.Sleep("1000") SendKeys.Send("{ENTER}" ...

Verfasst am: 20.04.2008, 13:02 Aufrufe: 2116

Text = Str$(h) + " *" + Str$(v) 'bildschirmauflösung ermitteln und ausgeben End Sub Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS 1000 Std = (SekGesa ...

Verfasst am: 13.04.2008, 22:03 Aufrufe: 1445

dim i as integer private sub cmd_click i = 1000 end sub private sub bla for i = 1 to 1000 'bla next end sub reine theorie So ist es richtig k ist standart massig immer 0 eigendlich kannst du sonst auf 0 oder 1 setzen klickt er auf dem stop button ist k 5 zeigt er nur das ende an problem er macht aber noch die letze schleife , daher muss du k auf 6 setzen also in so fern 6 to 5 . immer eins höher ...