Mencantumkan kode program di posting Anda, tolong ikuti aturan yang sesuai, baca http://diskusiweb.com/discussion/39204/aturan-cara-menyisipkan-kode-program-di-diskusiweb
Tolong pilih kategori sesuai, jenis posting (pertanyaan atau bukan) dan sertakan tag/topik yang sesuai misal komputer, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus.
Aturan & Cara Menyisipkan Kode Program di Diskusiweb
  • adminadmin
    Posts: 701
    Kalau ingin posting kode dan tampil dengan format sintaks, gunakan tag pre dengan atribut lang diisi dengan nama bahasa programnya.

    Contoh:
    <pre lang="php">
    <?php
    $variabel = "VARIABEL";
    echo "NGETEST";
    ?>
    < /pre>


    Hasilnya akan jadi seperti berikut:
    <?php 
    $variabel = "VARIABEL";
    echo "NGETEST";
    ?>
  • Perl. lang="perl"
    $n = '3 apples';
    $m = '2 oranges';
    print $n + $m;


    Ruby. lang="ruby"
    say['test'] = "saya cinta ruby"
    puts say.upcase


    Python. lang="python"
    >>> import math
    >>> print('The value of PI is approximately %5.3f.' % math.pi)


    Javascript. lang="javascript"
    for (i=0;i<=10;i++) {
    if (i==3) {
    break;
    }
    document.write("The number is " + i);
    document.write("<br />");
    }


    ASP. lang="asp"
    <%
    Dim fs,fo
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set fo=fs.GetFolder("c:\test")
    Response.Write("Folder created: " & fo.DateCreated)
    set fo=nothing
    set fs=nothing
    %>


    Pascal. lang="pascal"
    procedure MWritei(const i: Integer);
    begin
    Write(i);
    end;


    C++. lang="c"
    #include <iostream>
     
    int main()
    {
    std::cout << "Hello, world!\n";
    }


    C#. lang="c"
    public class Foo
    {
    /* A Multi-Line
    comment */

    public static void Bar(int firstParam) {}
    }


    Java. lang="java"
    package org.kodejava.example.java.util;
     
    import java.text.DateFormat;
    import java.text.SimpleDateFormat;
    import java.util.Calendar;
    import java.util.Date;
     
    public class DateToString
    {
    public static void main(String[] args)
    {
    // Create an instance of SimpleDateFormat used for formatting
    // the string representation of date (month/day/year)
    DateFormat df = new SimpleDateFormat("MM/dd/yyyy");
     
    // Get the date today using Calendar object.
    Date today = Calendar.getInstance().getTime();
    // Using DateFormat format method we can create a string
    // representation of a date with the defined format.
    String reportDate = df.format(today);
     
    // Print what date is today!
    System.out.println("Report Date: " + reportDate);
    }
    }


    SQL. lang="sql"
    SELECT *
    INTO new_table_name
    FROM old_tablename;
     
    SELECT *
    FROM a
    INNER JOIN b
    ON b.id = a.id_b
    WHERE a.active = 'yes' OR a.active = TRUE
    LIMIT 5;
  • untuk C++ dan C# belum highlight tuh. :D langnya diisi apa? "ceples-ples" kah? "cesarap" kah?
    atau ini diskriminasi syntax highlight dalam bahasa pemrograman. [-(

    yang C udah bisa, entah bener apa ngga. :D
  • @Skatel_Linux_com : kren om... ahhahaa
    bisa smua bhsa pemrograman ya om??
    hihihi
    :)
  • HusniHusni
    Posts: 3,255
    lang="vb"
    Public Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    TestMethod = c
    End Function
     
    TestMethod()


    lang="vbnet"
    Public Class TestClass
    Public Shared Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    Return c
    End Function
    End Class
     
    ' wedew, kenapa keyword: Module gak berwarna yah?
    Public Module TestModule
    Public Sub Main()
    Dim c As Collection = TestClass.TestMethod() ' <----- ini kok malah berwarna @_@
    End Sub
    End Class


    lang="aspnet"
    Public Class TestClass
    Public Shared Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    Return c
    End Function
    End Class
     
    ' wedew, kenapa keyword: Module gak berwarna yah?
    Public Module TestModule
    Public Sub Main()
    Dim c As Collection = TestClass.TestMethod() ' <----- ini kok malah berwarna @_@
    End Sub
    End Class


    lang="csharp"
        class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="cpp"
        class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="xml"
        <div id="TestDiv">
    <!-- coba mouse over, ada yang aneh -->
    <a href="http://www.google.com&quot;>Test Link</a>
    </div>
    <div id="TestDiv2">
    <a href="javascript:alert('oke')">Test Link 2</a>
    </div>


    lang="css"
        #TestDiv {
    font-weight:bold;
    color:whitesmoke;
    }
    #TestDiv2 {
    border: 1px solid black;
    padding: 10px;
    }
    a {
    color: steelblue;
    text-decoration: none;
    }
    a:hover {
    color:orange;
    }


    lang="actionscript"
        class com.test.TestClass extends MovieClip {
    public function TestClass() {}
    public function onLoad() :Void {
    var txtTest:TextField = this.createTextField("Test", 0, 0, 0, 100, 100);
    txtTest.text = "Test";
    }
    }


    lang="vbscript"
       ' gak kerender
    Dim x As String
    x = "Test"
    alert(x)


    lang="jsharp"
        /* gak kerender */
    class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="dos"
        rem Tes Ping
    @echo off
    echo Sedang ngeping detik.com, tekan Ctrl C untuk berhenti
    ping detik.com -l 1 -t > detik.txt


    lang="bash"
        cd /var/www
    echo "php_value magic_quotes_gpc 0" > .htaccess


    lang="asm"
        org 100h
     
    mov ah, 02
    mov dl, 07h
    int 21h
     
    int 20h
     
    ret


    lang="matlab"
        % Test
     
    variable1 = 2;
    variable2 = 4;
    variable3 = 8;
     
    fprintf('v1: %f, v2: %f, v3: %f\n', variable1, variable2, variable3);
     
    fprintf(['This is a long string that',...
    ' will have to be split!',...
    ' Here are the variables: ',...
    ' variable1: %f, variable2: %f,',...
    ' variable3: %f\n\n'], variable1,...
    variable2, variable3);
  • HusniHusni
    Posts: 3,255

    untuk C++ dan C# belum highlight tuh. :D langnya diisi apa? "ceples-ples" kah? "cesarap" kah?
    atau ini diskriminasi syntax highlight dalam bahasa pemrograman. [-(

    yang C udah bisa, entah bener apa ngga. :D



    coba liat kodingan di atas om :D

  • bro, kalau coding kita yg di tag
     itu panjang ke kanan kok tidak ada scrollnya ya?
  • kang admin, itu tag codenya masih kepotong yak kalau kodingnya memanjang ke kanan gitu? apa gak lebih baik dikasih ada scrollnya? :)
  • xyzzyxyzzy
    Posts: 1
    coba ah
    #include <stdio.h>
     
    const char *s = "abcdefghijklmnopqrstuvwxyz";
     
    int main (void)
    {
    return(printf("%s\n", s) && *s++ && main());
    }
  • <?php
    echo "Test PHP Code, dan berhasil! haha ..thanks infonya :)";
    ?>
  • LOCAL lcTes
    lcTes = "Hello World.."
     
    MESSAGEBOX(lcTes, 0+64, "Info")
  • untuk visual foxpro ga ada syntax coloring-nya om admin?
  • sonisansonisan
    Posts: 1
    tes vb
    dim a as string
    a="Hello World"
    print a
  • adminadmin
    Posts: 701
    Nyoba ruby ah:
    class MessagesController < ApplicationController
    before_filter :authenticate_user!, :only => [:create]
     
    respond_to :html, :json, :xml, :except => :create
     
    def index
    @raw_messages = current_convo.messages
    @messages = @raw_messages.collect{|m| {:uuid => m.uuid, :id => m.id, :text => m.body, :gravatar_url => m.owner.gravatar }}
    respond_with @messages do |format|
    format.html { redirect_to convo_url(current_convo) }
    end
    end
     
    def create
    @message = Message.create(:convo => current_convo, :owner => current_user, :body => params[:text], :uuid => params[:uuid])
    respond_with([current_convo, @message]) do |format|
    format.js do
    Socky.send({ :text => params[:text],
    :uuid => params[:uuid],
    :gravatar_url => params[:gravatar_url] }.to_json,
    :channels => "convo_#{current_convo.id}" )
    current_user.visit current_convo # make sure to reset stats for this current convo
    render :nothing => true
    end
    end
    end
     
    private
     
    def current_convo
    @current_convo ||= Convo.find(params[:convo_id])
    end
     
    end
  • fatihurrfatihurr
    Posts: 7
    $name = "fatihurr";
    $kenal = $_POST["salam"];
    if($kenal=="ya"){
    echo "nama saya $name, salam kenal";
    }else{
    echo "kalo gitu aku aja deh yang kenalan, salam kenal semua";
    }
  • public class diskusiweb{
    public static void main(String[]args){
     
    String a="Salam Kenal admin, ayas dari PARE-KEDIRI";
    String b="Terima kasih atas info-infonya sangat membantu belajar program";
    String c="See you again";
     
    System.out.println("Assalamu'alaikum");
    System.out.println(a);
    System.out.println(b);
    System.out.println(c);
    }
    }
  • sun4sonsun4son
    Posts: 161
    echo "test doank";


  • Om @admin, kok template hightlight code-nya jadi jelek begini? background kuning yang width-nya tidak 100%, ga da nomor barisnya juga.


  • .  .
    Posts: 3,238
    kreatip dikit gitu lho go ...
    ambil cat item ama kuas, nah monitor nya elo coret-coret sendiri pake cat buat nulis nomer baris

    gitu aja pake komplen ke admin







    ;))
  • Udah normal, ternyata pengaruh Opera Turbo. wkakakatrok. =))
  • .  .
    Posts: 3,238
    @mimin

    miinnnn ... tuntut ajah tu yugo ke pulisi, tuduhan : pencemaran nama baik :))
  • adminadmin
    Posts: 701
    Hayah ... ngitung aja baris ke berapa susah, bisa ngitung gaaak?? Ga bisa ngitung jangan jadi programmer deeee  ;))
  • <meta http-equiv="content-type" content="text/html; charset=utf-8">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
    <meta http-equiv="content-language" content="en">
    <link rel="shortcut icon" href="favicon.ico">


    akhirnya
  • admin said:

    Hayah ... ngitung aja baris ke berapa susah, bisa ngitung gaaak?? Ga bisa ngitung jangan jadi programmer deeee  ;))



    saya ini memang bukan programmer min, saya ini tukang kritik programmer. :))
  • algealge
    Posts: 6
    <pre lang="vb.net">
    <?php
    $variabel = "VARIABEL";
    echo "ko ga jalan yaa?apa yang salah?";
    ?>
    < /pre>


  • <?php
    echo "Hello";
    ?>


    Bisa euy...
  • #include<stdio.h>
    #include<conio.h>
    void main()
    {
    printf("Den ayunk")
    getche();
    }</conio.h></stdio.h>
  • <?php
    // Test PHP
    $nama = "Fery";
    $masih = "newbie";
    $pingin = "blajar pemrograman";
    ?>
  • static void Main()
    {
    //C# is cool
    string str = "this is C# code";
    Action lambdaExp = () => Console.WriteLine("this is lambda expression");
    }
  • LOLOLOLO
    Posts: 12
     
    /*
    * test
    */

     
    /* test..test */
     
    // test..test..test
     
    short v;
     
    /* test error */*
     
    int test;
     
    / */ */
     
    char ch;
  • tonoe63tonoe63
    Posts: 7
    <?php echo "tes"; ?>
  • adiputra_adiputra_
    Posts: 6
    <?php 
    echo "Nyoba yak..";
    ?>
  • adzieadzie
    Posts: 14




    <br><!--?php<br /--> <br>echo "coba";<br>?&gt;<br>


  • ghost401ghost401
    Posts: 4
    //test [code]
    echo "The Red Dog Run Over The Lazy Man";
  • <!--?php
    //test
    echo "Mantap";
    ?-->
  • Test:
    #include "stdio.h"
     
    int main(){
    int a,b;
    a = 10; b = 20;
    printf("jumlah=%d",a*b);
    return (0);
    }
  • R_2R_2
    Posts: 34
    <!--?java
    $variabel="Test";
    echo"coba";
    ?-->
  • Akhirnya...

    <!--?php
    $variabel = "VARIABEL":
    echo "TEST";
    ?-->
  • asldfklasdfjasd;fkjaldf
    <!--?php 
    $variabel = "VARIABEL";
    echo "NGETEST";
    ?-->
    &lt; /pre&gt;
  • coba aja om
    <!--?php 
    $int a = 20;
    $int b = 30;
    $int c = a + b;
    $System.out.println("c ="+c);
    ?-->
    &lt; /pre&gt;
  • procedure sayHello():String;
    begin
    Result:='My Name is Bugz';
    end;
  • andstmandstm
    Posts: 66
    Test
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    with ADOQuery1 do
    begin
    SQL.Clear;
    SQL.Text := 'SELECT * FROM jatuh_tempo WHERE jt='+QuotedStr(FormatDateTime('yyyy-mm-dd',Now));
    Open;
    if ADOQuery1.RecordCount > 0 then
    ShowMessage('Ada yg jatuh tempo lho')
    end;
    end;


    ahahhaha
    akhirnya bisa jg :D
  • andstmandstm
    Posts: 66
    Test php dulu :D
     
    <?
     
    $bejo = "NGEPRET";
    echo $bejo;
     
    ?-->
  • .  .
    Posts: 3,238

    do this :

    - tulis post / reply

    - klik button paling ujung kanan yg bergambar mirip : [<>]

    - copy source dari coding

    - ketik <pre lang="bahasa_pemrograman"></pre>

    - paste kan copy-an source di antaranya

    <?php echo 'hello world!'; ?>

    - submit


  • tunggultunggul
    Posts: 23
    testing

    <? echo"xxx"?>
  • muzaenmuzaen
    Posts: 2
    <?php
    $nama="muzaen";
    echo $nama;
    ?>
  • Bobby_onlyBobby_only
    Posts: 136
    int a,b,c;
    a=1;
    b= 10;
    c= a+b;
  • <Open "C:\Pemakai.Dat" For Random As #1 Len = Len(DatPemakai)
    End Type>
  • wongndrowongndro
    Posts: 24
    <?php 
    $variabel = "NGETEST";
    echo $variabel;
    ?>


  • <?php 
    $a = "Coba";
    $b = "Berhasil";
    $c = $a, $b;
    echo $c;
    ?>

Selamat datang,

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Tagged

Top Posters