Pemrograman Visual:Acak Number - Revision history

Kangtain: Kangtain moved page Materi/Pemrograman Visual/Acak Number to Pemrograman Visual:Acak Number

2022-11-23T04:23:11Z

Kangtain moved page Materi/Pemrograman Visual/Acak Number to Pemrograman Visual:Acak Number

← Older revision	Revision as of 11:23, 23 November 2022
(No difference)

Kangtain at 22:39, 18 November 2022

2022-11-18T22:39:50Z

← Older revision		Revision as of 05:39, 19 November 2022
Line 27:		Line 27:
	</syntaxhighlight>		</syntaxhighlight>


	~~{{DISPLAYTITLE:Acak Number}}~~
	[[Category:Materi]]		[[Category:Materi]]
	[[Category:Matkul]]		[[Category:Matkul]]
	[[Category:Pemrograman]]		[[Category:Pemrograman]]
	[[Category:Pemrograman Visual]]		[[Category:Pemrograman Visual]]

Kangtain at 13:47, 7 November 2022

2022-11-07T13:47:33Z

← Older revision		Revision as of 20:47, 7 November 2022
Line 2:		Line 2:

	[[File:Acak number 1.png\|center\|thumb]]		[[File:Acak number 1.png\|center\|thumb]]

	* Seluruh kode program		* Seluruh kode program

	<syntaxhighlight lang="vb.net" line="1">		<syntaxhighlight lang="vb.net" line="1">
	Public Class Form1		Public Class Form1

Kangtain at 13:03, 26 October 2022

2022-10-26T13:03:09Z

@@ Line 1: / Line 1: @@
 * Seluruh kode program
 <syntaxhighlight lang="vb.net" line="1">
@@ Line 24: / Line 27: @@
 {{DISPLAYTITLE:Acak Number}}

Kangtain at 13:01, 26 October 2022

2022-10-26T13:01:32Z

← Older revision		Revision as of 20:01, 26 October 2022
Line 1:		Line 1:
			* Seluruh kode program
	<syntaxhighlight lang="vb.net" line="1">		<syntaxhighlight lang="vb.net" line="1">
	~~private Sub btnAcak~~		Public Class Form1
	~~txtAngka1.Text = Int(Rnd() + 10)~~
	~~txtAngka2.Text = Int(Rnd() + 10)~~
	~~lblPesan = ""~~
	~~end sub~~

	~~private~~ Sub ~~btnCekHasil~~		Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAcak.Click
	~~if Val~~(~~txtAngka1~~.~~Text) + Val(txtAngka2~~.~~Text~~) ~~= Val(txtHasil~~.~~Text) then~~		txtAngka1.Text = Int(Rnd() * 10)
	~~lblPesan~~.Text = ~~"SELAMAT JAWABAN BENAR..."~~		txtAngka2.Text = Int(Rnd() * 10)
	~~else~~		End Sub
	~~lblPesan~~.Text = ~~"MAAF, JAWABAN SALAH..."~~
	~~end if~~
	~~end sub~~

	~~private~~ Sub Form1_Load		Private Sub btnCekHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCekHasil.Click
	Randomize()		If Val(txtAngka1.Text) + Val(txtAngka2.Text) = Val(txtHasil.Text) Then
	~~end~~ Sub		lblPesan.Text = "SELAMAT JAWABAN BENAR..."
			Else
			lblPesan.Text = "MAAF, JAWABAN SALAH..."
			End If
			End Sub

			Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
			Randomize()
			End Sub
			End Class
	</syntaxhighlight>		</syntaxhighlight>


	{{DISPLAYTITLE:Acak Number}}		{{DISPLAYTITLE:Acak Number}}

Kangtain at 06:17, 26 October 2022

2022-10-26T06:17:38Z

← Older revision		Revision as of 13:17, 26 October 2022
Line 18:		Line 18:
	end Sub		end Sub
	</syntaxhighlight>		</syntaxhighlight>


			{{DISPLAYTITLE:Acak Number}}

Kangtain: Created page with " private Sub btnAcak txtAngka1.Text = Int(Rnd() + 10) txtAngka2.Text = Int(Rnd() + 10) lblPesan = "" end sub private Sub btnCekHasil if Val(txtAngka1.Text) + Val(txtAngka2.Text) = Val(txtHasil.Text) then lblPesan.Text = "SELAMAT JAWABAN BENAR..." else lblPesan.Text = "MAAF, JAWABAN SALAH..." end if end sub private Sub Form1_Load Randomize() end Sub "

2022-10-26T05:58:07Z

Created page with "<syntaxhighlight lang="vb.net" line="1"> private Sub btnAcak txtAngka1.Text = Int(Rnd() + 10) txtAngka2.Text = Int(Rnd() + 10) lblPesan = "" end sub private Sub btnCekHasil if Val(txtAngka1.Text) + Val(txtAngka2.Text) = Val(txtHasil.Text) then lblPesan.Text = "SELAMAT JAWABAN BENAR..." else lblPesan.Text = "MAAF, JAWABAN SALAH..." end if end sub private Sub Form1_Load Randomize() end Sub </syntaxhighlight>"

New page

<syntaxhighlight lang="vb.net" line="1">
private Sub btnAcak
txtAngka1.Text = Int(Rnd() + 10)
txtAngka2.Text = Int(Rnd() + 10)
lblPesan = ""
end sub

private Sub btnCekHasil
if Val(txtAngka1.Text) + Val(txtAngka2.Text) = Val(txtHasil.Text) then
lblPesan.Text = "SELAMAT JAWABAN BENAR..."
else
lblPesan.Text = "MAAF, JAWABAN SALAH..."
end if
end sub

private Sub Form1_Load
Randomize()
end Sub
</syntaxhighlight>