Materi

Private Sub CommandButton1_Click() On Error Resume Next Dim lembar As Worksheet Dim martin As Range Set lembar = Worksheets(2) Set […]

function awal(){ a=nilai1._width+30; b=nilai1._height+100; a1=nilai2._width+250; b1=nilai2._height+100; f=nilai1.text; f1=nilai2.text; _root.createTextField(“gambar”,getNextHighestDepth(),a,b,40,20); _root.createTextField(“gambar1″,getNextHighestDepth(),a1,b1,40,20); gambar.text=nilai1.text; gambar1.text=nilai2.text; gambar.border=true; gambar1.border=true; kalimat=newTextFormat(); kalimat.size=18; kalimat.color=0x009966; kalimat.align=”center”; kalimat.bold=true; gambar.setTextFormat(kalimat);

Private Sub CommandButton1_Click() Dim vertikala As Shape Dim horizontal As Shape Dim a, b, c, d As Integer Dim e,

HUBUNGAN ANTAR SUDUT Sudut Berpenyiku dan Berpelurus Buka aplikasi geogebra pada layar PC. Lalu perhatikan menu bar pada geogebra. Klik

Private Sub CommandButton1_Click() On Error Resume Next Dim a As Integer Dim b As Integer Dim c As Integer Dim

Sub waktu() Dim a As Integer a = 1 awal = Timer While Timer < awal + a DoEvents Wend

Sub mulai() Dim b As Integer a = Timer b = 59 c = 0 Do While Timer < a

Sub maju1() ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text + 1 End Sub Sub mundur1() ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text – 1 End Sub Sub maju2()

Sub langkah1() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a =

Sub saya() For i = -5 To 10 Range(“A” & 9 + i) = i Range(“B” & 9 + i)