Private m_oXmlCfg As New MSXML.DOMDocument
Dim oNode As IXMLDOMNode
m_oXmlCfg.Load m_sXMLfile
Do
  DoEvents
Loop Until m_oXmlCfg.readyState = XML_LOAD_COMPLETE
Set oNode = oDom.selectSingleNode("//editform[@name=""" & _
 "myformdetails" & """]")
Skip Navigation Links.

Percabangan(Branching)                                                                                                                                      

Dim iUmur As Integer
iUmur = 20

If iUmur >= 17 Then
  MsgBox "dewasa"
Else
  MsgBox "masih bau  kencur"
End If

'----------------


Dim iUmur As Integer

iUmur = 20

Select Case iUmur
Case Is >= 17 
  MsgBox "dewasa"
Case Else
  MsgBox "masih bau kencur"
End Select

'------------


Dim iNilai As Integer
Dim sHuruf As String
iNilai = 80

If iNilai >= 50 And iNilai <= 60 Then
  sHuruf = "D"
ElseIf iNilai >= 61 And iNilai <= 70 Then
  sHuruf = "C"
ElseIf iNilai >= 71 And iNilai <= 80 Then
  sHuruf = "B"
ElseIf iNilai >= 81 And iNilai <= 90 Then
  sHuruf = "A"
Else
  sHuruf = "di luar kriteria"
End If

MsgBox sHuruf

'--------------------


Dim iNilai As Integer
Dim sHuruf As String

iNilai = 80

Select Case iNilai
  Case 50 To 60
    sHuruf = "D"
  Case 61 To 70
    sHuruf = "C"
  Case 71 To 80
    sHuruf = "B"
  Case 81 To 90
    sHuruf = "A"
  Case Else
    sHuruf = "di luar kriteria"
End Select

MsgBox sHuruf 


Download contoh source code

                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
ripiu.com
Diuskusi Visual Basic
Subscribe to xbasicpro_vb

Powered by us.groups.yahoo.com
counter sejak 5 april 2010

  (C)XBasicPro | XBasicPro di Facebook