Aside

Buah merupakan salah satu menu makanan yang menunjang kesehatan kita. Konsumsi buah sudah diketahui banyak orang sebagai pelengkap agar memenuhi menu makanan sehat karena buah memiliki nutrisi dan gizi yang diperlukan tubuh. Buah sangat bermanfaat bagi tubuh dan merupakan bagian yang tak terpisahkan agar kita dapat selalu sehat dan bugar. Buah juga dijadikan menu wajib untuk makanan Anda sehari-hari. Oleh karena itu, kita perlu tahu apa saja manfaat buah? Dan kandungan apa saja yang terkandung dalam buah untuk kesehatan tubuh kita?

Beberapa kandungan buah yang utama adalah air, vitamin, mineral, serat, antioksidan dan karbohidrat. Berikut ini akan dibahas apa saja yang terkandung dalam buah sehingga mendatangkan manfaat bagi tubuh kita:

  • Air

    Jadi jika kita kurang mengkonsumsi air 2 liter dalam 1 hari, kebutuhan air ini masih dapat terpenuhi dengan mengkonsumsi buah.

  • Vitamin dan mineral

    Sebagian besar buah mengandung vitamin yang bermanfaat seperti vitamin C dan E. Sedangkan mineral yang ada dalam buah misalnya kalsium, zink maupun mangaan. Vitamin dan mineral adalah zat yang membantu metabolisme kerja sel dalam tubuh. Kekurangan vitamin dan minerla menyebabkan metabolisme tidak berjalan dengan baik sehingga dapat mengganggu kesehatan atau kesegaran tubuh.

  • Serat

    Tubuh membutuhkan serat karena serat berguna dalam proses pencernaan. Dengan adanya serat maka proses penyerapan gula dan lemak yang buruk dalam saluran cerna dapat dihambat.

  • Antioksidan

    Merupakan zat yang menangkal radikal bebas yang masuk dalam tubuh. Radikal bebas adalah zat yang terdapat dalam polusi, aktivitas yang berlebihan, asap rokok dan kendaraan. Bila radikal bebas bertemu dengan kolesterol yang ada dalam tubuh makan akan membentuk bisul dalam tubuh sehingga dapat merusak sel endotel dalam pembuluh darah. Akibatnya, kolesterol akan mudah melekat dalam pembuluh darah.

  • Karbohidrat

    Karbohidrat digunakan sebagai sumber tenaga agar tubuh dapat melakukan aktivitas. Walaupun tidak banyak, tetapi buah memiliki karbohidrat kompleks yang terdiri dari glukosa dan fruktosa, dimana fruktosa yang masuk tidak membutuhkan hormon insulin untuk mengolahnya sehingga tidak membebani kerja pankreas, yang bila rusak dapat menyebabkan penyakit diabetes. Hal yang sangat berbeda bila kita mengkonsumsi gula.

Agar mendapatkan hasil yang maksimal, maka dianjurkan agar mengkonsumsi 10 porsi buah dengan 10 warna yang berbeda setiap hari. Jenis buah dengan warna berbeda misalnya: pisang, nanas, mangga, apel, jeruk, sawo, duku. Satu porsi satu buah utuh, bukan hanya potongan seperti rujak. Umumnya warna buah yang berbeda mengandung zat yang berbeda sehingga dapat saling melengkapi untuk memenuhi zat yang diperlukan oleh tubuh.

Dalam memilih buah sebaiknya dipilih yang warnanya mengkilap. Buah dengan warna terang atau mengkilap mengandung lebih banyak phytachemicals yang berarti lebih banyak kandungan antioksidan, lebih banyak mengandung vitamin dan mineral dibandingkan dengan buah yang kulitnya kusam.

Advertisements
By liaiguztystmikpringsewu

TABEL KODE ASCII 7bit

ASCII Table: 7-bit

Decimal   Octal   Hex    Binary     Value

——-   —–   —    ——     —–

000      000    000   00000000      NUL    (Null char.)

001      001    001   00000001      SOH    (Start of Header)

002      002    002   00000010      STX    (Start of Text)

003      003    003   00000011      ETX    (End of Text)

004      004    004   00000100      EOT    (End of Transmission)

005      005    005   00000101      ENQ    (Enquiry)

006      006    006   00000110      ACK    (Acknowledgment)

007      007    007   00000111      BEL    (Bell)

008      010    008   00001000       BS    (Backspace)

009      011    009   00001001       HT    (Horizontal Tab)

010      012    00A   00001010       LF    (Line Feed)

011      013    00B   00001011       VT    (Vertical Tab)

012      014    00C   00001100       FF    (Form Feed)

013      015    00D   00001101       CR    (Carriage Return)

014      016    00E   00001110       SO    (Shift Out)

015      017    00F   00001111       SI    (Shift In)

016      020    010   00010000      DLE    (Data Link Escape)

017      021    011   00010001      DC1    (XON) (Device Control 1)

018      022    012   00010010      DC2          (Device Control 2)

019      023    013   00010011      DC3    (XOFF)(Device Control 3)

020      024    014   00010100      DC4          (Device Control 4)

021      025    015   00010101      NAK    (Negative Acknowledgement)

022      026    016   00010110      SYN    (Synchronous Idle)

023      027    017   00010111      ETB    (End of Trans. Block)

024      030    018   00011000      CAN    (Cancel)

025      031    019   00011001       EM    (End of Medium)

026      032    01A   00011010      SUB    (Substitute)

027      033    01B   00011011      ESC    (Escape)

028      034    01C   00011100       FS    (File Separator)

029      035    01D   00011101       GS    (Group Separator)

030      036    01E   00011110       RS    (Request to Send)(Record Separator)

031      037    01F   00011111       US    (Unit Separator)

032      040    020   00100000       SP    (Space)

033      041    021   00100001        !    (exclamation mark)

034      042    022   00100010        ”    (double quote)

035      043    023   00100011        #    (number sign)

036      044    024   00100100        $    (dollar sign)

037      045    025   00100101        %    (percent)

038      046    026   00100110        &    (ampersand)

039      047    027   00100111        ‘    (single quote)

040      050    028   00101000        (    (left/opening parenthesis)

041      051    029   00101001        )    (right/closing parenthesis)

042      052    02A   00101010        *    (asterisk)

043      053    02B   00101011        +    (plus)

044      054    02C   00101100        ,    (comma)

045      055    02D   00101101        –    (minus or dash)

046      056    02E   00101110        .    (dot)

047      057    02F   00101111        /    (forward slash)

048      060    030   00110000        0

049      061    031   00110001        1

050      062    032   00110010        2

051      063    033   00110011        3

052      064    034   00110100        4

053      065    035   00110101        5

054      066    036   00110110        6

055      067    037   00110111        7

056      070    038   00111000        8

057      071    039   00111001        9

058      072    03A   00111010        :    (colon)

059      073    03B   00111011        ;    (semi-colon)

060      074    03C   00111100        <    (less than)

061      075    03D   00111101        =    (equal sign)

062      076    03E   00111110        >    (greater than)

063      077    03F   00111111        ?    (question mark)

064      100    040   01000000        @    (AT symbol)

065      101    041   01000001        A

066      102    042   01000010        B

067      103    043   01000011        C

068      104    044   01000100        D

069      105    045   01000101        E

070      106    046   01000110        F

071      107    047   01000111        G

072      110    048   01001000        H

073      111    049   01001001        I

074      112    04A   01001010        J

075      113    04B   01001011        K

076      114    04C   01001100        L

077      115    04D   01001101        M

078      116    04E   01001110        N

079      117    04F   01001111        O

080      120    050   01010000        P

081      121    051   01010001        Q

082      122    052   01010010        R

083      123    053   01010011        S

084      124    054   01010100        T

085      125    055   01010101        U

086      126    056   01010110        V

087      127    057   01010111        W

088      130    058   01011000        X

089      131    059   01011001        Y

090      132    05A   01011010        Z

091      133    05B   01011011        [    (left/opening bracket)

092      134    05C   01011100        \    (back slash)

093      135    05D   01011101        ]    (right/closing bracket)

094      136    05E   01011110        ^    (caret/circumflex)

095      137    05F   01011111        _    (underscore)

096      140    060   01100000        `

097      141    061   01100001        a

098      142    062   01100010        b

099      143    063   01100011        c

100      144    064   01100100        d

101      145    065   01100101        e

102      146    066   01100110        f

103      147    067   01100111        g

104      150    068   01101000        h

105      151    069   01101001        i

106      152    06A   01101010        j

107      153    06B   01101011        k

108      154    06C   01101100        l

109      155    06D   01101101        m

110      156    06E   01101110        n

111      157    06F   01101111        o

112      160    070   01110000        p

113      161    071   01110001        q

114      162    072   01110010        r

115      163    073   01110011        s

116      164    074   01110100        t

117      165    075   01110101        u

118      166    076   01110110        v

119      167    077   01110111        w

120      170    078   01111000        x

121      171    079   01111001        y

122      172    07A   01111010        z

123      173    07B   01111011        {    (left/opening brace)

124      174    07C   01111100        |    (vertical bar)

125      175    07D   01111101        }    (right/closing brace)

126      176    07E   01111110        ~    (tilde)

127      177    07F   01111111      DEL    (delete)

 

By liaiguztystmikpringsewu

PROGRAM 6

I6

Private Sub CmdBATAL_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

 

 

Private Sub CmdLAGI_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

TxtTM.Text = “20″ & Left(TxtNPM.Text, 2)

S = Mid(TxtYHSNPM.Text, 3, 1)

If S = “1″ Then

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2″ Then

TxtYJUR.Text = “Manajemen Informatika”

End If

S = Mid(TxtNPM.Text, 4, 2)

If S = “01″ Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02″ Then

TxtPS.Text = “Diploma Tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtNAMA_Change()

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

 

End Sub

 

 

By liaiguztystmikpringsewu

PROGRAM 5

I5

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 500000000

tunjangan = 500000

Case “II”

gapok = 10000000

tunjangan = 1000000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 30000000

tunjangan = 3000000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

 

 

Private Sub Cmdbatal_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub Txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

 

End Sub

 

Private Sub Txttunjangan_Change()

 

End Sub

By liaiguztystmikpringsewu

PROGRAM 4

I4

Private Sub CboNPM_Click()

Dim NAMA, JURUSAN, HM As String

Select Case CboNPM.Text

Case “12201018″

NAMA = “ARIS SETIAWAN”

JURUSAN = “MANAJEMEN INRORMATIKA”

Case “12201020″

NAMA = “YOHANES KRISNAWAN”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201019″

NAMA = “DARWIN SAPUTRA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201021″

NAMA = “METALIANA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201018″

NAMA = “SITI FATHONAH”

JURUSAN = “Manajemen Informatika”

End Select

TxtNAMA.Text = NAMA

TxtJURUSAN.Text = JURUSAN

TxtQUIS.SetFocus

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtNAMA.Text = “”

TxtJURUSAN.Text = “”

TxtQUIS.Text = “”

TxtTUGAS.Text = “”

TxtUTS.Text = “”

TxtUAS.Text = “”

TxtNA.Text = “”

TxtHM.Text = “”

End Sub

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtQUIS.Text)

TUGAS = Val(TxtTUGAS.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

NA = (quis + TUGAS + UTS + UAS) / 4

TxtNA.Text = NA

Select Case TxtNA.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

TxtHM.Text = HM

End Sub

Private Sub Form_Load()

CboNPM.AddItem “12100018″

CboNPM.AddItem “12201020″

CboNPM.AddItem “12201019″

CboNPM.AddItem “12201021″

CboNPM.AddItem “12201018″

End Sub

Private Sub TxtNAMA_Change()

End Sub

Private Sub TxtQUIS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTUGAS.SetFocus

End If

End Sub

Private Sub TxtTUGAS_KeyPress(KeyAscii As Integer)

If KESASCII = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

By liaiguztystmikpringsewu

PROGRAM 3

I3

 

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

By liaiguztystmikpringsewu

PROGRAM 2

I2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End Sub

 

Private Sub CmdULANG_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

Txt6 = “”

End Sub

 

 

 

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

 

 

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(TxtY2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End If

End Sub

 

 

By liaiguztystmikpringsewu

PROGRAM 1

I1

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

 

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Optblue_Click()

Lbltext.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lbltext.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Lbltext.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

By liaiguztystmikpringsewu

program1

program1

PROGRAM 1

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

 

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

By liaiguztystmikpringsewu

program2

igustus2

PROGRAM 2

 

Private Sub Command1_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

By liaiguztystmikpringsewu