F�rum CONTROLAR TEMPO (LOCADORA DE GAMES) #145327

13/03/2003

Alguem me ajuda?

Preciso controlar o tempo de 10 mesas de video game com tempo regressivo?

A melhor maneira � usar um timer para cada mesa? ou um que controle tudo?

Mostre alguns exemplos de como trabalhar com timer dessa maneira, please.

valeu

Anonymous

Curtir t�pico

+ 0

Responder

Post mais votado

13/03/2003

Ex:

var
tempo : integer = 0;
mesa : array[1..10] of Ttime;[color=blue:9b94af27fd] //v�riavel global[/color:9b94af27fd]
coloque um maskedit e configure a propriedade Mask como horas:minutos:segundos
coloque um edit

coloque um buton, caption �Definir tempo�

no evento onclick do button digite
mesa[strtoint(edit.text)] := strtotime(maskedit1.text);
[color=blue:9b94af27fd]//voce escolhe qual mesa esta sendo alugada no edit1
// e o tempo da loca��o no maskedit[/color:9b94af27fd]

no formcreate digite tempo := gettickcount;

no evento do timer digite [color=blue:9b94af27fd]//timer.interval = 60000[/color:9b94af27fd]

var
i : integer;
begin
for i := 1 to 10 do
if mesa[i] > 00:00:00 then
mesa[i] := mesa[i] - (strtotime(�00:01:00�))
else
if mesa[i] = 00:00:01 then
messagebox(�falta 1 minuto para aluguel da mesa � + inttostr(i) + �acabar�)

[color=olive:9b94af27fd]isso � bem b�sico , mas vale como Exemplo[/color:9b94af27fd]

Marcelo Saviski

Responder

Gostei + 1

Mais Posts

27/09/2017

Andrew

var
tempo : integer = 0;
mesa : array[1..10] of Ttime; //v�riavel global
coloque um maskedit e configure a propriedade Mask como horas:minutos:segundos
coloque um edit

Responder

Gostei + 0

02/10/2018

Becky Spencer

Yes Andrew right to say that!
var
time: integer = 0;
table: array [1..10] of Ttime; // global variable

use <a href="https://www.experttexting.com/">mass texting</a> services for get a lot notification from technical firm and you can also send to your customers if your firms

Responder

Gostei + 0

05/10/2018

Emma Aya

{
   "Response": {
      "message_id": "10011",
      "message_count": 1,
      "price": 0.0055
   },
   "ErrorMessage": "",
   "Status": 0
}

<TheTexting xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
<ErrorMessage/>
<Response>
<message_count>1</message_count>
<message_id>10012</message_id>
<price>0.0055</price>
</Response>
<Status>0</Status>
</TheTexting>

{
"Response": null,
"ErrorMessage": "Parameters Missing",
"Status": 2
}

<TheTexting xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
<ErrorMessage>Parameters Missing</ErrorMessage>
<Response i:nil="true"/>
<Status>2</Status>
</TheTexting>

var client = new RestClient("https://www.thetexting.com/rest/sms/json/message/send");
var request = new RestRequest(Method.POST); request.AddHeader("content-type", "application/x-www-form-urlencoded"); request.AddHeader("cache-control", "no-cache"); request.AddParameter("application/x-www-form-urlencoded", "api_secret=apisecret123&api_key=apikey123&from=987654321&to=123456789&text=Sample%20Message%20Text&type=text", ParameterType.RequestBody);
IRestResponse response = client.Execute(request);

Responder

Gostei + 0