Visual Basic: Perbedaan antara revisi
Konten dihapus Konten ditambahkan
Menolak perubahan teks terakhir (oleh 114.4.77.219) dan mengembalikan revisi 9188662 oleh 36.74.162.185: penghapusan tanpa alasan |
|||
Baris 139:
End Sub
</syntaxhighlight>
Kode berikut membuat sebuah perhitungan naik setiap 1 detik dan menampilkannya di label (sebuah kontrol label dan timer dibutuhkan di dalam form agar bisa bekerja):
<syntaxhighlight lang="vb"
Option Explicit
Dim Count As Integer
Private Sub Form_Load()
Count = 0
Timer1.Interval = 1000 '
End Sub
Private Sub Timer1_Timer()
| |||