Info Bisnis :

Info Bisnis :
Hobi Download bisa dapat uang ?? cari tahu agan (klik gambar)

Belajar Asik Visual basic.06

- Rabu, 07 Desember 2011

- Calculator Sederhana


Langsung saja ke mylogika :
bisa di download di sini (klik here)



- Menghitung selisih dua tanggal

    Untuk menghitung selisih antara tanggal masuk dan keluar sevenart memberi sedikit pemahaman,
dalam cth kasus : Perhotelan, operator betanggung jawab atas biaya cost di hotelnya, ketika program mengimputkan tanggal masuk : 11 - 11 - 11 dan tanggal keluar : 11 - 11 - 11  (dalam waktu kurang dari 24 jam)
     Sebaiknya program memberikan harga sebagai mana mestinya 1 hari dalam penginapannya. Program yang salah akan menampilkan cost = 0 , ini membuat kerugian pada pihak hotel.
so,
Nah tanpa basa - basi langsung sedot aja ya.. codingnya..
disini 


- Menggunakan Array

   "Array merupakan sekumpulan nilai data yang “dikelompokkan” dalam sebuah variabel "
Sebuah array dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah Dim,
kemudian diikuti dengan tanda kurung dan jumlah elemen arraynya dikurangi 1 :

Contoh simple :
Pengaturan property setiap object-nya adalah sebagai berikut :

Object                                   Properties                     Value
- Form8                               Caption Array                 Test
                                            StartUpPosition           2 – CenterScreen
- List1                                            -                               -

- Combo1                                      -                               -

- Text1                                        Text                        <kosong>

- Command1                             Caption                       Input


Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :
Dim NamaSiswa(4) As String

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 4
        Combo1.AddItem i
   Next i
Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()

Dim no As Integer, i As Integer

no = CInt(Combo1.Text)
    NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input
Nama Siswa")
    If NamaSiswa(no) <> "" Then
        List1.Clear
        For i = 0 To 4
            List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
        Next i
    End If

End Sub


 - Membuat Label Vertikal

Nah, Sekarang Masio akan memberikan code bagaimana suatu label yang horizontal menjadi Vertikal di VB06 :
Private Function Vertical_Horizontal(ByVal nStr As String) As String   
  Dim sMyStr As String, i As Integer  
    Static bVert As Boolean


      If bVert = False Then
          For i = 1 To Len(nStr)
             If i < Len(nStr) Then
                sMyStr = sMyStr + Mid$(nStr, i, 1) & vbCrLf
             Else
                sMyStr = sMyStr + Mid$(nStr, i, 1)
End If
         Next
  Vertical_Horizontal = sMyStr
     bVert = True
   Else
            For i = 1 To Len(nStr) Step 3
               sMyStr = sMyStr + Mid$(nStr, i, 1)
            Next
              Vertical_Horizontal = sMyStr
                   bVert = False
End If
End Function

semoga bermanfaat !

Lisensi Dokumen:
IlmuKomputer.Com