Vreme sa interneta

Vreme sa interneta

offline
  • neXY2  Male
  • Novi MyCity građanin
  • Pridružio: 29 Dec 2006
  • Poruke: 11
  • Gde živiš: Kraljevo

Pozdrav! Naparvio sam neki programcic u VB.2005 i potrebno mi je prikazivanje tacnog vremena. Stavio sam jedan tajmer i svake sekunde u labeli ocitavao sistemsko vreme. Sve je bilo uredu, dok mi se baterija na racunaru nije pokvarila. Svaki put kada iskljucim racunar, vreme stane, dok ponovo ne ukljucim komp. Tako da nikako nemam tacno vreme. Postoji li mogucnost da sa nekog mesta na internetu ocitavam vreme, umesto sistemskog vremena sa mog kompa, posto ionako moj program koristim samo kada sam na internetu.
Unapred zahvalan



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 23 Jul 2006
  • Poruke: 118
  • Gde živiš: Beograd

Имаш две могућности:
1. Купи нову батерију.
2.Удри двоклик на "сатић" у десном доњем делу екрана. Отвориће ти се прозор о подешавању времена а ти ту селектуј картицу "Internet Time" и ту чекирај поље "Automatically synchronize with ...". Провери да ли ти је добро намештена временска зона - кликни у истом прозору на картицу "Time zone" и из листе изабери "(GMT+ 01:00) Belgrade...". ово ће учинити да ти се време синхронизује кад се год конектујеш на интернет.



offline
  • neXY2  Male
  • Novi MyCity građanin
  • Pridružio: 29 Dec 2006
  • Poruke: 11
  • Gde živiš: Kraljevo

OK. Hvala na savetima. To i radim svaki put, ali bih vise voleo da uzimam vreme sa interneta, nezavisno od mog sistemskog vremena iz vise razloga. Da li postoji takva mogucnost? (nadam se da postoji).
Bateriju cu kupiti kada ukapiram kako se skida ova stara.

Dopuna: 17 Jul 2007 10:21

Pozdrav!
Naišao sam na još jedan problem u mom programu ne vezano za očitavanje internet vremena, koje još nisam ukapirao kako da napravim. U VB.net ne moguce je napraviti niz kontrola, kao što je to bila mogućnost u VB6. Imam 20 labela sa brojevima. Potrebno mi je kada se u odredjeno text polje unese broj, labela sa unetim brojem promeni boju. U VB6 je bilo lako. Napravim niz od 20 labeli, tako da se broj u labeli poklapa sa njenim indexom. Kod je isao ovako:
Dim intBroj as Integer
intBroj = txtBroj.Text
lblBroj(intBroj).ForeColor = VB.Red
Kako sada, na najednostavniji način mogu zameniti ovaj kod tako da radi u VB.2005 ili .net. U nekoj knjizi sam pročitao da se U VB .NET-u kontrole ne mogu grupisati u nizove, ali se ista procedura može koristiti za više kontrola pomoću rezervisane reči Handles . Ali, na koji način?

offline
  • Pridružio: 23 Jul 2006
  • Poruke: 118
  • Gde živiš: Beograd

Па наравно да можеш да направиш низ контрла, ипак је контрола обична класа а логично је да можеш да изведеш низ објеката било које класе.
На пример за стринг би било:
String[] mojiStringovi = new MojiStringovi[20];

Док би за лабеле било:
Label[] labels = new Label[20];

Наравно после прођеш кроз петљу која ће да формира објекат за сваки од лабела.
Затим, добијеш број из TextBox-a
int index = System.Convert.ToInt32( txtBroj.Text);
// pošto je VB dynamic typng jezik ova konverzija nije neophodna ali je naravno poželjna

И онда:
labels[index].BackColor = Color.Red;

Ово је све у С# али су разлике лако превазилазе. Нема само пар измена.

Јави јел си успео.

offline
  • neXY2  Male
  • Novi MyCity građanin
  • Pridružio: 29 Dec 2006
  • Poruke: 11
  • Gde živiš: Kraljevo

>>Наравно после прођеш кроз петљу која ће да формира објекат за сваки од лабела.<<

Ovaj deo mi bas ne ide “od ruke”. Ako mozete samo malo da pojasnite.

Dim i as byte
For i = 1 to 20
'Sta da radim?
next i

offline
  • Pridružio: 23 Jul 2006
  • Poruke: 118
  • Gde živiš: Beograd

Label[] lbl = new Labels[20]

For i = 1 to 20
lbl[i] = new Label()
next i

offline
  • neXY2  Male
  • Novi MyCity građanin
  • Pridružio: 29 Dec 2006
  • Poruke: 11
  • Gde živiš: Kraljevo

Puno hvala. Sada radi. Evo kako sam napravio niz kontrola:

Public lblBroj(20) As Label

U dogadjaju Load forme:

Dim i As Integer

For i = 1 To 20
lblBroj(i) = New Label
lblBroj(i).Location = New System.Drawing.Point(1, (21 * i))
lblBroj(i).Size = New System.Drawing.Size(32, 23)
lblBroj(i).Text = CStr(i)
Me.Controls.Add(lblBroj(i))
Next i

Ostaje mi sada da rešim preuzimanje tačnog vremena sa interneta.

Ko je trenutno na forumu
 

Ukupno su 516 korisnika na forumu :: 11 registrovanih, 2 sakrivenih i 503 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Bobrock1, djordje92sm, draganl, dragoljub11987, famoso, goranperović66, havoc995, hyla, Motocar, wizzardone, zlaya011