Input output data, timer dan message box pada Program Microsoft VB 6.0
Dim data(5) As Double
Dim jml, rata, sd As Double
Dim H, I, J As Long
Private Sub Command1_Click()
nilmax = 0
nilmin = 999999
jml = 0
data(1) = Int(Text1.Text)
data(2) = Int(Text2.Text)
data(3) = Int(Text3.Text)
data(4) = Int(Text4.Text)
data(5) = Int(Text5.Text)
For I = 1 To 5
If data(I) > nilmax Then nilmax = data(I)
If data(I) < nilmin Then nilmin = data(I)
jml = jml + data(I)
Next I
Label13.Caption = nilmax
Label14.Caption = nilmin
Label8.Caption = jml
rata = jml / 5
Label15.Caption = rata
jmlkuadrat = 0
For I = 1 To 5
jmlkuadrat = jmlkuadrat + ((data(I) - rata) ^ 2)
Next I
sd = Sqr(jmlkuadrat / 4)
Label16.Caption = Format(sd, "#.##0")
End Sub
Private Sub Form_Load()
H = Timer
End Sub
Private Sub Timer1_Timer()
Label18.Caption = Date
Label21.Caption = Time
I = Timer
J = I - H
Label22.Caption = J
If J = 10 Then
MsgBox "waktu anda untuk entri nilai telah habis", vbOKOnly, "message"
End
End If
End Sub
There are many subject standards that I want to tell you here: 1. Critical topic 2. Hot topic that consists of several positive and negative effects 3. Main results after this topic end 4. Must create solving-problem side and technical effects 5. Create quick summarize that give reader a time for making future research. Thanks for giving me opportunities in commenting your site, especially if you want to give summary point for that. Nice time to see you.
Nice discussion here. I want to join with you by giving my comments in your web page. First of all, your page and design of your website is so elegant, it is attractive. Also, in explaining your opinion and other news, frankly you are the best one. I’ve never met other person with special skills in my working environment. By using this comment page, you are great to give me opportunities for announcing some events. Secondly, I’ve checked your website in search engine result page; some of your website pages have ranked very well. Additionally, your topic is relevant with my desired one. Lastly, if you don’t mind, could you join with us as a team, in order to develop website, not only general web page, but also many specific websites we must create for our missions. From time to time, we, I and my team have great position for you to develop that.