Quantcast
Channel: SharpDevelop Community
Viewing all articles
Browse latest Browse all 1764

.net F 3.5 in .net CF 3.5 umwandeln

$
0
0

Hallo liebe Forumgemeinde.

Seit zwei Tagen durchforste ich nun das WWW nach einer brauchbaren, möglichst detailirten Tutorial wie man mit Sharpdevelop unter VB.Net für das compact framework 3.5 eine Anwendung auf die Beine stellt und habe nichts ernsthaft brauchbares gefunden.

Ich habe das Programm das ich schreiben möchte bereits in VS2008 Express umgesetzt dann aber festgestellt das hier das CF 3.5 nicht dabei ist.
Also ein neuer Versuch mit Sharpdevelop denn für dieses einem mal wo ich das benötige (danach nie wieder) werd ich kein VS2008 Pro kaufen.

Es tauchen nun massig fehler in meinem Programm auf und auch hier habe ich wieder nichts brauchbares gefunden das von 0 an erläutert was ich machen muss um meine version auf CF 3.5 zu bringen und das Programm anschließend auf den Scanner (den ich programmieren möchte) bekomme.
Mein Programm ist unter VB ein Witz.
Scanner scannt einen Barcode, zeigt diesen in txtart an setzt dann automatisch den fokus auf txtmen, die Menge wird händisch eingetragen und ein druck auf Enter speichert das Ganze in der Datei art.txt ( z.b. 12548;15) fokus wieder in txtart alle variablen löschen das ganze wieder von vorn immer Zeile für Zeile in art.txt.

in vb schaut mein code so aus:
Imports System.IO
Public Class Scanits

Dim art As String
Dim menge As String
Dim zeile As String
Public Sub txtart_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtart.KeyPress
If e.KeyChar = Chr(13) Then
art = txtart.Text
txtmen.Focus()
End If
End Sub
Private Sub txtmen_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtmen.KeyPress
Dim dat As System.IO.StreamWriter
dat = New StreamWriter("c:\art.txt", True)
If e.KeyChar = Chr(13) Then
menge = txtmen.Text
zeile = art + ";" + menge
vbNewLine.ToString()
dat.WriteLine(zeile)
lbllastart.Text = art
lbllastmen.Text = menge
art = ("")
menge = (art)
zeile = (art)
txtart.Text = (art)
txtmen.Text = (art)
txtart.Focus()
End If
dat.Close()
dat = Nothing
End Sub

Tut was es soll und ist ganz einfach. Nun zerbreche ich an der Aufgabe dem Honeywell ScanPal 5100 dem ich für meinen Test geliehen bekommen habe das auch in CF 3.5 bei zu bringen geschweige denn das auf den Scanner überhaupt rauf zu bringen.

Kann mir dabei jemand helfen?


Viewing all articles
Browse latest Browse all 1764

Trending Articles