Forum Sains Indonesia




*

Artikel Sains

Aku Cinta ForSa

ForSa on FB  ForSa on Twitter

Pranala Luar

ShoutBox!

Last 10 Shouts:

gagas3rd

Juli 22, 2016, 10:28:05 PM
CV AVR saya kesulitan dalam pembuatan program

gagas3rd

Juli 22, 2016, 10:27:34 PM
boleh taya AVR

RECDGE

Juli 22, 2016, 01:37:17 PM
min cara buat iklan lowongan di forsa gmn yah?saya tidak bisa dikarenakan pranala luar itu maksutnya apa

CHECHEN

Juli 21, 2016, 04:58:50 PM
Mini PC dan Thin Client FUJITECH INDONESIA

#fujitech
OFFICIAL WEBSITE:
www.pclink.co.id

CHECHEN

Juli 21, 2016, 04:58:10 PM
Mini PC dan Thin Client FUJITECH INDONESIA

Sebuah persembahan teknologi yang dapat bermanfaat untuk mencerdaskan pendidikan anak bangsa, FUJITECH INDONESIA menghadirkan THIN CLIENT dan MINI PC yang sangat cocok sekali untuk LAB Komputer Sekolah, Perusahaan PIALANG, Future Trading , Pengganti PC u
 

loser1942

Juli 20, 2016, 06:42:34 PM
Hello guys, same question, apakah forum masih aktif?

RECDGE

Juli 15, 2016, 10:38:26 AM
apakah forum ini masih aktif?

rakakakuk

Juni 14, 2016, 02:35:17 PM
Glucoberry is a product of Milk for beauty that is processed with modern technology, as well as of processing got the radar directly from the beauty experts around the world.
http://www.obatawetmudaalami.com/obat-kulit-kering-saat-puasa/
 

ahmad m.s

Juni 03, 2016, 04:21:51 PM
GOD!! dah lama ga nongol disini

nice to meet you gaesss~~~~~

Show 50 latest

Penulis Topik: Pemograman Bascom Avr dengan modem wavecom  (Dibaca 2076 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
4357 Dilihat
Tulisan terakhir Maret 19, 2010, 10:17:32 PM
oleh peb
2 Jawaban
4759 Dilihat
Tulisan terakhir November 08, 2011, 04:29:59 PM
oleh Eko Budianto
0 Jawaban
3205 Dilihat
Tulisan terakhir April 06, 2013, 07:35:45 PM
oleh caturpermadi
0 Jawaban
1379 Dilihat
Tulisan terakhir April 22, 2013, 08:02:24 PM
oleh a_die
0 Jawaban
1526 Dilihat
Tulisan terakhir Pebruari 05, 2014, 07:58:17 PM
oleh NUGRAHA1

Copyright © 2006-2014 Forum Sains Indonesia