Pemrograman Visual:Acak Number: Difference between revisions
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>" |
No edit summary |
||
| Line 18: | Line 18: | ||
end Sub | end Sub | ||
</syntaxhighlight> | </syntaxhighlight> | ||
{{DISPLAYTITLE:Acak Number}} | |||