burnersk
-
Gesamte Inhalte
273 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Alle Inhalte von burnersk
-
Hallo. Wie kann ich die Arrayeinträge zählen? Dim sArray() As String Private Function fArray () Dim Eintraege As Integer 'Zähle Eintrage Eintraege = [ARRAYS ZÄHLEN] MsgBox Eintraege End Function
-
Hallo. Ich habe ein HTML Formular, dass ich über das WebBrowser Control aufrufe. In dieses Feld (siehe oben) möchte ich ein Zeichenkette hineinkopieren und herauskopieren. Kann mir jemand helfen?
-
[PHP5][MING] Eine Eingabebox erstellen
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
Jo danke. Versuche es gleich mal. Hast du eine Ahnung betreffs der Eingabebox? -
Hallo. Eigendlich möchte ich kein Windows mehr verwenden - muss aber immer noch darauf zurückgreifen wegen SIEMENS Simantic Step7. Nun meine Frage: gibt es eine Ubuntu Version (bzw. 3rd Project) zu Step7 unter Windows? Wenn 3rd project, dann muss es Umwandeln können (AWL, KOP, FUP) und einen Onlinebetrieb mir der SPS unterstützen (Überwachung). Wäre schön, wenn mir jemand helfen könnte. PS: SIEMENS Simantic Step7 in WinE??? Möglich oder nicht?
-
[PHP5][MING] Eine Eingabebox erstellen
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
1. Was ich auch noch Fragen wollte: kennt jemand eine Befehlsreferenz für Ming? 2. Wenn ich Zeichen habe, die "unter dem Strich" sind "g", "j", usw., dann trennt Ming dies ab. Kennt jemand einen Trick, wie man dies umgeht Beispiel: <?php // * // * M I N G // * *************************** // * ********************************* // * Eine Flash - Bibliothek für PHP // * ********************************* // * *************************** // Welche Flash Version ming_useswfversion ( 5 ); // $movie aus Pointer für Flash $movie = new SWFMovie ( ); // Größe für Flash $movie definieren $movie -> setDimension ( 550, 400 ); // Hintergrundfarbe (RGB) für Flash $movie definieren $movie -> setBackground ( 100, 150, 200 ); // Bildaktualisierungsrate für Flash $movie definieren $movie -> setRate ( 12 ); // Schriftart definieren in $font $font = new SWFFont ( '_sans' ); // Textfeld definieren in $text $text = new SWFTextField ( ); // Schriftart $font auf Textfeld $text zuweisen $text -> setFont ( $font ); // Textfeld $text eine Schhriftgröße (Pixel) zuweisen $text -> setHeight ( 8 ); // Textfeld $text eine Schhriftfarbe (RGB) zuweisen $text -> setColor ( 255, 255, 255 ); // Text zu Textfeld $text hinzufügen $text -> addString ( 'Hallo Flash!!!' ); // Textfeld $text Flash $movie hinzufügen ( anzeigen ) $movie -> add ( $text ); // Flash $movie speichern in Datei $movie -> save ( "anim03.swf" ); ?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>M I N G - Eine Flash Bibliothek für PHP [Texte verwenden 2]</title> </head> <body> <p align="center"><strong>M I N G - Eine Flash Bibliothek für PHP</strong><br /> <em>Texte verwenden 2</em></p> <p align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" name="swf03" width="550" height="400" align="middle" id="swf03"> <param name="movie" value="anim03.swf" /> <param name="QUALITY" value="high" /> <embed src="anim03.swf" width="550" height="400" align="middle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="swf03"></embed> </object></p> <?php $sourcecode = "texte verwenden 2.php"; include ( "print_code.php" ); ?> </body> </html> -
[PHP5][MING] Eine Eingabebox erstellen
burnersk erstellte Thema in Skript- und Webserverprogrammierung
PHP Version: 5.1.1 Ming Version: 0.3beta1 Hallo. Wie kann ich mit Ming eine Eingabebox "Textbox" erstellen? Auf die Daten muss ich selbstverständlich zugreifen - dachte per Action (wenn Maus hovert) die Tastertur abfragen und 1. im Textfeld ausgeben und 2. in Variable speichern. Habe aber kein Plan, wie ich das prog. soll. Kann mir jemand helfen? -
For count = 0 To 100 'MsgBox "Start " & count Text = "00000" & count & ";User " & count itpers = Split(Text, ";") frmMask.txtPersNr.AddItem itpers(0) frmMask.txtPersName.AddItem itpers(1) 'dbpers(count) = itpers(0) & itpers(1) 'MsgBox "Ende " & count Next dbpers ist mein Hauparray wo itpers gespeichert werden soll. Bloß wie füge ich itpers in dbpers ein? Er gibt mir immer Error: Index außerhalb des gültigen Bereiches. Deklariert sind beide arrays im script header Dim dbpers() As String Dim itpers() As String
-
Also: 1. Ich habe Personalnummern und Personalnamen in einer Datei. Diese muss ich in einen Array importieren. 2. Ich habe 2 ComboBoxen Personalnummer und Personalname 3. Ich muss die Personalnummern per AddItem in die zugehörige ComboBox einfügen. Gleiches mit Personalnamen. 4. Wenn eines der beiden Feldern einen Wert hat, der mit einem Datensatz 100% übereinstimmt, soll das andere Feld das zugehörige Datengegenstück als Wert bekommen. Beispiel: PersNr;PersNa 0001;Mustermann, Max 0002;Mustermann, Mini Wenn ich in der PNr Combo 0001 auswähle soll in der PNa Combo Mustermann, Max erscheinen. Ich habe leider Vorgaben und kann es nicht anders machen...
-
ja, so hatte ich mir das gedacht. Bloß, wie lese ich ein Textfeld zeilenweise aus? (hatte ich bis jetzt noch nicht gebraucht) Oder gibt es wie in C++ ein fgets?
-
Hallo. Ich habe für mein VB6 Prog. eine CSV Datei. In meinem Prog. habe ich drei Textboxen. Beispiel CSV-Datei: Nun möchte ich folgendes machen: Alle Daten aufsplitten um sie in die Textfelder zu verteilen Eine Beziehung zwischen Personalnummer und Personalname herstellen (wenn PersNr eingegeben wurde und Fokus verliert, soll Script nach dem zugehörigen PersNamen suchen und im 2. Textfeld erscheinen Bitte beachten: nach ";Zeit;Aktion" kommen mehrere ";" und Daten. Pro Zeile ein Datensatz. Kann mir jemand helfen?
-
Moin. Wie kann ich aus VB6 heraus einen sha1 Hash aus dem Inhalt einer Textbox (Multiline) generieren?
-
Umcodieren von VB Code in PHP (5) Code
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
Hallo freq.9. Ich denke mal du meinst mit den Sichtbarkeiten "Private" usw.. Dies ist im PHP Scrip je egal, da ich diese Crypto Fuktion ja global benutzen muss, also alles "Public" -
Umcodieren von VB Code in PHP (5) Code
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
ubound: Wenn man Steuerelementen Idexes vergiebt, also mehrere Steuerelemente mit gleichen Namen kann man eines nicht mehr über Me.Text1.Text aufrufen, sondern muss den Index angeben Me.Text1(0).Text. ubound dient um den letzten (höchsten) Index zu ermitteln. asc: Die Asc-Funktion gibt den Zeichencode, der dem ersten(!) Buchstaben der mitgegebenen Zeichenfolge entspricht zurück. Dies ist die Umkehrfunktion zur Chr-Funktion. ascZahl = Asc("B") ' Ergibt 66 ascZahl = Asc("b") ' Ergibt 98 ascZahl = Asc("Asc-Funktion") ' Ergibt 65 right: Gibt eine vorgegebene Anzahl von Zeichen, ausgehend von der rechten Seite einer Zeichenfolge zurück. Private Sub Command1_Click() Dim Text Dim Text1 Dim Text2 Dim Text3 Text = "Sommerurlaubsreise" ' Zeichenfolge definieren Text1 = Right(Text, 5) ' liefert reise Text2 = Right(Text, 12) ' liefert urlaubsreise Text3 = Right(Text, 18) ' liefert Sommerurlaubsreise MsgBox Text1 & vbCrLf & Text2 & vbCrLf & Text3 End Sub chr: Die Chr-Funktion gibt das Zeichen für einen bestimmten Zeichencode zurück. Dies ist die Umkehrfunktion zur Asc-Funktion.mChar = Chr(33) ' ergibt "!" mChar = Chr(65) ' ergibt "A" VirtPos: ist ein Funktionsaufruf (siehe 1. Post) cfc(), ttc(): sind Variablen (Array) -
Umcodieren von VB Code in PHP (5) Code
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
Danke erstmal... Kann mir jemand nen Tip wegen den beiden Hauptfunktionen "encode" und "decode" geben? -
Umcodieren von VB Code in PHP (5) Code
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
Habe bis jetzt noch nie eigene Funktionen geschrieben. Wie ich die Funktionen deklarieren damit sie Parameter aufnehmen können etc.. Wie ich die Funktionen aufrufe. -
Umcodieren von VB Code in PHP (5) Code
burnersk erstellte Thema in Skript- und Webserverprogrammierung
Hallo zusammen. Ich muss die folgenden VB Funktionen in PHP 5 Funktionen umwandeln. Kann mir jemand helfen? Public Function EncodeString(ByVal strToEncode As String, _ ByVal strPassword As String) As String Dim strResult As String Dim i As Long Dim cfc() As Integer If Len(strPassword) = 0 Then Exit Function ReDim cfc(1 To Len(strPassword)) For i = 1 To UBound(cfc) cfc(i) = Asc(Right(strPassword, _ Len(strPassword) - i + 1)) Next i For i = 1 To Len(strToEncode) strResult = strResult & _ Chr(addToIndex(Asc(Right(strToEncode, _ Len(strToEncode) - i + 1)), VirtPos(i, cfc))) Next i EncodeString = strResult End Function Public Function DecodeString(ByVal strToDecode As String, _ ByVal strPassword As String) As String Dim strResult As String Dim i As Long Dim cfc() As Integer If Len(strToDecode) = 0 Or Len(strPassword) = 0 Then Exit Function End If ReDim cfc(1 To Len(strPassword)) ReDim ttc(1 To Len(strToDecode)) For i = 1 To UBound(cfc) cfc(i) = Asc(Right(strPassword, _ Len(strPassword) - i + 1)) Next i For i = 1 To Len(strToDecode) strResult = strResult & _ Chr(GetOfIndex(Asc(Right(strToDecode, _ Len(strToDecode) - i + 1)), VirtPos(i, cfc))) Next i DecodeString = strResult End Function Private Function VirtPos(i As Long, _ a() As Integer) As Integer If i > UBound(a) Then VirtPos = VirtPos(i - UBound(a), a) Else VirtPos = a(i) End If End Function Private Function addToIndex(i As Integer, _ j As Integer) As Integer If i + j > 255 Then addToIndex = i + j - 255 Else addToIndex = i + j End If End Function Private Function GetOfIndex(i As Integer, _ j As Integer) As Integer If i - j < 0 Then GetOfIndex = i - j + 255 Else GetOfIndex = i - j End If End Function -
Jo. Vielen Dank euch
-
Ein paar Beispiele für Faule , sonst kapiers ich nicht :floet:. Die Dokumentation ist sehr gut, aber ich hätte doch lieber ein kleines aber komplettes Beispiel.
-
Danke, kann aber mom. nicht nachschlagen, aufbau ungefähr so?: SetConsoleTextAttribute ( NULL, "white" ); printf ( "Hallo " ); SetConsoleTextAttribute ( NULL, "red" ); printf ( "du" ); SetConsoleTextAttribute ( NULL, "white" ); printf ( " da" );
-
Hallo. Kann mir jemand einen Beispielcode für eine farbige Ausgabe in einer Win32 Konsolenanwendung.
-
Moin. Kennt jemand ein paar gute deutsche Bücher über die Template-Engine Smarty? Spezielle Smarty Bücher wären schön. Habe die Dokumentation von smarty.php.net schon runtergeladen.
-
Internet-Zugriff auf MySQL via Visual Basic 6
burnersk antwortete auf burnersk's Thema in Datenbanken
Hallo. Also damit habe ich keine Probleme, da ich nen eigenen Server habe. -
Hallo. Habe im Internet eine mySQL 5.0.15 Datenbank (Remotezugriff aktiv) und möchte dafür eine Visual Basic 6 Anwendung schreiben. - Kann mir jemand nen Link zu einem AddOn, dass z.B. PHP-mySQL Kommandos ausführt - also programmieren like PHP5 in VB6 - Oder einen Vorlagecode geben um mit der entfernten Datenbank zu arbeiten. Vielen Dank im voraus
-
Angemeldeten Benutzer unter Win
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
Jo, besten Dank -
Angemeldeten Benutzer unter Win
burnersk antwortete auf burnersk's Thema in Skript- und Webserverprogrammierung
OK Also. Ich möchte in einem Intranet auf meine Seite gehen. Dort soll jeder auf dem Server angemeldeter Benutzer (Windows Benutzer!!!) automatisch bei Aufruf der Seite angemeldet werden. Also braucht (und darf) keiner ein LoginFormular. Es soll den aktuell angemeldeten (und aktiven, wenn benutzerumschaltung -> WinXP) abfragen und über diese Daten in die Webseite automatisch einloggen. Ein Beispiel: $_GET['benutzername'] $_GET['domainname'] mysql_query("SELECT * FROM `users` WHERE `usrn` = '$_GET['benutzername']' AND `domain` = '$_GET['domainname']'", $dbserver)[/PHP]Das das Beispiel nicht funktioniert ist mir klar. Ich will die Daten nicht übergeben sondern Abfragen ($_GET... sind nur Platzhalter)
