Första testprogrammet blir 8st kryssrutor som styr D0-D7 i parallellporten.
Nu till problemet och lite kod:
Kod: Markera allt
Public Class Form1
Dim Box_1 As Byte
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Public Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Box_1 = 1
Else
Box_1 = 2
End If
End Sub
Public Sub TextBox1_TextChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TextBox1.TextChanged
' Här vill jag kunna läsa av vilket värde Box_1 fick i förra sub-delen
' och skriva värdet i text-rutan.
' Alternativt läsa av kryssrutan (CheckBox1)
End Sub
End class
Vad är det som saknas för att det (kommentarerna i koden) ska fungera?
Jag har läst bl.a på den här sajten och sökt efter exempel-kod med google, men inte hittat något som fungerar.
Om jag byter ut kommentarerna i koden mot:
If CheckBox1.Checked = True Then
TextBox1.Text = "sju"
Else
TextBox1.Text = Box_1
End If
..så står det bara 0 i textrutan oavsett om jag markerar kryssrutan eller inte.
Det jag är ute efter är inte bara att lösa det här problemet, så fråga inte "Vad är det du vill göra?".
Jag vill lära mig hur man kan läsa av t.ex kryssrutor och variabler mellan olika Sub'er eller Functions. När jag bytte "Sub" mot "Function så fungerade inte koden pga "Handles" och jag har inte hittat hur man ska göra istället.
En till fråga:
Som det är nu så har jag en "Public Sub" för varje kryssruta.
Kan man inte lägga alla kryssrutor i samma Sub eller Function? Hur?
Någon som kan räta ut alla frågetecknen?
edit 1: Ändrade rubriken.
edit 2: Skrev edit-raderna.
