Visual Basic Pertemuan VIII

Pertemuan VIII

Hari/Tanggal             : Selasa, 14 Mei 2013
Pokok Bahasan         :
For     Syntax : for  var = Next to Next step N
                                            < statement>
                                         Next var

Sebelum kita akan menulis sebuah kode program,
    Buatlah terlebih dahulu algoritma
    untuk membuat algoritma dapat digunakan :
                                                                           -flowchart
                                                                           -psudo Cade
                                                                           -defenisi Algoritma


 Simbol Flowchart          Keterangan
                                                                
  

      Contoh 1:
                                                                                     Antar Muka Program

          Flowchart                              
                   

     Kode Program
     Private sub cmd_clikk()
         Dim A<B<C as integer
      A= val (txt.A.text)
      B=val (txt.b.text)
      C=A+B
      Txtc.teks =str (c)
      End sub
    
     Contoh 2:


                                                  Antar Muka Program
                                                        
      Flowchart

       
  
        Kode Program          
        Private sub cmdproses_clik ()
             Dim total_jual ,potongan ,Bayar as single
           Total jual =(txt.total_jual.Text)
           Bayar =val (txt.byar.Text)
           If(total_jual>3000000)Then
                  Potongan =0,1*total_jual
           Else
                  Potongan =0
           End if
           Bayar = total_jual –potongan
           Txtbayar.text=str (bayar)
           End sub

          Larik (Array)
              Pengenalan yang dapat menampung banyak nilai
                     1.    Variable biasa                                   2.  Variabel Array
                             Dim t1,t2,t3,t4,t5 as byte                     Dim t(5) as byte

                                 Ti =2                                                  T(1)=2
                                 T2=3                                                  T(2)=3
                                 T3=4                                                  T(3)=4
                                 T4=5                                                  T (4)=5
                                 T5=6                                                  T(5)=6
                              Print t1,t2,t3,t4,t5                                   For I =1 to 100 step 1
                                                                                                  Print t(i)
                                                                                               Next i