Minggu, 19 Juni 2016

Cara membuat Membuat Grafik, Gambar, Animasi, Warna, dan Suara. Di VISUAL BASIC 6.0

Microsoft Visual Basic 6.0
Cara membuat Membuat Grafik, Gambar, Animasi, Warna, dan Suara.

Sebelumnya kita harus tau apa fungsi-fungsi/pengertian dari project yang akan kita buat, disini saya akan membuat suatu project tentang GRAFIK, GAMBAR, ANIMASI, WARNA DAN SUARA, yaitu:

  1. Grafik adalah suatu visualisasi table, yang dimana table tersebut berupa angka-angka yang dapat disajikan ataupun dapat ditampilkan ke dalam bentuk gambar.
  2. Gambar adalah suatu perpaduan titik, garis, bidang, dan warna yang dikomposisikan untuk mencitrakan sesuatu. Gambar merupakan sajak tanpa kata-kata. Suatu objek bisa dijadikan suatu gambar.
  3. Animasi adalah gabungan suatu gambar yang ditampilkan menjadi satu secara bergantian, sehingga dapat bergerak ( interaktif ).
  4. Warna adalah spektrum tertentu yang terdapat di dalam suatu cahaya sempurna (berwarna putih). Identitas suatu warna ditentukan panjang gelombong cahaya tersebut. Sebagai contoh warna biru memiliki panjang gelombang 460 nanometer.
  5. Suara adalah pemampaatan mekanis atau gelombang longitudinal yang merambat melalui medium.


  • LANGKAH 1



  • GAMBAR FORM AWAL


  • CARA MENAMBAHKAN COMPONENTS



  •  TOOLBOX SEBELUM DAN SESUDAH












  • CARA MENGHIDUPKAN GAMBAR GIF




      • CARA MEMASUKAN MUSIK




      • CARA MEMASUKAN VIDEO



      • CARA MEMBUAT GRAFIK

      KET ; Ketika kita ingin menganti data grafik kita cuman memainkan di propertisnya jika dicontohkan kita ingin merubah pada colom 4 kita harus merubah RAW nya terlebih dahulu menjadi RAW 4 dan otomatis coloum beubah menjadi COLOUM 4.


      • CARA MEMBUAT PROGRESS BAR & CODINGAN




      • FORM 7 & CODINGAN





       Dim Teks As String

       Dim digit As Integer
      _________________________________________________________________________________ 

      Private Sub Timer1_Timer()
          Me.Label1.Caption = ""
             Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
             Me.Label1.Caption = Me.ProgressBar1.Value & "%"
             If Me.ProgressBar1.Value = 100 Then
             Unload Me
               'Setelah selesai langsung panggil form Main Menu'
             Form1.Show
             End If
             
      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
      Label3.FontSize = 15
       Label3.Caption = ""
       Timer2.Interval = 150


      Teks = "1. Aditia Firmansyah"

      If digit < Len(Label3) Then digit = -2
       digit = digit + 1
       Label3.Caption = Mid(Teks, 1, digit)
      End Sub
      ________________________________________________________________________________
      Private Sub Timer3_Timer()
      Label4.FontSize = 15
       Label4.Caption = ""
       Timer3.Interval = 150


      Teks = "2. Damara Priatama"

      If digit < Len(Label4) Then digit = -2
       digit = digit + 1
       Label4.Caption = Mid(Teks, 1, digit)
      End Sub


      • FORM 1 & CODINGAN


      Option Explicit
       Dim Teks As String
       Dim i As Integer
       Dim digit As Integer
       Dim Red, Green, Blue As Integer
       Private m_Index As Integer
       Private m_NumImages As Integer
      ________________________________________________________________________________
      Private Sub Command1_Click()
      Form2.Show
      End Sub
      ________________________________________________________________________________
      Private Sub Command2_Click()
      End
      End Sub
      ________________________________________________________________________________
      Private Sub Timer1_Timer()
       Label1.FontSize = 35
       Label1.Caption = ""
       Timer1.Interval = 150


      Teks = "T H E    Z O O"

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label1.Caption = Mid(Teks, 1, digit)
       If Blue <= 255 Then
          Blue = Blue + 50
      Else
          Blue = 0
          Green = Green + 50
      End If

      If Green >= 255 Then
          Green = 0
          Red = Red + 50
      End If

      If Red >= 255 Then
          Red = 0
      End If
      Label1.ForeColor = Int(RGB(Red, Green, Blue))
      Label1.Refresh


      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
      AniGIF2.Left = AniGIF2.Left + 500
            If AniGIF2.Left >= Form1.Width Then
                AniGIF2.Left = 0

      End If
      End Sub
      ________________________________________________________________________________
      Private Sub Timer3_Timer()
      AniGIF1.Left = AniGIF1.Left - 500
            If AniGIF1.Left <= -AniGIF1.Left Then
                AniGIF1.Left = Form1.Width

      End If
      End Sub
      ________________________________________________________________________________
      Private Sub Timer4_Timer()
      AniGIF3.Left = AniGIF3.Left + 500
            If AniGIF3.Left >= Form1.Width Then
                AniGIF3.Left = 0

      End If
      End Sub


      • FORM 2 & CODINGAN


      Private Sub Command1_Click()
      Select Case Combo1.Text
      Case "harimau"
      Form3.Show
      Case "kakatua"
      Form4.Show
      Case "elang"
      Form5.Show
      Case "singa"
      Form6.Show
      End Select
      End Sub
      ________________________________________________________________________________
      Private Sub Command2_Click()
      Form1.Show
      Me.Hide
      End Sub


      • FORM 3 & CODINGAN



      Option Explicit
       Dim Teks As String
       Dim i As Integer
       Dim digit As Integer
       Dim Red, Green, Blue As Integer
       Private m_Index As Integer
       Private m_NumImages As Integer
      ________________________________________________________________________________
      Private Sub Command1_Click()
      Form2.Show
      Me.Hide
      End Sub
      ________________________________________________________________________________

      Private Sub Timer1_Timer()
       Label1.FontSize = 15
       Label1.Caption = ""
       Timer1.Interval = 150


      Teks = "H A R I M A U"

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label1.Caption = Mid(Teks, 1, digit)
       If Blue <= 255 Then
          Blue = Blue + 50
      Else
          Blue = 0
          Green = Green + 50
      End If

      If Green >= 255 Then
          Green = 0
          Red = Red + 50
      End If

      If Red >= 255 Then
          Red = 0
      End If
      Label1.ForeColor = Int(RGB(Red, Green, Blue))
      Label1.Refresh

      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
      Label2.FontSize = 15
       Label2.Caption = ""
       Timer2.Interval = 150


      Teks = "Jadi  pada  tahun  1970-2010  populasi HARIMAU  menurun  karena  perburuan  liar  dan  kehilangan  habitat. "

      If digit < Len(Label1) Then digit = -2
       digit = digit + 1
       Label2.Caption = Mid(Teks, 1, digit)
      End Sub


      • FORM 4 & CODINGAN


      Option Explicit
       Dim Teks As String
       Dim i As Integer
       Dim digit As Integer
       Dim Red, Green, Blue As Integer
       Private m_Index As Integer
       Private m_NumImages As Integer
      ________________________________________________________________________________
      Private Sub Command1_Click()
      Form2.Show
      Me.Hide
      End Sub
      ________________________________________________________________________________
      Private Sub Timer1_Timer()
       Label1.FontSize = 15
       Label1.Caption = ""
       Timer1.Interval = 150


      Teks = "K A K A T U A"

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label1.Caption = Mid(Teks, 1, digit)
       If Blue <= 255 Then
          Blue = Blue + 50
      Else
          Blue = 0
          Green = Green + 50
      End If

      If Green >= 255 Then
          Green = 0
          Red = Red + 50
      End If

      If Red >= 255 Then
          Red = 0
      End If
      Label1.ForeColor = Int(RGB(Red, Green, Blue))
      Label1.Refresh
      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
       Label3.FontSize = 15
       Label3.Caption = ""
       Timer2.Interval = 150


      Teks = "Jadi pada tahun 1950-2015 populasi KAKATUA menurun di sebabkan banyak jualbeli burung. "

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label3.Caption = Mid(Teks, 1, digit)
      End Sub


      • FORM 5 & CODINGAN


      Option Explicit
       Dim Teks As String
       Dim i As Integer
       Dim digit As Integer
       Dim Red, Green, Blue As Integer
       Private m_Index As Integer
       Private m_NumImages As Integer
      ________________________________________________________________________________
      Private Sub Command1_Click()
      Form2.Show
      Me.Hide
      End Sub
      ________________________________________________________________________________
      Private Sub Timer1_Timer()
       Label1.FontSize = 15
       Label1.Caption = ""
       Timer1.Interval = 150


      Teks = "E  L  A  N  G"

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label1.Caption = Mid(Teks, 1, digit)
       If Blue <= 255 Then
          Blue = Blue + 50
      Else
          Blue = 0
          Green = Green + 50
      End If

      If Green >= 255 Then
          Green = 0
          Red = Red + 50
      End If

      If Red >= 255 Then
          Red = 0
      End If
      Label1.ForeColor = Int(RGB(Red, Green, Blue))
      Label1.Refresh
      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
       Label3.FontSize = 15
       Label3.Caption = ""
       Timer2.Interval = 150


      Teks = "Jadi pada tahun 1989-1999 populasi ELANG meningkat berkat berkembang biak dengan baik. "

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label3.Caption = Mid(Teks, 1, digit)
      End Sub


      • FORM 6 & CODINGAN


      Option Explicit
       Dim Teks As String
       Dim i As Integer
       Dim digit As Integer
       Dim Red, Green, Blue As Integer
       Private m_Index As Integer
       Private m_NumImages As Integer
      ________________________________________________________________________________
      Private Sub Command1_Click()
      Form2.Show
      Me.Hide
      End Sub
      ________________________________________________________________________________
      Private Sub Timer1_Timer()
       Label1.FontSize = 15
       Label1.Caption = ""
       Timer1.Interval = 150


      Teks = "S  I  N  G  A"

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label1.Caption = Mid(Teks, 1, digit)
       If Blue <= 255 Then
          Blue = Blue + 50
      Else
          Blue = 0
          Green = Green + 50
      End If

      If Green >= 255 Then
          Green = 0
          Red = Red + 50
      End If

      If Red >= 255 Then
          Red = 0
      End If
      Label1.ForeColor = Int(RGB(Red, Green, Blue))
      Label1.Refresh
      End Sub
      ________________________________________________________________________________
      Private Sub Timer2_Timer()
       Label3.FontSize = 15
       Label3.Caption = ""
       Timer2.Interval = 150


      Teks = "Jadi pada tahun 1991-2011 populasi SINGA meningkat berkat larangan berburu dan konservasi secara bersinambungan. "

      If digit < Len(Label1) Then digit = -1
       digit = digit + 1
       Label3.Caption = Mid(Teks, 1, digit)
      End Sub



      TERIMA KASIH

      di Tidak ada komentar:
      Label: , , , ,
      Langganan: Komentar (Atom)

      READING COMPREHENSION

      Causes of Floods Floods are second only to fire as the most common of all natural disasters. They occur almost everywhere in the world...