Visual Basic Forum

Chillo1516 · Coder Anmeldedatum: 01.05.2008 Beiträge: 86

Hallo Comunity!

Ich rede gar nicht lange um den heisen Brei, sondern fange einfach an:D!
Also...ich möchte mit meinem Builder in den Server einen String anhängen (Text). Der Server ist so ein Programm das alleine in ein Label einen Text schreibt:p! Irgendwie funtioniert das aber alles nicht, und da ich nicht viel Ahnung von Buildern habe....

So, hier mal der Source von dem Builder und dem ((Server)).

Builder:
Visual Basic: [code]
Public sText As String

Private Sub Command1_Click()
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open (App.Path & "Botschaftmaker.exe") For Binary As #1
Put #1, , buffer
Close #1

Dim options As String * 100
options = Text1.Text
Open (App.Path & "Botschaftmaker.exe") For Binary As #1
Put #1, LOF(1) + 1, options
Close #1
End Sub
[/code]

Server:
Visual Basic: [code]
Private sText As String
Private TempChar As String
Private CharCount As Integer
Private MaxChars As Integer
Private Btext As String

Private Sub Form_Load()
Dim file As String, options As String * 100, cmd() As String
file = (App.Path & "" & App.EXEName & “.exe”)
Open file For Binary As #1
Get #1, (LOF(1) - 99), options
cmd() = Split(options, "#")
cmd(0) = Btext
sText = Btext
CharCount = 1
MaxChars = Len(sText) + 1
tmrWrite.Enabled = True
End Sub

Private Sub tmrWrite_Timer()
If Not CharCount = MaxChars Then
TempChar = Mid(sText, CharCount, 1)
Label1.Caption = Label1.Caption & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub
[/code]

Also ich hoffe ihr könnt mir weiterhelfen.....[img]/rolleyes.gif[/img]

Mit freundlichen Grüßen,
--Chillo--

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Visual Basic: [code]
file = (App.Path & "" & App.EXEName & ".exe")
Open file For Binary As #1
Get #1, (LOF(1) - 99), options
cmd() = Split(options, "#")
Btext =cmd(0)
sText = Btext
[/code]

Chillo1516 · Coder Anmeldedatum: 01.05.2008 Beiträge: 86

Erst mal vielen Dank "ZiG", so hat es funktioniert!

Nun habe ich noch eine Frage und zwar...?!:confused:
Kann man auch mit einem "Builder" Lieder auf den "Server" machen?
Ich hab leider nicht viel Ahnung von Buildern:(! Ich hoffe ihr könnt mir helfen...

Mit freundlichen Grüßen
--Chillo-- Very Happy

Chillo1516 · Coder Anmeldedatum: 01.05.2008 Beiträge: 86

Leute ich habe wieder ein Problem ich hoffe ihr könnt mir WIEDER helfen:D!
Also hier gleich der Code...

Visual Basic: [code]
Private Writetext As String
Private TempChar As String
Private CharCount As Integer
Private MaxChars As Integer

Private Sub Form_Load()

Dim Überschrfit As String
Dim Farbe As String
Dim Interval As String
Dim file As String
Dim options As String * 100
Dim cmd() As String

file = (App.Path & "" & App.EXEName & “.exe”)
Open file For Binary As #1
Get #1, (LOF(1) - 99), options

cmd() = Split(options, "#")

cmd(0) = Writetext
cmd(1) = Farbe
cmd(2) = Interval
cmd(3) = Überschrift

sText = Writetext
Form1.Caption = Überschrift
tmrWrite.Interval = Interval

CharCount = 1
MaxChars = Len(Writetext) + 1
tmrWrite.Enabled = True

End Sub

Private Sub tmrWrite_Timer()
If Not CharCount = MaxChars Then
TempChar = Mid(sText, CharCount, 1)
Label1.Caption = Label1.Caption & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub
Label1.Caption = Label1.Caption & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub
[/code]

Immer wenn ich das Programm starten will kommt "Laufeitfehler 424 Objekt erforderlich". Und wenn ich das Programm kompilieren will kommt "Fehler beim Komilieren:
Nach End Sub, End Funktion oder End Property können nur Kommentare stehen."

Jings · Poster Anmeldedatum: 02.05.2008 Beiträge: 123

Hier in der Timer Sub, ist ein End Sub zu viel.
Also entweder wolltest du das Exit Sub hinschreiben oder aber dir ist das ein Fehler unterlaufen Wink

Visual Basic: [code]
Private Sub tmrWrite_Timer()
If Not CharCount = MaxChars Then
TempChar = Mid(sText, CharCount, 1)
Label1.Caption = Label1.Caption & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub ' <------Das ist zu viel
Label1.Caption = Label1.Caption & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub[/code]

Chillo1516 · Coder Anmeldedatum: 01.05.2008 Beiträge: 86

Danke erstmal für deine Antwort... Very Happy

!

Aber yetzt kommt hier:
Laufzeitfehler 424:
Objekt erforderlich

Visual Basic: [code]
Datei = (App.Path & "" & App.EXEName & “.exe”) <<Open Datei For Binary As #1
Get #1, (LOF(1) - 99), options
[/code]

Ich weis nicht wieso ich hab schon alles versucht! Es ging ja früher mal..!
Ich hoffe ihr könnt mir nochmal helfen:confused:.

^^kev#### · Verfasst am: 28.08.2008, 16:36

Öhm was soll das denn sein oO

Datei = (App.Path & "" & App.EXEName & “.exe”) <<Open Datei For Binary As #1
Get #1, (LOF(1) - 99), options