|
OK. Ja VB.NET ne znam, znam C#, ali konvertovacu kod u VB, tako da ne bi trebalo da bude neki problem. Napravis novi projekat. Na njega dodas nekoliko button-a iz toolbox-a, onoliko koliko ti treba. Isto tako, dodas i timer (u toolboxu se nalazi pod "components"). Kada kliknes na njega, u properties ces dobiti interval. Postavi ga na 1000. Isto tako i Enabled postavi na true. Sada dvaput klikni na taj timer i dobices funkciju koja se poziva svake sekunde (jer je interval timera 1000 ms). Onda napravi jednu promenljivu tipa int koja ce ti biti clanica klase (izvan bilo koje funkcije) i koja ce ti sluziti kao brojac (moja se zove _iBrojac). Napravi i drugu formu koja ce ti biti ScreenSaver.
Ta funkcija koja se poziva kao timer bi trebalo da izgleda otprilike ovako:
Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
_iBrojac = (_iBrojac + 1)
If (_iBrojac = 15) Then
Dim frm2 As Form2 = New Form2
frm2.ShowDialog
_iBrojac = 0
End If
End Sub
Znaci, povecavas brojac za 1. Ako je brojac jednak sa 15, pravis novu formu, prikazujes je (posto je ShowDialog, neces moci da koristis prvu formu dok se ne zatvori druga), i kad se druga forma zatvori, resetujes brojac na 0. E, sad ti ostaje da na svako dugme koje imas na formi dodas:
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
_iBrojac = 0
End Sub
Ti u stvari resetujes brojac svaki put kad neko klikne na neko dugme (ne mora to biti dugme, na tebi je da to odredis).
Ovako bi to trebalo da izgleda na kraju:
Imports System
Imports System.Collections.Generic
'using System.ComponentModel;
Namespace ProbaTimer
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Public Class Form1
Inherits Form
Private _iBrojac As Integer = 0
Public Sub New()
MyBase.New
InitializeComponent
End Sub
Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
_iBrojac = (_iBrojac + 1)
If (_iBrojac = 15) Then
Dim frm2 As Form2 = New Form2
frm2.ShowDialog
_iBrojac = 0
End If
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
_iBrojac = 0
End Sub
End Class
End Namespace
Ponavljam, nisam siguran da nema mozda neke greske, jer sam radio preko nekog konvertera, ali bi trebalo da je to otprilike to.
|
