Mengatasi Modem Tidak Bisa Conect pada Window 8

Mengatasi Modem Tidak Bisa Conect pada Window 8, permasalahan baru timbul saat saya menggunakan window 8, ketika saya menginstall modem saya dengan merk Venus akhirnya berhasil diinstall dengan lancar, akan tetapi permasalahannya adalah modem tersebut tidak bisa conect. Permasalahan ini juga muncul pada teman saya juga yang menggunakan modem smartfreen. Sayang sekali, window 8 dengan kecanggihannya masih belum bisa menjalankan program yang ada dan mau tidak mau harus mengganti compatibility-nya dulu agar bisa dijalankan. Jika diantara teman-teman yang mungkin mengalami hal yang sama dengan saya berikut saya berikan sedikit tips dan triknya yang juga saya dapat dari berbagai sumber diinternet. berikut langkah-langkahnya :

Bukalah menu regedit.exe sebagai registary editor untuk memulai pemecahan masalah modem yang tidak bisa konek, caranya menggunakan run, tekan window+R

Masuklah pada menu HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameteres

Lakukan langkah ini, yakni Klik Edit -> New -> Multi-String Value

Gantilah nama yang ada dengan ReservedPorts

Pada ReservedPorts klik doble dan masukkan value data tadi dengan angka 1723-1723

Lakukan restart pada PC Anda

Modem telah terinstal dengan baik dan koneksi internetpun akan berjalan lancar jika langkah di atas berhasil Anda lakukan.
Sebagai catatan, berhati-hatilah dalam melakukan langkah ini apalagi dengan Port bawaan windows 8


Selamat mencoba dan semoga berhasil !
Pengunjung yang baik selalu meninggalkan komentar !!

Program Menampilkan Bintang di Pascal

Program Menampilkan Bintang di Pascal, Selamat mencoba dengan program berikut ini :

Program Menampilkan_Bintang;
Uses Wincrt;
Var i,j,n:integer;
Begin
Writeln('Program Menampilkan Bintang');
Writeln('===========================');
Writeln;
Write('Masukkan Jumlah Baris: ');readln(n);
For i:= 1 to n do
Begin
For j:= 1 to i do
Write('*');
Writeln;
End;
End.

Selamat mencoba semoga berhasil !
 Pengunjung yang baik selalu meninggalkan komentarnya !!

Program Menghitung Nilai Faktorial di Pascal

Program Menghitung Nilai Faktorial di Pascal, tanpa basa-basi langsung saja dah ane bagikan kodenya hehehe

Program Faktorial;
Uses Wincrt;
     Var i,n,x:integer;
Begin
      Writeln('Program Faktorial');
      Writeln('=================');
      Writeln;
      Write('Masukkan Nilai Faktorial: ');Readln(n);
      Writeln;
               if (n<=0) then
            Writeln('Hasil Faktorial: ',1)
               else
            Begin
                x:=1;
                For i := 1 to n do
                x:=x*i;
            Writeln('Hasil Faktorial: ',x);
      End;
End.


Selamat mencoba !!
Pengunjung yang baik selalu meninggalkan komentarnya !!

Program Tukar Nilai (A<=>B) di Pascal

Program Tukar Nilai (A<=>B) di Pascal, seperti itulah judul postingan saya kali ini, bagi teman-teman yang lagi cari-cari silahkan aja nih dibawah ini kodenya :

Uses WinCrt;
var A,B,C:integer;

Begin
      Writeln('Program Menukar Nilai A Menjadi B');
      Writeln('=================================');
Writeln;

         Write('Masukkan Nilai A: ');readln(A);
         Write('Masukkan Nilai B: ');readln(B);
Writeln;
         
         A:=B;
         B:=C;
Writeln;
         Writeln('Hasil A=',A,' B=',B);
End.

Selamat mencoba dan semoga berhasil !!
pengunjung yang baik selalu meninggalkan komentarnya !!

Program Conversi Suhu (Celcius-Fahrenheit) di Pascal

Program Conversi Suhu (Celcius-Fahrenheit) di Pascal,  yaah demikian lah program yang saya buat dengan melihat berbagai referensi dan pelajaran kuliah saya, yaa sekalian update laahhhh semoga saja bisa membantu buat teman-teman sekalia. Berikut Programnya :

Uses WinCrt;
     var f,c:real;

begin
      Writeln('Program Konversi Fareinheit Ke Celcius');
      Writeln('======================================');
      Writeln;
      Write('Masukan Suhu dalam Farenheit: ');readln(f);
      c:=5/9*(f-32);
Writeln;
         Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end.

Selamat mencoba dan terima kasih atas kunjungannya. Jangan lupa berkomentar yaa :)

Program Segitiga Siku-Siku Terbalik dengan C++

Alhamdulillah setelah selama seminggu mengerjakan tugas kuliah yang satu ini akhirnya selesai juga hehe  maklum namanya juga baru belajar jadi wajarlah butuh waktu yang sangat amat lama untuk menyelesaikannya. Program C++ yang satu ini dibuat membentuk seperti segitiga siku-siku terbalik dengan siku-sikunya berada diatas. Tak lupa saya ucapkan kepada admin kodeprogramcpp.blogspot.com yang sudah membantu saya dalam menyelesaikan tugas saya kali ini (kayak sambutan yah hehe), dan untuk referensi sendiri dan juga dibagikan pula kepada teman-teman yang mungkin mendapat tugas serupa semoga dapat membantu bagi teman-teman semua. Berikut codingnya :

 #include <constrea.h>

void main()
{

int spasi;

for(int h=0; h<5; h++)
{

spasi = h;

while(spasi > 0)
{
cout <<"  "; /*spasinya 2x */

spasi--;

}

for(int i=h; i<5; i++)

cout << i+1 << " ";

cout << "\n";
}

getch();

}

Disini saya menggunakan Borland C++ dan bagi anda yang menggunakan program yang lainnya silahkan menyesuaikan yaa :D hehehe. Selamat mencoba dan terima kasih kunjungan anda. Jangan lupa tinggalkan komentarnya yaa hehe.

Membuat Program Pangkat dengan mudah di Pascal

Membuat Program Pangkat dengan mudah di Pascal, untuk membuat program pangkat di pascal caranya memang agak berbeda dengan operasi aritmatika pada umumnya. Untuk program pangkat menggunakan tipe data function, dan berbeda dengan aritmatika yang biasanya menggunakan variabel (var). Langsung saja berikut adalah contoh kode Membuat Program Pangkat dengan mudah di Pascal.

uses wincrt;
var a,b:integer;
    hasil:real;
               function pangkat(x:integer):real;

begin
     hasil:=exp(x*ln(a));
     pangkat:=hasil;
                    end;

begin
     write('masukan angka = ');read(a);
     write('masukan pangkat = ');read(b);
     write('hasil dari ',a ,' pangkat ',b,' adalah ',pangkat(b):0:0);
     end.

Langsung saja dicoba di program pascal anda. Disini saya menggunakan TPW 1.5. Jika anda menggunakan TP 7.0 ganti tulisan uses wincrt dengan uses crt. Saya rasa anda sudah mengetahuinya tapi alangkah beiknya lagi saya mengingatkan.
Terima kasiihh.


nb: hargai karya orang dengan, like, follow, coment, and share

Program Kalkulator/Hitung Sederhana dengan Pascal

Bagi anda para mahasiswa mungkin sudah tidak asing lagi dengan yang namanya Program Pascal. Terutama bagi anda yang kuliah dengan jurusan yang berhubungan dengan komputer misalkan Teknik Informatika (seperti saya), Sistem Informatika, dan lainnya. Banyak mahasiswa yang menganggap program pascal itu sulit, ada juga yang menganggap pascal itu yaa lumayaannn, dan ada juga yang menganggap pascal itu sulit bahkan mereka tidak bisa mengaplikasikannya. Hal ini sebenarnya tergantung dari kita yang menjalaninya. Padahal sebenarnya program pascal itu tidak sesulit yang dikatakan beberapa mahasiswa tersebut jika anda ingin mempelajarinya dengan logika karena kuliah komputer itu yang terpenting adalah logika.

Berikut ini saya akan memberikan contoh program menggunakan operator seperti penjumlahan, pengurangan, perkalian dan pembagian. Berikut porgramnya :

uses wincrt;

var a,b,p,h:real;

     

begin

        writeln('Masukan Angka Pertama = ');read(a);

        writeln('Masukan Angka Kedua = ');read(b);

        writeln('==============================');

                        writeln('1. Penjumlahan');

                       writeln('2. Pengurangan');

                       writeln('3. Perkalian');

                       writeln('3. Pembagian');

         writeln('================================');

        writeln('Pilih Operasi Hitung : ');read(p);

             if p=1 then h:=a+b;

             if p=2 then h:=a-b;

             if p=3 then h:=a*b;

             if p=3 then h:=a/b;

 writeln('=================================');

writeln('Hasil Operasi Hitung Anda Adalah ',h:0:

end.

 Demikian contoh yang bisa saya berikan untuk saat ini. Yang lainnya insyaallah menyusul karena saya juga baru mahasiswa semester 1 yang masih awam program. Terima kasih.

Silahkan sampaikan saran dan komentar juga pertanyaan anda.

Membuat Program Pembagian di Pascal

Membuat Program Pembagian di Pascal, langsung saja tanpa basa-basi berikut codenya

program pembagiaan;
uses wincrt;
var a,b,h:real;
begin
     writeln('===PEMBAGIAN===');
     writeln('=================');
    
     write('Masukan Angka Pertama = ');read(a);
     write('Masukan Angka Kedua = ');read(b);

     h:=a/b;
                
     writeln('Angka Pertama : Angka Kedua = Hasil Pembagian');
     writeln(a, ' : ',b, ' = ' ,h);
     writeln('Hasil Operasi Pembagian Anda Adalah ',h:0:2);

end.

Nb: untk program pembagia dari integer yang biasanya digunakan pada operasi aritmatika pada umumnya dan pada operasi pembagian digunakan real karena hasil pembagian bisa berupa bilangan desimal.

Terima kasih atas kunjungan anda.

Membuat Program Hitung Nilai Rata-Rata di Pascal

Setelah beberapa postingan tentang pascal kali ini saya akan posting kembali tentang pascal juga tentunya dan barangkali semoga bisa membanti dan bermanfaat buat teman-teman sekalian. Mohon maaf sebelumnya karena programnya saya masih menggunakan program dasar saja karena saya juga masih pemula dalam hal pascal. Berikut kodenya :

uses wincrt;
var a,i,data,nilai,total:integer;
    rata2:real;
    lagi:char;

      BEGIN
           lagi:='Y';
           while lagi='Y' DO
       

begin
     clrscr;
     writeln('Menghitung Nilai Rata-Rata');
     writeln('==========================');
writeln;

        writeln('======================================');
        write('Masukan jumlah data nilai ada berapa ? ');readln(data);
        writeln('======================================');
                       total:=0;
                       i:=0;
                       while i<data do

                       begin
                            i:=i+1;

                       writeln('========================================');
                       write('Nilai data ke ',i,' = ');readln(nilai);
                       total:=total+nilai;
                       writeln('========================================');

            end;
                rata2:=total/data;
            writeln;
                    writeln('Total Nilai = ',total);
                                   writeln('Jumlah data = ',data);
                                                   writeln('Rata-Rata nilai = ',rata2:0:2);
            writeln;
            writeln;
            writeln;
            writeln('apakah anda ingin menghitung lagi (Y/T > huruf kapital) ??');readln(lagi);
            end;end.

Sepertinya programnya panjang ya ?? tapi sebenarnya tidak juga setelah anda salin di program pascal anda. Jika terjadi kesalahan atau tidak terjadi kesalahan tetap tinggalkan komentar anda juga yaa ! Terima kasiih.

Program Matriks di Pascal

Jumpa lagi bersama postingan saya berikut ini, masih berkelut dengan Pascal dan kali ini saya akan share mengenai program matriks yang akan kita buat dengan program pascal, untuk softwere pascal yang saya gunakan yaitu Turbo Pascal Window (TPW) 1.5, jika diantara anda yang menggunakan pascal versi 7.0 tinggal ganti aja Uses Wincrt; menjadi Uses crt; Berikut Programnya,

uses wincrt;
    var
    a:Array[1..10,1..10] of integer;
    baris,kolom:integer;

    begin
    write('jumlah baris : ');readln(baris);
    write('jumlah kolom : ');readln(kolom);

    for baris:=1 to baris do
    for kolom:=1 to kolom do
    begin
    write('[',baris,',',kolom,'] = ');readln(a[baris,kolom]);
    end;

    writeln;
    writeln('Matrix yang terbentuk adalah : ');
    for baris:=1 to baris do
    begin
    for kolom:=1 to kolom do
    begin
    write(a[baris,kolom]);
    write(' ');

    end;
    writeln;
    end;

    end.

Demikian postingan saya kali ini mengenai Pascal dan sampai jumpa lagi pada postingan lainnya. Jangan lupa komentar dan like + follownya yaa. Terima kasih.

Program Perulangan REPEAT..UNTIL di PASCAL

Program Perulangan REPEAT..UNTIL di PASCAL, satu lagi program perulangan di pascal untuk anda dan untuk kita semuaa.

Program I

                       

                        Uses wincrt;

             Var ulang : Integer;

                  Begin

                        Ulang:=0;

                  Repeat

                        Ulang:=ulang+1;

                              Writeln(ulang);

                  Until ulang=5;readln;

             End.

Program II

            Uses wincrt;

Var

             N : Integer;

       Begin

            Clrscr;

             N := 1;

          Repeat

                Write('Looping ke-',N);

                Writeln(' PASCAL');

                N := N + 1;

          Until N > 5;

                Readln;

                       End.



Terima kasih atas kunjungan anda dan jangan lupa tiggalkan komentar anda juga yaa.

Program Perulangan WHILE..DO di PASCAL

Program Perulangan WHILE..DO di PASCAL, programnya kurang lebih sih dengan for to do kan sama-sama perulangan :D

cekidoooott

Program I

           

            uses wincrt;

var

             i : integer;

begin

                   i := 0;

                   while i < 5 do

             begin

                  writeln(i, ' Belajar Pemrograman Pascal');

                    i := i + 1;

             end;

end.

            Program II

                                   

                                    uses wincrt;

var

i:integer;

begin

clrscr;

  i:=1;

                               while i<=10 do

                   begin

                   write(i,' ');

                          i:=i+1;

   end;

readln;

end.

Program Perulangan FOR..TO..DO di PASCAL

Program Perulangan FOR..TO..DO di PASCAL, kembali lagi saya dengan salah satu program yang alhamdulillah saya buat sendiri dan juga berasal dari tugas kuliah saya. Tanpa bertele-tele langsung sajalah seperti berikut ini :

Program I

uses wincrt;

var a,b:integer;

                     begin

                            for a:=1 to 5 do

                     begin

                            for b:=1 to a do

                            write(b,' ');

                      writeln;

                  end;end.

Program II

uses wincrt;

var

                    i,j,n:integer;

begin

                        write ('Banyak Perulangan: '); readln(n);

                         j:=5;

                              for i:=1 to n do

begin

                        writeln(i,' ',j);

                        j:=j-1;

end;

                  readln;

end.



Selamat mencobaa. Terima kasih atas kujungan anda dan jangan lupa tinggalkan komentar anda. Follow juga yaa

Program CASE..OF di Pascal

Program CASE..OF di Pascal, kali ini saya akan kembali sedikit berbagi mengenai pemrograman Pascal, bagi anda yang sedang belajar emrograman pascal semoga postingan saya kali ini sedikitnya bisa membantu dan juga ini sebagai referensi saya supaya bisa diingat kembali dalam waktu kedepannya. Oke langsung saja berikut program CASE OF-nya :

uses wincrt;

var

   luas,sisi,p,l,pilih:integer;

   begin

        writeln('1. Program Menghitung Luas Persegi');

        writeln('2. Program Menghitung Luas Persegi Panjang');

        writeln;

        write('Pilih Program (1/2) : ');readln(pilih);

        clrscr;

        case pilih of

       

        1:begin

           write('Masukan Panjang Sisi Persegi : ');readln(sisi);

               luas:=4*sisi;

               writeln;

               writeln('Luas Persegi Adalah ',luas);

               end;

        2:begin

        write('Masukan Panjang Sisi Persegi Panjang : ');readln(p);

        write('Masukan Lebar Sisi Persegi Panjang : ');readln(l);

               luas:=p*l;

               writeln;

               end;end;end.



sedikit penjelasan : 

saya anggap mengerti saja mulai dari uses wincrt hingga begin yg pertama. Berikutnya kepada CASE PILIH OF kata PILIH disitu ialah berfungsi untuk memanggil program sesaui dengan pilihan yang kita masukan pada write('Pilih Program (1/2) : ');readln(pilih); pada statement ini kan kita disuruh untuk menginputkan pilihan program yang akan kita gunakan yaitu pada pilihan pertama (1) menghitung luas persegi dan pada pilihan kedua (2) program menghitung luas persegi panjang. Saat kita menginputkan pilihan maka pilihan kita akan disimpan oleh pilih yang saya beri warna merah dan saat anda tekan enter maka program yang ditandai dengan angka tersebut akan muncul sebagai program yang anda pilih. Misal, saya akan memilih program nomor 2 dan kemudian saya tekan enter maka yang muncul adalah program yang saya beri tanda 2:begin . Nah bagi anda yang bingung kenapa ada angka 1 dan 2 didepan begin ? begin penjelasan sederhananya, angka 1 dan angka 2 disitu bisa kita sebut dalam bahasa yang sederhana saja kita sebut sebagai kode program atau nomor program, jika kita masukan pilihan pertama angka 1 maka program pertama yang angka muncul dan apabila kita masukan angka 2 maka program yang kedua lah yang akan muncul. Mungkin bisa di mengerti ? kalau masih bingung silahkan tinggalkan pertanyaan dan komentar anda pad akolom yang telah tersedia.

Dengan program case..of ini kita bisa membuat berbagai macam program dan tentunya dalam jumlah program yang cukup banyak bisa kita buat kare case..of berfungsi untuk pemanggilan program sesuai dengan nomor program atau kode program yang sudah sedikit saya jelaskan diatas.

Terima kasih bagi anda yang sudah berkunjung dan sudah meninggalkan komentar anda. Jangan lupa like dan follow juga yaa :)

Program Penjumlahan Matrik di Pascal

Program Penjumlahan Matrik di Pascal , semoga bisa membantu bagi anda semua dan untuk saya juga :), mungkin banyak juga bentuk program serupa ini yang bertebaran di blog-blog lain akan tetapi alngkah lebih baik kalau juga kita ikut berpartisipasi untuk share sebuah ilmu,

uses wincrt;

var
   matA,matB,matC:array[1..10,1..10] of integer;
   kolom,baris:integer;

   begin
        writeln('==============');
        writeln('|| MATRIK A ||');
        writeln('==============');
        write('Masukan Baris = ');readln(baris);
        write('Masukan Kolom = ');readln(kolom);
        writeln('=================');
        for baris:=1 to baris do
        for kolom:=1 to kolom do

            begin
                 write('Masukan Baris ke-',baris,' dan kolom ke-',kolom,' = ');readln(matA[baris,kolom]);
            end;
            writeln('=====================================');
            writeln;
        begin
             writeln('==============');
             writeln('|| Matrik B ||');
             writeln('==============');
             write('Masukan Baris = ');readln(baris);
             write('Masukan Kolom = ');readln(kolom);
             writeln('=================');
             for baris:=1 to baris do
             for kolom:=1 to kolom do

                 begin
                      write('Inputkan Baris ke-',baris,' dan kolom ke-',kolom,' = ');readln(matB[baris,kolom]);
                 end;

                begin
                     clrscr;
                     writeln('==============');
                     writeln('|| Matrik A ||');
                     writeln('==============');

                     for baris:=1 to baris do
                     begin
                     for kolom:=1 to kolom do
                         write(matA[baris,kolom]:5);
                          writeln(' ');
                         
                end;
                    writeln('==============');
                    writeln('==============');
             end;

                 begin
                      writeln;
                      writeln('==============');
                     writeln('|| Matrik B ||');
                     writeln('==============');

                      for baris:=1 to baris do
                      begin
                      for kolom:=1 to kolom do
                          write(matB[baris,kolom]:5);
                          writeln(' ');
                          end;
                          writeln('==============');
                          writeln('==============');
                      end;
                 end;

                 begin
                      writeln;
                     
                      for baris:=1 to baris do
                      begin
                      for kolom:=1 to kolom do
                      matC[baris,kolom]:=matA[baris,kolom]+matB[baris,kolom];

                 end;

                 begin
                      writeln('=======================');
                      writeln('|| Hasil Penjumlahan ||');
                      writeln('=======================');
                      for baris:=1 to baris do
                      begin
                           for kolom:=1 to kolom do
                
                           write(matC[baris,kolom]:5);
                           writeln;
                           end;
                           writeln('=======================');
                           writeln('=======================');

                      end;
                      end;
                      end.

Program IF..THEN di Pascal || menghitung nilai kelulusan di Pascal

Program IF..THEN di Pascal,-Lama sudah tidak share menganai program yang satu ini, masih dengan program pascal. Berikut saya akan share mengenai beberapa buah program yang saya buat dan saya pelajari dan juga sekaligus mengarsipkan tugas akhir semester dari dosen pemrograman saya. Pada postingan saya yang kali ini mengenai program yang didalamnya terdapat logika If...then. Langsung saja sedikit program sederhana dari saya :

Menghitung Nilai Kelulusan dengan If...then

Program Pertama :

uses wincrt;

var

   nilai:integer;

   ket:string;

      

   begin

        write('Masukan Nilai : ');readln(nilai);

        if nilai >=60 then

        ket:='LULUS'

                     else

        ket:='GAGAL';

           writeln;

                writeln('Anda ',ket);

                      end.

Program Kedua :

uses wincrt;

var

   nilai:integer;

   ket,nama:string;

   begin

        write('Masukan Nama : ');readln(nama);

        write('Masukan Nilai : ');readln(nilai);

        if (nilai >=85) and (nilai <=100) then

        ket:='A'

                else

                if (nilai >=75) and (nilai <=84) then

                ket:='B'

                        else

        if (nilai >=65) and (nilai <=74) then

        ket:='C'

                else

                if (nilai >=50) and (nilai <=64) then

                ket:='D'

                        else

        if (nilai >=0) and (nilai <=49) then

        ket:='E';

   clrscr;

   writeln(nama,' dengan nilai ',nilai,' grade anda adalah ',ket);

end.

  

Demikian sedikit program pascal dari saya dan semoga bermanfaat bagi anda yang sedang membaca :). Terima kasih atas kunjungan anda dan sebelum anda pergi silahkan tingalkan dulu komentar anda. Sampai bertemu di program-program selanjutnya.