KarlBerg
-
Gesamte Inhalte
116 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Alle Inhalte von KarlBerg
-
Hi, das mit dem doppelten Wert, hab ich eigentlich schon in meinem 2. Post behoben (glaub ich). *Egal* Hab deinen Code jetzt so abgeändert, dass er laufen sollte. Dim Wert1 As Integer Private Sub Command1_Click() For i = 0 To 15 Text1(i) = Int((16 * Rnd) + 1) Next i For x = 0 To 15 For z = 0 To 15 If z <> x Then If Text1(z) = Text1(x) Then Wert1 = Int((16 * Rnd) + 1) Text1(x) = Wert1 z = 0 x = 0 End If End If Next z Next x End Sub MfG KarlBerg
-
Hi, ist noch en Fehler aufgefallen. schreib unter z=0 noch x=0. Also: For x = 0 To 5 For z = 0 To 5 If z <> x Then If FeldHlp(z) = FeldHlp(x) Then Wert1 = Int((50 * Rnd) + 1) 'zufall von 1 bis 50 FeldHlp(x) = Wert1 z = 0 x = 0 '<-ÄNDERUNG End If End If Next z Next x Ansonsten darf der Bereich des Zufalls (hier von 1 bis 50) nicht unter der Anzahl der Labels liegen, sonst kommste in ne Endlosschleife, weil man nicht jedem Label ne andere Nummer zuordnen kann, weils ja net genug gibt. Sollte so jedenfalls Fehler frei laufen. MfG KarlBerg
-
Hi, da musst'e mit Feldern arbeiten. Wenn du z.B. das Label1 kopierst, wirst du gefragt, ob ein "Steuerelementefeld" verwenden willst. Ja, du willst! Sagen wir du kopierst "label1" 5 mal (wirst aber nur einmal gefragt, hast am Schluss 6 Labels). Private Sub Command1_Click() For i = 0 To 5 '6 Felder, aber bei 0 beginnend Label1(i) = "Feld " & i Next i End Sub Die UngleichAbfrage musste mit auch mit Feldern (Variablen) lösen. Hab hier zusammengeknaupt, ist nicht schön, läuft aber auf den ersten Blick Private Sub Command2_Click() Dim Wert1 Dim FeldHlp(0 To 6) As Integer Dim i For i = 0 To 5 Wert1 = Int((50 * Rnd) + 1) 'zufall von 1 bis 50 FeldHlp(i) = Wert1 Next i For x = 0 To 5 For z = 0 To 5 If z <> x Then If FeldHlp(z) = FeldHlp(x) Then Wert1 = Int((50 * Rnd) + 1) 'zufall von 1 bis 50 FeldHlp(x) = Wert1 z = 0 End If End If Next z Next x For i = 0 To 5 Label1(i) = FeldHlp(i) Next i End Sub Hth KarlBerg
-
Bewertet mal bitte meine Bewerbungs-Homepage
KarlBerg antwortete auf FrankR's Thema in Jobsuche, Bewerbung und Zeugnisse
Hi, finde das Design Ok. Nur die unterste Rot Linie würd ich durchziehen. Und das Rote Hinterlegen beim MouseOver würd ich vielleicht auch nicht ganz so breit machen. Englisch-Teil würde ich folgendes ändern: unter Technical Skills -"computer languages" ersetzen durch "programming languages" -bei webservers: hinter Apache fehlt die Klammer zu Wenn man (oben rechts) z.B. auf Englisch klickt, sollte man ins selbe Menü springen, wie das in dem man in der Deutschen Version war. Ausserdem ist der Rote MouseOver-Hintergrund beim Englisch-"Button" nicht so weit, wie der beim Deutschen. Das sollte genug sein MfG KarlBerg -
Höhere Handelsschule + Ausbildung (FiSi) = Fachhochschulreife?
KarlBerg antwortete auf MiTo's Thema in Ausbildung im IT-Bereich
Hi, hab letztens gehört, dass es darauf ankommt, ob man in der Berufsschule sowas wie Wirtschaftslehre / BWL hatte oder net. Ohne BWL keine FH-Reife. Wenn du also ne Ausbildung als Straßenkehrer ohne BWL gemacht hast bezweifle ich, dass du studieren "darfst". (Nix gegen Straßenkehrer ) Aber als FiSi wirst'e schon dürfen. (Zumindest haben wir (auch FiSi) BWL.) MfG KarlBerg -
Hi, für fabige ScrollBars sollte das hier helfen -----snip----- </head> <body> <STYLE TYPE="text/css"><!-- BODY { scrollbar-arrow-color:#FFFFFF; scrollbar-base-color:#6D8693; scrollbar-shadow-color:#F3F3F3; scrollbar-Track-Color:#2D3851; scrollbar-face-color:#617087; scrollbar-highlight-color:#F3F3F3; scrollbar-dark-shadow-color:#000000; scrollbar-3d-light-color:#9BAAC1; } //--></STYLE> ----snip---- Hth karlBerg
-
Sleep aber ohne Prozeß zu stoppen
KarlBerg antwortete auf microdommi's Thema in Delphi/RPG+CL/Sonstige
Hi, hab hier einen Port-Scanner-Code, is zwar net von mir, aber verdammt schnell. Wsk heisst das Winsock-Element Die anderen Elemente wirst'e schon finden -------------Snip---------- Public Max_Con Public Max_Port Public Last_Checked Public url As String Private Is_ready(33999) As Ready Private Type Ready Value As Integer End Type Private Sub Command1_Click() blah = InputBox("How Many Sockets? (500 is good)", HowMany, 500) Max_Con = blah For x = 1 To blah Load Wsk(x) Next x End Sub Private Sub Command2_Click() url = InputBox("URL to SCAN", , "localhost") Me.Caption = url Max_Port = InputBox("Maximum port to scan") Call Check End Sub Private Sub Timer1_Timer() Label3.Caption = Val(Label3.Caption) + 1 & " Second/s" End Sub Private Sub Wsk_Connect(Index As Integer) Label1.Caption = "Last Checked In: " & Wsk(Index).RemotePort List1.AddItem Index, 0 Wsk(Index).Close: Is_ready(Index).Value = 0 'set socket ready End Sub Private Sub Wsk_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Label1.Caption = "Last Checked In: " & Wsk(Index).RemotePort Wsk(Index).Close: Is_ready(Index).Value = 0 'set socket ready End Sub Sub Check() Strt: Timer1.Enabled = True DoEvents For x = 1 To Max_Con DoEvents 'Wsk(x).Close This is Bad!! If Is_ready(x).Value <> 0 Then GoTo 20: ' Socket Isnt done checking skip Wsk(x).Connect url, Last_Checked + 1 Is_ready(x).Value = 1 'Set socket not ready Last_Checked = Last_Checked + 1 Label2.Caption = "Next To Be Scanned: " & Last_Checked 20: Next x If Val(Last_Checked) >= Val(Max_Port) Then Timer1.Enabled = False For y = 1 To Max_Con 'Clean Up Is_ready(y).Value = 0 Unload Wsk(y) Next y MsgBox ("Stoped") Exit Sub Else: GoTo Strt: End If End Sub -------------Snip---------- Hth KarlBerg -
Hi, hab dein "Problem" irgendwie nicht richtig verstanden. -Willst du mit VB Daten aus ner Excel Tabelle auslesen? -Willst du Daten aus ner ListView "Tabelle" auslesen? -Oder arbeitest du mit ner MSFlexGrid? Guck mal bei www.activevb.de, die wissen fast alles MfG KarlBerg
-
eine *chm Datei mit einem VB Prgramm öffnen
KarlBerg antwortete auf Fachinformatiker2000's Thema in Delphi/RPG+CL/Sonstige
Hi, das hier müsste bei allen Win-Versionen laufen: ------------------------------------------ Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() intret = ShellExecute(Me.hWnd, "open", "C:\winnt\system32\Odbcinst.chm", "", "", 5) End Sub ------------------------------------------- Hth KarlBerg -
Hi, also heute hat sich zumindest keiner für's Berichtsheft interessiert. Für die AbschlussPrüfung werd ich dann (wahrscheinlich) noch nachtragen lassen. Tschö Karl Berg
-
Zwischenprüfung Frühjahr 2001
KarlBerg antwortete auf Kiru's Thema in Prüfungsaufgaben und -lösungen
Hi, könnt' mir (f.doerr@gmx.de) auch jmd. die ZP01 Frühjahr schicken? Danke KarlBerg -
Hi, also bei uns (Saarland) ist "die Benutzung eines unkommentierten Tabellenbuches erlaubt". Tschö KarlBerg
-
Hi, in der Einladung hat ja gestanden, dass man das Berichtsheft mitbringen muss. Weiss jmd. ob die Prüfer Streß machen, wenn man noch KEINE Unterschrift vom Ausbildungsleiter drin hat. Oder wird das Ding erst gar net kontrolliert. Tschö KarlBerg
