Vreme sa interneta

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Па наравно да можеш да направиш низ контрла, ипак је контрола обична класа а логично је да можеш да изведеш низ објеката било које класе.
На пример за стринг би било:
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;

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

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Label[] lbl = new Labels[20]

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.