1. Hello Guest, selamat datang di Forum WinPoin. Kamu bisa bertanya, berdiskusi, sharing, dan ngobrolin apapun seputar Windows, Windows Phone, PC, Gadget, atau hal seputar Teknologi lainnya. Selamat berkomunitas! ;)

Berbagi scrip VB

Discussion in 'Developer Corner' started by ilhamajah04, Jan 29, 2014.

  1. ilhamajah04

    ilhamajah04 Well-Known Member

    Joined:
    Nov 27, 2013
    Messages:
    4,709
    Yang tau Scrip VB bisa langsung di share disini aja ya!!!


    nih aku nyumbang scrip vb Dasar


    Penjumlahan


    PENJUMLAHAN
    Private Sub Label2_Click()

    End Sub

    Private Sub CmdKeluar_Click()
    End
    End Sub

    Private Sub CmdTambah_Click()
    Dim a, b, c As Byte
    a = Val(TxtA.Text)
    b = Val(TxtB.Text)
    c = a + b
    TxtC.Text = Str(c)
    End Sub
     
  2. mabaega

    mabaega Well-Known Member

    Joined:
    Nov 9, 2013
    Messages:
    2,739
    Mantaff om buat pemanasan...
    :goodjob:

    itu kalau
    txtA.text = 10000
    txtB.text = 10000

    TxtC,text nya pasti Error.
    hi..hi..hi...

    :kagum:
     
  3. Jazz

    Jazz The Heartbreak Kid Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,741
    Ini Jika hanya yg Niat asa Visual dari hati dan Niat senang tiase menyertai...:goodjob:
    vBs suck? Suck itu Menjengkelkan?
    :bingung:
     
  4. Jazz

    Jazz The Heartbreak Kid Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,741
    If you don't Like VB Why you Feedback this thread?
    You Don't Say
     
  5. Jazz

    Jazz The Heartbreak Kid Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,741
    yeah yeah what ever...
    I just want you to use a different language clearly..
     
  6. ilhamajah04

    ilhamajah04 Well-Known Member

    Joined:
    Nov 27, 2013
    Messages:
    4,709
    kumaha abdi ?
     
  7. KangUgo

    KangUgo Member

    Joined:
    Jun 23, 2015
    Messages:
    47
    kalo menurutku spt ini via vb6 :)

    Private Sub Command1_Click() 'penjumlahan
    a = Val(bil1) 'text1 dari Textbox diganti nama menjadi bil1
    b = Val(bil2) 'text2 dari Textbox diganti nama menjadi bil2
    c = a + b 'rumus penjumlahan
    bil3 = c 'text3 dari textbox diganti nama menjadi bil3
    End Sub

    Private Sub Command2_Click() 'perkalian
    a = Val(bil1) 'sama kaya diatas
    b = Val(bil2)
    c = a * b 'rumus perkalian karena memakai simbol *
    bil3 = c
    End Sub

    Private Sub Command3_Click()
    a = Val(bil1)
    b = Val(bil2)
    c = a / b ' rumus pembagian karena memakai simbol /
    bil3 = c
    End Sub

    Private Sub Command4_Click()
    a = Val(bil1)
    b = Val(bil2)
    c = a - b 'rumus pengurangan karena memakai simbol -
    bil3 = c
    End Sub

    Private Sub Command5_Click()
    a = Val(bil1)
    b = Val(bil2)
    c = a ^ b 'rumus quadrat karena memakai simbol ^
    bil3 = c

    End Sub

    Private Sub Form_Load()

    End Sub
     

Share This Page