Kamis, 15 Maret 2012

scrip pertemuan4



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Halaman As Byte
        Halaman = 1
        Do While Halaman <= 10
            ListBox1.Items.Add(Halaman)
            Halaman = Halaman + 1
        Loop
        Dim page As Byte
        page = 1
        Do Until page = 11
            ListBox2.Items.Add(page)
            page = page + 1
        Loop
        Dim Hal As Byte
        For Hal = 1 To 10
            ComboBox1.Items.Add(Hal)
        Next
        Dim pages As Byte
        pages = 1
        While pages <= 10
            ComboBox2.Items.Add(pages)
            pages = pages + 10
        End While
        Dim Hlm As Integer
        For Hlm = 10 To 1 Step -1
            ListBox3.Items.Add(Hlm)
        Next
        Dim Pag As Integer
        Pag = 1
        Do While Pag <= 10
            ListBox4.Items.Add(Pag)
            Pag = Pag * 1 + 2
        Loop
        Dim pg As Integer
        pg = 2
        Do While pg <= 10
            ListBox5.Items.Add(pg)
            pg = pg * 1 + 2
        Loop



    End Sub
End Class

Selasa, 06 Maret 2012

source code running led


ASEM-51 V1.3                                         Copyright (c) 2002 by W.W. Heinz                                         PAGE 1





       MCS-51 Family Macro Assembler   A S E M - 5 1   V 1.3
       =====================================================



    Source File:    F:\running.asm
    Object File:    F:\running.hex
    List File:    F:\running.lst



 Line  I  Addr  Code            Source

    1:        N      0000    Org 0h
    2:      0000    75 80 00    start:     Mov P0,#00000000b
    3:      0003    12 00 71        call delay
    4:      0006    12 00 71        call delay
    5:      0009    12 00 71        call delay
    6:      000C    75 80 FE        Mov P0,#11111110b
    7:      000F    12 00 71        call delay
    8:      0012    12 00 71        call delay
    9:      0015    75 80 FD        Mov P0,#11111101b
   10:      0018    12 00 71        call delay
   11:      001B    12 00 71        call delay
   12:      001E    75 80 FB        Mov P0,#11111011b
   13:      0021    12 00 71        call delay
   14:      0024    12 00 71        call delay
   15:      0027    75 80 00        Mov P0,#00000000b
   16:      002A    12 00 71        call delay
   17:      002D    12 00 71        call delay
   18:      0030    75 80 FF        Mov P0,#11111111b
   19:      0033    12 00 71        call delay
   20:      0036    12 00 71        call delay
   21:      0039    75 80 55        Mov P0,#01010101b
   22:      003C    12 00 71        call delay
   23:      003F    12 00 71        call delay
   24:      0042    75 80 AA        Mov P0,#10101010b
   25:      0045    12 00 71        call delay
   26:      0048    12 00 71        call delay
   27:      004B    75 80 55        Mov P0,#01010101b
   28:      004E    12 00 71        call delay
   29:      0051    12 00 71        call delay
   30:      0054    75 80 AA        Mov P0,#10101010b
   31:      0057    12 00 71        call delay
   32:      005A    12 00 71        call delay
   33:      005D    75 80 55        Mov P0,#01010101b
   34:      0060    12 00 71        call delay
   35:      0063    75 80 AA        Mov P0,#10101010b
   36:      0066    12 00 71        call delay
   37:      0069    75 80 FF        Mov P0,#11111111b
   38:      006C    12 00 71        call delay
   39:      006F    80 8F            sjmp start
   40:                    ;
   41:      0071    7B FF            delay:  mov R3,#255
   42:      0073    7C FF            delay2: mov R4,#255
   43:      0075    7B FF            delay3: mov R3,#255

ASEM-51 V1.3                                         Copyright (c) 2002 by W.W. Heinz                                         PAGE 2



 Line  I  Addr  Code            Source

   44:      0077    7A FF            delay1: mov R2,#255
   45:      0079    D9 FC            delay6:    djnz R1,delay1
   46:      007B    DF FC                djnz R7,delay6
   47:      007D    22                ret
   48:      007E    80 80                sjmp start
   49:                        ;
   50:                        end
   51:





                     register banks used:  ---

                     no errors




ASEM-51 V1.3                                         Copyright (c) 2002 by W.W. Heinz                                         PAGE 3





           L I S T   O F   S Y M B O L S
           =============================


SYMBOL                  TYPE     VALUE    LINE
------------------------------------------------------------
??ASEM_51              NUMBER    8051
??VERSION              NUMBER    0130
AC                  BIT          D6
ACC                  DATA          E0
B                  DATA          F0
CY                  BIT          D7
DELAY                  CODE        0071      41
DELAY1                  CODE        0077      44
DELAY2                  CODE        0073      42
DELAY3                  CODE        0075      43
DELAY6                  CODE        0079      45
DPH                  DATA          83
DPL                  DATA          82
EA                  BIT          AF
ES                  BIT          AC
ET0                  BIT          A9
ET1                  BIT          AB
EX0                  BIT          A8
EX1                  BIT          AA
EXTI0                  CODE        0003
EXTI1                  CODE        0013
F0                  BIT          D5
IE                  DATA          A8
IE0                  BIT          89
IE1                  BIT          8B
INT0                  BIT          B2
INT1                  BIT          B3
IP                  DATA          B8
IT0                  BIT          88
IT1                  BIT          8A
OV                  BIT          D2
P                  BIT          D0
P0                  DATA          80
P1                  DATA          90
P2                  DATA          A0
P3                  DATA          B0
PCON                  DATA          87
PS                  BIT          BC
PSW                  DATA          D0
PT0                  BIT          B9
PT1                  BIT          BB
PX0                  BIT          B8
PX1                  BIT          BA
RB8                  BIT          9A
RD                  BIT          B7
REN                  BIT          9C
RESET                  CODE        0000
RI                  BIT          98
RS0                  BIT          D3
RS1                  BIT          D4

ASEM-51 V1.3                                         Copyright (c) 2002 by W.W. Heinz                                         PAGE 4



SYMBOL                  TYPE     VALUE    LINE
------------------------------------------------------------
RXD                  BIT          B0
SBUF                  DATA          99
SCON                  DATA          98
SINT                  CODE        0023
SM0                  BIT          9F
SM1                  BIT          9E
SM2                  BIT          9D
SP                  DATA          81
START                  CODE        0000       2
T0                  BIT          B4
T1                  BIT          B5
TB8                  BIT          9B
TCON                  DATA          88
TF0                  BIT          8D
TF1                  BIT          8F
TH0                  DATA          8C
TH1                  DATA          8D
TI                  BIT          99
TIMER0                  CODE        000B
TIMER1                  CODE        001B
TL0                  DATA          8A
TL1                  DATA          8B
TMOD                  DATA          89
TR0                  BIT          8C
TR1                  BIT          8E
TXD                  BIT          B1
WR                  BIT          B6