|
You last visited: Today at 17:21
Advertisement
[Release] Code Converter
Discussion on [Release] Code Converter within the Coding Releases forum part of the Coders Den category.
11/10/2011, 16:31
|
#1
|
elite*gold: 718 
Join Date: Oct 2011
Posts: 625
Received Thanks: 64
|
[Release] Code Converter
|
|
|
|
11/10/2011, 16:33
|
#2
|
elite*gold: 0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,811
|
Läuft es über einen Online-Konverter?
|
|
|
|
|
11/10/2011, 16:33
|
#3
|
elite*gold: 718
Join Date: Oct 2011
Posts: 625
Received Thanks: 64
|
Quote:
Originally Posted by xKraizy
Läuft es über eine Internetseite?
|
Nein 
|
|
|
|
|
11/10/2011, 16:42
|
#4
|
elite*gold: 3
Join Date: Dec 2009
Posts: 969
Received Thanks: 314
|
Also wenn ich etwas translaten will kommt:
|
|
|
|
|
11/10/2011, 16:56
|
#5
|
elite*gold: 3
Join Date: Dec 2009
Posts: 969
Received Thanks: 314
|
Ich habe ein Projekt mithilfe deines "Open Project" button geladen(VB.Net)
Dieser Sourcecode kam dann in die Linke richtextbox
dann habe ich auf "Convert to C#" gedrückt und der fehler kam
|
|
|
|
|
11/10/2011, 17:00
|
#6
|
elite*gold: 0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,811
|
Evtl. die Details noch posten, damit l1ght sieht, in welcher Zeile der Fehler aufgetreten ist, ein kleines Bild hilft da auch nicht viel weiter...
|
|
|
|
|
11/10/2011, 17:03
|
#7
|
elite*gold: 3
Join Date: Dec 2009
Posts: 969
Received Thanks: 314
|
Ja habe ich, sonst würde ich die Datei ja nicht sehen >.<
|
|
|
|
|
11/10/2011, 17:18
|
#8
|
elite*gold: 718
Join Date: Oct 2011
Posts: 625
Received Thanks: 64
|
Quote:
Originally Posted by .exTremez™
Ja habe ich, sonst würde ich die Datei ja nicht sehen >.<
|
stimmt, hmm da weiß ich auch nicht was du falsch machst... sonst mach einfach c&p von der source und mach das manuell
|
|
|
|
|
11/10/2011, 17:28
|
#9
|
elite*gold: 3
Join Date: Dec 2009
Posts: 969
Received Thanks: 314
|
Auch wenn ich es manuell mache funzt es nicht, habe es auch mit verschiedenen sources versucht.
Hier mal ein Source:
PHP Code:
Public Class Form1
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox3.Items.Clear()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
ListBox4.Items.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
ComboBox2.SelectedIndex = 0
ComboBox3.SelectedIndex = 0
ComboBox4.SelectedIndex = 0
ComboBox5.SelectedIndex = 0
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Not ListBox1.Items.Contains(ComboBox3.Text) Then
ListBox1.Items.Add(ComboBox3.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Not ListBox2.Items.Contains(ComboBox4.Text) Then
ListBox2.Items.Add(ComboBox4.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Not ListBox3.Items.Contains(ComboBox5.Text) Then
ListBox3.Items.Add(ComboBox5.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Not ComboBox6.Text = Nothing Then
If Not ListBox4.Items.Contains(ComboBox6.Text) Then
ListBox4.Items.Add(ComboBox6.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
jobname = textbox1.Text & ":" & vbNewLine
fullname = "fullname: " & TextBox2.Text & vbNewLine
shortname = "shortname: " & TextBox3.Text & vbNewLine
lvleq = "leveling-progression-equation: " & TextBox4.Text & vbNewLine
expeq = "experience-progression-equation: " & TextBox5.Text & vbNewLine
incomeq = "income-progression-equation: " & TextBox6.Text & vbNewLine
chatcolor = "ChatColour: " & ComboBox1.Text & vbNewLine
chatdisplay = "chat-display: " & ComboBox2.Text & vbNewLine
If ListBox1.Items.Count > 0 Then
Dim breaksplit() As String
break = "Break:" & vbNewLine
For Each item In ListBox1.Items
breaksplit = item.ToString.Split("|")
break &= breaksplit(0) & ":" & vbNewLine & "income: " & breaksplit(1) & vbNewLine & "experience: " & breaksplit(2) & vbNewLine
Next
End If
If ListBox2.Items.Count > 0 Then
Dim placesplit() As String
place = "Place:" & vbNewLine
For Each item In ListBox2.Items
placesplit = item.ToString.Split("|")
place &= placesplit(0) & ":" & vbNewLine & "income: " & placesplit(1) & vbNewLine & "experience: " & placesplit(2) & vbNewLine
Next
End If
If ListBox3.Items.Count > 0 Then
Dim killsplit() As String
kills = "Kill:" & vbNewLine
For Each item In ListBox3.Items
killsplit = item.ToString.Split("|")
kills &= killsplit(0) & ":" & vbNewLine & "income: " & killsplit(1) & vbNewLine & "experience: " & killsplit(2) & vbNewLine
Next
End If
If ListBox4.Items.Count > 0 Then
Dim customsplit() As String
customkills = "custom-kill:" & vbNewLine
For Each item In ListBox4.Items
customsplit = item.ToString.Split("|")
customkills &= customsplit(0) & ":" & vbNewLine & "income: " & customsplit(1) & vbNewLine & "experience: " & customsplit(2) & vbNewLine
Next
End If
output = jobname & fullname & shortname & chatcolor & chatdisplay & lvleq & incomeq & expeq & break & place & kills & customkills
Form2.Show()
Form2.RichTextBox1.Text = output
End Sub
End Class
|
|
|
|
|
11/10/2011, 17:33
|
#10
|
elite*gold: 718
Join Date: Oct 2011
Posts: 625
Received Thanks: 64
|
Quote:
Originally Posted by .exTremez™
Auch wenn ich es manuell mache funzt es nicht, habe es auch mit verschiedenen sources versucht.
Hier mal ein Source:
PHP Code:
Public Class Form1
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox3.Items.Clear()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
ListBox4.Items.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
ComboBox2.SelectedIndex = 0
ComboBox3.SelectedIndex = 0
ComboBox4.SelectedIndex = 0
ComboBox5.SelectedIndex = 0
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Not ListBox1.Items.Contains(ComboBox3.Text) Then
ListBox1.Items.Add(ComboBox3.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Not ListBox2.Items.Contains(ComboBox4.Text) Then
ListBox2.Items.Add(ComboBox4.Text.ToUpper & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Not ListBox3.Items.Contains(ComboBox5.Text) Then
ListBox3.Items.Add(ComboBox5.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Not ComboBox6.Text = Nothing Then
If Not ListBox4.Items.Contains(ComboBox6.Text) Then
ListBox4.Items.Add(ComboBox6.Text & "|" & NumericUpDown2.Value.ToString.Replace(",", ".") & "|" & NumericUpDown1.Value.ToString.Replace(",", "."))
End If
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim jobname As String = ""
Dim fullname As String = ""
Dim shortname As String = ""
Dim lvleq As String = ""
Dim expeq As String = ""
Dim incomeq As String = ""
Dim break As String = ""
Dim place As String = ""
Dim kills As String = ""
Dim customkills As String = ""
Dim chatcolor As String = ""
Dim chatdisplay As String = ""
Dim output As String = ""
jobname = textbox1.Text & ":" & vbNewLine
fullname = "fullname: " & TextBox2.Text & vbNewLine
shortname = "shortname: " & TextBox3.Text & vbNewLine
lvleq = "leveling-progression-equation: " & TextBox4.Text & vbNewLine
expeq = "experience-progression-equation: " & TextBox5.Text & vbNewLine
incomeq = "income-progression-equation: " & TextBox6.Text & vbNewLine
chatcolor = "ChatColour: " & ComboBox1.Text & vbNewLine
chatdisplay = "chat-display: " & ComboBox2.Text & vbNewLine
If ListBox1.Items.Count > 0 Then
Dim breaksplit() As String
break = "Break:" & vbNewLine
For Each item In ListBox1.Items
breaksplit = item.ToString.Split("|")
break &= breaksplit(0) & ":" & vbNewLine & "income: " & breaksplit(1) & vbNewLine & "experience: " & breaksplit(2) & vbNewLine
Next
End If
If ListBox2.Items.Count > 0 Then
Dim placesplit() As String
place = "Place:" & vbNewLine
For Each item In ListBox2.Items
placesplit = item.ToString.Split("|")
place &= placesplit(0) & ":" & vbNewLine & "income: " & placesplit(1) & vbNewLine & "experience: " & placesplit(2) & vbNewLine
Next
End If
If ListBox3.Items.Count > 0 Then
Dim killsplit() As String
kills = "Kill:" & vbNewLine
For Each item In ListBox3.Items
killsplit = item.ToString.Split("|")
kills &= killsplit(0) & ":" & vbNewLine & "income: " & killsplit(1) & vbNewLine & "experience: " & killsplit(2) & vbNewLine
Next
End If
If ListBox4.Items.Count > 0 Then
Dim customsplit() As String
customkills = "custom-kill:" & vbNewLine
For Each item In ListBox4.Items
customsplit = item.ToString.Split("|")
customkills &= customsplit(0) & ":" & vbNewLine & "income: " & customsplit(1) & vbNewLine & "experience: " & customsplit(2) & vbNewLine
Next
End If
output = jobname & fullname & shortname & chatcolor & chatdisplay & lvleq & incomeq & expeq & break & place & kills & customkills
Form2.Show()
Form2.RichTextBox1.Text = output
End Sub
End Class
|
Hmm komisch, habe es auch versucht, klappt auch nicht :s aber bei meinen sourcecodes klappt es.
|
|
|
|
|
11/10/2011, 17:37
|
#11
|
elite*gold: 3
Join Date: Dec 2009
Posts: 969
Received Thanks: 314
|
Tjoaaa überarbeiten ist da wohl angesagt :P
Würde mich aber freuen, wenn du es schaffst dass es funktioniert 
Bis dahin, Viel Glück
|
|
|
|
 |
Similar Threads
|
[RELEASE]mob_proto SQL to XML Converter
04/11/2011 - Metin2 PServer Guides & Strategies - 13 Replies
heyho,
ich hatte gerade nichts zutun und bin dann im Thread http://www.elitepvpers.com/forum/metin2-pserver-gui des-strategies/1064242-release-mob_proto-xml-sql-c onverter.html auf den Post von Saaja gestossen
also dachte ich mir, dass ich das in die Tat umsetze^^
|
Minecraft Code Converter / Tausch
02/11/2011 - Minecraft - 5 Replies
http://digboston.com/wp-content/uploads/2010/11/mi necraft_logo2.gif
Hey leute ich möchte euch heute ein Projekt vorstellen von mir den Minecraft Code Converter !
Worum geht es darin ?
Hier könnt ihr eure Bestehenden codes umtauschen von Beta <-> Alpha auf einen Minecraft account .
Trustet ?
Ja, auch wen es nach einer Phising seite aussieht kann ich euch versichern das ich tauschen werde ich besitze minecraft accounts und server daher brauch ich keine weiteren . Jaja denkt ihr euch...
|
[Release]DDS-Converter
01/20/2011 - Metin2 PServer Guides & Strategies - 22 Replies
Hey ich habe heute mal mein Desktop aufgeräumt :P und da fand ich plötzlich eine komische Datei. Aufeinmal stellte sich raus das es ein DDS-Converter war. Er wandelt DDS Dateien in jpg und png dateien um.
Da das für manche Client´s nützlich ist dachte ich ich stell es mal hier rein.
Virustotal Screen
http://img3.fotos-hochladen.net/uploads/virrustot al0t16k9zq.png
Screen vom Programm
http://img3.fotos-hochladen.net/uploads/programmn gw8demb.png
MfG Fun-Zocker
|
[RELEASE] DDS converter
08/18/2009 - EO PServer Guides & Releases - 9 Replies
Well, because this is a tool, i post it here and not on another section :bandit:
People were complaining they cant open or edit a dds file..
This tool, can convert the dds file to jpg,png,bmp,tga
and it can convert "to" dds :handsdown:
|
All times are GMT +1. The time now is 17:23.
|
|
![[Release] Code Converter](https://www.elitepvpers.com/forum/iconimages/coding-releases/release-code-converter_ltr.gif){kind=small}
