Pemrograman Visual:Acak Number: Difference between revisions

← Older edit

VisualWikitext

@@ Line 1: / Line 1: @@
+* Desain Program
+[[File:Acak number 1.png|center|thumb]]
+* Seluruh kode program
 <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>
+[[Category:Materi]]
-{{DISPLAYTITLE:Acak Number}}
+[[Category:Matkul]]
+[[Category:Pemrograman]]
+[[Category:Pemrograman Visual]]