Forum Sains Indonesia




*

Artikel Sains

Aku Cinta ForSa

ForSa on FB  ForSa on Twitter

Pranala Luar

ShoutBox!

Last 10 Shouts:

 

MuhammadRyan

Kemarin jam 08:49:32 AM
koveran jaringannya, mas. Indonesia musatinnya di Jawa, klo di luar jawa pke parabola smua; yg di Kalimantan ama Riau byk pke router Malaysia
 

Farabi

Maret 04, 2015, 10:51:44 AM
Kalo alasan kuota karena jaringan kurang kuat? Kenapa tiap akhir bulan dimana semua orang abis kuota jaringan tidak jadi lebih cepat? Sebenarnya Internet Indonesia lambat lebih karena masalah nyari duit kan?
 

Farabi

Maret 04, 2015, 10:49:30 AM
Tarolah setiap gajian orangindonesia beli pulsa.  Berarti ada 10 juta orang yang kuotanya bisa akses internet kecepatan full.  Berarti kekuatan jaringan sebetulnya kuat kan.  Tapi kenapa setelah kuota abis jadi lambat?
 

Farabi

Maret 04, 2015, 10:39:28 AM
Apaan nih ganti menkominfo internet kecepatan nya malah ancur bae gini.

Raidahafi27

Pebruari 28, 2015, 07:12:04 AM
departemen tehnik lingkungan banyak menggambar nya ga??

jayanusantaraku

Pebruari 24, 2015, 08:46:50 PM
 >:(

jayanusantaraku

Pebruari 24, 2015, 08:42:11 PM
ada yg tau gk bahan kimia /material pembuat n pembentuk plastik n bagaimana proses campurane/takaran yg pas untuk membuat plastik frame kacamata yg celluloid n thanks ya

jayanusantaraku

Pebruari 24, 2015, 08:40:36 PM
hy saya anggota baru dr kota surabaya n salam kenal n thanks udh d ijinin gabung

abdillahibnunasrullah

Pebruari 24, 2015, 07:53:17 PM
Assalamualaikum, shalom kenal semuanya, ane temennya MuhammadRyan
 

MuhammadRyan

Pebruari 23, 2015, 10:23:33 PM
YAOW, Akhirnya pulang juga dari Haifah, Israel. Ada proyek... bkan soal Mossad...

Show 50 latest

Penulis Topik: Pemograman Bascom Avr dengan modem wavecom  (Dibaca 1114 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline yahya

  • Siswa Baru
  • *
  • Tulisan: 1
  • IQ: 0
  • ForSa!
    • Lihat Profil
Pemograman Bascom Avr dengan modem wavecom
« pada: Juni 01, 2013, 08:55:12 AM »
[ask] saya buat program dengan bascom avr, tapi saat dijalankan alatnya, smsnya nggak terkirim kenapa ya program saya yang salah atau rangkaian saya..??
Neh kodingnya :

$regfile = "8535def.dat"
$crystal = 8000000
$baud = 9600                                                '19200

$lib "lcd4.lbx"

Dim D As Byte
Dim C As String * 30
Dim S As String * 15
Dim T As String * 10
Dim I As Integer
Dim A As Integer
Dim M As Integer


Declare Sub Alarm
Config Portc.1 = Output                                     'kontak motor
Config Portc.0 = Output                                     'alarm


Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc



Cls
Lcd "Alarm Kendaraan"
Lowerline
Lcd "Terkoneksi HP"
Wait 1


Do
   Gosub Baca
   If I <= 550 And A <= 370 And M <= 490 Then
   Goto Kirim
   Goto Tampilan
   Goto Alarm
     Else
   Gosub Baca
   Portc.0 = 0
   Portc.1 = 0
   End If
Loop
End


Tampilan:
Cls
Locate 1 , 2 : Lcd "Peringatan"
Wait 1


Kirim:
Cursor Off
Cls
Lcd "Kirim SMS"
Waitms 500
Print "AT+CMGS=";
'--no HP penerima--
Print "081266402959"
Waitms 500
'--isi SMS----
Print "Peringatan";
Print Chr(26)
Wait 1
Cls
Lcd "SMS terkirim"
Wait 1



Alarm:
Portc.1 = 1
Portc.0 = 1
Waitms 100
Portc.1 = 0
Waitms 300
Portc.0 = 0


Baca:
I = Getadc(0)
A = Getadc(1)
M = Getadc(2)
Cls
Locate 1 , 1 : Lcd "X="
Locate 1 , 8 : Lcd "Y="
Locate 2 , 1 : Lcd "Z="
Locate 1 , 3 : Lcd I
Locate 1 , 10 : Lcd A
Locate 2 , 3 : Lcd M
Waitms 500
Return



 

Topik Terkait

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
0 Jawaban
3338 Dilihat
Tulisan terakhir Maret 19, 2010, 10:17:32 PM
oleh peb
2 Jawaban
3153 Dilihat
Tulisan terakhir November 08, 2011, 04:29:59 PM
oleh Eko Budianto
0 Jawaban
1870 Dilihat
Tulisan terakhir April 06, 2013, 07:35:45 PM
oleh caturpermadi
0 Jawaban
860 Dilihat
Tulisan terakhir April 22, 2013, 08:02:24 PM
oleh a_die
0 Jawaban
640 Dilihat
Tulisan terakhir Pebruari 05, 2014, 07:58:17 PM
oleh NUGRAHA1

Copyright © 2006-2014 Forum Sains Indonesia