Er zijn 14 reacties in dit onderwerp

[pascalbianca]

Ja de titel spreek een beetje voor zichzelf al.
Ik zit met een probleem en ik kan wel de extreme omweg nemen , maar dat is zoveel codes dat ik dat eigenlijk niet zie zitten.
Ik weet dat het vrij kort kan , alleen ik zie het even niet, zal denkelijk wel zijn omdat ik al bijna de gehele dag eraan ben aan het rotzooien

Zal even uitleggen wat de bedoeling is.
Ik heb 1 knop die steeds doet optellen, dus van 0 tot bv 10 met stappen van 1 te zien in een textbox. (dit heb ik al klaar).
Ik heb 5 labels, die allemaal op 0 staan. (deze heb ik ook)
Het is de bedoeling als die knop word ingedrukt dat in label1 een 1 komt te staan.
Druk ik nog eens op die knop , dus dan word hij 2 ,maar dan moet label1 naar 0 en label2 naar 1.
Druk ik weer op de knop , dus dan word hij 3, dan moet label1 naar 1 en label2 blijft op 1.
Weer de knop, word label1 0 , label2 0 en label3 1.
Zoals jullie zien doe ik dus eigenlijk soort binair tellen.

Wie weet een korte code om dit te fixen want ik weet het even niet meer.

Alvast bedankt mensen.

[Luckie64]

Visual Basic Code:

 Sub display(teller As Integer)
Dim i As Integer
For i = 1 To 5
If teller Mod 2 = 1 Then
Me.Controls("Label" & i).Text = "1"
Else
Me.Controls("Label" & i).Text = "0"
End If
teller = teller \ 2
Next i
End Sub

Groeten,

Luc

[DieterVB]

Hallo,

Bedoel je zoiets?

Code:

Dim Val As Integer = 0
	Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
		Val += 1
		Dim Labels As Label() = {Label1, Label2, Label3, Label4, Label5}
		Dim Binary As String = Convert.ToString(Val, 2).PadLeft(Labels.Length, "0"c)
		For i = 0 To Labels.Length - 1
			Labels(i).Text = Binary.Reverse(i)
		Next
	End Sub

Groeten

[josk79]

kom op zeg... pascalbianca toch!

als je de labels nou eens in een array plaatst kun je zoiets doen:

Code:

For i = 0 to labelarray.size
   Labelarray(i).text = if(i=mijngetal, "1“, "0")
Next

[josk79]

ho, verkeerd gelezen. ik dacht dat je alleen een 1 wilde in het n-de label.

[pascalbianca]

josk79, op 08 May 2012 - 18:26, zei:

ho, verkeerd gelezen. ik dacht dat je alleen een 1 wilde in het n-de label.

Geen probleem kerel, lees ook vaak te snel over sommige dingen heen.
Luckie64 en DieterVb thx, beide codes doen hun werk.

NU heb ik nog een klein vraagje erbij.
Zowel de omhoog knop als omlaag knop werken beide.
Maar nu stel ik voer een nummer gelijk in de textbox ipv via de knoppen te werken, hoe ziet die code eruit dan want jullie gegeven codes geven uiteraard een ander effect.

Alvast bedankt voor jullie inzet

[Luckie64]

Visual Basic Code:

If IsNumeric(TextBox1.Text) Then
Display(CInt(TextBox1.Text))
End If

[pascalbianca]

Luckie64, op 08 May 2012 - 19:41, zei:

Visual Basic Code:

If IsNumeric(TextBox1.Text) Then
Display(CInt(TextBox1.Text))
End If

Waar komt die display vandaan als ik vragen mag want die ken ik niet.

[Luckie64]

Visual Basic Code:

Sub display(teller As Integer)
Dim i As Integer
For i = 1 To 5
If teller Mod 2 = 1 Then
Me.Controls("Label" & i).Text = "1"
Else
Me.Controls("Label" & i).Text = "0"
End If
teller = teller \ 2
Next i
End Sub

Subroutine die ik eerst liet zien!
Het is uwen dag precies niet he Pascal!

[pascalbianca]

Nee heb het in de gaten, denk ook dat ik vandaag eens ermee kap en lekker tv ga kijken , maar toch bedankt Luckie64

[pascalbianca]

Kon het niet laten om het af te maken want dan is dat ook klaar.
Alles loopt perfect alleen mijn knop om de waarde omlaag te brengen gaat in de textbox goed alleen met de 0 en 1 niet terug lopend.

ik heb de code van de omhoog knop aangepast en ziet nu er zo uit.:
Visual Basic Code:

 Val -= 1
		Dim Labels As Label() = {t10, t9, t8, t7, t6, t5, t4, t3, t2, t1}
		Dim Binary As String = Convert.ToString(Val, 2).PadLeft(Labels.Length, "0"c)
		For i = 0 To Labels.Length - 1
			Labels(i).Text = Binary.Reverse(i)
		Next

maar die for lus klopt natuurlijk niet , maar hoe wel? daarna stop ik ook echt voor vandaag :S

[DieterVB]

Je hebt het juist geïmplementeerd

Maar je mag die Binary.Reverse(i) vervagen door gewoon Binary(i).
Ik had die Reverse er ingestoken omdat je de labels zo kon ordenen {t1, t2, t3, t4, t5, ...}
Nu je ze toch al omgekeerd geordend hebt is de reverse niet meer nodig.

Citeren

Maar nu stel ik voer een nummer gelijk in de textbox ipv via de knoppen te werken, hoe ziet die code eruit dan want jullie gegeven codes geven uiteraard een ander effect.

Val vervangen door de TextBox.Text

Code:

	Dim Labels As Label() = {t10, t9, t8, t7, t6, t5, t4, t3, t2, t1}
	Dim Binary As String = Convert.ToString(TextBox.Text, 2).PadLeft(Labels.Length, "0"c)
	For i = 0 To Labels.Length - 1
		Labels(i).Text = Binary(i)
	Next

Greez

[Luckie64]

Prachtige code Dieter!
Ik wist niet van de Convert.........

Groeten,

Luc

[DieterVB]

Thanks Luckie64!

[RedThread]

Weet wel dat het is opgelost, maar gewoon voor de fun :

Visual Basic Code:

Public Class Form1

	Dim val As Integer = 0

	Sub display(v As Integer)
		showval.Text = CStr(v Mod 256)
		dig.Text = ""
		For i As Integer = 0 To 7
			If v Mod 2 = 1 Then
				dig.Text &= "1"
			Else
				dig.Text &= "0"
			End If
			v = v \ 2
		Next i
	End Sub

	Private Sub incr_Click(sender As System.Object, e As System.EventArgs) Handles incr.Click
		val += 1 : If val = 11 Then val = 0
		display(val)
	End Sub

	Private Sub decr_Click(sender As System.Object, e As System.EventArgs) Handles decr.Click
		val -= 1 : If val = -1 Then val = 11
		display(val)
	End Sub

	Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
		display(val)
	End Sub
End Class