Hallo,
ik ben bezig met een module voor een houtzagerij.
Het gaat over het in planken zagen van besteld hout.
Wanneer je een plank hebt geselecteerd en besteld,
kan deze in planken worden gezaagd. Van een houtsnede moet je iedere keer het startpunt (x,y) en het eindpunt (x,y) opgeven, waarna de plank aan de rechterkant wordt getekend.
Mijn vraag is nu hoe je die start- en eindwaardes in een regel op kunt vangen? In onderstaand voorbeeld worden de waarden namelijk steeds in een nieuwe regel opgevangen.
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
'variabelen
Dim cut As New cutspecs()
Dim snede As String
Dim i As Integer
'het koppelen van de invoervelden aan de invoer van de gebruiker
cut.cut1X = TextBox1.Text
cut.cut1Y = TextBox2.Text
cut.cut2X = TextBox3.Text
cut.cut2Y = TextBox4.Text
'de bestelling opvangen in een regel
snede = "(" & cut.cut1X & ", " & cut.cut1Y & ", " & cut.cut2X & ", " & cut.cut2Y & ")" & "#"
'het wegschrijven van de regel in de orderfile
If i < 4 Then
i += 1
Try
FileOpen(1, "c:\orders.txt", OpenMode.Append)
WriteLine(1, snede)
Catch
MsgBox("error opening file")
Finally
FileClose(1)
End Try
'Else : End
ik ben bezig met een module voor een houtzagerij.
Het gaat over het in planken zagen van besteld hout.
Wanneer je een plank hebt geselecteerd en besteld,
kan deze in planken worden gezaagd. Van een houtsnede moet je iedere keer het startpunt (x,y) en het eindpunt (x,y) opgeven, waarna de plank aan de rechterkant wordt getekend.
Mijn vraag is nu hoe je die start- en eindwaardes in een regel op kunt vangen? In onderstaand voorbeeld worden de waarden namelijk steeds in een nieuwe regel opgevangen.
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
'variabelen
Dim cut As New cutspecs()
Dim snede As String
Dim i As Integer
'het koppelen van de invoervelden aan de invoer van de gebruiker
cut.cut1X = TextBox1.Text
cut.cut1Y = TextBox2.Text
cut.cut2X = TextBox3.Text
cut.cut2Y = TextBox4.Text
'de bestelling opvangen in een regel
snede = "(" & cut.cut1X & ", " & cut.cut1Y & ", " & cut.cut2X & ", " & cut.cut2Y & ")" & "#"
'het wegschrijven van de regel in de orderfile
If i < 4 Then
i += 1
Try
FileOpen(1, "c:\orders.txt", OpenMode.Append)
WriteLine(1, snede)
Catch
MsgBox("error opening file")
Finally
FileClose(1)
End Try
'Else : End
